;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@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

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