;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Mir3GuideBook]
{
#IF
Check [010] 0
#ACT
SaveValue "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME 0
SaveValue "QuestDiary\Donations.txt" [Credit] %USERNAME 0
SET [010] 1
GoTo @Mir3GuideBookNext
#ELSEACT
GoTo @Mir3GuideBookNext

[@Mir3GuideBookNext]
#ACT
#IF
CHECKMAPFLAG MAPGROUP 9    ;;9类地图全部无法使用D键
#SAY
Cannot open Control Panel on this map.\
#ACT
break

#IF
CHECKMAPFLAG MAPGROUP 3    ;;3类地图全部无法使用D键
#SAY
Cannot open Control Panel on this map.\
#ACT
break

#IF
CHECKMAPFLAG MAPGROUP 2    ;;2类地图全部无法使用D键
#SAY
Cannot open Control Panel on this map.\
#ACT
break

#IF
#ACT
loadvalue D2 "系统设置.INI" 开区后 声望等级1
loadvalue D3 "系统设置.INI" 开区后 声望等级2
loadvalue D5 "系统设置.INI" 开区后 声望等级3
loadvalue D6 "系统设置.INI" 开区后 声望等级4
loadvalue D7 "系统设置.INI" 开区后 声望等级5

#IF
!checkfame %D2
#ACT
mov A1 "Cool"

#IF
checkfame %D2
!checkfame %D3
#ACT
mov A1 "中立"

#IF
checkfame %D3
!checkfame %D5
#ACT
mov A1 "友善"

#IF
checkfame %D5
!checkfame %D6
#ACT
mov A1 "尊敬"

#IF
checkfame %D6
!checkfame %D7
#ACT
mov A1 "崇敬"

#IF
checkfame %D7
#ACT
mov A1 "崇拜"

#IF
#ACT
loadvalue A0 "PlayerParam\推广QQ.ini" [%USERNAME] [QQ]

#IF
EQUAL A0 ""
!checklevel 41
#SAY


#IF
#ACT
getdate
mov 月份 %P8
mov 日期 %P9
GETTIME
mov 小时 %P8
mov 分钟 %P9


#IF
#ACT
loadvalue A8 "PlayerParam\混乱PK大赛.ini" [混乱PK大赛] PK王名字
loadvalue D8 "PlayerPAram\混乱PK大赛.ini" [获胜次数]   %USERNAME
#ACT
Loadvalue A2 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME
Loadvalue A3 "QuestDiary\Donations.txt" [Credit] %USERNAME
#IF
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_0

#IF
Checkfame
#ACT
Mov A0 %P9
Loadvalue A1 "QuestDiary\System\VitalPoints.txt" [Points] %USERNAME 
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_1
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_2

#IF
Check [203] 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_3

#IF
Check [205] 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_4

#IF
Check [207] 1

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_5

#IF
Check [209] 1
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_6
<Group Recall/@GroupRecall>\
#ACT
Mov A1 %USERNAME
#IF
Equal A1 "Vamp"

#SAY
<KIll ZT/@KILL>\

#IF
Equal A1 "Majestic"
Or Equal A1 "Vamp"
Or Equal A1 "Tipsy"
Or Equal A1 "BobMarley"
Or Equal A1 "FoxDie"
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_7
#ACT
Mov A1 %USERNAME

[@KILL]
#ACT
mapting D1106A 3 228 112

[@VPMain]
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\MirGuideBook.txt] @Convert_MirGuideBook_8

[@@Check_VP]
#ACT
mov A7 %INPUTSTR
Loadvalue D1 "QuestDiary\System\VitalPoints.txt" [Points] %A7
#SAY
{FCOLOR/10}'<$OUTPUT(A7)>'{FCOLOR/12} has {FCOLOR/10}'<$OUTPUT(D1)>'{FCOLOR/12} Vital Points.\\
<Leave/@Exit>

[@@Increase_VP]
#SAY
removed

[@@Admin_Shout]
#ACT
mov A7 %INPUTSTR
EventMsg Grobal %A7 10025
CLOSE

[@CALLAreaQuestBook]
;#CALL [QuestSystem\HelperAreaBook.txt] @HelperAreaQuest

[@CALLTodayQuestBook]
#IF
CheckNameList AcceptDailyQuestRules.txt
#ACT
GoTo @CALLTodayQuestBook_Main
BREAK

