SigFiesta/ScenarioBookShelf/KQ/KQHBat1.ps

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<EFBFBD>а<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> PVP
	
	battlestart PK.
	PlayerList = @KQTopList("NewConditionOfHero" 10 0).
	timelimit Sec 30.
	
	interruptclear.
	interruptset playerdead "PlayerDead" 1 "PlayerDead".
	call "WaitTimeLimit".
	
	; 2. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	; 3. <EFBFBD><EFBFBD>ġ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	; 4. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ݴ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ͷ<EFBFBD>Ʈ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>

	interruptclear.
	interruptset playerdead "PlayerDead" 1 "PlayerDead".
	call "RegenMaul".
	
	; 5. 15<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>Ѱɰ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	
	timelimit Min 15.
	call "WaitTimeLimit".

	; 6. <EFBFBD><EFBFBD>
	
	interruptclear.
	itemerase all Maul.
	itemerase all "KQ_Ice01".
	chatwin "RouTownChiefRoumenus" "DualStop".
	battlestop PK.
	
	revival all.
	
	pause Sec 10.
	
	; 7. <EFBFBD><EFBFBD><EFBFBD><EFBFBD>üũ
	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. <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

	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