;;不要删掉此行
[@main]
#ACT
goto @SETSAFEZONE
goto @LottoSystem_ItemClick
goto @AreaQuest_7Item
goto @Luckystone_7Item
goto @ExpStone_Item
goto @ExplainStone_Item
goto @Goldbox_Item
goto @Silverbox_Item
goto @Famestone_Item
goto @Daohubook_Item
goto @Daohulifu_Item
break
[@SETSAFEZONE]
#CALL [System\SafeZone.txt] @SafeZone
[@LottoSystem_ItemClick]
#CALL [System\LottoSystem\LottoItemClick.txt] @LottoSystem_LottoItemClick
[@ExplainStone_Item]
#CALL [winma\攻略石.txt] @攻略石
[@ExpStone_Item]
#CALL [winma\经验石.txt] @经验石
[@Goldbox_Item]
#CALL [winma\精金宝箱.txt] @打开精金宝箱
[@Silverbox_Item]
#CALL [winma\密银宝箱.txt] @打开密银宝箱
[@Famestone_Item]
#CALL [winma\声望石.txt] @声望石
[@Daohubook_Item]
#CALL [winma\道狐书籍.txt] @道狐书籍
[@Daohulifu_Item]
#CALL [winma\道狐灵符.txt] @道狐灵符
[@_UserLogin]
#ACT
Delaygoto [Local] 2 @_UserFBLogin
Delaygoto [Local] 3 @BasicQuest_Control
Delaygoto [Local] 4 @_TIMEREVENT
break
[@_TIMEEVENT]
#CALL [KINGSCRIPT\UserTimeEvent.txt] @UserTimeEvent1
[@_Diary]
#CALL [System\MirGuideBook.txt] @Mir3GuideBook
[@_UserFBLogin]
#CALL [Vimascript\repetition_login.txt] @repetition_login
[@_MagicGate]
#ACT
MapMove D900 20 22
[@_MagicGate_Dark]
#ACT
MapMove D2900 45 34
[@AreaQuest_7Item]
#CALL [AreaQuest\ChoBoGuide7\ItemEvent.txt] @EventItem_Area7
[@Luckystone_7Item]
#CALL [KINGSCRIPT\LuckStone.txt] @LuckyStone
[@BasicQuest_Control]
#CALL [AreaQuest\HumMainControl.txt] @RootControl
[@_War_Ready_Sabuk]
#CALL [System\SabukCastle\SabukDefaultSetting.txt] @CastleWarReady
[@_War_Start_Sabuk]
#CALL [System\SabukCastle\SabukDefaultSetting.txt] @CastleWarStart
[@_War_Finish_Sabuk]
#CALL [System\SabukCastle\SabukDefaultSetting.txt] @CastleWarFinish
[@_CastleOwnerChanged_Sabuk]
#CALL [System\SabukCastle\Sabukflag.txt] @ChangeFlag
[@_CastleFlagChanged_Sabuk]
#CALL [System\SabukCastle\Sabukflag.txt] @ChangeFlag
[@_War_Ready_Taosung]
#CALL [System\TaosungCastle\TaosungDefaultSetting.txt] @CastleWarReady_TAOSUNG
[@_War_Start_Taosung]
#CALL [System\TaosungCastle\TaosungDefaultSetting.txt] @CastleWarStart_TAOSUNG
[@_War_Finish_Taosung]
#CALL [System\TaosungCastle\TaosungDefaultSetting.txt] @CastleWarFinish_TAOSUNG
[@_CastleOwnerChanged_Taosung]
#CALL [System\TaosungCastle\Taosungflag.txt] @ChangeFlag_TAOSUNG
[@_CastleFlagChanged_Taosung]
#CALL [System\TaosungCastle\Taosungflag.txt] @ChangeFlag_TAOSUNG
[@_UPLVLEVENT]
#CALL [KINGSCRIPT\UpLvlEvrnt.TXT] @UPLEVEL_EVENT
[@_USEROFFLINE]
#IF
checkcmd ISPKMODE
#ACT
goto @_USERDIE
[@_USERDIE]
#IF
checkcmd ISPKMODE
#ACT
loadvalue A0 "PlayerParam\PK赛记录.ini" [用户] [申请人]
loadvalue A1 "PlayerParam\PK赛记录.ini" [用户] [应战人]
savevalue "PlayerParam\PK赛记录.ini" [状态] [状态] 5
#ELSEACT
break
#IF
EQUAL A0 %USERNAME
#ACT
linemsg [grobal] "<$OUTPUT(A1)>在与<$USERNAME>PK中获胜."
savevalue "PlayerParam\PK赛记录.ini" [用户] [失败者] %A0
savevalue "PlayerParam\PK赛记录.ini" [用户] [胜利者] %A1
actcmd RUNSCRIPTLABEL %A1 "@_PK胜利"
#ELSEACT
linemsg [grobal] "<$OUTPUT(A0)>在与<$USERNAME>PK中获胜."
savevalue "PlayerParam\PK赛记录.ini" [用户] [失败者] %A1
savevalue "PlayerParam\PK赛记录.ini" [用户] [胜利者] %A0
actcmd RUNSCRIPTLABEL %A0 "@_PK胜利"
[@_PK胜利]
#ACT
loadvalue D4 "PlayerParam\PK赛记录.ini" [金额] [积分卷]
mov P1 2
mov P2 %D4
mov P3 9
mov P4 10
mul P1 P2
mul P9 P3
div P9 P4
#IF
Large P9 0
#ACT
mov D0 %P9
give 积分卷 %D0
linemsg [Grobal] "<$USERNAME>获得PK奖励<$OUTPUT(D0)>积分卷"
linemsg "E007" "请注意,PK场将在30秒后关闭"
cleardelaygoto 10033
delaygoto [grobal] 30 @PK胜利_2
#ELSEACT
linemsg "E007" "请注意,PK场将在30秒后关闭"
cleardelaygoto 10033
delaygoto [grobal] 30 @PK胜利_2
[@PK胜利_2]
#IF
#ACT
mapting E007 1 405 117
actcmd delfile "envir\PlayerParam\PK赛记录.ini"
SetAreaAttr "E007,40,40,200" "SAFE"
[@_ONUSERHOURCHANGE]
#CALL [Vimascript\玛珐族人得天赐.txt] @玛珐族人得天赐内容
[@_ONUSERDAYCHANGE]
#ACT
break
[@_ONUSERWEEKCHANGE]
#IF
!checkcmd ISTESTSERVER
#ACT
actcmd SETDOUBLEEXP = 50400000
sysmsg "双倍时间重置." 1
break
[@_ONREADBOOK]
#CALL [KINGSCRIPT\ONREADBOOK.txt] @READBOOKMAIN
[@_ONWEEKCHANGE]
#CALL [KINGSCRIPT\WeekchangeEvent.txt] @WeekchangeEvent1
[@_ONDAYCHANGE]
#CALL [KINGSCRIPT\DaychangeEvent.txt] @DaychangeEvent1
[@_ONHOURCHANGE]
#CALL [KINGSCRIPT\HourchangeEvent.txt] @HourchangeEvent1
[@_CHECKPASSEVENT]
#CALL [vimascript\上线锁定.txt] @lockequipevent
[@_UserLogin2]
#ACT
goto @CHECKUNSTUDEVENT
goto @NewCharEvent
[@CHECKUNSTUDEVENT]
#CALL [KINGSCRIPT\CHECKUNSTUDENT.TXT] @CHECKUNSTUDENT_LOGIN
[@NewCharEvent]
#CALL [KINGSCRIPT\NEWHUMAN.txt] @newhuman
[@_ONITEMDOWN]
#CALL [KINGSCRIPT\Itemlog.txt] @REDItemlog
;;不要删掉此行