• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

Catacumbas de Gelo v31!.w3x
Variables
triggers
init
// Map deprotected by X-deprotect (version 2006-10-02) by zibada
// http://dimon.xgm.ru/xdep/
// Visit our modmaking community at http://xgm.ru/
Name Type is_array initial_value
rect01 rect No
string01 string No
string02 string No
string03 string No
string04 string No
trigger01 trigger No 
// Map deprotected by X-deprotect (version 2006-10-02) by zibada
// http://dimon.xgm.ru/xdep/
// Visit our modmaking community at http://xgm.ru/


//***************************************************************************
//*
//*Unit Item Tables
//*
//***************************************************************************
function Unit000044_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('shdt',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('I006',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000064_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('evtl',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('modt',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000119_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('clsd',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000218_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('frgd',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('frgd',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000235_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('arsh',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('hbth',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000247_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('sbok',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('gvsm',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000285_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('clsd',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000332_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 2
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 3
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 4
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 5
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 6
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 7
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 8
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 9
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 10
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 11
		call RandomDistReset()
		call RandomDistAddItem('tkno',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000340_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('clfm',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('frhg',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000349_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('srtl',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('shhn',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000384_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('frgd',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('fwss',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000387_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('cosl',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000391_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('blba',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
		//Item set 1
		call RandomDistReset()
		call RandomDistAddItem('nspi',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Unit000507_DropItems takes nothing returns nothing
	local widget trigWidget=null
	local unit trigUnit=null
	local integer itemID=0
	local boolean canDrop=true
	set trigWidget=bj_lastDyingWidget
	if(trigWidget==null)then
		set trigUnit=GetTriggerUnit()
	endif
	if(trigUnit!=null)then
		set canDrop=not IsUnitHidden(trigUnit)
		if(canDrop and GetChangingUnit()!=null)then
			set canDrop=(GetChangingUnitPrevOwner()==Player(PLAYER_NEUTRAL_AGGRESSIVE))
		endif
	endif
	if(canDrop)then
		//Item set 0
		call RandomDistReset()
		call RandomDistAddItem('clsd',100)
		set itemID=RandomDistChoose()
		if(trigUnit!=null)then
			call UnitDropItem(trigUnit,itemID)
		else
			call WidgetDropItem(trigWidget,itemID)
		endif
	endif
	set bj_lastDyingWidget=null
	call DestroyTrigger(GetTriggeringTrigger())
endfunction

//***************************************************************************
//*
//*Sounds
//*
//***************************************************************************
//***************************************************************************
//*
//*Items
//*
//***************************************************************************
function CreateAllItems takes nothing returns nothing
	local integer itemID
	call RandomDistReset()
	call RandomDistAddItem('rspd',25)
	call RandomDistAddItem('rres',25)
	call RandomDistAddItem('rwat',25)
	call RandomDistAddItem('rdis',25)
	set itemID=RandomDistChoose()
	if(itemID!=-1)then
		call CreateItem(itemID,-1591.2,-850.4)
	endif
endfunction

//***************************************************************************
//*
//*Unit Creation
//*
//***************************************************************************
//===========================================================================
function CreateBuildingsForPlayer11 takes nothing returns nothing
	local player p=Player(11)
	local unit u
	local integer unitID
	local trigger t
	local real life
	set u=CreateUnit(p,'hatw',13568.0,-13568.0,270.000)
endfunction

//===========================================================================
function CreateNeutralHostileBuildings takes nothing returns nothing
	local player p=Player(PLAYER_NEUTRAL_AGGRESSIVE)
	local unit u
	local integer unitID
	local trigger t
	local real life
	set u=CreateUnit(p,'nfgo',-15872.0,16256.0,270.000)
endfunction

//===========================================================================
function CreateNeutralHostile takes nothing returns nothing
	local player p=Player(PLAYER_NEUTRAL_AGGRESSIVE)
	local unit u
	local integer unitID
	local trigger t
	local real life
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6220.1,12986.8,64.580)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14151.8,-3669.6,137.663)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6815.8,16133.5,138.740)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6800.3,15913.0,156.714)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6805.8,15693.3,17.040)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6661.9,16272.6,173.985)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6508.6,15604.5,271.140)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6634.5,15573.4,306.616)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6486.5,16300.1,23.435)
	endif
	set u=CreateUnit(p,'nbzd',15237.7,14808.0,203.000)
	set u=CreateUnit(p,'ngrd',15352.8,14552.0,181.840)
	set u=CreateUnit(p,'nadr',14971.2,14734.7,203.000)
	set u=CreateUnit(p,'nbwm',14876.8,14520.3,203.198)
	set u=CreateUnit(p,'nrwm',15115.2,14421.9,203.000)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2755.3,-414.9,27.566)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2890.2,-593.8,115.986)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2733.2,-626.3,123.446)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1711.2,-1946.9,170.271)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1507.4,-2066.9,253.880)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1770.7,-2061.7,23.731)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-409.0,41.2,56.526)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-380.7,-145.9,112.602)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-133.3,-54.2,253.979)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-235.1,93.6,64.019)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2058.3,-5296.9,353.078)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2121.7,-5558.1,260.648)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1617.3,-5520.0,240.388)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1786.5,-5276.4,172.117)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1960.0,-5471.4,179.434)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1747.4,-5716.6,280.687)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1917.6,-5657.3,46.254)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5663.7,-1079.7,70.468)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5651.9,-1357.6,114.393)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4776.5,-2675.6,130.939)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5919.3,-1166.4,171.601)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5809.1,-1280.4,173.392)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5741.7,-1539.0,118.030)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4479.6,-1142.0,101.440)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4366.1,-1280.2,92.958)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4399.2,-1170.9,244.673)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4590.5,-1104.2,292.333)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4486.3,-1359.9,292.586)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4536.4,-2708.9,157.109)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4717.5,-2485.2,29.697)
	endif
	set u=CreateUnit(p,'n007',10158.8,-15499.5,130.090)
	call IssueImmediateOrder(u,"")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000349_DropItems)
	set u=CreateUnit(p,'nano',11034.2,-12088.3,355.000)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4658.7,-2752.1,40.299)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4658.9,-2601.3,246.530)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4552.4,-2495.8,39.563)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5628.1,-2648.4,343.476)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5614.7,-2829.9,37.574)
	endif
	set u=CreateUnit(p,'nith',-4623.1,-4539.6,120.271)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5728.4,-2746.1,324.996)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14262.6,-3658.1,200.045)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5737.8,-2577.0,281.116)
	endif
	set u=CreateUnit(p,'nnws',-3256.6,5577.3,77.687)
	set u=CreateUnit(p,'nnwa',-3004.8,5782.9,119.996)
	set u=CreateUnit(p,'nnwq',-3104.0,5274.8,302.803)
	set u=CreateUnit(p,'nmdr',-15159.9,1616.8,333.200)
	set u=CreateUnit(p,'nmdr',-15322.3,1948.3,170.790)
	set u=CreateUnit(p,'nmdr',-15006.1,1869.6,100.000)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5847.3,-2690.6,228.951)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5712.7,-2902.6,282.478)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4630.4,-2434.5,301.826)
	endif
	set u=CreateUnit(p,'ntkc',-15257.2,4550.7,40.000)
	set u=CreateUnit(p,'ntkh',-15343.5,4449.7,35.000)
	call IssueImmediateOrder(u,"autodispelon")
	set u=CreateUnit(p,'ntkh',-15438.9,4660.3,35.000)
	call IssueImmediateOrder(u,"autodispelon")
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,370.7,-11200.0,298.189)
	endif
	set u=CreateUnit(p,'nplg',-5362.4,6811.1,121.447)
	set u=CreateUnit(p,'nplg',-5116.1,6901.2,274.546)
	set u=CreateUnit(p,'nplb',-5162.0,6651.2,223.864)
	set u=CreateUnit(p,'nith',-2814.5,16351.7,0.000)
	set u=CreateUnit(p,'nith',-2723.0,16374.7,0.000)
	set u=CreateUnit(p,'nith',-2565.0,16382.4,0.000)
	set u=CreateUnit(p,'nskm',-16299.6,16200.2,270.000)
	set u=CreateUnit(p,'nith',-2626.9,16367.0,0.000)
	set u=CreateUnit(p,'nitw',-2682.2,16185.5,270.000)
	set u=CreateUnit(p,'nmgr',2383.1,16194.1,180.000)
	set u=CreateUnit(p,'nmgr',2382.3,15971.4,180.000)
	set u=CreateUnit(p,'nmgr',2133.8,15927.7,180.000)
	set u=CreateUnit(p,'nmgr',2100.7,16380.2,180.000)
	set u=CreateUnit(p,'nfpl',-2485.9,3296.3,254.187)
	set u=CreateUnit(p,'nfpl',-2484.8,3121.3,127.127)
	set u=CreateUnit(p,'nfpl',-2288.9,3184.8,264.218)
	set u=CreateUnit(p,'nfpl',-2327.6,3420.6,183.192)
	set u=CreateUnit(p,'nfpl',-3279.7,3964.0,80.444)
	set u=CreateUnit(p,'nfpl',-3051.5,4248.5,131.983)
	set u=CreateUnit(p,'nfpl',-3090.5,4041.0,278.995)
	set u=CreateUnit(p,'nfpl',-3163.1,4394.6,318.405)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2123.5,6998.8,197.057)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1899.3,6916.4,135.597)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1942.3,7063.7,192.651)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2092.1,7155.6,74.742)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2048.1,6896.3,104.483)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3469.2,7417.7,222.864)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3328.7,7433.7,130.379)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3357.3,7604.0,283.533)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3190.2,7508.6,152.462)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3526.0,7622.2,220.766)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3674.4,7467.8,339.037)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7706.7,-154.9,155.296)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7726.6,-326.3,110.482)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7757.5,28.2,275.260)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7924.2,106.8,207.626)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8083.5,77.0,125.578)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8172.6,-92.3,70.666)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8135.7,-244.0,58.207)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8105.8,-369.9,229.731)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7979.5,-463.9,17.337)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7832.4,-444.6,87.300)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-10805.6,-282.7,337.192)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-10643.8,-206.9,46.199)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-10471.9,-272.1,318.943)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-10700.7,-424.3,229.819)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-10549.6,-409.2,286.005)
	endif
	set u=CreateUnit(p,'nomg',9979.8,14038.5,269.789)
	set u=CreateUnit(p,'nomg',9846.7,13861.3,115.547)
	set u=CreateUnit(p,'nomg',10113.8,13900.7,236.653)
	set u=CreateUnit(p,'nggr',14919.3,15283.3,264.250)
	call IssueImmediateOrder(u,"spellstealon")
	set u=CreateUnit(p,'nggr',15347.4,15280.8,264.250)
	call IssueImmediateOrder(u,"spellstealon")
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-371.8,8755.6,332.127)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-238.0,8959.0,280.632)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-571.3,8624.6,12.294)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-292.4,8572.6,304.869)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-172.7,8745.8,103.286)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-79.6,9006.3,229.105)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-425.7,8479.9,22.611)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13505.6,3354.1,1.263)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13551.8,3643.4,326.106)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13643.9,3453.3,101.846)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13369.1,3473.6,134.576)
	endif
	set u=CreateUnit(p,'n000',-16606.8,-7420.7,70.000)
	call IssueImmediateOrder(u,"")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000285_DropItems)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13399.0,3657.6,204.638)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14879.6,9143.2,73.391)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14464.5,8896.2,99.506)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14691.1,8864.0,10.305)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14651.2,9074.3,190.476)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14590.2,9352.6,256.736)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14917.8,8956.5,336.247)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14398.4,9158.1,105.065)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7101.2,9170.0,236.400)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7248.9,8817.4,26.676)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7271.3,8963.8,106.845)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7427.3,9105.1,253.089)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7407.9,8921.7,215.163)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7125.4,8969.7,281.072)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7288.8,9190.8,148.595)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15611.5,4830.3,149.430)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15796.9,4947.7,57.120)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15739.5,4830.6,166.646)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15635.7,4688.9,31.279)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15647.3,4945.1,151.495)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,529.7,1516.7,269.272)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15346.8,10277.2,221.777)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15513.2,10266.5,195.332)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15559.0,10375.7,73.644)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15547.6,10536.4,176.907)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15442.3,10399.2,125.424)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15308.9,10456.8,17.579)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15387.9,10157.9,242.465)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15255.3,10595.0,99.528)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,15406.1,10565.6,161.317)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,815.0,4925.7,27.104)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,630.5,4882.1,311.406)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,554.4,4729.8,45.166)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,627.3,4623.8,69.227)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,884.7,4631.8,140.585)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,903.9,4794.0,333.720)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,755.1,4748.9,74.632)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,776.4,4539.4,183.422)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-747.0,4733.6,2.911)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-560.6,4701.9,67.931)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-590.5,4457.7,143.277)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-511.7,4576.7,40.629)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-834.2,4564.3,68.337)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2722.4,-10457.6,154.462)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2547.9,-10648.5,200.122)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3042.7,-10594.8,32.663)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3013.7,-10371.3,142.047)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2836.6,-10720.5,298.112)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2469.2,-10244.1,301.002)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2784.4,-10187.4,291.894)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2336.7,-10473.8,270.613)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4604.7,-1273.1,233.565)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5860.6,-1425.2,344.674)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3687.5,935.4,22.764)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3551.5,1190.0,185.576)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-748.7,4451.7,188.070)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6136.8,12995.7,174.644)
	endif
	set u=CreateUnit(p,'n005',-16672.5,-3232.7,300.000)
	call IssueImmediateOrder(u,"")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000507_DropItems)
	set u=CreateUnit(p,'n001',14562.3,13539.5,320.000)
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000384_DropItems)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6555.1,8819.2,144.859)
	endif
	set u=CreateUnit(p,'nsgg',15110.0,15417.3,264.000)
	call IssueImmediateOrder(u,"Thornyshield")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000391_DropItems)
	set u=CreateUnit(p,'n006',7091.2,-2779.2,62.740)
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000340_DropItems)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14390.6,-3649.5,167.085)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10190.7,6305.8,279.435)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-680.0,4613.4,32.707)
	endif
	set u=CreateUnit(p,'nbdo',5245.4,-13587.3,80.170)
	set u=CreateUnit(p,'nits',-4719.0,-4467.2,129.774)
	set u=CreateUnit(p,'nits',-4627.0,-4330.5,85.465)
	set u=CreateUnit(p,'nndr',15130.1,14592.7,203.000)
	set u=CreateUnit(p,'nits',-4539.2,-4462.3,47.012)
	set u=CreateUnit(p,'nitw',-4628.2,-4444.4,85.470)
	set u=CreateUnit(p,'nbds',5486.1,-13637.9,147.507)
	set u=CreateUnit(p,'nfpl',-1078.2,-7968.5,328.000)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10308.7,6315.8,29.170)
	endif
	set u=CreateUnit(p,'nano',6553.8,-8387.2,167.931)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-9407.7,2108.1,225.303)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-9265.4,2111.1,90.926)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-9413.8,2214.7,262.021)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-9253.9,2184.6,20.325)
	endif
	set u=CreateUnit(p,'nfpl',-934.3,-7996.3,337.126)
	set u=CreateUnit(p,'ntkt',4384.5,5011.1,82.257)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-9338.1,2094.9,324.085)
	endif
	set u=CreateUnit(p,'nbds',5066.0,-13705.4,106.153)
	set u=CreateUnit(p,'nnwl',-4547.7,11054.0,339.136)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10421.5,6264.4,228.578)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10439.6,6408.1,321.437)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14389.9,-3818.7,327.458)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1805.4,-5500.9,120.018)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4516.9,-2604.7,28.862)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5836.0,-2846.7,191.695)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13919.7,-1700.1,21.666)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13200.2,5487.7,107.658)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7196.8,9094.6,312.516)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3999.8,7832.7,181.588)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3834.1,7817.6,27.763)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7278.5,6242.7,120.732)
	endif
	set u=CreateUnit(p,'nane',6577.7,-8246.9,78.961)
	set u=CreateUnit(p,'nane',6519.8,-8561.7,245.662)
	set u=CreateUnit(p,'n008',-10739.6,8520.1,290.000)
	call IssueImmediateOrder(u,"")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000247_DropItems)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10316.0,6486.8,351.683)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10206.3,6408.1,218.854)
	endif
	set u=CreateUnit(p,'nnwl',-4393.7,11041.0,119.502)
	set u=CreateUnit(p,'nnwl',-4391.0,10872.4,278.600)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7469.2,14361.0,24.951)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,575.8,1400.2,220.502)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,586.5,1484.6,313.790)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,503.2,1425.1,337.785)
	endif
	set u=CreateUnit(p,'nano',-11716.7,-6384.1,97.122)
	set u=CreateUnit(p,'nane',-11617.4,-6599.8,34.450)
	call IssueImmediateOrder(u,"slowon")
	set u=CreateUnit(p,'nglm',14299.0,13980.8,222.711)
	set u=CreateUnit(p,'nglm',14105.2,14159.0,197.903)
	set u=CreateUnit(p,'nane',-11939.7,-6471.1,329.160)
	call IssueImmediateOrder(u,"slowon")
	set u=CreateUnit(p,'ntkh',4516.3,5079.1,96.100)
	set u=CreateUnit(p,'nfpl',-1016.5,-8127.3,328.000)
	set u=CreateUnit(p,'nfpl',-1149.5,-8119.5,328.249)
	set u=CreateUnit(p,'ntkh',4277.6,5079.1,133.180)
	set u=CreateUnit(p,'ntkh',4381.1,4869.0,248.749)
	set u=CreateUnit(p,'ntkh',4380.0,5175.5,162.855)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10321.3,6187.2,91.068)
	endif
	set u=CreateUnit(p,'nnwl',-4563.3,10878.1,88.234)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3462.3,1058.0,59.130)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3580.1,1063.5,350.167)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3678.3,1055.3,225.106)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3573.3,976.0,65.810)
	endif
	set u=CreateUnit(p,'nbdo',15342.9,14443.5,212.482)
	set u=CreateUnit(p,'nmgw',836.6,-14493.6,111.954)
	set u=CreateUnit(p,'nmam',1055.7,-14508.0,163.174)
	set u=CreateUnit(p,'nmam',947.9,-14707.3,98.814)
	set u=CreateUnit(p,'nspd',-14100.2,-7315.6,195.848)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7332.2,6280.1,305.330)
	endif
	set u=CreateUnit(p,'nspd',-13786.1,-7304.7,176.589)
	set u=CreateUnit(p,'ntkh',-15080.7,4492.8,35.000)
	call IssueImmediateOrder(u,"autodispelon")
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3703.4,7957.2,119.897)
	endif
	set u=CreateUnit(p,'nspd',-14009.2,-7111.2,321.140)
	set u=CreateUnit(p,'nane',10823.1,-11342.6,355.649)
	set u=CreateUnit(p,'nane',10811.8,-11487.9,355.000)
	set u=CreateUnit(p,'nane',10820.9,-11587.9,355.000)
	set u=CreateUnit(p,'nspd',-13849.5,-7112.2,106.900)
	set u=CreateUnit(p,'nane',10839.6,-11708.6,358.660)
	set u=CreateUnit(p,'nane',10856.3,-11815.4,355.000)
	set u=CreateUnit(p,'nane',10958.1,-11804.7,355.000)
	set u=CreateUnit(p,'nspd',-13947.9,-7321.0,239.476)
	set u=CreateUnit(p,'nane',10813.9,-11911.5,355.000)
	set u=CreateUnit(p,'nane',10954.6,-11903.0,355.000)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3869.9,3104.4,337.400)
	endif
	set u=CreateUnit(p,'nane',10944.7,-11339.0,355.000)
	set u=CreateUnit(p,'nane',10940.2,-11464.5,355.000)
	set u=CreateUnit(p,'nane',10951.0,-11575.3,355.000)
	set u=CreateUnit(p,'nane',10953.1,-11705.7,355.000)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8751.2,12163.8,293.003)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8834.7,12295.7,1.714)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8765.0,12397.5,119.304)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8637.9,12276.6,300.529)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8472.9,12138.8,159.999)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8643.4,12102.3,118.491)
	endif
	set u=CreateUnit(p,'nsts',9075.7,-4635.3,256.989)
	set u=CreateUnit(p,'nsat',9194.6,-4654.8,167.404)
	set u=CreateUnit(p,'nsat',8969.7,-4672.0,285.510)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12633.0,4055.7,339.587)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12621.2,4191.9,315.702)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12508.6,4261.5,50.901)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12448.3,4171.3,246.101)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12510.5,4042.2,334.445)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14290.1,-3826.4,185.653)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14178.8,-3829.0,130.225)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6205.9,13124.0,253.858)
	endif
	set u=CreateUnit(p,'n00A',-16540.3,-11934.8,310.000)
	call IssueImmediateOrder(u,"")
	call IssueImmediateOrder(u,"spellstealon")
	call IssueImmediateOrder(u,"Thornyshield")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000119_DropItems)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6049.2,13104.2,188.806)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6056.9,12984.4,234.400)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6483.9,8903.0,146.090)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6387.6,8843.1,155.494)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6398.3,8731.3,13.415)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6494.2,8709.0,227.732)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10453.9,-8805.3,86.981)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10461.5,-8715.7,0.099)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10537.1,-8792.3,53.066)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7552.6,14467.1,124.644)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7467.6,14507.5,266.514)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7416.5,14432.0,208.252)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7526.3,14394.4,153.319)
	endif
	set u=CreateUnit(p,'nadk',4355.7,12939.5,202.407)
	set u=CreateUnit(p,'nubw',-15413.9,7268.2,217.096)
	set u=CreateUnit(p,'nubw',-15542.3,7353.6,212.218)
	set u=CreateUnit(p,'nubw',-15426.2,7404.6,126.819)
	set u=CreateUnit(p,'nltl',-2046.8,12065.9,217.580)
	set u=CreateUnit(p,'nsth',11214.1,-15733.3,204.730)
	call IssueImmediateOrder(u,"frenzyon")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000235_DropItems)
	set u=CreateUnit(p,'nslr',-2194.1,12268.4,258.410)
	call IssueImmediateOrder(u,"immolation")
	set u=CreateUnit(p,'nslv',-2284.1,12004.9,304.220)
	call IssueImmediateOrder(u,"autodispelon")
	call IssueImmediateOrder(u,"bloodluston")
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2729.6,-13247.1,120.469)
	endif
	set u=CreateUnit(p,'nanb',3687.4,8139.1,205.604)
	set u=CreateUnit(p,'nanb',4120.9,8137.9,285.752)
	set u=CreateUnit(p,'nanb',3903.2,8143.8,115.030)
	set u=CreateUnit(p,'nubw',-15312.3,7347.6,87.465)
	set u=CreateUnit(p,'nbds',5437.9,-13334.1,203.989)
	set u=CreateUnit(p,'nbds',5110.7,-13337.4,36.926)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3918.3,3225.6,53.857)
	endif
	set u=CreateUnit(p,'nanb',3832.8,7989.5,293.520)
	set u=CreateUnit(p,'nanb',3976.7,7997.5,254.275)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3928.6,3135.6,1.055)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7705.1,-15055.1,334.983)
	endif
	set u=CreateUnit(p,'n00B',-5507.2,-8888.2,75.000)
	call IssueImmediateOrder(u,"bloodluston")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000044_DropItems)
	set u=CreateUnit(p,'nadw',4439.2,13210.8,239.938)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7566.3,-15203.1,172.502)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7587.8,-14977.4,165.657)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13138.4,5537.1,178.544)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13131.9,5608.5,40.475)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7498.1,-15073.9,3.021)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12398.1,1484.3,274.733)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12397.5,1571.8,155.505)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12317.8,1569.8,90.640)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-12326.9,1482.4,117.327)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11425.3,11328.8,198.364)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11455.8,11411.6,346.245)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11525.4,11402.5,241.443)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11522.4,11326.6,123.435)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11393.9,11386.6,19.051)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3054.8,8810.6,140.519)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3115.0,8865.3,293.256)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3087.9,8924.0,13.184)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3017.1,8897.0,94.321)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5056.1,15680.8,149.012)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5067.0,15782.6,102.659)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4955.4,15811.9,167.173)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5087.0,15915.2,80.192)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5175.7,15784.4,303.847)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6459.6,3341.9,227.413)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6489.4,3407.6,319.591)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6431.5,3443.7,152.506)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-6396.6,3384.7,359.253)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1311.2,-6142.6,164.855)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1288.0,-6076.8,60.833)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1338.8,-6029.3,225.732)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1371.9,-6108.2,355.353)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3169.0,-10732.5,60.954)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3225.2,-10678.3,314.603)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3227.3,-10604.4,129.796)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-3163.6,-10591.0,259.142)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7230.3,6286.1,160.131)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7211.4,6349.2,79.071)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7285.0,6325.5,152.978)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7261.2,6397.5,257.835)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10782.0,8844.7,120.095)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10867.9,8864.1,233.576)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10958.5,8859.2,216.448)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7446.2,-6547.4,295.124)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7429.2,-6483.5,182.478)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7452.4,-6414.8,145.496)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5467.3,-11047.2,8.493)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5436.4,-10975.1,278.336)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5501.1,-10940.2,149.067)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,5539.4,-11004.8,276.468)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3368.9,-15575.1,164.382)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13165.2,5676.1,90.201)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3379.2,-15449.8,99.484)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3443.9,-15497.3,281.478)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8693.7,-5947.3,148.298)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8736.1,-5876.3,149.078)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8710.1,-5815.2,146.068)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-8643.3,-5846.0,108.493)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7474.8,10853.9,4.812)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7516.2,10938.8,247.497)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-7448.9,10941.4,242.553)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1023.3,13944.1,122.633)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1011.9,14022.6,231.753)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-947.6,14003.2,230.599)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-928.2,13923.4,144.892)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1150.0,7407.4,254.671)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1114.7,7481.5,235.071)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1158.2,7530.1,353.298)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,1184.2,7466.4,2.538)
	endif
	set u=CreateUnit(p,'n004',-16770.1,1831.6,85.000)
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000218_DropItems)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,284.5,-11326.3,67.700)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,226.0,-11264.7,280.281)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,212.3,-11156.1,269.250)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,311.2,-11170.7,180.280)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,337.5,-11265.0,302.111)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8230.0,-12939.0,291.828)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8257.5,-12862.1,55.483)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8308.2,-12906.9,289.619)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2684.3,-13192.0,290.235)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2763.6,-13187.5,345.498)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,2715.9,-13091.9,322.546)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3476.6,-6885.9,154.890)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3465.1,-6795.5,128.269)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3545.2,-6902.9,292.289)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3625.4,-6873.9,22.391)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3626.9,-6770.9,271.920)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11158.4,-8401.4,11.613)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11188.2,-8337.7,268.877)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11136.4,-8290.9,22.611)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11107.2,-8354.9,74.610)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2216.6,9865.3,40.804)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2296.2,9894.5,261.131)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2288.9,9968.9,56.559)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2219.1,9980.9,186.411)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3779.9,3106.4,352.254)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3779.6,3223.0,249.474)
	endif
	set u=CreateUnit(p,'nadk',4619.1,13078.1,352.980)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6260.3,297.2,295.387)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6305.4,343.7,323.711)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6324.9,448.8,259.966)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6229.6,423.9,251.320)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6230.2,359.4,61.437)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-5194.4,-7040.0,193.168)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-5231.8,-6971.6,324.403)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-5172.6,-6926.2,335.522)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-5112.3,-6955.1,118.217)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11311.5,6721.7,266.723)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11374.5,6744.1,125.643)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11383.4,6640.2,95.606)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11296.2,6650.8,232.192)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-11314.4,6789.2,3.757)
	endif
	set u=CreateUnit(p,'nfpt',-12348.3,-15525.6,75.320)
	call IssueImmediateOrder(u,"slowon")
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13217.6,5627.5,76.105)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,4121.8,7973.8,255.473)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13214.0,5562.0,43.606)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13923.6,-1503.9,333.478)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14038.8,-1567.0,178.325)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,14024.0,-1664.4,50.297)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13949.9,-1603.4,349.629)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,13868.6,-1593.5,157.790)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10586.0,-2492.3,259.615)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10539.5,-2425.9,102.637)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10561.1,-2324.6,34.795)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10634.1,-2269.9,41.134)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10728.4,-2265.3,236.554)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10775.6,-2367.0,160.372)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10750.0,-2486.7,60.185)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10667.2,-2527.2,230.204)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,10654.5,-2403.1,71.743)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7524.2,-6413.5,252.254)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3486.7,-15603.8,336.884)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6689.5,-4170.1,15.535)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6635.3,-4127.6,96.749)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6715.4,-4045.7,311.461)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6787.8,-4090.3,263.757)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,6755.7,-4149.0,76.225)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11311.9,-544.1,30.785)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11254.6,-502.1,336.741)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11268.7,-429.9,11.492)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,11360.0,-426.2,305.682)
	endif
	set u=CreateUnit(p,'nadr',4592.2,12905.1,342.960)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-4403.1,13211.1,229.500)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-4463.3,13252.6,83.202)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-4357.3,13326.3,81.224)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-4425.0,13361.2,278.314)
	endif
	set u=CreateUnit(p,'nfpt',-12161.7,-15818.8,25.460)
	call IssueImmediateOrder(u,"slowon")
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,7672.9,-15186.0,325.908)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,8289.6,-13006.7,354.463)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-750.2,16021.3,195.672)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-776.1,16094.1,207.406)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-684.7,16053.0,238.916)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1516.3,-15506.3,202.440)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1510.0,-15441.5,198.430)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1450.0,-15464.8,31.356)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1474.2,-15556.1,269.602)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-2926.8,-418.1,353.639)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-252.8,-183.8,330.215)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1627.6,-2071.6,157.054)
	endif
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,-1577.4,-1955.1,169.942)
	endif
	set u=CreateUnit(p,'nfpe',-4807.8,1238.1,339.960)
	set unitID=ChooseRandomCreep(1)
	if(unitID!=-1)then
		set u=CreateUnit(p,unitID,3556.9,-6757.0,128.192)
	endif
	set u=CreateUnit(p,'nfpe',-4646.3,1242.8,206.165)
	set u=CreateUnit(p,'nmgd',-12404.5,-15770.1,30.000)
	call IssueImmediateOrder(u,"")
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000064_DropItems)
	set u=CreateUnit(p,'n009',12123.5,3393.7,306.100)
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000332_DropItems)
endfunction

