Archived

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

Game Code

This topic is 5786 days old which is more than the 365 day threshold we allow for new replies. Please post a new topic.

If you intended to correct an error in the post then please contact us.

Recommended Posts

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