#IF
CheckNameList NotAcceptDailyQuestRules.txt
#SAY
You didnt accept the rules...\\\
<Leave/@Exit>\
#ACT
BREAK

#ELSESAY
Daily Quest Rules:\\
Bugged Quest:\
{FCOLOR/15}1){FCOLOR/12} POST On forum any other ways will be {FCOLOR/1}IGNORED!\
{FCOLOR/15}2){FCOLOR/12} Daily quest will {FCOLOR/1}NOT {FCOLOR/12}be changed for any reason.\
{FCOLOR/15}3){FCOLOR/12} Rewards / Fame will {FCOLOR/1}NOT{FCOLOR/12} be refunded due to bugged quest.\\
General Usage:\
{FCOLOR/15}1){FCOLOR/12} Do {FCOLOR/1}NOT{FCOLOR/12} exploit any bug found within the scripts.\
{FCOLOR/15}2){FCOLOR/12} Always report bugs on forum.\
{FCOLOR/15}3){FCOLOR/12} Do {FCOLOR/1}NOT{FCOLOR/12} constantly Contact a GM Post on forum and wait.\\

Do you agree to the rules and accept that admin hold the right\
to {FCOLOR/1}BAN or {FCOLOR/12}Remove daily quests{FCOLOR/12} from your account?\\
<Accept/@AcceptDQ>\
<Nope/@Nope>\\

;----------------------------------------------------------------

[@CALLTodayQuestBook_Main]
#CALL [TodayQuest\HelperTodayBook.txt] @HelperTodayQuest

;----------------------------------------------------------------

[@AcceptDQ]
#ACT
AddNameList AcceptDailyQuestRules.txt
#CALL [TodayQuest\HelperTodayBook.txt] @HelperTodayQuest

;----------------------------------------------------------------

[@Nope]
#ACT
AddNameList NotAcceptDailyQuestRules.txt
CLOSE

;----------------------------------------------------------------

[@CALLHonChonMaDoBook]
;#CALL [HonChonMaDo\HelperHonChonMaDoBook.txt] @HelperHonChonMaDoQuest

[@CALLHonChonDoBook]
;#CALL [HonChonDo\HelperHonChonDoBook.txt] @HelperHonChonDoQuest

[@CALLSinGiSunBook]
;#CALL [SinGiSun\HelperSinGiSunBook.txt] @HelperSinGiSunQuest


[@SinGiSun_Display]
#CALL [System\Display.txt] @SinGiSun_Display_Main

[@MainQuest_Display]
#CALL [System\Display.txt] @MainQuest_Display_Main

[@Honchondo_Display]
#CALL [System\Display.txt] @Honchondo_Display_Main

[@Honchonmado_Display]
#CALL [System\Display.txt] @Honchonmado_Display_Main

[@Sabuk_Display]
#CALL [System\Display.txt] @Sabuk_Display_Main

[@Taosong_Display]
#CALL [System\Display.txt] @Samak_Display_Main

[@TodayQuest_Display]
#CALL [System\Display.txt] @TodayQuest_Display_Main

[@Boss_Info]
#CALL [System\Boss.txt] @Boss_Infomation

[@CALL_HungerBook]
#CALL [System\FoodSystem\FoodBook.txt] @BookMain

;----------------------------------------------------------------------

[@@AllowTeleportToUser]
#ACT
Mov A1 %INPUTSTR
LoadValue A2 [QuestDiary\System\PlayerTeleport.txt] %A1 [Request]
LoadValue A3 [QuestDiary\System\PlayerTeleport.txt] %A1 [Character]
LoadValue A4 [QuestDiary\System\PlayerTeleport.txt] %A1 [Map]
LoadValue D5 [QuestDiary\System\PlayerTeleport.txt] %A1 [X]
LoadValue D6 [QuestDiary\System\PlayerTeleport.txt] %A1 [Y]

#IF
!Equal A3 %USERNAME
#SAY
This user has not applied for teleport....\\
<Leave/@Exit>
#ELSEACT
GoTo @TeleportToUserCheckPos

[@TeleportToUserCheckPos]
#IF
CheckPos %A4 %D5 %D6 1
#ACT
SaveValue "QuestDiary\System\PlayerTeleport.txt" %A1 [AllowTeleport] %USERNAME
#SAY
Done the player may now click next and teleport to you.\
#ELSEACT
SaveValue "QuestDiary\System\PlayerTeleport.txt" %A1 [AllowTeleport] Failed
#ELSESAY
The player may have the wrong co-ords.\