//===========================================================================
function CreateNeutralPassiveBuildings2 takes nothing returns nothing
	local player p=Player(PLAYER_NEUTRAL_PASSIVE)
	local unit u
	local integer unitID
	local trigger t
	local real life
	set u=CreateUnit(p,'ndru',14464.0,16320.0,270.000)
	set u=CreateUnit(p,'ndrg',15744.0,16320.0,270.000)
	set u=CreateUnit(p,'ndrr',15104.0,16320.0,270.000)
	set u=CreateUnit(p,'ndro',15808.0,15808.0,270.000)
	set u=CreateUnit(p,'ndrk',14464.0,15808.0,270.000)
	set u=CreateUnit(p,'ngol',-12928.0,13888.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-12800.0,13120.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',2176.0,12288.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',3008.0,12160.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',11840.0,16192.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',10944.0,16256.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-9600.0,5632.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-9280.0,6336.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-13696.0,-3968.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-12800.0,-4096.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-9728.0,-1664.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-8768.0,-1728.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-13888.0,-10496.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-13120.0,-10496.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-5568.0,-11520.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',-4672.0,-11456.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',14016.0,-14720.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',14784.0,-14848.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',13248.0,-6080.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',13952.0,-6080.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',15680.0,2048.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',14400.0,2304.0,270.000)
	call SetResourceAmount(u,100000000)
	set u=CreateUnit(p,'ngol',8576.0,2560.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ngol',9600.0,2560.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'n00C',-9216.0,-9088.0,270.000)
	call SetUnitColor(u,ConvertPlayerColor(0))
	set u=CreateUnit(p,'ncp2',-16608.0,-7392.0,270.000)
	set u=CreateUnit(p,'ngme',-384.0,-13632.0,270.000)
	set u=CreateUnit(p,'ngme',12352.0,-1600.0,270.000)
	set u=CreateUnit(p,'ngme',-14656.0,3008.0,270.000)
	set u=CreateUnit(p,'ngme',1536.0,15040.0,270.000)
	set u=CreateUnit(p,'ngme',3520.0,-5632.0,270.000)
	set u=CreateUnit(p,'ngol',-12096.0,12992.0,270.000)
	call SetResourceAmount(u,1000000000)
	set u=CreateUnit(p,'ndrz',15104.0,15808.0,270.000)
	set u=CreateUnit(p,'nshp',-15488.0,-8000.0,270.000)
	set u=CreateUnit(p,'ntav',-16832.0,10432.0,270.000)
	call SetUnitColor(u,ConvertPlayerColor(0))
	set u=CreateUnit(p,'nico',-15872.0,-5440.0,270.000)
	set t=CreateTrigger()
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DEATH)
	call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_CHANGE_OWNER)
	call TriggerAddAction(t,function Unit000387_DropItems)
	set u=CreateUnit(p,'ngme',1280.0,3392.0,270.000)
	set u=CreateUnit(p,'n002',-15488.0,-8256.0,270.000)
	set u=CreateUnit(p,'n003',-15232.0,-8256.0,270.000)
	set u=CreateUnit(p,'ncp2',-16544.0,-11936.0,270.000)
	set u=CreateUnit(p,'ncp2',-16672.0,-3232.0,270.000)
