# "a cog that will display random sprites at random locations(ghost)"
#
# 10/2003 gbk - gbk@insightbb.com
Symbols
Message Startup
Message Pulse
Message Timer

Thing Ghost0=-1 #If a ghost is unused, make SURE
Thing Ghost1=-1 #it is set to -1.
Thing Ghost2=-1
Thing Ghost3=-1
Thing Ghost4=-1
Thing Ghost5=-1
Thing Ghost6=-1
Thing Ghost7=-1
Thing Ghost8=-1
Thing Ghost9=-1

Template Type0 #If templates go unused, just fill the rest with the same one.
Template Type1
Template Type2
Template Type3
Template Type4
Template Type5
Template Type6
Template Type7
Template Type8
Template Type9

Flex Rate		#How often, in seconds, a new sprite is created.
Flex Halflife=1	#How long the sprite will live.  Set to -1 to disable.

Int d=-1			Local
Int r0=0			Local
Int r1=0			Local

End
Code
Startup:
Sleep(1);
Setpulse(Rate);
Stop;

Pulse:
r0 = Rand()*10;
r1 = Rand()*10;
While(r0 == 1) r0 = Rand()*10;
While(r1 == 1) r1 = Rand()*10;
While(Ghost0[r0] == -1) r0 = Rand()*10;
d = Creatething(Type0[r1], Ghost0[r0]);
If(d == -1) Print("Sprite creation failure.");
If(Halflife != -1 && d != -1) Settimerex(Halflife, 6535, d, 0);
Stop;

Timer:
If(Getthingsignature(Getparam(0)) != -1) Destroything(Getparam(0));
Stop;
End

# Create random at random.
#
# By Edward
symbols

message    startup
message    pulse

thing      ghost0
thing      ghost1
thing      ghost2
thing      ghost3
thing      ghost4
thing      ghost5
thing      ghost6
thing      ghost7
thing      ghost8
thing      ghost9
thing      ghost10
thing      ghost11
thing      ghost12
thing      ghost13
thing      ghost14
thing      ghost15

template   boom0
template   boom1
template   boom2
template   boom3
template   boom4
template   boom5
template   boom6
template   boom7
template   boom8
template   boom9
template   boom10
template   boom11
template   boom12
template   boom13
template   boom14
template   boom15
# Feel free to take away a few.
int        ghosts_in_use=15
int        booms_in_use=15

int        i              local

flex       delay_between

end
#
code
startup:
        SetPulse(delay_between);
return;
pulse:
        CreateThing(boom0[rand()*booms_in_use],ghost0[rand()*ghosts_in_use]);
return;
end