mirror of
https://github.com/superjamie/alphaman-src.git
synced 2025-05-05 15:32:54 +00:00
80 lines
3.3 KiB
Plaintext
80 lines
3.3 KiB
Plaintext
' CASE 199 'test KillItem
|
|
' l1 = "Test": PauseForKey: s = VAL(st1)
|
|
' KillItem s: MessPause 11, 0
|
|
' CASE 202: Lightning
|
|
CASE 222
|
|
FOR i = 1 TO 52: FOR j = 1 TO 22
|
|
attr = pag2(i, j): sym = attr MOD 256: attr = attr \ 256
|
|
fc = attr MOD 16: bc = attr \ 16: PutSym sym, i, j, fc, bc, 3
|
|
NEXT j, i
|
|
SCREEN , , 3: PauseForKey: SCREEN , , vpage: didstuff = false
|
|
CASE 230
|
|
SCREEN , , 3: COLOR 11, 1: ccls 3: LOCATE 1, 1
|
|
PRINT "ndropped -- "; ndropped
|
|
FOR i = 1 TO ndropped
|
|
PRINT i; drgdy(i), drgoody(i, 1), drgoody(i, 13); drgoody(i, 14)
|
|
NEXT i
|
|
PauseForKey
|
|
ccls 3: LOCATE 1, 1: PRINT "ngoody ---- "; ngoody;
|
|
FOR i = 1 TO ngoody
|
|
PRINT : PRINT i; gdy(i), : FOR j = 1 TO 11: PRINT goody(i, j); : NEXT j
|
|
NEXT i: PauseForKey: ccls 3: LOCATE 1, 1
|
|
PRINT "suits ------- "; radsuit; heatsuit; reflecsuit; wetsuit; camosuit; pinsuit; bulletsuit; spacesuit
|
|
PRINT "flaslght etc "; flashlight; gasmask; mask; boots; ffgen; sunglasses
|
|
PRINT "vehicle ----- "; vehicle
|
|
PRINT "spore ------- "; spore
|
|
PRINT "skinac ------ "; skinac
|
|
PRINT "berac ------- "; berac
|
|
PRINT "fastfight -- "; fastfight
|
|
PRINT "difficulty -- "; difficulty
|
|
PRINT "Elvis,Grnchlev"; elvislevel; grinchlevel
|
|
PRINT "Other2hitC, Other2hitR"; other2hitc; other2hitr
|
|
didstuff = false: PauseForKey: COLOR 7, 0: SCREEN , , vpage
|
|
CASE 231
|
|
SCREEN , , 3: COLOR 11, 1: ccls 3: LOCATE 1, 1
|
|
PRINT "Name"; TAB(16); "sameroom, xdel,ydel, hits,hitmax,"; TAB(62); "regen, move, ac";
|
|
FOR i = 1 TO nnear: LOCATE (i MOD 23) + 1, 1
|
|
IF i = 23 THEN PauseForKey: CLS
|
|
PRINT CreatNam(ncre(i, 1), i); TAB(22); SameRoom(ncre(i, 4), ncre(i, 5)); bl; bl;
|
|
PRINT ncre(i, 4); ncre(i, 5); bl; bl; ncre(i, 2); ncre(i, 3); bl; bl; TAB(50);
|
|
IF ncre(i, 11) AND 1 THEN PRINT "awake ";
|
|
IF ncre(i, 11) AND 2 THEN PRINT "blind ";
|
|
IF ncre(i, 11) AND 4 THEN PRINT "confused ";
|
|
IF ncre(i, 11) AND 8 THEN PRINT "sick ";
|
|
IF ncre(i, 11) AND 16 THEN PRINT "burping ";
|
|
IF ncre(i, 11) AND 32 THEN PRINT "sneezing ";
|
|
defens = ncre(i, 10): regen = 0
|
|
IF defens AND 256 THEN regen = 1
|
|
IF defens AND 2048 THEN regen = regen + 3
|
|
PRINT TAB(65); regen; ncre(i, 6); ncre(i, 9)
|
|
NEXT
|
|
didstuff = false: PauseForKey: COLOR 7, 0: SCREEN , , vpage
|
|
CASE 232
|
|
FOR i = 2 TO 51
|
|
FOR j = 2 TO 21
|
|
IF SameRoom((i - localx), (j - localy)) THEN
|
|
GetSym sym, i, j, fc, bc, 1
|
|
PutSym sym, i, j, fc, 1, 1
|
|
END IF
|
|
NEXT j
|
|
NEXT i
|
|
PauseForKey
|
|
FOR i = 2 TO 51
|
|
FOR j = 2 TO 21
|
|
GetSym sym, i, j, fc, bc, 1
|
|
PutSym sym, i, j, fc, 0, 1
|
|
NEXT j
|
|
NEXT i
|
|
didstuff = false
|
|
CASE 233
|
|
SCREEN , , 3: COLOR 11, 1: ccls 3: LOCATE 1, 1
|
|
FOR i = 1 TO nmonolith
|
|
monozone(i, 3) = 0
|
|
PRINT monozone(i, 1); monozone(i, 2); monozone(i, 3)
|
|
NEXT
|
|
didstuff = false: PauseForKey: COLOR 7, 0: SCREEN , , vpage
|
|
' CASE 234: lx = localx: ly = localy: crtyp = algore
|
|
' MakeCreature lx, ly, false, false
|
|
' CASE 235: nnear = 0
|
|
|