;--------------------------------------------------------------------------------
;--                  Custom BH_Karen map instance dungeon                      --
;--------------------------------------------------------------------------------

open [main]
	var	InterruptArg	1
		InterruptBlock	2
		rnd01			""
		Mob1			""
		Mob2			""
		Mob3			""
		Boss			""
		Pillar			""
		Opener			""
		Slot			""
		ReturnGate		""
		Gate			""
		ItemRate		0
		ItemIndex		""
		Box				""
		BossRoomGate    ""
        ExitBossGate    "".

	
	scriptfile "ID_45".
;	npcstand 		ReturnGate 		"Gate" 				4569 4385 0		1000 	"Normal".
;	interruptset NPCClickHandle "" 999999 ReturnGate "ReturnToGate".
	npcstand		ReturnGate		"Gate_ID_Exit" 	4569 4385 0		1000	"Normal".
	interruptset	NPCClickHandle	"ReturnGateClick"		1	ReturnGate		"onReturnGateClick".
	
;	doorbuild Pillar "" 4264 4090 0 1000 "Normal".
;	doorclose Pillar "".
	
;	chatwin "DarkFog" "Hello".
;	this is from the script file: #Record	Hello	Returning back to Forest Of Slumber in 30 Seconds!
	pause Sec 3.
	
	call "Round1".
	
close

;	open [ItemDrop]
;	var rnd02	0.
;	rnd02 = 10.
;	if ItemRate > @Random(0 99) then
;	open
;		itemdrop InterruptArg ItemIndex 1000000.
;		broadcast all "The Item has been dropped.".
;		suicide all.
;		interrupterase "ItemDrop".
;	close
;	else
;	open
;		ItemRate = ItemRate + rnd02.
;	close
;	
;	close

open [Round1]
	
	chatwin "DarkFog" "LetBegin".
	pause Sec 2.
	
	;Not using a mobregen.txt anymore. Just writing that shit manually in a script
	;4 mobs = a group so can use almost the same coords k?
	mobregen Mob1 "InstanceMob1" 5930 5510 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6120 5295 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6403 6122 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6349 6507 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob1" 5718 5395 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6218 5395 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6218 5424 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 5630 6082 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob1" 6257 6326 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6506 6217 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6601 6598 0 1000 "Normal".
	mobregen Mob1 "InstanceMob1" 6870 6602 0 1000 "Normal".
	
	call "WaitClearStage".
	call "Round2".
close

open [Round2]
	
	chatwin "DarkFog" "RoundNext".
	pause Sec 2.
	
	mobregen Mob1 "InstanceMob2" 5930 5510 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6120 5295 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6403 6122 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6349 6507 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob2" 5718 5395 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6218 5395 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6218 5424 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 5630 6082 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob2" 6257 6326 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6506 6217 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6601 6598 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6870 6602 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob2" 6420 6058 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6271 6390 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 7126 6758 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 7231 7248 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob2" 7254 7390 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 7417 7098 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6481 6118 0 1000 "Normal".
	mobregen Mob1 "InstanceMob2" 6098 5748 0 1000 "Normal".

	
	call "WaitClearStage".
	call "Round3".
close

open [Round3]
	
;	ItemRate = 0.
;	ItemIndex = "LeatherBoots".
	
	chatwin "DarkFog" "CollectMaybe".
	pause Sec 2.
	
	pause Sec 1.
	
	mobregen Mob1 "InstanceMob3" 4841 6955 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 4964 7480 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 5542 7254 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 4717 6290 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob3" 6075 7506 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 5614 7975 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 5125 8152 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 4515 7737 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob3" 3859 7436 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 4461 6958 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 6741 8421 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 5694 7718 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob3" 4816 7513 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 5588 6474 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 6847 5117 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 7070 5725 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob3" 7717 6186 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 7858 5743 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 7990 5042 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 7134 4597 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob3" 6334 4644 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 8503 4366 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 8711 5120 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 8656 5758 0 1000 "Normal".
	
	pause MilliSec 500.
	
	mobregen Mob1 "InstanceMob3" 9272 6352 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 8131 6468 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 7921 5357 0 1000 "Normal".
	mobregen Mob1 "InstanceMob3" 8406 4275 0 1000 "Normal".
	
	call "WaitClearStage".
	call "SBoss1".
	
    infinite
    open
        waitinterrupt InterruptBlock "InterruptArg".
        call InterruptBlock.
    close
	
close

;	open [PillarOpen]
;	    whoclickme Opener InterruptArg.                     
;	    invensearch Slot Opener ItemIndex.               
;	    if Slot =!= ""                                      
;	    then open
;			broadcast all "The Door has been opened".
;	        dooropen Pillar "C_PillarofLight".              
;	        itemerase all ItemIndex.                     
;			call "SpawnBoss".
;			interrupterase "DoorClick".
;	        break "Round3".
;	    close
;	close

;	open [SpawnBoss]
;		
;		rnd01 = @Random(1 6).
;	        
;	        if rnd01 >= 5
;	        then open
;	            
;	            call "SBoss3".
;	        close
;	        
;	        else if rnd01 >= 3
;	        then open
;	            
;	            call "SBoss2".
;	        close
;	        
;	        else if rnd01 >= 1
;	        then open
;	           
;	            call "SBoss1".
;	        close
;	close

