Global Scripting
Open Game
DIM world(600000)
DIM tile$(600000)
DIM display$(1000)
DIM tileView(600000)
DIM t(1000)
FOR a = 1 to 600000
LET world(a) = RANDOM(15)
NEXT
FOR a = 1 to 600000
IF world(a) = 1 THEN
LET tile$(a) = "."
END IF
IF world(a) = 2 THEN
LET tile$(a) = "."
END IF
IF world(a) = 3 THEN
LET tile$(a) = "."
END IF
IF world(a) = 4 THEN
LET tile$(a) = "."
END IF
IF world(a) = 5 THEN
LET tile$(a) = "."
END IF
IF world(a) = 6 THEN
LET tile$(a) = "."
END IF
IF world(a) = 7 THEN
LET tile$(a) = "."
END IF
IF world(a) = 8 THEN
LET tile$(a) = "."
END IF
IF world(a) = 9 THEN
LET tile$(a) = "."
END IF
IF world(a) = 10 THEN
LET tile$(a) = "."
END IF
IF world(a) = 11 THEN
LET tile$(a) = "."
END IF
IF world(a) = 12 THEN
LET tile$(a) = "."
END IF
IF world(a) = 13 THEN
LET tile$(a) = "."
END IF
IF world(a) = 14 THEN
LET tile$(a) = "t"
END IF
IF world(a) = 15 THEN
LET tile$(a) = "T"
END IF
NEXT
Card 1 Scripting
Open Card
LET i = 0
LET row = 0
FOR c = 1 to 30
LET row = row + 1000
FOR a = 1 to 30
LET i = i + 1
LET screenView = screenPos + row
LET tileView(i) = screenView + a
LET display$(i) = tile$(tileView(i))
NEXT
NEXT
LET display$(195) = "P"
SETFIELDFONT "Courier"
SETFIELDCOLOR 0, 0, 0
SETFIELDSIZE 12
LET tRow = 0
FOR b = 1 to 10
LET tRow = tRow + 30
FOR a = 1 to 30
LET t(a) = a + tRow
NEXT
PRINT display$(t(1)) + display$(t(2)) + display$(t(3)) + display$(t(4)) + display$(t(5)) + display$(t(6)) + display$(t(7)) + display$(t(8)) + display$(t(9)) + display$(t(10)) + display$(t(11)) + display$(t(12)) + display$(t(13)) + display$(t(14)) + display$(t(15)) + display$(t(16)) + display$(t(17)) + display$(t(18)) + display$(t(19)) + display$(t(20)) + display$(t(21)) + display$(t(22)) + display$(t(23)) + display$(t(24)) + display$(t(25)) + display$(t(26)) + display$(t(27)) + display$(t(28)) + display$(t(29)) + display$(t(30))
NEXT
Key Down
IF screenPos > 1000 THEN
IF UPKEY = TRUE THEN
IF display$(165) = "." THEN
LET screenPos = screenPos - 1000
END IF
END IF
IF LEFTKEY = TRUE THEN
IF display$(194) = "." THEN
LET screenPos = screenPos - 1
END IF
END IF
END IF
IF screenPos < 500000 THEN
IF DOWNKEY = TRUE THEN
IF display$(225) = "." THEN
LET screenPos = screenPos + 1000
END IF
END IF
IF RIGHTKEY = TRUE THEN
IF display$(196) = "." THEN
LET screenPos = screenPos + 1
END IF
END IF
END IF
GOTOCARD 1