open [main]
	var InterruptBlock		""
		InterruptArg		""

		Players				""
		Count				""
		NumOfPlayers		""
		ResultList			""
		PlayerHandle		""
		PlayerList			""
		LooterHandle		""
		
		KqTimeLimit			15
		
		Reward1				"ForgeMat038_43"
		Reward2				"ForgeMat038_30"
		Reward3				"ForgeMat038_22"
		Reward4				"ForgeMat038_15"
		Reward5				"ForgeMat038_05"

		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 2.
	chatwin "RouTownChiefRoumenus" "Intro1".
	pause Sec 2.
	chatwin "RouTownChiefRoumenus" "Intro2".
	pause Sec 2.
	chatwin "RouTownChiefRoumenus" "Intro3".
	pause Sec 2.
	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("MatchingConditionOfHero" 10 0).
;	timelimit Sec 60.
;	
;	interruptclear.
;	interruptset playerdead "PlayerDead" 1 "PlayerDead".
;	call "WaitTimeLimit".
;	
;	; 2. ???? ??
;	; 3. ???? ??
;	; 4. ??? ?? ???? ??
;
	interruptclear.
	interruptset playerdead "PlayerDead" 1 "PlayerDead".
	call "RegenMaul".
	
	; 5. 15? ???? ??
	
	timelimit Min KqTimeLimit.
	call "WaitTimeLimit".

	; 6. ?
	
	interruptclear.
	itemerase all Maul.
	itemerase all "KQ_Ice01".
	chatwin "RouTownChiefRoumenus" "DualStop".
	battlestop PK.
	
	revival all.
	
	pause Sec 10.
	
	; 7. ????
	ResultList = @KQResultList("MatchingConditionOfHero" 0 5000).
;	reward MID. ; Compensation Command changed by King's Matching

	scriptfile "".
	open [RewardBlock]
		NumOfPlayers = @Count("player").
;		broadcast all "Player count " % NumOfPlayers % " amount " % Players.
		if NumOfPlayers > 14
		then open
			Count = 1.
		close
		else if NumOfPlayers > 9
		then open
			Count = 2.
		close
		else if NumOfPlayers > 4
		then open
			Count = 3.
		close
		else open
			Count = 4.
		close
		infinite
		open
			PlayerHandle = @RemoveFirst("ResultList" " ").
			
			if PlayerHandle === ""
			then open
				break "RewardBlock".
			close

			if Count < 5
			then open
				sendquestresult Suc PlayerHandle.
;				invidualrewardmid PlayerHandle Count. ;gives 1-4th place rewards
; this works but was conflicting with the kobalt filter
				#("Winner" % Count) = @CharName(PlayerHandle).
;				var RewardBox  ("Reward" % Count).
;				broadcast all "Player: " % PlayerHandle % " " % @CharName(PlayerHandle) % " count: " % Count % " Reward: " % " t " % "," % Reward4.
;				itemcreate PlayerHandle RewardBox.
				if Count == 1
				then open
					itemcreate PlayerHandle Reward1.
				close
				else if Count == 2
				then open
					itemcreate PlayerHandle Reward2.
				close
				else if Count == 3
				then open
					itemcreate PlayerHandle Reward3.
				close
				else if Count == 4
				then open
					itemcreate PlayerHandle Reward4.
				close
			close
			else open
				sendquestresult Fail PlayerHandle.
;				invidualrewardmid PlayerHandle 5. ;gives participant rewards
; this works but was conflicting with the kobalt filter
;				var RewardBox  "Reward5".
;				broadcast all "Player: " % PlayerHandle % " " % @CharName(PlayerHandle) % " count: " % Count % " Reward: ".
				itemcreate PlayerHandle Reward5.
			close

			Count = Count + 1.

		close
                
	close
	scriptfile "KQHBat1".

	MIDClearCount Online.;?? ??? ??? ??
	; 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.
	
		
	endofmid. ;?????? ???	
close

;	# loops through quantity number and gives amounts
;				var RewardQuantity  ("Reward" % Count).
;				call "RewardItem".
;	open [RewardItem]
;	    var num     0.
;	    while num < RewardQuantity
;	    open
;	        if PlayerHandle === 0
;	        then open
;	            break "RewardItem".
;	        close
;	        itemcreate PlayerHandle "ForgeMat038".
;	        num = num + 1.
;	    close
;	close

open [PickUpMaulFirst]
	interruptset Sec "DeleteMaul" 1 45 "DeleteMaul".
	call "PickUpMaul".
close

open [DeleteMaul]
	itemerase all Maul.
	interruptset Sec "RegenMaul" 1 45 "RegenMaul".
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("MatchingConditionOfHero" 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.
	
		
	endofmid. ;?? ???? ???
	
	break "main".
close