You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
SigFiesta/ScenarioBookShelf/Quest/ConditionOfHero.ps

171 lines
4.1 KiB

open [main]
var InterruptBlock ""
InterruptArg ""
Players ""
Count ""
ResultList ""
PlayerHandle ""
Winner0 ""
Winner1 ""
Winner2 "".
;;;;;;;;;;;;;;;;;;;; printf InitFlag. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
freepk OFF. ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD>
printf "WaitPlayer".
waitlogin Players.
printf "Player : " % Players.
if Players == 0 ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ð<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>α<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
then open
call "QuestFail".
close
pause Sec 7.
scriptfile "KQConditionOfHero".
chatwin "RouTownChiefRoumenus" "Intro0".
pause Sec 2.
chatwin "RouTownChiefRoumenus" "Intro1".
pause Sec 2.
chatwin "RouTownChiefRoumenus" "Intro2".
pause Sec 2.
chatwin "RouTownChiefRoumenus" "Intro3".
pause Sec 2.
chatwin "RouTownChiefRoumenus" "Intro4".
timelimit Min 3.
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Count = 0.
while Count < 20
open
regengroup "KDHero" "HERO" % InitFlag.
Count = Count + 1.
pause Sec 3.
close
interruptclear.
call "WaitTimeLimit".
chatwin "RouTownChiefRoumenus" "DualStart".
call "PKON". ; PK <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
timelimit Min 7.
interruptclear.
interruptset Sec "" 99999 10 "PKON".
interruptset Sec "" 99999 30 "MineRegen".
; interruptset PlayerDead "" 1 "PlayerDead". ; <EFBFBD><EFBFBD><EFBFBD>ͷ<EFBFBD>Ʈ <EFBFBD>ε<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>߰<EFBFBD> - <EFBFBD>ڵ<EFBFBD><EFBFBD>ʿ<EFBFBD>(InterruptArg<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>÷<EFBFBD><EFBFBD>̾<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ڵ<EFBFBD>) <EFBFBD>۵<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʿ<EFBFBD>
call "WaitTimeLimit".
chatwin "RouTownChiefRoumenus" "DualStop".
freepk OFF.
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>üũ
ResultList = @KQResultList("ConditionOfHero"). ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>Ʈ<EFBFBD>ؼ<EFBFBD> <EFBFBD>÷<EFBFBD><EFBFBD>̾<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
open [RewardBlock]
Count = 0.
infinite
open
PlayerHandle = @RemoveFirst("ResultList" " "). ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ResultList<EFBFBD><EFBFBD><EFBFBD><EFBFBD> " "<EFBFBD><EFBFBD> <EFBFBD>и<EFBFBD><EFBFBD><EFBFBD> ù°<EFBFBD><EFBFBD><EFBFBD>Ҹ<EFBFBD> x<EFBFBD><EFBFBD> <EFBFBD>ְ<EFBFBD> ResultList<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
if PlayerHandle === ""
then open
break "RewardBlock".
close
if Count < 3
then open
sendquestresult Suc PlayerHandle. ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD>Ը<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŷ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
invidualreward PlayerHandle "HERO_" % InitFlag % "_" % Count. ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>
#("Winner" % Count) = @CharName(PlayerHandle).
close
else open
sendquestresult Fail PlayerHandle. ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD>Ը<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŷ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
invidualreward PlayerHandle "HERO_" % InitFlag % "_3". ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>
close
Count = Count + 1.
close
close
chatwin "RouTownChiefRoumenus" "DualResult" Winner0 Winner1 Winner2.
broadcast all "KQReturn30".
pause sec 10.
broadcast all "KQReturn20".
pause sec 10.
broadcast all "KQReturn10".
pause sec 5.
broadcast all "KQReturn5".
pause sec 5.
linkto all "Eld" "Eld" 17214 13445.
endofkq.
close
open [MineRegen]
regengroup "KDHero" "HERO" % InitFlag.
close
open [PKON]
freepk ON. ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD>
close
open [WaitTimeLimit]
interruptset TimeOut "" 1 "LimitTimeOut".
interruptset PlayerEliminate "" 1 "QuestFail".
infinite
open
waitinterrupt InterruptBlock "InterruptArg".
call InterruptBlock.
close
close
open [LimitTimeOut]
break "WaitTimeLimit".
close
open [QuestFail] ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD>)
freepk OFF.
broadcast all "KQReturn30".
pause sec 10.
broadcast all "KQReturn20".
pause sec 10.
broadcast all "KQReturn10".
pause sec 5.
broadcast all "KQReturn5".
pause sec 5.
linkto all "Eld" "Eld" 17214 13445.
endofkq.
break "main".
close
;open [PlayerDead]
; sendquestresult Fail InterruptArg. ; <EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD><EFBFBD>Ը<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŷ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;close