/* 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)