;----------------------------------------------------------------------

[@GroupRecall]
#IF
CheckNameList HasDonated.txt
#SAY
This will instantly recall your whole group to you...\
This costs {FCOLOR/10}5 Credits{FCOLOR/12}\\
Make sure that you are in the place you want to recall\
your group to then click "Recall Now"\
{FCOLOR/1}NO RECALL PLAYER KILLING!{FCOLOR/12}\
<Recall Now/@Recall_Now>
#ELSESAY
To use this function you must have donated...\\
<Leave/@Exit>\

;----------------------------------------------------------------------

[@Recall_Now]
#ACT
Loadvalue D3 "QuestDiary\Donations.txt" [Credit] %USERNAME
Mov A0 %USERMAP
Mov A1 %USERX
Mov A2 %USERY
#IF
ELarge D3 5
#ACT
Mov D4 5
Dec D3 %D4
SaveValue "QuestDiary\Donations.txt" [Credit] %USERNAME %D3
FormatStr "%s,%s,%s,0" %A0 %A1 %A2
GroupMove %A9 %USERNAME
Close
#ELSESAY
You must have atleast {FCOLOR/10}5{FCOLOR/12} Credits\\
<Leave/@Exit>\

[@aguildrecall]
#ACT
actcmd SENDUSERSAY "@允许行会召唤"


[@guildrecall]
#SAY
________________{FCOLOR/1}[{FCOLOR/12} {FCOLOR/14}Guild Recall{FCOLOR/12} {FCOLOR/1}]{FCOLOR/12} {FCOLOR/2}\\
{FCOLOR/2}Are you sure you want to recall your guild members?\\
{FCOLOR/13}Feature Cost: {FCOLOR/10}50 Gamepoints\
{FCOLOR/13}You Have:     {FCOLOR/10}<$USERJF> Gamepoints\\

{FCOLOR/13}Important: {FCOLOR/1}This feature has a ten minute cooldown\
___________if you use it within the 10 mintute\
___________cooldown you will lose your Gamepoints.\\

___________Guild members {FCOLOR/14}MUST {FCOLOR/1}have recall on.\\
____________<[Recall Guild]/@recall> \\
____________<[Cancel]/@exit>\

[@recall]
#IF
checkcmd checkuserjf 50
#ACT
actcmd setuserjf - 50
actcmd RECALLGUILDMEMBER ALL
#ELSESAY
{FCOLOR/2}You do not have enough Gamepoints.
<Close/@exit>


[@res]
#ACT
actcmd SENDUSERSAY "@复活回城"

[@res2]
#IF
checkcmd checkuserjf 10
#ACT
actcmd setuserjf - 10
RELIVE 50 10
#ELSESAY
{FCOLOR/2}You do not have enough Gamepoints.
<Close/@exit>

[@ADMINMENU1]
#say
____<Gamepoints/@值积分卷1>\
____<Monster Clear/@clearmon>\
____<Set EXP Normal/@StopTwoExpX>
____<Set EXP x3/@OpenThreeExp>
____<Set EXP x2/@OpenTwoExp>\
____<Dont Know yet/@testgw>\
____<New Magic Test/@魔法测试1>\
____<GM Boost Rep/@增望声加>\
____<GM Script Debug/@GM脚本调试>\
____<Load NPC/@加载NPC>\
____<Load Defaut NPC/@加载默认NPC>\
____<Rate of Violence/@加载暴率>\
____<Load Map Trigger/@地图触发加载>

[@flourishsystem]
#CALL [vimascript\繁荣度系统.txt] @flourishmain

[@加载NPC]
#ACT
actcmd SENDUSERSAY "@reloadnpc"

[@加载默认NPC]
#ACT
actcmd SENDUSERSAY "@reloaddefaultnpc"

[@加载暴率]
#act
actcmd SENDUSERSAY "@reloadmonitems"

[@地图触发加载]
#act
actcmd SENDUSERSAY "@reloadMapQuest"

[@允许挑战]
#ACT
actcmd SENDUSERSAY "@允许挑战"

[@卡位自救]
#ACT
actcmd SENDUSERSAY "@卡位自救"

[@复活回城]
#ACT
actcmd SENDUSERSAY "@SUMMON"

