openclonk/planet/Arena.ocf/FrozenFortress.ocs/Scrolls.ocd/WindScroll.ocd/Script.c

77 lines
1.7 KiB
C

/*--
Scroll: Wind
Author: Mimmo
Create a storm to blow away your enemies.
--*/
public func ControlUse(object pClonk, num ix, num iy)
{
AddEffect("WindScrollStorm", nil, 100, 1, nil, GetID(), Angle(0,0,ix,iy),pClonk->GetX(), pClonk->GetY());
RemoveObject();
return 1;
}
public func FxWindScrollStormStart(pTarget, effect, iTemp, angle, x, y)
{
if(iTemp) return;
effect.xdir=Sin(angle,32);
effect.ydir=-Cos(angle,32);
effect.x=x+Sin(angle,43);
effect.y=y-Cos(angle,43);
}
public func FxWindScrollStormTimer(pTarget, effect, iEffectTime)
{
var xdir=effect.xdir;
var ydir=effect.ydir;
var x=effect.x;
var y=effect.y;
if(iEffectTime<36)
{
var r=Random(360);
var d=Random(40);
CreateParticle("AirIntake",Sin(r,d)+x,-Cos(r,d)+y,xdir/3,ydir/3 +2,64,RGB(Random(80),100+Random(50),255));
return 1;
}
else if(iEffectTime<180 )
{
for(var i=0; i<5; i++)
{
var r=Random(360);
var d=Random(40);
CreateParticle("AirIntake",Sin(r,d)+x,-Cos(r,d)+y,xdir/2,ydir/2 +2,64,RGB(Random(80),100+Random(50),255));
}
for(var obj in FindObjects(Find_Distance(40,x,y),Find_Not(Find_Category(C4D_Structure))))
{
if(PathFree(x,y,obj->GetX(),obj->GetY()))
{
if(xdir<0)
{if(obj->GetXDir() > xdir) obj->SetXDir(obj->GetXDir(100) + (xdir*3)/2,100); }
else
{if(obj->GetXDir() < xdir) obj->SetXDir(obj->GetXDir(100) + (xdir*3)/2,100); }
if(ydir<0)
{if(obj->GetYDir() > ydir) obj->SetYDir(obj->GetYDir(100) + (ydir*3)/2,100); }
else
{if(obj->GetYDir() < ydir) obj->SetYDir(obj->GetYDir(100) + (ydir*3)/2,100); }
}
}
return 1;
}
return -1;
}
local Name = "$Name$";
local Description = "$Description$";
local Collectible = 1;