alphaman-src/ALPHA.DB3
Jamie Bainbridge 01f7ee57e9 Initial commit
2021-04-04 15:15:18 +10:00

9 lines
231 B
Plaintext

CASE 255 'create gas
FOR ix = localx - 1 TO localx + 1
FOR iy = localy - 1 TO localy + 1
GetSym nsym, ix, iy, nfc, nbc, 1
IF nsym = 250 THEN PutSym gas, ix, iy, 8, 0, -1
NEXT iy, ix
didstuff = false