home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
416.lha
/
EnergionBattleSystem_v1.0
/
crater.ebs
< prev
next >
Wrap
Text File
|
1990-08-30
|
839b
|
27 lines
/* Draws a crater around an IFWeapon's impact location */
arg unit
options results
'get [unit' unit 'location]'
parse var result x y z i p ux uy
'get [marker' unit 'color]'
'set colors 5' result
'get [targetloc]'
parse var result x y z i p px py
'draw line' ux uy px py 'pixels'
'set colors 1 7 7 7 7 7 7 7 7 7'
scatter = random(5,20,time('m'))
maxpts = random(5,20)
'draw fcircle' px py '2 PIXELS COPYIT'
do i=0 to maxpts
x = random(1,4)
select
when x = 1 then 'draw ppoint' px+random(0,scatter) py+random(0,scatter) 'PIXELS COPYIT'
when x = 2 then 'draw ppoint' px-random(0,scatter) py+random(0,scatter) 'PIXELS COPYIT'
when x = 3 then 'draw ppoint' px-random(0,scatter) py-random(0,scatter) 'PIXELS COPYIT'
when x = 4 then 'draw ppoint' px+random(0,scatter) py-random(0,scatter) 'PIXELS COPYIT'
end
end
exit(-1)