the bomb robot:

end
: "touch"
zap "touch" 1
end play
play "tcf+cf+c"
become pushable
loop start
char "(57-'loopcount')"
sfx 31
wait for 15
loop for 7

: "bhurt"
: "hurt"
: "bombed"
lockself
become nonpushable
end play
play "t+++c-c-c-c-c-c"
copy overlay block at 5 29 for 15 by 9 to "('thisx'-7)" "('thisy'-4)"

loop start
send at "('thisx'-4+'loopcount')" "('thisy'-4)" to "bhurt"
loop for 8
loop start
send at "('thisx'-5+'loopcount')" "('thisy'-3)" to "bhurt"
loop for 10
loop start
send at "('thisx'-6+'loopcount')" "('thisy'-2)" to "bhurt"
loop for 12
loop start
send at "('thisx'-6+'loopcount')" "('thisy'-1)" to "bhurt"
loop for 12
loop start
send at "('thisx'-7+'loopcount')" "('thisy')" to "bhurt"
loop for 14
loop start
send at "('thisx'-6+'loopcount')" "('thisy'+1)" to "bhurt"
loop for 12
loop start
send at "('thisx'-6+'loopcount')" "('thisy'+2)" to "bhurt"
loop for 12
loop start
send at "('thisx'-5+'loopcount')" "('thisy'+3)" to "bhurt"
loop for 10
loop start
send at "('thisx'-4+'loopcount')" "('thisy'+4)" to "bhurt"
loop for 8

copy overlay block at 21 29 for 15 by 9 to "('thisx'-7)" "('thisy'-4)"
die






the graphics buffer robot:

: "l"
wait for 1
set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-4+'loopcount')" "('thisy'-4)"
send at "('thisx'-4+'loopcount')" "('thisy'-4)" to "hurt"
loop for 8


set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-5+'loopcount')" "('thisy'-3)"
send at "('thisx'-5+'loopcount')" "('thisy'-3)" to "hurt"
loop for 10


set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-6+'loopcount')" "('thisy'-2)"
send at "('thisx'-6+'loopcount')" "('thisy'-2)" to "hurt"
loop for 12

set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-6+'loopcount')" "('thisy'-1)"
send at "('thisx'-6+'loopcount')" "('thisy'-1)" to "hurt"
loop for 12


set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-7+'loopcount')" "('thisy')"
send at "('thisx'-7+'loopcount')" "('thisy')" to "hurt"
loop for 14


set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-6+'loopcount')" "('thisy'+1)"
send at "('thisx'-6+'loopcount')" "('thisy'+1)" to "hurt"
loop for 12

set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-6+'loopcount')" "('thisy'+2)"
send at "('thisx'-6+'loopcount')" "('thisy'+2)" to "hurt"
loop for 12


set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-5+'loopcount')" "('thisy'+3)"
send at "('thisx'-5+'loopcount')" "('thisy'+3)" to "hurt"
loop for 10


set "local" to 0
loop start
set "local" to random 9 to 16
write overlay "local" "±" at "('thisx'-4+'loopcount')" "('thisy'+4)"
send at "('thisx'-4+'loopcount')" "('thisy'+4)" to "hurt"
loop for 8
goto "l"