Archived

This topic is now archived and is closed to further replies.

gumball

Game Code

Recommended Posts

black_mage_s    103
i wrote this in oot, it rocks
  
var xy : int := 10
var yx : int := 10

var xx1 : int := 1

var the_number : string

var streamNumber : int
open : streamNumber, "h:/map01.map", get
var lineNumber := 0
var line : string

var win : int :=
Window.Open ("graphics:260;260,title:Bob''s Crappy Ass Adventure")
setscreen ("nocursor")

for xx : 1 .. 576
exit when eof (streamNumber)
get : streamNumber, line : *
the_number := line (1 .. xx1)
Pic.ScreenLoad ("h:/tile" + the_number + ".bmp", xy, yx, picCopy)
xy := xy + 10
if xy = 250 then
lineNumber := lineNumber + 1
yx := yx + 10
xy := 10
end if
end for


Try and guess what it does

Share this post


Link to post
Share on other sites