open [SBoss1]
	chatwin "DarkFog" "WatchOut".
	pause MilliSec 1500.
	
	mobregen Boss "InstanceBoss1" 8080 8265 0 1000 "Normal".
	abstateset Boss "StaMightySoul" 1 4200000000.
	interruptset HPLow "" 1 Boss 700 "Summon01".
	interruptset HPLow "" 1 Boss 300 "Summon01".
	call "WaitClearStage".
	call "SBoss2".
close

open [SBoss2]
	chatwin "DarkFog" "WatchOut".
	pause MilliSec 1500.
	
	mobregen Boss "InstanceBoss2" 8525 7860 0 1000 "Normal".
	abstateset Boss "StaMightySoul" 1 4200000000.
	interruptset HPLow "" 1 Boss 700 "Summon02".
	interruptset HPLow "" 1 Boss 300 "Summon02".
	call "WaitClearStage".
	call "SBoss3".
close

open [SBoss3]
	chatwin "DarkFog" "WatchOut".
	pause MilliSec 1500.
	
	mobregen Boss "InstanceBoss3" 8044 7815 0 1000 "Normal".
	abstateset Boss "StaMightySoul" 1 4200000000.
	interruptset HPLow "" 1 Boss 700 "Summon03".
	interruptset HPLow "" 1 Boss 300 "Summon03".
	call "WaitClearStage".
	call "Reward".
close

open [Summon01]
	broadcast all "SummonMobs".
	summonmob Boss "InstanceMob1" 4.
close

open [Summon02]
	broadcast all "SummonMobs".
	summonmob Boss "InstanceMob2" 3.
close

open [Summon03]
	broadcast all "SummonMobs".
	summonmob Boss "InstanceMob3" 2.
close

open [Reward]
	chatwin "DarkFog" "GoodJob".
	pause Sec 2.
	
	mobregen Box "InstancePresentBox" 8044 7815 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8044 7815 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8044 7815 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8525 7860 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8525 7860 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8044 7815 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8080 8265 0 1000 "Normal".
	mobregen Box "InstancePresentBox" 8080 8265 0 1000 "Normal".
	
	pause Sec 3.
	
;	chatwin "GB_Dealer" "Hello".

;	broadcast all "KQReturn60".
;	pause Sec 30.
;	broadcast all "KQReturn30".
;	pause Sec 15.
;	broadcast all "KQReturn15".
;	pause Sec 10.
;	broadcast all "KQReturn05".
;	pause Sec 5.
;	linkto all "EldSleep01" "EldSleep01" 17171 16101.

	npcstand		Gate			"Gate_ID_Complete"	7819	7595	0	1000	"Normal".
	interruptset	NPCClickHandle	"GateClick"		1	Gate		"onGateClick".

close

open [onGateClick]
	var mclicker 0.
	whoclickme mclicker InterruptArg.
		linkto	mclicker	"EldSleep01" "EldSleep01" 17171 16101.
	interruptset	NPCClickHandle	"GateClick"		1	Gate		"onGateClick".
close

open [onReturnGateClick]
	var mclicker 0.
	whoclickme mclicker InterruptArg.
		linkto	mclicker	"EldSleep01" "EldSleep01" 17171 16101.
	interruptset	NPCClickHandle	"ReturnGateClick"		1	ReturnGate		"onReturnGateClick".
close

open [WaitClearStage]
    ; Index를 _NONE_ 이라고 주면 어떤 몹/플레이어가 죽어도 인터럽트 발생
    ; interruptset DeadIndex "AnyMobDead" 1 "_NONE_" "onAnyMobDead".
    
    interruptset MobEliminate "" 1 "onMobEliminate".
    ; 몹들이 한번 전부 죽으면 연속적으로 Eliminate 인터럽트가 일어나더라
    pause sec 5.
    
    infinite
    open
        waitinterrupt InterruptBlock "InterruptArg".
		call InterruptBlock.
    close
close

open [onMobEliminate]
    break "WaitClearStage".
close

;	open [onAnyMobDead]
;	    var Total 0
;	        Guard 0.
;	    ; 죽이지 않아도 될 몹이 있다
;	    Total = @Count("all").
;	    Guard = @Count("Anti_Henis_A14") + @Count("Anti_Henis_A18") + @Count("Anti_Henis_F21") + @Count("Anti_Henis_M24") + @Count("Anti_Henis_M25") + @Count("Anti_Henis_F30") + @Count("Anti_Henis_A32") + @Count("Anti_Henis_C39") + @Count("Anti_Henis_C40") + @Count("Anti_Henis_F29") + @Count("Anti_Henis_A31") + @Count("Anti_Henis_C36") + @Count("Anti_Henis_F47") + @Count("Anti_Henis_C47") + @Count("Anti_Henis_A50") + @Count("Anti_Henis_M50").
;	    Total = Total - Guard.
;	    
;	    if Total == 0
;	    then open
;	        break "WaitClearStage".
;	    close
;	    else open
;	        interruptset DeadIndex "AnyMobDead" 1 "_NONE_" "onAnyMobDead".
;	    close
;	npcstand BossRoomGate "Gate_ID_Exit" 7754 7520 0 1000 "Normal".
;	interruptset NPCClickHandle "" 99999 BossRoomGate "onBossRoomGateClick".
;	close

;	open[onBossRoomGateClick]
;	    var Opener 0.
;	    whoclickme Opener InterruptArg.
;	    teleport RouN Opener 6400 8654.
;	    interruptset NPCClickHandle "" 1 BossRoomGate "onBossRoomGateClick".
;	close