;;;QQ:67762207
[@main]
#IF
#ACT
loadvalue D1 "PlayerParam\PK¼.ini" [״̬] [״̬]
loadvalue A3 "PlayerParam\PK¼.ini" [û] []

#IF
EQUAL A3 %USERNAME
#ELSEACT
break
#ELSESAY
Only the applicant can challenge.

#IF
EQUAL D1 2
#ACT
goto @Main_1
break


#IF
EQUAL D1 1
#ACT
mov ս־ 10
mov ҩ ""
goto @Main_0

#ELSESAY
˫Ѿܱ.\

[@Main_1]
#IF
#Say
<ȡ/@ȡ>\

[@ȡ]
#act
savevalue "PlayerParam\PK¼.ini" [û] [Ӧս] ""
savevalue "PlayerParam\PK¼.ini" [] [־] 0
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 1
#SAY
ȡɹս.\\

[@Main_0]
#IF
#SAY
<ս/@@ս> <$OUTPUT(ս־)>־\
</@ALLOWDRUG> </@NODRUG> ʹ/ħָҩƷ <$OUTPUT(ҩ)>\
<ֽɫ/@@ս>


[@ALLOWDRUG]
#ACT
mov ҩ ""
goto @Main_0

[@NODRUG]
#ACT
mov ҩ ""
goto @Main_0

[@@ս]
#IF
checkitem ־ %INPUTNUM
#ACT
mov ս־ %INPUTNUM
#ELSEACT
break
#ELSESAY
û㹻Ļ־ܷýս.\

#IF
ELarge ս־ 10
#ELSEACT
break
#ELSESAY
սͽ10־.\

#IF
#ACT
goto @Main_0

[@@ս]
#IF
eLarge ս־ 10
checkitem ־ %ս־
#ELSEACT
break
#ELSESAY
ܷ10־ս  û㹻Ļ־\

#IF
checkcmd ISONLINE %INPUTSTR
#ACT
FormatStr "@_ս(%s,%s,%s)" %USERNAME %ս־ %ҩ
actcmd RUNSCRIPTLABEL %INPUTSTR %A9
mov A3 %INPUTSTR
savevalue "PlayerParam\PK¼.ini" [û] [Ӧս] %INPUTSTR
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 2
savevalue "PlayerParam\PK¼.ini" [״̬] [ҩ] %ҩ
savevalue "PlayerParam\PK¼.ini" [] [־] %ս־
#SAY
ѾɹPKսȴӦ
#ELSESAY
Է.\\

#IF
#ACT
loadvalue D5 "PlayerParam\PK¼.ini" [ս] []
mov P1 %D5
mov P2 2
mul P1 P2
mov D6 %P9

#IF
!EQUAL D6 0
checkcmd CHECKUSERJF %D6
#ACT
actcmd SETUSERJF - %D6 ս
inc D5 1
savevalue "PlayerParam\PK¼.ini" [ս] [] %D5
sysmsg "<$OUTPUT(D5)>ηս,ȡ<$OUTPUT(D6)>"
#ELSEACT
savevalue "PlayerParam\PK¼.ini" [ս] [] 1
sysmsg "1ηս,ȡ0"

[@_ս()]
#ACT
mov A0 %ARG(1)
mov Ӧս־ %ARG(2)
mov ҩ %ARG(3)
#SAY
{FCOLOR/10}'<$OUTPUT(A0)>'{FCOLOR/12}PKսս<$OUTPUT(Ӧս־)>.\
Ƿҩ:<$OUTPUT(ҩ)> \
Ƿ?\\
</@~~acceptpk> <ܾ/@~~Refusepk>

[@~~Refusepk]
#ACT
close
actcmd RUNSCRIPTLABEL %A0 "@_ܾս"   ;;ܾ

[@_ܾս]
#ACT
savevalue "PlayerParam\PK¼.ini" [û] [Ӧս] ""
savevalue "PlayerParam\PK¼.ini" [] [־] 0
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 1
#SAY
'<$OUTPUT(A3)>'ܾPKս.\
<ر/@exit>

[@~~acceptpk]
#ACT
loadvalue D1 "PlayerParam\PK¼.ini" [״̬] [״̬]
loadvalue A1 "PlayerParam\PK¼.ini" [û] [Ӧս]
#IF
EQUAL D1 2
EQUAL A1 %USERNAME
#ELSEACT
sysmsg "ԷѾȡ."
break

#IF
checkitem ־ %Ӧս־
#ACT
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 3
actcmd RUNSCRIPTLABEL %A0 "@_ʼPK"   ;;
#ELSEACT
actcmd RUNSCRIPTLABEL %A0 "@_սʧ"   ;;
#ELSESAY
ԲĻ־<$OUTPUT(Ӧս־)>\
־ȴ´ʾ.\

