Initial commit: server + serverfiles

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.kill_dragon.0.arg

@@ -0,0 +1 @@
+gameforge.dragon_lair_access._110_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.kill_dragon.0.script

@@ -0,0 +1,7 @@
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _115_say ) 
+local warp = select ( gameforge . dragon_lair_access . _116_select , gameforge . dragon_lair_access . _117_select ) 
+if warp == 1 then 
+dragon_lair_access . warp_from_lair ( ) 
+set_state ( "start" ) 
+end 

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.kill_dragon.0.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) == 208

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.kill_dragon.1.arg

@@ -0,0 +1 @@
+gameforge.dragon_lair_access._190_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.kill_dragon.1.script

@@ -0,0 +1,7 @@
+if pc . getqf ( "time" ) > 0 and pc . getqf ( "time" ) == game . get_event_flag ( "dragon_lair_time" ) then 
+dragon_lair_access . warp_to_lair ( ) 
+else 
+say_title ( gameforge . neutral_warp . _20_sayTitle ) 
+say ( gameforge . dragon_lair_access . _120_say ) 
+set_state ( "start" ) 
+end 

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.kill_dragon.1.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) ~= 208

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.spawn_dragon.0.arg

@@ -0,0 +1 @@
+gameforge.dragon_lair_access._110_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.spawn_dragon.0.script

@@ -0,0 +1,7 @@
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _115_say ) 
+local warp = select ( gameforge . dragon_lair_access . _116_select , gameforge . dragon_lair_access . _117_select ) 
+if warp == 1 then 
+dragon_lair_access . warp_from_lair ( ) 
+set_state ( "start" ) 
+end 

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.spawn_dragon.0.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) == 208

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.start.0.arg

@@ -0,0 +1 @@
+gameforge.dragon_lair_access._010_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.start.0.script

@@ -0,0 +1,77 @@
+local starttime = game . get_event_flag ( "dragon_lair_time" ) 
+local current_time = get_global_time ( ) 
+local settings = dragon_lair_access . get_settings ( ) 
+local time_remaining = dragon_lair_access . get_time_remaining ( ) 
+if pc . count_item ( settings . access_item ) >= settings . access_item_amount then 
+if starttime + settings . group_time >= current_time then 
+local password_input ; 
+repeat 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _020_say ) 
+password_input = tonumber ( input ( ) ) 
+if password_input ~= game . get_event_flag ( "dragon_lair_password" ) then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _030_say ) 
+local again = select ( gameforge . dragon_lair_access . _040_select , gameforge . locale . cancel ) 
+if again == 2 then 
+return 
+end 
+end 
+until password_input == game . get_event_flag ( "dragon_lair_password" ) 
+if not dragon_lair_access . give_item_to_ghost ( ) then 
+return 
+end 
+pc . setqf ( "time" , starttime ) 
+dragon_lair_access . warp_to_lair ( ) 
+set_state ( "kill_dragon" ) 
+elseif time_remaining < 0 and npc . lock ( ) then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _050_say ) 
+local abort = select ( gameforge . dragon_lair_access . _060_select , gameforge . locale . cancel ) 
+if abort == 2 then 
+npc . unlock ( ) 
+return 
+end 
+local password_number ; 
+repeat 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _070_say ) 
+password_number = tonumber ( input ( ) ) 
+local again ; 
+if type ( password_number ) ~= "number" then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _080_say ) 
+again = select ( gameforge . dragon_lair_access . _040_select , gameforge . locale . cancel ) 
+if again == 2 then 
+npc . unlock ( ) 
+return 
+end 
+end 
+until type ( password_number ) == "number" 
+if not dragon_lair_access . give_item_to_ghost ( ) then 
+npc . unlock ( ) 
+return 
+end 
+if dragon_lair_access . get_time_remaining ( ) > 0 then 
+pc . give_item2 ( settings . access_item , settings . access_item_amount ) 
+npc . unlock ( ) 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _120_say ) 
+return 
+end 
+pc . setqf ( "password" , password_number ) 
+timer ( "dragon_lair_warptimer" , pc . get_channel_id ( ) * 2 ) 
+npc . unlock ( ) 
+else 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _120_say ) 
+return 
+end 
+else 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _100_say ) 
+say ( gameforge . dragon_lair_access . _105_say ) 
+say ( settings . access_item_amount .. "x: " ) 
+say_item_vnum ( settings . access_item ) 
+return 
+end 

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.start.0.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) ~= 208

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.start.1.arg