[@允许拜师]
#ACT
actcmd SENDUSERSAY "@允许拜师"

[@共享金币]
#ACT
actcmd SENDUSERSAY "@共享金币"

[@显示头盔]
#ACT
actcmd SENDUSERSAY "@显示头盔"


[@MOVENPC()]
#IF
checkgold 5000
#ACT
take 金币 5000
mov A1 %ARG(1)
mov D2 %ARG(2)
mov D3 %ARG(3)
close
#ELSEACT
break
#ELSESAY
对不起，你的金币不足5000.\


#IF
EQUAL A1 "3"
IsOnCastleWar [Sabuk] 
#ACT
break
#SAY
攻城时间无法传送至沙巴克.\

#IF
#ACT
BreakTimeRecall
mapmove %A1 %D2 %D3



[@任务系统]
#CALL [system\storysaywhole.txt] @storysaymainxx

[@积分兑换]
#CALL [jifensystem\随身积分系统主菜单.txt] @点卷积分兑换
[@积分购买]
#CALL [jifensystem\随身积分系统主菜单.txt] @兑换装备
[@人物锁定]
#CALL [System\InnerPassword.txt] @Manage_PassWord

[@积分清红]
#CALL [JifenSystem\随身积分洗红名.txt]  @JifenFreePkSH

[@特修买药]
#CALL [jifensystem\随身购买药品.txt] @BuyYao

[@随身买药]
#CALL [jifensystem\随身购买药品.txt] @随身buyyao
[@随身特修]
#CALL [jifensystem\随身购买药品.txt] @随身texiu

[@clearmon]
#CALL [Vimascript\清地图怪物.txt] @清理怪物

[@值积分卷1]
#CALL [jifensystem\冲值积分.txt] @chongjifen

[@魔法测试1]
#ACT
actcmd addmagic  横扫千军 5
actcmd addmagic  分身术 5
actcmd addmagic  金刚之躯 5
actcmd addmagic  养生术 5
actcmd addmagic  泰山压顶 5
actcmd addmagic  快刀斩麻 5
actcmd addmagic  运气术 5
actcmd addmagic  天打雷劈 5
actcmd addmagic  闪电雷鸣 5
actcmd addmagic  迷魂大法 5
#say
新魔法添加成功!

[@增望声加]
#ACT
SETFAME 9000
sysmsg "声望增加9000点"

[@OpenTwoExp]
#if
#act
actcmd SETSERVEREXPMULTIPLE 2
LineMsg "Grobal" "(*) Kazura-Servers is now offering double experience points!"

[@OpenThreeExp]
#if
#act
actcmd SETSERVEREXPMULTIPLE 3
LineMsg "Grobal" "(*) Kazura-Servers is now offering triple experience points!"

[@StopTwoExpX]
#act
actcmd SETSERVEREXPMULTIPLE 1
LineMsg "Grobal" "(*) Exerience rate is now back to normal."

[@testgw]
#ACT
MonGenP   "1,407,124,12"    牛 10
MonGenP   "1,393,120,12"    牛 10
MonGenP   "1,382,145,12"    猪 10
MonGenP   "1,408,151,12"    猪 10
MonGenP   "1,378,125,12"    牛 10
MonGenP   "1,407,124,12"    猪 10
MonGenP   "1,393,120,12"    猪 10
MonGenP   "1,382,145,12"    牛 10
MonGenP   "1,408,151,12"    牛 10
MonGenP   "1,378,125,12"    猪 10
MonGenP   "1,403,185,12"    猪 10
MonGenP   "1,403,185,12"    牛 10
MonGenP   "1,371,95,12"     牛 10
MonGenP   "1,371,95,12"     猪 10
#say
刷新怪物完成!\\
<开区刷怪/@testgw> \
<返回/@gmMain>\

[@游戏推广]
#CALL [Vimascript\推广员.txt] @推广员主菜单

[@关于部落]
#CALL [Vimascript\关于部落.txt] @部落说明

[@部落感应]
#CALL [winma\Tribeinduction\Tribeinduction.txt] @FREDID_1


[@GM脚本调试]
#IF
#ACT
sysmsg "脚本命令调试"
#say

[@master]
#CALL [vimascript\师徒管理.txt] @master2

[@Commision]
#CALL [Merchant\Common\Commission.txt] @CommissionMain

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;