[@_սʧ]  ;;ִ
#ACT
savevalue "PlayerParam\PK¼.ini" [û] [Ӧս] ""
loadvalue D0 "PlayerParam\PK¼.ini" [] [־]
savevalue "PlayerParam\PK¼.ini" [] [־] 0
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 1
#SAY
Է־㣬ϵٴ롣\

[@_ʼPK] ;;ִ
#IF
checkitem ־ %ս־
#ELSEACT
actcmd RUNSCRIPTLABEL %A3 "@_޻"   ;;
break
#ELSESAY
Բ𣬻־.

#IF
EQUAL ҩ ""
#ACT
take ־ %ս־
actcmd SETPKMODE 1 1
actcmd RUNSCRIPTLABEL %A3 "@_ʼPK_2"   ;;
sysmsg "ս׼ʱ,ߵ߻,ϵͳжΪսʧܷ,¶ע!"
#ELSEACT
take ־ %ս־
actcmd SETPKMODE 1 0
actcmd RUNSCRIPTLABEL %A3 "@_ʼPK_2"   ;;
sysmsg "ս׼ʱ,ߵ߻,ϵͳжΪսʧܷ,¶ע!"

[@_޻]  ;;Ӧսִ
#IF
#SAY
Է͵͵Ľ־ˣ֮\

[@_ʼPK_2]   ;;Ӧսִ
#IF
checkitem ־ %Ӧս־
#ELSEACT
break
#ACT
take ־ %Ӧս־
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 3
loadvalue A1 "PlayerParam\PK¼.ini" [û] []
mapmove E007,40,40

#IF
EQUAL ҩ ""
#ACT
actcmd SETPKMODE 1 1
mov N1 5
delaygoto [grobal] 1 @PKϵͳϢ
sysmsg "ս׼ʱ,ߵ߻,ϵͳжΪսʧܷ,¶ע!"
linemsg [grobal] "'<$OUTPUT(A1)>''<$USERNAME>''<$OUTPUT(Ӧս־)>''ֹѪ'PKȽʼҿԴӵۣPKԱս"
#ELSEACT
actcmd SETPKMODE 1 0
mov N1 5
delaygoto [grobal] 1 @PKϵͳϢ
sysmsg "ս׼ʱ,ߵ߻,ϵͳжΪսʧܷ,¶ע!"
linemsg [grobal] "'<$OUTPUT(A1)>''<$USERNAME>''<$OUTPUT(Ӧս־)>''Ѫ'PKȽʼҿԴӵۣPKԱս"

[@PKϵͳϢ]
#IF
#ACT
loadvalue D7 "PlayerParam\PK¼.ini" [״̬] [״̬]
#IF
EQUAL D7 3
#ELSEACT
break

#IF
Large N1 0
#ACT
loadvalue A1 "PlayerParam\PK¼.ini" [û] []
linemsg [grobal] "'<$OUTPUT(A1)>''<$USERNAME>''<$OUTPUT(Ӧս־)>'PK<$OUTPUT(N1)>ӺʼҿԴӵۣPKԱս"
dec N1 1
delaygoto [grobal] 60 @PKϵͳϢ
#ELSEACT
savevalue "PlayerParam\PK¼.ini" [״̬] [״̬] 4
SetAreaAttr "E007,40,40,200" "CLEAR"
linemsg [grobal] "'<$OUTPUT(A1)>''<$USERNAME>''<$OUTPUT(Ӧս־)>'PKʽʼ."
delaygoto [grobal] 600 @ǿƽ 10033

[@ǿƽ]
#ACT
loadvalue D0 "PlayerParam\PK¼.ini" [] [־]
loadvalue A0 "PlayerParam\PK¼.ini" [û] []
loadvalue A1 "PlayerParam\PK¼.ini" [û] [Ӧս]
actcmd RUNSCRIPTLABEL %A0 "@_PKʱ"   ;;
actcmd RUNSCRIPTLABEL %A1 "@_PKʱ"   ;;
actcmd delfile "envir\PlayerParam\PK¼.ini"
mapting E007 1 405 117
SetAreaAttr "E007,40,40,200" "SAFE"

[@_PKʱ]
#ACT
loadvalue D0 "PlayerParam\PK¼.ini" [] [־]
mov P1 %D0
mul P1 9
div P9 10
#IF
Large P9 0
#ACT
mov D0 %P9
give ־ %D0
sysmsg "ʱ90%ע־<$OUTPUT(D0)>."
;;;QQ:67762207=