Initial commit: server + serverfiles

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.start.0.arg

@@ -0,0 +1 @@
+gameforge.goldbar._10_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.start.0.script

@@ -0,0 +1,40 @@
+if pc . get_level ( ) < 30 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _30_say ) 
+wait ( ) 
+say_title ( gameforge . buy_fishrod . _210_sayTitle ) 
+say_reward ( gameforge . goldbar . _40_sayReward ) 
+return 
+end 
+if game . get_event_flag ( "gold_trade_enable" ) == 0 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _50_say ) 
+wait ( ) 
+say_title ( gameforge . buy_fishrod . _210_sayTitle ) 
+say_reward ( gameforge . goldbar . _60_sayReward ) 
+return 
+end 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _70_say ) 
+local s = select ( gameforge . goldbar . _80_select , gameforge . goldbar . _90_select ) 
+if s == 1 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _100_say ) 
+wait ( ) 
+local interval = game . get_event_flag ( "gold_trade_cycle" ) 
+local unit = "" 
+if interval <= 0 then interval = 360 end 
+if interval >= 60 then 
+interval = interval / 60 
+unit = gameforge . goldbar . _104_say math . ceil ( interval ) 
+else 
+unit = gameforge . goldbar . _108_say end 
+if interval < 1 then interval = 1 end 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( string . format ( gameforge . goldbar . _110_say , interval , unit ) ) 
+say ( gameforge . goldbar . _120_say ) 
+else 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _130_say ) 
+end 
+setstate ( "trade_goldbar" ) 

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.0.arg

@@ -0,0 +1 @@
+gameforge.goldbar._140_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.0.script

@@ -0,0 +1,50 @@
+if pc . get_level ( ) < 30 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _150_say ) 
+setstate ( "start" ) 
+return 
+end 
+if game . get_event_flag ( "gold_trade_enable" ) == 0 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _160_say ) 
+say_reward ( gameforge . goldbar . _170_sayReward ) 
+return 
+end 
+local nexttime = pc . getqf ( "gold_buy_next_time" ) 
+local interval = game . get_event_flag ( "gold_trade_cycle" ) 
+local unit = "" 
+if interval <= 0 then interval = 360 end 
+if get_time ( ) < nexttime then 
+nexttime = ( nexttime / 60 ) - ( get_time ( ) / 60 ) 
+if nexttime >= 60 then 
+unit = gameforge . goldbar . _104_say nexttime = nexttime / 60 
+math . ceil ( nexttime ) 
+else 
+unit = gameforge . goldbar . _108_say end 
+if nexttime < 1 then nexttime = 1 end 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _180_say ) 
+say ( string . format ( gameforge . goldbar . _190_say , nexttime , unit ) ) 
+else 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _200_say ) 
+local s = select ( gameforge . buy_fishrod . _40_select , gameforge . buy_fishrod . _50_select ) 
+if s == 1 then 
+if pc . money >= 2.2e+06 then 
+local goldbar_count = pc . count_item ( 80007 ) 
+char_log ( 0 , "GOLDBARREN" , "KAUFEN (" .. goldbar_count .. ")" ) 
+pc . changemoney ( - 2.2e+06 ) 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _210_say ) 
+pc . give_item2 ( "80007" , 1 ) 
+pc . setqf ( "gold_buy_next_time" , get_time ( ) + time_min_to_sec ( interval ) ) 
+else 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _220_say ) 
+end 
+elseif s == 2 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _230_say ) 
+else 
+end 
+end 

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.1.arg

@@ -0,0 +1 @@
+gameforge.goldbar._240_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.1.script

@@ -0,0 +1,3 @@
+say ( gameforge . goldbar . _250_say ) 
+pc . setqf ( "gold_buy_next_time" , 0 ) 
+pc . setqf ( "gold_sell_next_time" , 0 ) 

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.1.when

@@ -0,0 +1 @@
+return pc . is_gm ( )

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.2.arg

@@ -0,0 +1 @@
+gameforge.goldbar._260_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/goldbar_shop.trade_goldbar.2.script

@@ -0,0 +1,53 @@
+if pc . get_level ( ) < 30 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _270_say ) 
+setstate ( "start" ) 
+return 
+end 
+if game . get_event_flag ( "gold_trade_enable" ) == 0 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _280_say ) 
+say_reward ( gameforge . goldbar . _290_sayReward ) 
+return 
+end 
+local nexttime = pc . getqf ( "gold_sell_next_time" ) 
+local interval = game . get_event_flag ( "gold_trade_cycle" ) 
+local unit = "" 
+if interval <= 0 then interval = 360 end 
+if get_time ( ) < nexttime then 
+nexttime = ( nexttime / 60 ) - ( get_time ( ) / 60 ) 
+if nexttime >= 60 then 
+unit = gameforge . goldbar . _104_say nexttime = nexttime / 60 
+math . ceil ( nexttime ) 
+else 
+unit = gameforge . goldbar . _108_say end 
+if nexttime < 1 then nexttime = 1 end 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _300_say ) 
+say ( string . format ( gameforge . goldbar . _310_say , nexttime , unit ) ) 
+else 
+if pc . count_item ( 80007 ) <= 0 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _320_say ) 
+else 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _330_say ) 
+local s = select ( gameforge . goldbar . _340_select , gameforge . goldbar . _350_select ) 
+if s == 1 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _360_say ) 
+local goldbar_count = pc . count_item ( 80007 ) 
+if goldbar_count >= 1 then 
+char_log ( 0 , "GOLDBARREN" , "VERKAUFEN(" .. goldbar_count .. ")" ) 
+pc . changemoney ( 2e+06 ) 
+pc . remove_item ( 80007 ) 
+else 
+char_log ( 0 , "GOLDBARREN" , "SELL_HACK" ) 
+end 
+pc . setqf ( "gold_sell_next_time" , get_time ( ) + time_min_to_sec ( interval ) ) 
+elseif s == 2 then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . goldbar . _370_say ) 
+end 
+end 
+end 

