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.
 
 

215 lines
4.0 KiB

open [main]
var InterruptBlock ""
InterruptArg ""
Players ""
Count ""
ResultList ""
PlayerHandle ""
PlayerList ""
LooterHandle ""
Winner0 ""
Winner1 ""
Winner2 ""
Maul "KQ_InvincibleHammer".
battlestop PK.
waitlogin Players.
if Players === 0
then open
call "QuestEnd".
close
pause Sec 10.
scriptfile "KQHBat1".
chatwin "RouTownChiefRoumenus" "Intro0".
pause Sec 4.
chatwin "RouTownChiefRoumenus" "Intro1".
pause Sec 4.
chatwin "RouTownChiefRoumenus" "Intro2".
pause Sec 4.
chatwin "RouTownChiefRoumenus" "Intro3".
pause Sec 4.
chatwin "EldSpeGuard01" "Intro4".
pause Sec 4.
; LSH - Insert ( 2008-09-18 )
chatwin "EldSpeGuard01" "Intro5".
pause Sec 3.
chatwin "EldSpeGuard01" "Intro6".
pause Sec 2.
chatwin "EldSpeGuard01" "DualStart".
; 1. 5분간 자유 PVP
battlestart PK.
PlayerList = @KQTopList("NewConditionOfHero" 10 0).
timelimit Sec 30.
interruptclear.
interruptset playerdead "PlayerDead" 1 "PlayerDead".
call "WaitTimeLimit".
; 2. 얼음광석 리젠
; 3. 망치광석 리젠
; 4. 아이템 줍는 인터럽트 지정
interruptclear.
interruptset playerdead "PlayerDead" 1 "PlayerDead".
call "RegenMaul".
; 5. 15분 제한걸고 대기
timelimit Min 15.
call "WaitTimeLimit".
; 6.
interruptclear.
itemerase all Maul.
itemerase all "KQ_Ice01".
chatwin "RouTownChiefRoumenus" "DualStop".
battlestop PK.
revival all.
pause Sec 10.
; 7. 등수체크
ResultList = @KQResultList("NewConditionOfHero" 0 5000).
open [RewardBlock]
Count = 0.
infinite
open
PlayerHandle = @RemoveFirst("ResultList" " ").
if PlayerHandle === ""
then open
break "RewardBlock".
close
if Count < 3
then open
sendquestresult Suc PlayerHandle.
invidualreward PlayerHandle "HERO_" % InitFlag % "_" % Count.
#("Winner" % Count) = @CharName(PlayerHandle).
close
else open
sendquestresult Fail PlayerHandle.
invidualreward PlayerHandle "HERO_" % InitFlag % "_3".
close
Count = Count + 1.
close
close
; 8. 집으로 보내기
chatwin "RouTownChiefRoumenus" "DualResult" Winner0 Winner1 Winner2.
; LSH - Insert ( 2008-09-18 )
chatwin "RouTownChiefRoumenus" "DualResult1".
chatwin "EldSpeGuard01" "DualResult2".
chatwin "EldSpeGuard01" "DualResult3".
chatwin "RouTownChiefRoumenus" "DualResult4".
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 [PickUpMaulFirst]
interruptset Sec "RegenMaul" 1 90 "RegenMaul".
call "PickUpMaul".
close
open [PickUpMaul]
LooterHandle = InterruptArg.
scriptfile "".
broadcast all @CharName(LooterHandle) % " has obtained Invincible Hammer.".
broadcast all "Everyone else will be immobilized for 3 seconds.".
scriptfile "KQHBat1".
interruptset DeadHandle "LooterDead" 1 LooterHandle "LooterDead".
abstateset all "StaCommonStun01" 1 3000 LooterHandle.
interruptset pickupitemindex "PickUpMaul" 1 Maul "PickUpMaul".
close
open [RegenMaul]
regengroup "KDHBat1" "MINE_MAUL".
itemerase all Maul.
interrupterase "PickUpMaul".
interrupterase "LooterDead".
interruptset pickupitemindex "PickUpMaul" 1 Maul "PickUpMaulFirst".
call "RegenIce".
close
open [RegenIce]
regengroup "KDHBat1" "MINE_ICE".
close
open [LooterDead]
itemerase all Maul.
itemdrop InterruptArg Maul 1000000.
close
open [WaitTimeLimit]
interruptset TimeOut "" 1 "LimitTimeOut".
infinite
open
waitinterrupt InterruptBlock "InterruptArg".
call InterruptBlock.
close
close
open [LimitTimeOut]
break "WaitTimeLimit".
close
open [PlayerDead]
PlayerList = @KQTopList("NewConditionOfHero" 10 0).
interruptset playerdead "PlayerDead" 1 "PlayerDead".
close
open [QuestEnd]
battlestop PK.
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