open [main]
	var InterruptBlock		""
		InterruptArg		""

		Players				""
		Count				""
		NumOfPlayers		""
		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 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 10.
	
	interruptclear.
	interruptset playerdead "PlayerDead" 1 "PlayerDead".
	call "WaitTimeLimit".
	
	; 2. ???? ??
	; 3. ???? ??
	; 4. ??? ?? ???? ??

	interruptclear.
	interruptset playerdead "PlayerDead" 1 "PlayerDead".
	call "RegenMaul".
	
	; 5. 15? ???? ??
	
	timelimit Min 1.
	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

	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. ;?????? ???
				#("Winner" % Count) = @CharName(PlayerHandle).
			close
			else open
				sendquestresult Fail PlayerHandle.
				invidualrewardmid PlayerHandle 5. ;?????? ???
			close

			Count = Count + 1.

		close
                
	close

	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

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("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