endfunction

//===========================================================================
function CreateNeutralPassive2 takes nothing returns nothing
	local player p=Player(PLAYER_NEUTRAL_PASSIVE)
	local unit u
	local integer unitID
	local trigger t
	local real life
	set u=CreateUnit(p,'nsea',-15353.2,-11622.4,321.591)
	set u=CreateUnit(p,'nsea',-15469.2,-11622.4,265.339)
	set u=CreateUnit(p,'npng',-12819.9,-13553.8,210.000)
	set u=CreateUnit(p,'nsea',-15558.3,-11500.1,201.726)
	set u=CreateUnit(p,'nsea',-15586.8,-11412.9,182.324)
	set u=CreateUnit(p,'npng',-12431.7,-12404.3,32.092)
	set u=CreateUnit(p,'npng',-12589.7,-12649.7,203.956)
	set u=CreateUnit(p,'npnw',-13074.1,-13623.1,209.395)
	set u=CreateUnit(p,'npnw',-13343.6,-13457.0,280.424)
	set u=CreateUnit(p,'npnw',-13242.2,-13811.4,6.691)
	set u=CreateUnit(p,'npng',-13018.1,-13958.0,128.841)
	set u=CreateUnit(p,'npng',-12199.1,-12615.0,177.951)
	set u=CreateUnit(p,'npng',-12120.9,-12882.5,272.480)
	set u=CreateUnit(p,'npng',-12376.0,-12652.2,322.843)