@@ -0,0 +1 @@
+gameforge.dragon_lair_access._110_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.start.1.script

@@ -0,0 +1,7 @@
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . dragon_lair_access . _115_say ) 
+local warp = select ( gameforge . dragon_lair_access . _116_select , gameforge . dragon_lair_access . _117_select ) 
+if warp == 1 then 
+dragon_lair_access . warp_from_lair ( ) 
+set_state ( "start" ) 
+end 

serverfiles/share/locale/english/quest/object/30121/chat/dragon_lair_access.start.1.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) == 208

serverfiles/share/locale/english/quest/object/30121/chat/ghost_story.start.0.arg

@@ -0,0 +1 @@
+gameforge.ghost_story._020_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/ghost_story.start.0.script

@@ -0,0 +1,103 @@
+local maindialog = 0 
+local storymode = 0 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _030_say ) 
+repeat 
+if pc . getqf ( "know_sura" ) == 1 then 
+maindialog = select ( gameforge . ghost_story . _060_npcChat , gameforge . ghost_story . _080_npcChat , gameforge . ghost_story . _120_npcChat , gameforge . ghost_story . _160_npcChat , gameforge . ghost_story . _200_npcChat , gameforge . ghost_story . _240_npcChat , gameforge . ghost_story . _280_npcChat ) 
+if maindialog == 1 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _070_say ) 
+wait ( ) 
+elseif maindialog == 2 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _090_say ) 
+wait ( ) 
+elseif maindialog == 3 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _130_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _140_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _150_say ) 
+wait ( ) 
+elseif maindialog == 4 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _170_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _180_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _190_say ) 
+wait ( ) 
+elseif maindialog == 5 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _210_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _220_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _230_say ) 
+wait ( ) 
+elseif maindialog == 6 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _250_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _260_say ) 
+storymode = select ( gameforge . locale . levelup . prev_quest_go , gameforge . ghost_story . _280_npcChat ) 
+if storymode == 2 then 
+return 
+end 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _270_say ) 
+wait ( ) 
+else 
+say ( gameforge . ghost_story . _290_say ) 
+end 
+else 
+maindialog = select ( gameforge . ghost_story . _060_npcChat , gameforge . ghost_story . _040_npcChat ) 
+if maindialog == 1 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _070_say ) 
+wait ( ) 
+local subdialog1 = select ( gameforge . ghost_story . _080_npcChat ) 
+if subdialog1 == 1 then 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _090_say ) 
+pc . setqf ( "know_sura" , 1 ) 
+wait ( ) 
+end 
+else 
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _050_say ) 
+maindialog = 7 
+end 
+end 
+until maindialog == 7 
+return 

serverfiles/share/locale/english/quest/object/30121/chat/ghost_story.start.0.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) == 73

serverfiles/share/locale/english/quest/object/30121/chat/ghost_story.start.1.arg

@@ -0,0 +1 @@
+gameforge.ghost_story._100_npcChat

serverfiles/share/locale/english/quest/object/30121/chat/ghost_story.start.1.script

@@ -0,0 +1,2 @@
+say_title ( gameforge . ghost_story . _010_sayTitle ) 
+say ( gameforge . ghost_story . _110_say ) 

serverfiles/share/locale/english/quest/object/30121/chat/ghost_story.start.1.when

@@ -0,0 +1 @@
+return pc . get_map_index ( ) == 73