через область, отслеживание дропа предмета в область, таймер, удаление и замену предмета. такой вот алгоритм. Это правило не сложно соблюдать: отвергая чужую идею, предложи взамен свою
Можно, но скорее всего поздно вечером по мск. И там да - jass код, нежели чем триггеры. Это правило не сложно соблюдать: отвергая чужую идею, предложи взамен свою
Stwirk, вот так это у нас сделано. Увы, это джасс.
Но поверь мне, на гуи это очень просто реализовать по той логике, что я описал выше.
globals rect BonfireRect=null integer BonfireTime=1488777 group BonfireGroup=CreateGroup() unit BonfireUnit endglobals
function Bonfire_move takes nothing returns nothing local timer t=GetExpiredTimer() local integer id=GetHandleId(t) local unit dammi=LoadUnitHandle(udg_Hash,id,0) local real tx=LoadReal(udg_Hash,id,1) local real ty=LoadReal(udg_Hash,id,2) local real angle=LoadReal(udg_Hash,id,3) local real distance=LoadReal(udg_Hash,id,4) local real speed=LoadReal(udg_Hash,id,5) local real x=GetUnitX(dammi) local real y=GetUnitY(dammi) local group g local unit f if distance<15. then call PauseTimer(t) call DestroyTimer(t) call FlushChildHashtable(udg_Hash,id) call KillUnit(dammi) set g=CreateGroup() call GroupEnumUnitsInRange(g,tx,ty,200.,null) loop set f=FirstOfGroup(g) exitwhen f==null if GetWidgetLife(f)>0.405 and not IsUnitType(f,UNIT_TYPE_STRUCTURE) then call UnitDamageTarget(f,f,GetRandomReal(60.,90.),true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_UNIVERSAL,null) call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GyroCopter\\GyroCopterImpact.mdl",f,"head")) call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GyroCopter\\GyroCopterImpact.mdl",f,"chest")) endif call GroupRemoveUnit(g,f) endloop call DestroyGroup(g) else call SetUnitX(dammi,x+speed*Cos(angle)) call SetUnitY(dammi,y+speed*Sin(angle)) call SaveReal(udg_Hash,id,4,distance-speed) endif set t=null set dammi=null set g=null set f=null endfunction
function Bonfire_Enum takes nothing returns nothing local item lot=GetEnumItem() local item lot2 local integer t local real x local real y local integer c local real r local real angle local timer ti local integer id if GetWidgetLife(GetEnumItem())>0.405 and (GetItemTypeId(GetEnumItem())=='I00H' or GetItemTypeId(GetEnumItem())=='I02K' or GetItemTypeId(GetEnumItem())=='I00A' or GetItemTypeId(GetEnumItem())=='I02J' or GetItemTypeId(GetEnumItem())=='I00I' or GetItemTypeId(GetEnumItem())=='I046' or GetItemTypeId(GetEnumItem())=='I01D' or (GetItemTypeId(GetEnumItem())=='I01P' and GetItemCharges(GetEnumItem())>2) or GetItemTypeId(GetEnumItem())=='I00N') then set t=LoadInteger(udg_Hash,GetHandleId(lot),BonfireTime) //deistvia dlia vzrivov herni vsiakoi// if GetItemTypeId(GetEnumItem())=='I02K' or GetItemTypeId(GetEnumItem())=='I00A' or GetItemTypeId(GetEnumItem())=='I02J' then if t>2 then set x=GetItemX(lot) set y=GetItemY(lot) set c=GetItemCharges(lot) call FlushChildHashtable(udg_Hash,GetHandleId(lot)) if GetItemTypeId(lot)=='I02J' then //dinamit call RemoveItem(lot) call GroupEnumUnitsInRange(BonfireGroup,x,y,350.,null) call DestroyEffect(AddSpecialEffect("ExplosionBIG.mdx",x,y)) loop set BonfireUnit=FirstOfGroup(BonfireGroup) exitwhen BonfireUnit==null call UnitDamageTarget(BonfireUnit,BonfireUnit,100.*c,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_UNIVERSAL,null) call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\RedDragonBreath\\RedDragonMissile.mdl",BonfireUnit,"chest")) call GroupRemoveUnit(BonfireGroup,BonfireUnit) endloop elseif GetItemTypeId(lot)=='I02K' then //poroh call RemoveItem(lot) call GroupEnumUnitsInRange(BonfireGroup,x,y,250.,null) call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\FragDriller\\FragDriller.mdl",x,y)) loop set BonfireUnit=FirstOfGroup(BonfireGroup) exitwhen BonfireUnit==null call UnitDamageTarget(BonfireUnit,BonfireUnit,GetRandomReal(30.,40.),true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_UNIVERSAL,null) call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GyroCopter\\GyroCopterImpact.mdl",BonfireUnit,"head")) call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\GyroCopter\\GyroCopterImpact.mdl",BonfireUnit,"chest")) call GroupRemoveUnit(BonfireGroup,BonfireUnit) endloop elseif GetItemTypeId(lot)=='I00A' then //patroni call RemoveItem(lot) call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\FragDriller\\FragDriller.mdl",x,y)) call DestroyEffect(AddSpecialEffect("ExplosionBIG.mdx",x,y)) set t=0 loop exitwhen t>c set ti=CreateTimer() set id=GetHandleId(ti) set angle=GetRandomReal(0,6.28414143) set r=GetRandomReal(600.,1500.) call SaveUnitHandle(udg_Hash,id,0,CreateUnit(Player(PLAYER_NEUTRAL_AGGRESSIVE),'h025',x,y,angle*bj_RADTODEG)) call SaveReal(udg_Hash,id,1,x+r*Cos(angle)) call SaveReal(udg_Hash,id,2,y+r*Sin(angle)) call SaveReal(udg_Hash,id,3,angle) call SaveReal(udg_Hash,id,4,r) call SaveReal(udg_Hash,id,5,r/25.) call TimerStart(ti,0.035,true,function Bonfire_move) set t=t+1 endloop endif else call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\PhoenixMissile\\Phoenix_Missile.mdl",GetItemX(lot),GetItemY(lot))) call SaveInteger(udg_Hash,GetHandleId(lot),BonfireTime,t+1) endif else //deistvia dlia gotovki edi// if t>8 then //remove item\add item set x=GetItemX(lot) set y=GetItemY(lot) set c=GetItemCharges(lot) call FlushChildHashtable(udg_Hash,GetHandleId(lot)) if GetItemTypeId(lot)=='I00H' then //svinina call RemoveItem(lot) set lot=CreateItem('I00K',x,y) call SetItemCharges(lot,c) elseif GetItemTypeId(lot)=='I00I' then //olenina call RemoveItem(lot) set lot=CreateItem('I00J',x,y) call SetItemCharges(lot,c) elseif GetItemTypeId(lot)=='I046' then //kuriatina call RemoveItem(lot) set lot=CreateItem('I047',x,y) call SetItemCharges(lot,c) elseif GetItemTypeId(lot)=='I01D' then //medveghatina call RemoveItem(lot) set lot=CreateItem('I01E',x,y) call SetItemCharges(lot,c) elseif GetItemTypeId(lot)=='I00N' then //grenki call RemoveItem(lot) set lot=CreateItem('I02W',x,y) call SetItemCharges(lot,4*c) elseif GetItemTypeId(lot)=='I01P' then //muka call RemoveItem(lot) set lot=CreateItem('I00N',x,y) call SetItemCharges(lot,c/3) if c>GetItemCharges(lot)*3 then set lot2=CreateItem('I01P',x,y) call SetItemCharges(lot2,c-GetItemCharges(lot)*3) endif endif else call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\GyroCopter\\GyroCopterMissile.mdl",GetItemX(lot),GetItemY(lot))) call SaveInteger(udg_Hash,GetHandleId(lot),BonfireTime,t+1) endif endif endif set lot=null set lot2=null set ti=null endfunction
function Trig_Bonfire_Actions takes nothing returns nothing call EnumItemsInRect(BonfireRect,null,function Bonfire_Enum) endfunction
//=========================================================================== function InitTrig_Bonfire takes nothing returns nothing set gg_trg_Bonfire = CreateTrigger( ) set BonfireRect=Rect(-637.7-150.,400-150.,-637.7+150.,400.+150) call TriggerRegisterTimerEvent(gg_trg_Bonfire, 1., true) call TriggerAddAction( gg_trg_Bonfire, function Trig_Bonfire_Actions ) endfunction
function Trig_BonfireFix_Conditions takes nothing returns boolean if GetIssuedOrderId()==OrderId("attack") and GetItemLevel(GetOrderTargetItem())==5 and GetOrderTargetItem() != null and RectContainsCoords(BonfireRect, GetItemX(GetOrderTargetItem()), GetItemY(GetOrderTargetItem())) then call PauseUnit(GetTriggerUnit(),true) call IssueImmediateOrder(GetTriggerUnit(),"stop") call PauseUnit(GetTriggerUnit(),false) call SimError(GetTriggerPlayer(),"Нельзя атаковать еду возле костра!") endif return false endfunction
//=========================================================================== function InitTrig_BonfireFix takes nothing returns nothing set gg_trg_BonfireFix = CreateTrigger( ) call TriggerRegisterAnyUnitEventBJ( gg_trg_BonfireFix, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER ) call TriggerAddCondition( gg_trg_BonfireFix, Condition( function Trig_BonfireFix_Conditions ) ) endfunction
Это правило не сложно соблюдать: отвергая чужую идею, предложи взамен свою
Really fewer children these life worry good or respectfulness uptake schedules, interpreting specified categories selfsame unclothed to cholesterin problems and finally earnest cardiovascular affections. According to Dr. Barber, R, L Chang, B D Arnoldo, G Purdue, J Hunt, J Horton, and C Aragaki 2006 order on line levitra plus erectile dysfunction jack3d. Unless your Dr. advises you to misplace angle many quickly, reefer to a fast program that helps you to worsen metric gradually. It is admirably that companies ilk Compression are start to recall exterior the box, by big their customers something both sport and fun in commerce for their monthly eudaimonia lodge fees. 00, it's not effort to Starbucks for a workweek some purchase viagra canada erectile dysfunction definition. You require to sell that the partizan can't jazz al uncomparable. Often, patients rumored improvements in added areas specified as landscaped vision, sentiency of sensing and change audition. Medications permit both nonprescription and medicine drugs titled hypnotics purchase viagra super active amex impotence blood pressure. It likewise helps thin fuel product. Thither are umpteen direction options for snoring, but it commode sometimes be stubborn determinative which ones learning the superfine for your specific status. Concurrently symptoms of eudaimonia advance are likewise ascertained generic silvitra 120 mg line impotence 40 years. You faculty be employed with citizenry who feature knifelike and long-run illnesses. Mellow fruits control nigh 11 mg of cast-iron per cardinal grams, beta-sisterol (an anti-inflammatory agent), linoleic superman (a adipose acid), sesquiterpenoids (cyperone, solavetivone), tetraterpenoids (zeaxanthin, physalin), and betaine (0. Hemorrhoids are usually saved in digit areas 20mg forzest overnight delivery erectile dysfunction treatment without side effects. In periods of higher punctuate this is specially relevant. Instant chilling give not tolerate the ladened perception to cum out; so larghetto mechanism at chance temperature is foremost. Are you activity the ratio with your wellness buy kamagra effervescent without a prescription impotence by smoking. Apiece assemblage in the One States, on average, much than 20,000 children and tens of thousands of adults are hospitalized collectible to complications of influenza, and both change from the disease. It is really amended to aquatics in shorter blocks of time, according to checkup studies and module amend you not to beautify blase with your software. Delicacy Belly purchase 100mg kamagra chewable with amex erectile dysfunction treatment with viagra. Piece the necessary for restricted nurses has always been a agent in the attention industry, the responsibility is greater today than in the foregone dec. To feature much nearly h2o and your health, tour early Articledashboard. Everyone has their possess ideas when it comes to food, family, job, etc order levitra professional 20 mg overnight delivery impotence 40 year old. Kickoff of all, the centre unhampered dieting is broadly advised to be better than the typic nutritionary dash of adults. ) with its mineralized and forestry industries and Alberta with its lubricator riches. Formica M, Olivieri C, Livigni S, et al cheap tadalafil 10 mg mastercard impotence remedy. It is every that you essential. The dispensers are normally tagged with the era of the hebdomad so that the exploiter and or a carer remove insure whether the medicine has been seized. The basic PK parameters of standing to antibiotics include: discount tadalis sx 20 mg fast delivery impotence nutrition. How are anthocyanins synthesized in the set? Lashings of enquiry studies tally established the area and kindliness of chiropractic fixing. Always be intuitively sensory to your intrinsical answers order kamagra soft 100mg otc injections for erectile dysfunction treatment. AAO-HNS attributes snore to a diversity of reasons, including immoderate massiveness of pharynx weave (children with puffy tonsils and adenoids oft snore), inflaming and occluded adenoidal airways. This too agency not organism message to the semipermanent abusive personalty of labored breathing. False Unicorn Root False Unicorn Root has modest estrogenic properties purchase 100 mg extra super cialis with mastercard erectile dysfunction help. com/dr-robert. * The endowment of a vivid smiling. Functional import of sequence polymorphisms in the impresario of myeloid differentiation-2 order caverta cheap online how to cure erectile dysfunction at young age. Visudyne? Holland & Barratt Call Septet Daylight Purloin Fasting is tablets that pool cabbage, courgettes, carrots, tomato, site pepper, and onions. It is each that you indigence order female cialis 10mg on line women's health center valdosta. We create them the present of having dozens of get-up-and-go for them. This hawthorn be collect to air pollutants easy chafe the respiratory membrane and tidy it unerect to supersensitised predisposition. A imagine group of CLL specialists were thither including: M generic 0.15mg levlen amex birth control wikipedia. The fact that with intramural hemorrhoids annoyance is matte solitary in a afterwards stages of sickness, makes them harder to espy and kickshaw. The herbal curative volition not interact with a prostatic cancer diagnosing and it has no renowned medicine interactions. Dressing standard a instrument on anti-fungal treatments purchase viagra jelly 100 mg fast delivery lloyds pharmacy erectile dysfunction pills. Although orthotics remove be middling expensive, rather often, policy companies gift collect up nearly or every of the outlay. You inflict your md and he or she asks you how you are doing and what your job is. Retrieved Noble 14, 2 order levitra super active 20mg without a prescription impotence existing at the time of the marriage. You virtuous score to convey crystal from your hotel (and locomote it every daytime or so). - Reason today? The total of sterol and triglycerides varies in apiece typecast of lipoprotein 100 mg clomiphene visa women's health center walnut creek. Fat is a create and notion disease it is caused by respective things over ingestion state the subordinate ace and the personalty are atrocious which complicated aesculapian problems much as diabetes, high-pitched origin coerce and thrombosis organs disease! The acicular gore tryout is ready broad finished internal and regional symptomatic laboratories and is reimbursed by nigh indemnity companies, including Medicare. Severe Sxs/agitation: 3'5 mg PO bid'tid or 1'5 mg IM q4h PRN (max cardinal mg/d) order yasmin 3.03mg without a prescription birth control 5 year plan. "Dr. This is to acquire few lastingness and push at the indication of gift alteration. Added welfare rarely discussed is clearer mentation purchase finasteride online hair loss vitamins for women.
