Initial commit: server + serverfiles

This commit is contained in:
Game
2026-08-17 17:31:44 +00:00
commit ff1237686b
17389 changed files with 868929 additions and 0 deletions
@@ -0,0 +1,11 @@
say_title ( gameforge . buy_fishrod . _100_sayTitle )
say ( gameforge . buy_fishrod . _110_say )
local b = select ( gameforge . buy_fishrod . _120_select , gameforge . buy_fishrod . _130_select )
if 1 == b then
setstate ( "play_event" )
elseif 2 == b then
setstate ( "__COMPLETE__" )
q . done ( )
else
say ( string . format ( gameforge . buy_fishrod . _80_say , b ) )
end
@@ -0,0 +1,2 @@
say_title ( gameforge . buy_fishrod . _20_sayTitle )
say ( gameforge . buy_fishrod . _160_say )
@@ -0,0 +1,102 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . buy_fishrod . _220_say )
if pc . countitem ( "27833" ) >= 5 then
pc . removeitem ( "27833" , 5 )
say ( gameforge . buy_fishrod . _230_say )
if pc . job == 0 then
local r = number ( 1 , 10 )
if r == 1 then
pc . give_item2 ( "00013" , 1 )
elseif r == 2 then
pc . give_item2 ( "00023" , 1 )
elseif r == 3 then
pc . give_item2 ( "00033" , 1 )
elseif r == 4 then
pc . give_item2 ( "00043" , 1 )
elseif r == 5 then
pc . give_item2 ( "00053" , 1 )
elseif r == 6 then
pc . give_item2 ( "03003" , 1 )
elseif r == 7 then
pc . give_item2 ( "03013" , 1 )
elseif r == 8 then
pc . give_item2 ( "03023" , 1 )
elseif r == 9 then
pc . give_item2 ( "03033" , 1 )
elseif r == 10 then
pc . give_item2 ( "03043" , 1 )
end
elseif pc . job == 1 then
local r = number ( 1 , 15 )
if r == 1 then
pc . give_item2 ( "00013" , 1 )
elseif r == 2 then
pc . give_item2 ( "00023" , 1 )
elseif r == 3 then
pc . give_item2 ( "00033" , 1 )
elseif r == 4 then
pc . give_item2 ( "00043" , 1 )
elseif r == 5 then
pc . give_item2 ( "00053" , 1 )
elseif r == 6 then
pc . give_item2 ( "01003" , 1 )
elseif r == 7 then
pc . give_item2 ( "04003" , 1 )
elseif r == 8 then
pc . give_item2 ( "01013" , 1 )
elseif r == 9 then
pc . give_item2 ( "04013" , 1 )
elseif r == 10 then
pc . give_item2 ( "01023" , 1 )
elseif r == 11 then
pc . give_item2 ( "02003" , 1 )
elseif r == 12 then
pc . give_item2 ( "02013" , 1 )
elseif r == 13 then
pc . give_item2 ( "02023" , 1 )
elseif r == 14 then
pc . give_item2 ( "02033" , 1 )
elseif r == 15 then
pc . give_item2 ( "2043" , 1 )
end
elseif pc . job == 2 then
local r = number ( 1 , 6 )
if r == 1 then
pc . give_item2 ( "00013" , 1 )
elseif r == 2 then
pc . give_item2 ( "00023" , 1 )
elseif r == 3 then
pc . give_item2 ( "00033" , 1 )
elseif r == 4 then
pc . give_item2 ( "00043" , 1 )
elseif r == 5 then
pc . give_item2 ( "00053" , 1 )
elseif r == 6 then
pc . give_item2 ( "00053" , 1 )
end
elseif pc . job == 3 then
local r = number ( 1 , 8 )
if r == 1 then
pc . give_item2 ( "05003" , 1 )
elseif r == 2 then
pc . give_item2 ( "05013" , 1 )
elseif r == 3 then
pc . give_item2 ( "05023" , 1 )
elseif r == 4 then
pc . give_item2 ( "07003" , 1 )
elseif r == 5 then
pc . give_item2 ( "07013" , 1 )
elseif r == 6 then
pc . give_item2 ( "07023" , 1 )
elseif r == 7 then
pc . give_item2 ( "07033" , 1 )
elseif r == 8 then
pc . give_item2 ( "07043" , 1 )
end
end
else
say_title ( gameforge . buy_fishrod . _20_sayTitle )
say ( gameforge . buy_fishrod . _240_say )
end
setstate ( "__COMPLETE__" )
q . done ( )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv30 . _300_sendLetter )
say ( gameforge . collect_quest_lv30 . _320_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv30 . _80_sayTitle )
say ( gameforge . collect_quest_lv30 . _90_say )
say_item_vnum ( 30006 )
say_reward ( string . format ( gameforge . collect_quest_lv30 . _100_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv30 . _10_sendLetter )
say ( gameforge . collect_quest_lv30 . _20_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30220 ) > 0 then
say_title ( gameforge . collect_quest_lv30 . _220_sayTitle )
say_reward ( gameforge . collect_quest_lv30 . _230_sayReward )
return
end
say_title ( gameforge . collect_quest_lv30 . _220_sayTitle )
say ( gameforge . collect_quest_lv30 . _240_say )
say_item_vnum ( 30220 )
say ( gameforge . collect_quest_lv30 . _250_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv40 . _310_sayTitle )
say ( gameforge . collect_quest_lv40 . _320_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv40 . _80_sayTitle )
say ( gameforge . collect_quest_lv40 . _90_say )
say_item_vnum ( 30047 )
say_reward ( string . format ( gameforge . collect_quest_lv40 . _100_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv40 . _20_sayTitle )
say ( gameforge . collect_quest_lv40 . _30_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30221 ) > 0 then
say_title ( gameforge . collect_quest_lv40 . _220_sayTitle )
say ( gameforge . collect_quest_lv40 . _230_say )
return
end
say_title ( gameforge . collect_quest_lv40 . _240_sayTitle )
say ( gameforge . collect_quest_lv40 . _250_say )
say_item_vnum ( 30221 )
say ( gameforge . collect_quest_lv40 . _260_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv50 . _300_sayTitle )
say ( gameforge . collect_quest_lv50 . _310_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv50 . _90_sayTitle )
say ( gameforge . collect_quest_lv50 . _100_say )
say_item_vnum ( 30015 )
say_reward ( string . format ( gameforge . collect_quest_lv50 . _110_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv50 . _20_sayTitle )
say ( gameforge . collect_quest_lv50 . _30_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30222 ) > 0 then
say_title ( gameforge . collect_quest_lv50 . _220_sayTitle )
say ( gameforge . collect_quest_lv50 . _230_say )
return
end
say_title ( gameforge . collect_herb_lv10 . _50_sayTitle )
say ( gameforge . collect_quest_lv50 . _240_say )
say_item_vnum ( 30222 )
say ( gameforge . collect_quest_lv50 . _250_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv40 . _300_sendLetter )
say ( gameforge . collect_quest_lv60 . _320_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv60 . _100_sayTitle )
say ( gameforge . collect_quest_lv60 . _110_say )
say_item_vnum ( 30050 )
say_reward ( string . format ( gameforge . collect_quest_lv60 . _110_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv60 . _20_sayTitle )
say ( gameforge . collect_quest_lv60 . _30_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30223 ) > 0 then
say_title ( gameforge . collect_quest_lv60 . _230_sayTitle )
say ( gameforge . collect_quest_lv60 . _240_say )
return
end
say_title ( gameforge . collect_quest_lv60 . _250_sayTitle )
say ( gameforge . collect_quest_lv60 . _260_say )
say_item_vnum ( 30223 )
say ( gameforge . collect_quest_lv60 . _270_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv40 . _300_sendLetter )
say ( gameforge . collect_quest_lv70 . _260_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv70 . _50_sayTitle )
say ( gameforge . collect_quest_lv70 . _60_say )
say_item_vnum ( 30165 )
say_reward ( string . format ( gameforge . collect_quest_lv70 . _70_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv70 . _10_sayTitle )
say ( gameforge . collect_quest_lv60 . _30_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30224 ) > 0 then
say_title ( gameforge . collect_quest_lv70 . _180_sayTitle )
say ( gameforge . collect_quest_lv70 . _190_say )
return
end
say_title ( gameforge . collect_quest_lv70 . _200_sayTitle )
say ( gameforge . collect_quest_lv70 . _210_say )
say_item_vnum ( 30224 )
say ( gameforge . collect_quest_lv70 . _220_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv40 . _300_sendLetter )
say ( gameforge . collect_quest_lv80 . _270_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv80 . _80_sayTitle )
say ( gameforge . collect_quest_lv80 . _90_say )
say_item_vnum ( 30166 )
say_reward ( string . format ( gameforge . collect_quest_lv80 . _100_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv80 . _30_sayTitle )
say ( gameforge . collect_quest_lv80 . _40_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30225 ) > 0 then
say_title ( gameforge . collect_quest_lv80 . _190_sayTitle )
say ( gameforge . collect_quest_lv80 . _200_say )
return
end
say_title ( gameforge . collect_quest_lv80 . _210_sayTitle )
say ( gameforge . collect_quest_lv80 . _220_say )
say_item_vnum ( 30225 )
say ( gameforge . collect_quest_lv80 . _230_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv85 . _290_say_title )
say ( gameforge . collect_quest_lv85 . _300_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv85 . _090_say_title )
say ( gameforge . collect_quest_lv85 . _100_say )
say_item_vnum ( 30167 )
say_reward ( gameforge . collect_quest_lv85 . _105_1_say_reward .. " " .. pc . getqf ( "collect_count" ) .. gameforge . collect_quest_lv85 . _105_2_say_reward )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv85 . _030_say_title )
say ( gameforge . collect_quest_lv85 . _040_say )
@@ -0,0 +1,9 @@
if pc . count_item ( 30226 ) > 0 then
say_title ( gameforge . collect_quest_lv85 . _200_say_title )
say ( gameforge . collect_quest_lv85 . _210_say )
return
end
say_title ( gameforge . collect_quest_lv85 . _220_say_title )
say ( gameforge . collect_quest_lv85 . _230_say )
say_item_vnum ( 30226 )
say ( gameforge . collect_quest_lv85 . _240_say )
@@ -0,0 +1,3 @@
say_title ( gameforge . collect_quest_lv90 . _290_say_title )
say ( gameforge . collect_quest_lv90 . _300_say )
say ( "" )
@@ -0,0 +1,5 @@
say_title ( gameforge . collect_quest_lv90 . _090_say_title )
say ( gameforge . collect_quest_lv90 . _100_say )
say ( "" )
say_item_vnum ( 30168 )
say_reward ( string . format ( gameforge . collect_quest_lv90 . _105_say_reward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,3 @@
say_title ( gameforge . collect_quest_lv90 . _030_say_title )
say ( gameforge . collect_quest_lv90 . _040_say )
say ( "" )
@@ -0,0 +1,13 @@
if pc . count_item ( 30227 ) > 0 then
say_title ( gameforge . collect_quest_lv90 . _200_say_title )
say ( gameforge . collect_quest_lv90 . _210_say )
say ( "" )
return
end
say_title ( gameforge . collect_quest_lv90 . _220_say_title )
say ( gameforge . collect_quest_lv90 . _230_say )
say_item_vnum ( 30227 )
say ( gameforge . collect_quest_lv90 . _240_say )
say ( mob_name ( 1304 ) .. ", " .. mob_name ( 1093 ) .. "," )
say ( mob_name ( 1901 ) .. "." )
say ( "" .. mob_name ( 3090 ) .. "," .. mob_name ( 3290 ) .. "," .. mob_name ( 3590 ) .. "," )
@@ -0,0 +1,4 @@
say_title ( gameforge . collect_quest_lv92 . _080_say_title )
say ( gameforge . collect_quest_lv92 . _090_say )
say_item_vnum ( 30251 )
say_reward ( string . format ( gameforge . collect_quest_lv92 . _100_sayReward , pc . getqf ( "collect_count" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . collect_quest_lv92 . _020_send_letter )
say ( gameforge . collect_quest_lv92 . _030_say )
@@ -0,0 +1,5 @@
say_title ( gameforge . collect_quest_lv94 . _080_say_title )
say ( gameforge . collect_quest_lv94 . _090_say )
say_item_vnum ( 30252 )
say_reward ( string . format ( gameforge . collect_quest_lv94 . _100_sayReward , pc . getqf ( "collect_count" ) ) )
say ( "" )
@@ -0,0 +1,3 @@
say_title ( gameforge . collect_quest_lv94 . _020_send_letter )
say ( gameforge . collect_quest_lv94 . _030_say )
say ( "" )
@@ -0,0 +1,9 @@
if pc . count_item ( 30228 ) > 0 then
say_title ( gameforge . collect_quest_lv94 . _270_say_title )
say ( gameforge . collect_quest_lv94 . _280_say )
return
end
say_title ( gameforge . collect_quest_lv94 . _290_say_title )
say ( gameforge . collect_quest_lv94 . _300_say )
say_item_vnum ( 30228 )
say ( gameforge . collect_quest_lv94 . _310_say )
@@ -0,0 +1,3 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . couple_ring . _110_sayReward )
say_reward ( string . format ( gameforge . couple_ring . _120_sayReward , couple_ring . get_rest_count ( ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . couple_ring . _210_say )
@@ -0,0 +1,5 @@
notice_multiline ( string . format ( gameforge . dragon_lair_access . _170_notice , dragon_lair_access . get_time_remaining ( ) / 60 ) , notice )
local settings = dragon_lair_access . get_settings ( )
if ( pc . getqf ( "is_leader" ) == 1 and settings . cooldown_time - dragon_lair_access . get_time_remaining ( ) < settings . group_time ) then
notice_multiline ( string . format ( gameforge . dragon_lair_access . _145_notice , game . get_event_flag ( "dragon_lair_password" ) ) , notice )
end
@@ -0,0 +1,19 @@
local settings = dragon_lair_weekly . set_settings ( )
local amount_remaining = dragon_lair_weekly . get_amount_remaining ( )
if ( amount_remaining > 0 ) then
local time_remaining = dragon_lair_weekly . get_time_remaining ( )
if ( time_remaining > 0 ) then
say_title ( gameforge . dragon_lair_weekly . _110_sayTitle )
say ( string . format ( gameforge . dragon_lair_weekly . _140_say , amount_remaining ) )
say_item_vnum ( pc . getqf ( "item_to_hunt" ) )
say ( "" )
say ( gameforge . dragon_lair_weekly . _090_questRest .. get_time_remaining ( time_remaining ) )
else
notice_multiline ( gameforge . dragon_lair_weekly . _160_notice , notice )
q . done ( )
set_state ( "getquest" )
end
else
say_title ( gameforge . dragon_lair_weekly . _130_sayTitle )
say ( gameforge . dragon_lair_weekly . _150_say )
end
@@ -0,0 +1 @@
say ( gameforge . dragon_soul . _1020_say )
@@ -0,0 +1,7 @@
say ( gameforge . dragon_soul . _1160_say )
local today = math . floor ( get_global_time ( ) / 86400 )
if today == pc . getf ( "dragon_soul" , "eye_timestamp" ) then
say ( gameforge . dragon_soul . _1170_say )
else
say ( gameforge . dragon_soul . _1180_say )
end
@@ -0,0 +1 @@
say ( string . format ( gameforge . dragon_soul . _1100_say , pc . getf ( "dragon_soul" , "eye_left" ) ) )
@@ -0,0 +1 @@
say ( gameforge . dragon_soul . _1060_say )
@@ -0,0 +1,3 @@
if game . get_event_flag ( "w21open_event" ) > 0 then say_title ( gameforge . event_flame_dungeon_open . _010_npcChat )
say ( string . format ( gameforge . levelup . _26_say , 100 - pc . getqf ( "kill_count_1" ) ) )
return end
@@ -0,0 +1,2 @@
say_title ( gameforge . find_brother_article . _130_sendLetter )
say ( gameforge . find_brother_article . _140_sayReward )
@@ -0,0 +1,2 @@
say_title ( gameforge . find_brother_article . _310_sendLetter )
say ( gameforge . find_brother_article . _320_say )
@@ -0,0 +1,6 @@
say_title ( gameforge . find_brother_article . _270_sendLetter )
say ( gameforge . find_brother_article . _280_say )
wait ( )
say ( gameforge . find_brother_article . _290_say )
say_reward ( gameforge . find_brother_article . _300_sayReward )
set_state ( "repair" )
@@ -0,0 +1,4 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . find_senior_soldier . _70_sayReward )
say_reward ( gameforge . find_senior_soldier . _80_sayReward )
restart_quest ( )
@@ -0,0 +1,2 @@
say_title ( gameforge . find_senior_soldier . _110_sayTitle )
say_reward ( gameforge . find_senior_soldier . _120_sayReward )
@@ -0,0 +1,13 @@
say_title ( gameforge . find_senior_soldier . _180_sayTitle )
say ( gameforge . find_senior_soldier . _190_say )
local funcList = {
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _191_say , apply . MAX_HP , 100 ) end ,
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _192_say , apply . HP_REGEN , 50 ) end ,
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _193_say , apply . STR , 5 ) end ,
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _194_say , apply . CON , 5 ) end ,
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _195_say , apply . CRITICAL_PCT , 10 ) end ,
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _196_say , apply . ATT_SPEED , 10 ) end ,
function ( ) find_senior_soldier . apply_affect ( gameforge . find_senior_soldier . _197_say , apply . ATTBONUS_ANIMAL , 10 ) end ,
}
table_get_random_item ( funcList ) ( )
restart_quest ( )
@@ -0,0 +1,2 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . find_squareguard . _90_sayReward )
@@ -0,0 +1,2 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . find_squareguard . _190_sayReward )
@@ -0,0 +1,2 @@
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . find_squareguard . _20_sayReward )
@@ -0,0 +1,6 @@
say_title ( gameforge . guild_create . _50_sayTitle )
say_reward ( gameforge . guild_create . _60_sayReward )
say_item_vnum ( 70101 )
say_reward ( gameforge . guild_create . _70_sayReward )
set_state ( "start" )
pc . give_item2 ( 70101 )
@@ -0,0 +1,4 @@
say_title ( gameforge . guild_create . _10_sendLetter )
say_reward ( gameforge . guild_create . _20_sayReward )
say_item_vnum ( 70101 )
say_reward ( gameforge . guild_create . _30_sayReward )
@@ -0,0 +1,14 @@
if ( pc . get_map_index ( ) ~= 71 and pc . get_map_index ( ) ~= 104 and pc . get_map_index ( ) ~= 72 and pc . get_map_index ( ) ~= 73 and pc . get_map_index ( ) ~= 208 ) and pc . get_map_index ( ) <= 200 then local e = guild . get_any_war ( )
if e == 0 then
say ( gameforge . locale . guild . war_over )
else
say ( string . format ( gameforge . guild_war_join . _10_say , guild . name ( e ) ) )
local s = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no )
if s == 1 then
guild . war_enter ( e )
else
setskin ( NOWINDOW )
makequestbutton ( gameforge . locale . guild . war_join_request )
end
end
return end
@@ -0,0 +1,15 @@
local mob1_info = pc . getqf ( "mob1_info" )
if mob1_info == 6 then
mob1_name = gameforge . harvest_festival . _410_say elseif mob1_info == 5 then
mob1_name = gameforge . harvest_festival . _420_say elseif mob1_info == 4 then
mob1_name = gameforge . harvest_festival . _430_say elseif mob1_info == 3 then
mob1_name = gameforge . harvest_festival . _440_say elseif mob1_info == 2 then
mob1_name = gameforge . harvest_festival . _450_say elseif mob1_info == 1 then
mob1_name = gameforge . harvest_festival . _460_say end
say_title ( gameforge . harvest_festival . _520_sendLetter )
say ( string . format ( gameforge . harvest_festival . _530_say , mob1_name ) )
local gogo_set = select ( gameforge . harvest_festival . _330_select , gameforge . harvest_festival . _540_select )
if gogo_set == 2 then
clear_letter ( )
set_state ( "information" )
end
@@ -0,0 +1,24 @@
local mob2_info = pc . getqf ( "mob2_info" )
if mob2_info == 10 then
mob2_name = gameforge . harvest_festival . _820_say elseif mob2_info == 9 then
mob2_name = gameforge . harvest_festival . _810_say elseif mob2_info == 8 then
mob2_name = gameforge . harvest_festival . _610_say elseif mob2_info == 7 then
mob2_name = gameforge . harvest_festival . _600_say elseif mob2_info == 6 then
mob2_name = gameforge . harvest_festival . _620_say elseif mob2_info == 5 then
mob2_name = gameforge . harvest_festival . _630_say elseif mob2_info == 4 then
mob2_name = gameforge . harvest_festival . _640_say elseif mob2_info == 3 then
mob2_name = gameforge . harvest_festival . _650_say elseif mob2_info == 2 then
mob2_name = gameforge . harvest_festival . _660_say elseif mob2_info == 1 then
mob2_name = gameforge . harvest_festival . _670_say end
say_title ( gameforge . harvest_festival . _520_sendLetter )
say ( string . format ( gameforge . harvest_festival . _720_say , mob2_name ) )
if party . is_party ( ) then
say ( gameforge . harvest_festival . _730_say )
else
say ( gameforge . harvest_festival . _740_say )
end
local gogo_set = select ( gameforge . harvest_festival . _380_select , gameforge . harvest_festival . _540_select )
if gogo_set == 2 then
clear_letter ( )
set_state ( "information" )
end
@@ -0,0 +1,4 @@
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _420_say )
say ( "" )
say ( string . format ( gameforge . heavens_cave_keyquest . _290_say , get_map_name_by_number ( 1 ) ) )
@@ -0,0 +1,39 @@
if pc . getqf ( "reachedspot" ) >= 1 then
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _330_say )
return
else
if pc . get_map_index ( ) == 68 and pc . getqf ( "reachedspot" ) == 0 then
if pc . getqf ( "heavens_cave_keyquest_Repeat" ) == 0 then
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _340_say )
wait ( )
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _350_say )
wait ( )
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _360_say )
say ( "" )
say ( gameforge . heavens_cave_keyquest . _370_say )
wait ( )
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( string . format ( gameforge . heavens_cave_keyquest . _380_say , pc . get_name ( ) ) )
else
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _390_say )
wait ( )
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( string . format ( gameforge . heavens_cave_keyquest . _400_say , pc . get_name ( ) ) )
say ( "" )
say ( gameforge . heavens_cave_keyquest . _410_say )
end
if pc . count_item ( pc . getqf ( "heavens_cave_keyquest_TearBottle" ) ) >= 1 then
pc . remove_item ( pc . getqf ( "heavens_cave_keyquest_TearBottle" ) , 1 )
pc . give_item2 ( pc . getqf ( "heavens_cave_keyquest_BloodDrop" ) )
q . done ( )
set_state ( "blood_for_seon" )
else
return
end
end
end
@@ -0,0 +1,9 @@
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _220_say )
say ( "" )
if pc . count_item ( pc . getqf ( "heavens_cave_keyquest_FrozenTear" ) ) < pc . getqf ( "heavens_cave_keyquest_NeededTearsAmount" ) then
say_reward ( string . format ( gameforge . heavens_cave_keyquest . _230_say , pc . getqf ( "heavens_cave_keyquest_NeededTearsAmount" ) - pc . count_item ( pc . getqf ( "heavens_cave_keyquest_FrozenTear" ) ) ) )
end
if pc . count_item ( pc . getqf ( "heavens_cave_keyquest_VolcanicGlass" ) ) < pc . getqf ( "heavens_cave_keyquest_NeededGlassAmount" ) then
say_reward ( string . format ( gameforge . heavens_cave_keyquest . _240_say , pc . getqf ( "heavens_cave_keyquest_NeededGlassAmount" ) - pc . count_item ( pc . getqf ( "heavens_cave_keyquest_VolcanicGlass" ) ) ) )
end
@@ -0,0 +1,4 @@
say_title ( gameforge . heavens_cave_keyquest . _020_npcChat )
say ( gameforge . heavens_cave_keyquest . _280_say )
say ( "" )
say ( string . format ( gameforge . heavens_cave_keyquest . _290_say , get_map_name_by_number ( 1 ) ) )
@@ -0,0 +1,4 @@
say_title ( gameforge . horse_levelup . _340_makequestbutton )
say ( gameforge . horse_levelup . _350_say )
setstate ( "start" )
q . done ( )
@@ -0,0 +1,4 @@
say_title ( gameforge . horse_levelup . _320_makequestbutton )
say ( gameforge . horse_levelup . _330_say )
setstate ( "start" )
q . done ( )
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_levelup . _360_makequestbutton )
say ( gameforge . horse_levelup . _370_say )
@@ -0,0 +1,35 @@
say_title ( gameforge . horse_levelup . _400_qSetTitle )
if horse . get_level ( ) <= 10 then
say ( gameforge . horse_levelup . _410_say )
elseif horse . get_level ( ) >= 20 then
say ( gameforge . horse_levelup . _420_say )
elseif ( horse . get_level ( ) >= 11 and horse . get_level ( ) <= 19 ) then
local s = number ( 1 , 2 )
if 1 >= s then
say ( gameforge . horse_levelup . _430_say )
pc . setqf ( "next_time" , 0 )
elseif 2 >= s then
say ( gameforge . horse_levelup . _440_say )
if pc . countitem ( "50050" ) >= 1 then
char_log ( 0 , "HORSE_ADVANCE" , "BEGIN" )
pc . removeitem ( "50050" , 1 )
char_log ( 0 , "HORSE_ADVANCE" , "DEC 50050 1" )
horse . unride ( )
horse . advance ( )
horse . ride ( )
char_log ( 0 , "HORSE_ADVANCE" , "INC horse_advance 1" )
char_log ( 0 , "HORSE_ADVANCE" , "END" )
say ( string . format ( gameforge . horse_levelup . _450_say , ( horse . get_level ( ) ) ) )
if horse . get_level ( ) == 20 then
say ( gameforge . horse_levelup . _460_say )
pc . setqf ( "next_time" , 0 )
else
say ( gameforge . horse_levelup . _470_say )
end
else
say ( gameforge . horse_levelup . _480_say )
end
end
end
setstate ( "start" )
q . done ( )
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _10_makequestbutton )
say ( gameforge . horse_levelup . _20_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_levelup . _30_makequestbutton )
say ( gameforge . horse_levelup . _40_say )
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _60_makequestbutton )
say ( gameforge . horse_levelup . _70_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _90_makequestbutton )
say ( gameforge . horse_levelup . _100_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _110_makequestbutton )
say ( gameforge . horse_levelup . _120_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _130_makequestbutton )
say ( gameforge . horse_levelup . _140_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _150_makequestbutton )
say ( gameforge . horse_levelup . _160_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _180_sayTitle )
say ( gameforge . horse_levelup . _190_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_levelup . _210_makequestbutton )
say ( gameforge . horse_levelup . _220_say )
if not pc . is_mount ( ) then
setstate ( "failure" )
end
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_upgrade2 . _330_makequestbutton )
say_reward ( gameforge . horse_upgrade . _220_sayReward )
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_upgrade2 . _440_makequestbutton )
say_reward ( gameforge . horse_upgrade . _310_sayReward )
say_reward ( gameforge . horse_upgrade2 . _460_sayReward )
setstate ( "start" )
q . done ( )
@@ -0,0 +1,4 @@
say_title ( gameforge . horse_upgrade2 . _100_makequestbutton )
say_reward ( gameforge . horse_upgrade . _90_sayReward )
setstate ( "start" )
q . done ( )
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_upgrade2 . _230_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _240_sayReward )
@@ -0,0 +1,3 @@
say_title ( gameforge . horse_upgrade . _100_makequestbutton )
say_reward ( gameforge . horse_upgrade . _110_sayReward )
say_reward ( gameforge . horse_upgrade2 . _140_sayReward )
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_upgrade . _180_makequestbutton )
say_reward ( gameforge . horse_upgrade . _190_sayReward )
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_upgrade2 . _330_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _340_sayReward )
@@ -0,0 +1,5 @@
say_title ( gameforge . horse_upgrade2 . _440_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _450_sayReward )
say_reward ( gameforge . horse_upgrade2 . _460_sayReward )
setstate ( "start" )
q . done ( )
@@ -0,0 +1,4 @@
say_title ( gameforge . horse_upgrade2 . _100_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _110_sayReward )
setstate ( "start" )
q . done ( )
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_upgrade2 . _230_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _240_sayReward )
@@ -0,0 +1,3 @@
say_title ( gameforge . horse_upgrade2 . _120_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _130_sayReward )
say_reward ( gameforge . horse_upgrade2 . _140_sayReward )
@@ -0,0 +1,2 @@
say_title ( gameforge . horse_upgrade2 . _280_makequestbutton )
say_reward ( gameforge . horse_upgrade2 . _290_sayReward )
@@ -0,0 +1,175 @@
local lev = pc . getqf ( "current" )
if lev == 0 then return end
if pc . getqf ( "buttonstate" ) == 3 then
if pc . getqf ( "complete" ) ~= lev then
pc . setqf ( "complete" , lev )
local s = pc . getqf ( "select" )
if s == 0 then s = 1 end
say_title ( string . format ( gameforge . levelup . _50_sayTitle , lev ) )
say ( gameforge . levelup . _60_say )
say ( "" )
if lev <= 20 then
if lev <= table . getn ( special . levelup_reward1 ) then
pc . give_item ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _65_give ,
special . levelup_reward1 [ lev ] [ pc . job + 1 ] )
else
local v = number ( 1 , 100 )
if v <= special . levelup_reward3 [ 1 ] [ 1 ] then
pc . give_item ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _65_give , special . levelup_reward3 [ 1 ] [ 2 ] , special . levelup_reward3 [ 1 ] [ 3 ] )
elseif v <= special . levelup_reward3 [ 2 ] [ 1 ] then
pc . give_item ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _65_give , special . levelup_reward3 [ 2 ] [ 2 ] , special . levelup_reward3 [ 2 ] [ 3 ] )
elseif v <= special . levelup_reward3 [ 3 ] [ 1 ] then
pc . give_item ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _65_give , special . levelup_reward3 [ 3 ] [ 2 ] , special . levelup_reward3 [ 3 ] [ 3 ] )
elseif v <= special . levelup_reward3 [ 4 ] [ 1 ] then
pc . give_item ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _65_give , special . levelup_reward3 [ 4 ] [ 2 ] , special . levelup_reward3 [ 4 ] [ 3 ] )
else
pc . give_item ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _65_give , special . levelup_reward3 [ 5 ] [ 2 ] , special . levelup_reward3 [ 5 ] [ 3 ] )
end
end
pc . give_exp_perc ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _66_give , lev , special . levelup_quest [ lev ] [ 5 ] )
if lev == 12 or lev == 14 or lev == 16 or lev == 18 or lev == 20 then
pc . give_item2 ( 50083 )
say_reward ( string . format ( gameforge . levelup . _70_sayReward , item_name ( 50083 ) ) )
wait ( )
end
else
local ll = lev - 20
if lev < 26 then
local n = table . getn ( special . levelup_reward_item_21 [ ll ] )
local t = special . levelup_reward_item_21 [ ll ] [ number ( 1 , n ) ]
say_reward ( gameforge . levelup . _80_sayReward )
if type ( t ) == "table" then
pc . give_item2 ( t [ 1 ] , t [ 2 ] )
say_reward ( string . format ( gameforge . levelup . _90_sayReward , item_name ( t [ 1 ] ) .. " " .. t [ 2 ] ) )
else
pc . give_item2 ( t )
say_reward ( string . format ( gameforge . levelup . _100_sayReward , item_name ( t ) ) )
end
end
local reward_gold = special . levelup_reward_gold21 local reward_exp = special . levelup_reward_exp21 if lev >= 31 and lev <= 40 then
reward_gold = special . levelup_reward_gold31 reward_exp = special . levelup_reward_exp31 elseif lev >= 41 and lev <= 50 then
reward_gold = special . levelup_reward_gold41 reward_exp = special . levelup_reward_exp41 elseif lev >= 51 and lev <= 83 then
reward_gold = special . levelup_reward_gold51 reward_exp = special . levelup_reward_exp51 elseif lev >= 84 and lev <= 90 then
reward_gold = special . levelup_reward_gold51 reward_exp = special . levelup_reward_exp84 end
n = number ( 0 , 99 )
local i = 0
for i = 1 , table . getn ( reward_gold ) begin
if n < reward_gold [ i ] [ 2 ] then
pc . change_money ( reward_gold [ i ] [ 1 ] )
say_reward ( string . format ( gameforge . levelup . _110_sayReward , reward_gold [ i ] [ 1 ] ) )
break
else
n = n - reward_gold [ i ] [ 2 ]
end
end
n = number ( 0 , 99 )
i = 0
for i = 1 , table . getn ( reward_exp ) begin
if n < reward_exp [ i ] [ 2 ] then
pc . give_exp_perc ( gameforge . levelup . _64_give .. lev .. gameforge . levelup . _66_give , lev , reward_exp [ i ] [ 1 ] )
say_reward ( string . format ( gameforge . levelup . _120_sayReward , reward_exp [ i ] [ 1 ] ) )
break
else
n = n - reward_exp [ i ] [ 2 ]
end
end
say ( "" )
wait ( )
end
end
local old_lev = lev
lev = lev + 1
if lev > 1 and lev < 90 and pc . level >= lev then
pc . setqf ( "buttonstate" , 2 )
makequestbutton ( string . format ( gameforge . levelup . _130_makequestbutton , lev ) )
pc . setqf ( "current" , lev )
pc . setqf ( "select" , 1 )
pc . setqf ( "remain" , special . levelup_quest [ lev ] [ 2 ] )
setskin ( NOWINDOW )
return
else
pc . setqf ( "current" , 0 )
q . done ( )
end
elseif pc . getqf ( "buttonstate" ) == 2 then
local lev = pc . getqf ( "current" )
if lev == 0 then
q . done ( )
end
say_title ( gameforge . levelup . _140_sayTitle )
say ( gameforge . levelup . _150_say )
local sel = select (
mob_name ( special . levelup_quest [ lev ] [ 1 ] ) .. " " .. special . levelup_quest [ lev ] [ 2 ] .. gameforge . levelup . _155_say ,
mob_name ( special . levelup_quest [ lev ] [ 3 ] ) .. " " .. special . levelup_quest [ lev ] [ 4 ] .. gameforge . levelup . _155_say )
setskin ( SCROLL )
setbgimage ( "level_bg.tga" )
say ( "" )
say ( "" )
say ( "" )
pc . setqf ( "select" , sel )
addimage ( 20 , 12 , special . levelup_img [ special . levelup_quest [ lev ] [ sel * 2 - 1 ] ] )
setcolor ( 0 , 0 , 0 )
say ( string . format ( gameforge . levelup . _20_say , mob_name ( special . levelup_quest [ lev ] [ sel * 2 - 1 ] ) ) )
say ( string . format ( gameforge . levelup . _26_say , special . levelup_quest [ lev ] [ sel * 2 ] ) )
say ( string . format ( gameforge . levelup . _27_say , special . levelup_quest [ lev ] [ 5 ] ) )
if lev <= table . getn ( special . levelup_reward1 ) then
raw_script ( ", " .. item_name ( special . levelup_reward1 [ lev ] [ pc . job + 1 ] ) )
elseif lev > table . getn ( special . levelup_reward1 ) and lev < 26 then
raw_script ( ", " .. locale . levelup . random_item )
end
if lev >= 21 then
raw_script ( ", " .. locale . gold )
end
raw_script ( newline )
levelup . show_mob_pos ( lev )
local s = select ( gameforge . levelup . _160_select )
if s == 1 then
setskin ( NOWINDOW )
pc . setqf ( "remain" , special . levelup_quest [ lev ] [ sel * 2 ] )
syschat ( string . format ( gameforge . levelup . _170_chat , mob_name ( special . levelup_quest [ lev ] [ sel * 2 - 1 ] ) , " " .. special . levelup_quest [ lev ] [ sel * 2 ] ) )
q . set_title ( string . format ( gameforge . levelup . _180_qSetTitle , mob_name ( special . levelup_quest [ lev ] [ sel * 2 - 1 ] ) ) )
q . set_counter ( gameforge . levelup . _250_say , pc . getqf ( "remain" ) )
q . start ( )
end
setskin ( NOWINDOW )
clearmapsignal ( )
elseif pc . getqf ( "buttonstate" ) == 1 then
local s = pc . getqf ( "select" )
if s == 0 then s = 1 end
local lev = pc . getqf ( "current" )
if lev ~= 0 then
say_title ( gameforge . levelup . _140_sayTitle )
say ( string . format ( gameforge . levelup . _190_say , pc . getqf ( "remain" ) .. gameforge . levelup . _195_say .. mob_name ( special . levelup_quest [ lev ] [ s * 2 - 1 ] ) ) )
local ss = select ( gameforge . levelup . _200_select , gameforge . locale . levelup . prev_quest_go )
if ss == 1 then
setskin ( SCROLL )
setbgimage ( "level_bg.tga" )
say ( "" )
say ( "" )
say ( "" )
addimage ( 20 , 12 , special . levelup_img [ special . levelup_quest [ lev ] [ s * 2 - 1 ] ] )
setcolor ( 0 , 0 , 0 )
say ( string . format ( gameforge . levelup . _20_say , mob_name ( special . levelup_quest [ lev ] [ s * 2 - 1 ] ) ) )
say ( string . format ( gameforge . levelup . _26_say , special . levelup_quest [ lev ] [ s * 2 ] ) )
raw_script ( string . format ( gameforge . levelup . _27_say , special . levelup_quest [ lev ] [ 5 ] ) )
say ( "" )
if lev <= table . getn ( special . levelup_reward1 ) then
raw_script ( "," .. item_name ( special . levelup_reward1 [ lev ] [ pc . job + 1 ] ) )
elseif lev > table . getn ( special . levelup_reward1 ) and lev < 26 then
raw_script ( "," .. locale . levelup . random_item )
end
if lev >= 21 then
raw_script ( "," .. locale . gold )
end
raw_script ( newline )
select ( gameforge . locale . confirm )
setskin ( NOWINDOW )
clearmapsignal ( )
end
setskin ( NOWINDOW )
q . set_title ( string . format ( gameforge . levelup . _180_qSetTitle , mob_name ( special . levelup_quest [ lev ] [ s * 2 - 1 ] ) ) )
q . set_counter ( gameforge . levelup . _250_say , pc . getqf ( "remain" ) )
q . start ( )
end
end
pc . setqf ( "buttonstate" , - 1 )
@@ -0,0 +1,2 @@
say_title ( gameforge . main_quest_flame_lv100 . _010_sendLetter )
say ( gameforge . main_quest_flame_lv100 . _020_say )
@@ -0,0 +1,4 @@
say_title ( gameforge . main_quest_flame_lv100 . _100_sayTitle )
say ( gameforge . main_quest_flame_lv100 . _110_say )
say ( gameforge . main_quest_lv98 . _680_counterName )
say ( string . format ( gameforge . main_quest_lv98 . _670_sayReward , 300 - pc . getqf ( "kill_count_1" ) ) )
@@ -0,0 +1,2 @@
say_title ( gameforge . main_quest_flame_lv100 . _010_sendLetter )
say ( gameforge . main_quest_flame_lv100 . _140_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . main_quest_flame_lv100 . _160_sendLetter )
say ( gameforge . main_quest_flame_lv100 . _170_say )
@@ -0,0 +1,27 @@
say_title ( gameforge . main_quest_flame_lv100 . _260_sayTitle )
say ( gameforge . main_quest_flame_lv100 . _270_say )
say ( gameforge . main_quest_flame_lv100 . _250_say )
local remain1 = 10 - pc . count_item ( 90010 )
local remain2 = 50 - pc . count_item ( 30010 )
local remain3 = 10 - pc . count_item ( 30025 )
local remain4 = 200 - pc . count_item ( 51001 )
if remain1 < 0 then
remain1 = 0
end
if remain2 < 0 then
remain2 = 0
end
if remain3 < 0 then
remain3 = 0
end
if remain4 < 0 then
remain4 = 0
end
say ( string . format ( gameforge . main_quest_lv98 . _690_sayReward , item_name ( 90010 ) , remain1 , item_name ( 30010 ) , remain2 ) )
say ( string . format ( gameforge . main_quest_lv98 . _690_sayReward , item_name ( 30025 ) , remain3 , item_name ( 51001 ) , remain4 ) )
say ( )
q . set_counter_value ( remain1 + remain2 + remain3 + remain4 )
local check = remain1 + remain2 + remain3 + remain4
if check <= 0 then
set_state ( "state2_3" )
end
@@ -0,0 +1,2 @@
say_title ( gameforge . main_quest_flame_lv100 . _160_sendLetter )
say ( gameforge . main_quest_flame_lv100 . _310_say )
@@ -0,0 +1,2 @@
say_title ( gameforge . main_quest_flame_lv100 . _320_sendLetter )
say ( gameforge . main_quest_flame_lv100 . _170_say )

Some files were not shown because too many files have changed in this diff Show More