serverfiles/share/locale/english/quest/object/20020/chat/npc_talk.start.0.arg

@@ -0,0 +1 @@
+gameforge.npc_talk._270_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/npc_talk.start.0.script

@@ -0,0 +1,2 @@
+say_title ( gameforge . npc_talk . _280_sayTitle ) 
+say ( gameforge . npc_talk . _290_say ) 

serverfiles/share/locale/english/quest/object/20020/chat/npc_talk.start.1.arg

@@ -0,0 +1 @@
+gameforge.npc_talk._300_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/npc_talk.start.1.script

@@ -0,0 +1,10 @@
+say_title ( gameforge . npc_talk . _280_sayTitle ) 
+say ( gameforge . npc_talk . _310_say ) 
+if math . random ( 2 ) == 1 then 
+wait ( ) 
+say ( pc . get_name ( ) .. ":" ) 
+say ( gameforge . npc_talk . _320_say ) 
+wait ( ) 
+say_title ( gameforge . npc_talk . _280_sayTitle ) 
+say ( gameforge . npc_talk . _330_say ) 
+end 

serverfiles/share/locale/english/quest/object/20020/chat/subquest_21.accept_request.0.arg

@@ -0,0 +1 @@
+gameforge.subquest_21._160_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/subquest_21.accept_request.0.script

@@ -0,0 +1,10 @@
+target . delete ( "__TARGET__" ) 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _170_say ) 
+pc . remove_item ( "30152" , 1 ) 
+say_title ( gameforge . subquest_21 . _180_sayTitle ) 
+say_reward ( gameforge . subquest_21 . _190_sayReward ) 
+pc . change_money ( 30000 ) 
+pc . give_exp2 ( 1.9e+06 ) 
+clear_letter ( ) 
+set_state ( "COMPLETE" ) 

serverfiles/share/locale/english/quest/object/20020/chat/subquest_21.accept_request.0.when

@@ -0,0 +1 @@
+return pc . count_item ( "30152" ) >= 1

serverfiles/share/locale/english/quest/object/20020/chat/subquest_21.information.0.arg

@@ -0,0 +1 @@
+gameforge.subquest_21._20_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/subquest_21.information.0.script

@@ -0,0 +1,24 @@
+target . delete ( "__TARGET__" ) 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _40_say ) 
+wait ( ) 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _50_say ) 
+local s = select ( gameforge . subquest_21 . _60_select , gameforge . locale . years_greetings . select_2 ) 
+if 2 == s then 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _70_say ) 
+local a = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no ) 
+if 2 == a then 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _80_say ) 
+return 
+end 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _90_say ) 
+set_state ( "__GIVEUP__" ) 
+return 
+end 
+say_title ( gameforge . subquest_21 . _30_sayTitle ) 
+say ( gameforge . subquest_21 . _100_say ) 
+set_state ( "accept_request" ) 

serverfiles/share/locale/english/quest/object/20020/chat/subquest_39.go_to_patient.0.arg

@@ -0,0 +1 @@
+gameforge.subquest_39._510_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/subquest_39.go_to_patient.0.script

@@ -0,0 +1,15 @@
+target . delete ( "__TARGET__" ) 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . subquest_39 . _520_say ) 
+wait ( ) 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . subquest_39 . _530_say ) 
+pc . remove_item ( "30152" , 1 ) 
+say_reward ( gameforge . subquest_39 . _540_sayReward ) 
+pc . change_money ( 65000 ) 
+say_reward ( gameforge . subquest_39 . _550_sayReward ) 
+pc . give_exp2 ( 4e+06 ) 
+set_quest_state ( "levelup" , "run" ) 
+clear_letter ( ) 
+set_state ( "COMPLETE" ) 
+return 

serverfiles/share/locale/english/quest/object/20020/chat/subquest_39.go_to_patient.0.when

@@ -0,0 +1 @@
+return pc . count_item ( 30152 ) >= 1

serverfiles/share/locale/english/quest/object/20020/chat/subquest_39.information.0.arg

@@ -0,0 +1 @@
+gameforge.subquest_39._20_npcChat

serverfiles/share/locale/english/quest/object/20020/chat/subquest_39.information.0.script

@@ -0,0 +1,23 @@
+target . delete ( "__TARGET__" ) 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . subquest_39 . _30_say ) 
+wait ( ) 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . subquest_39 . _40_say ) 
+local s = select ( gameforge . find_brother_article . _90_select , gameforge . subquest_01 . _60_select ) 
+if 2 == s then 
+say ( gameforge . subquest_39 . _50_say ) 
+local a = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no ) 
+if 2 == a then 
+say_title ( gameforge . goldbar . _20_sayTitle ) 
+say ( gameforge . subquest_39 . _60_say ) 
+return 
+end 
+say_title ( gameforge . subquest_39 . _70_sayTitle ) 
+say ( gameforge . subquest_39 . _80_say ) 
+set_state ( "__GIVEUP__" ) 
+return 
+end 
+say_title ( gameforge . subquest_39 . _70_sayTitle ) 
+say ( gameforge . subquest_39 . _90_say ) 
+set_state ( "ask_to_backgo" ) 

serverfiles/share/locale/english/quest/object/20020/chat/subquest_39.information.0.when

@@ -0,0 +1 @@
+return pc . level >= 55