endfunction

//===========================================================================
//===========================================================================
//===========================================================================
//***************************************************************************
//*
//*Regions
//*
//***************************************************************************
function CreateRegions2 takes nothing returns nothing
	local weathereffect we
	set udg_rect01=Rect(-16864.0,-16384.0,15840.0,16320.0)
	set we=AddWeatherEffect(udg_rect01,'SNbs')
	call EnableWeatherEffect(we,true)
endfunction

//***************************************************************************
//*
//*Triggers
//*
//***************************************************************************
//===========================================================================
//Trigger:Melee Initialization
//
//Default melee game initialization for all players
//===========================================================================
function Trig_Melee_Initialization_Actions takes nothing returns nothing
	call PolledWait(3.00)
	call MeleeStartingVisibility()
	call MeleeStartingHeroLimit()
	call MeleeGrantHeroItems()
	call MeleeStartingResources()
	call MeleeClearExcessUnits()
	call MeleeStartingUnits()
	call MeleeStartingAI()
	call MeleeInitVictoryDefeat()
endfunction

//===========================================================================
//===========================================================================
//===========================================================================
//***************************************************************************
//*
//*Players
//*
//***************************************************************************
//***************************************************************************
//*
//*Main Initialization
//*
//***************************************************************************
//===========================================================================
function main2 takes nothing returns nothing
	local weathereffect we
	call SetCameraBounds(-16896.0+GetCameraMargin(CAMERA_MARGIN_LEFT),-15872.0+GetCameraMargin(CAMERA_MARGIN_BOTTOM),15872.0-GetCameraMargin(CAMERA_MARGIN_RIGHT),16384.0-GetCameraMargin(CAMERA_MARGIN_TOP),-16896.0+GetCameraMargin(CAMERA_MARGIN_LEFT),16384.0-GetCameraMargin(CAMERA_MARGIN_TOP),15872.0-GetCameraMargin(CAMERA_MARGIN_RIGHT),-15872.0+GetCameraMargin(CAMERA_MARGIN_BOTTOM))
	call SetDayNightModels("Environment\\DNC\\DNCLordaeron\\DNCLordaeronTerrain\\DNCLordaeronTerrain.mdl","Environment\\DNC\\DNCLordaeron\\DNCLordaeronUnit\\DNCLordaeronUnit.mdl")
	set we=AddWeatherEffect(Rect(-16896.0,-16384.0,15872.0,16384.0),'WOcw')
	call EnableWeatherEffect(we,true)
	call NewSoundEnvironment("Default")
	call SetAmbientDaySound("IceCrownDay")
	call SetAmbientNightSound("IceCrownNight")
	call SetMapMusic("Music",true,0)
	set udg_string01="war3mapImported\\firstblood.mp3"
	set udg_string02="war3mapImported\\MonsterKill.mp3"
	set udg_string03="war3mapImported\\DoubleKill.mp3"
	set udg_string04="war3mapImported\\triplekill.mp3"
	call CreateRegions2()
	call CreateAllItems()
	call CreateNeutralHostileBuildings()
	call CreateNeutralPassiveBuildings2()
	call CreateBuildingsForPlayer11()
	call CreateNeutralHostile()
	call CreateNeutralPassive2()
	set udg_trigger01=CreateTrigger()
	call TriggerAddAction(udg_trigger01,function Trig_Melee_Initialization_Actions)
	call ConditionalTriggerExecute(udg_trigger01)
endfunction

//***************************************************************************
//*
//*Map Configuration
//*
//***************************************************************************
function InitTrig_init takes nothing returns nothing
	
	call ExecuteFunc("main2")
endfunction
Top