DIM x, y, r, px, py, m$, n$

'''THIS MOTHERFUCKER NEEDS A FONT BIIIIIIIIIIIIIIIIIIITCH!!!

font(loadtex("rogue2.bmp"))
resizetext(40,30)
settextscroll(0)

waittimer(100)

'''TIME TO GET YO FUCKING NAME NIGGA!!!

n$= "the name is too damn long!"
while len(n$)>8
  cls
  locate 14,14
  color(150,0,0)
  print "lurker  v0.1"
  color(255,255,255)
  locate 10,15
  print "Your name? (8 chars)"
  locate 15,16
  input "> ",n$
wend

''''HOLY SHIT, IT'S A MAP GENERATOR!!!

for x = 0 to 39
  m$ = m$ + "#"
next

for y = 0 to 22
  m$ = m$ + "#"
  for x = 1 to 38
    r = rnd()%6
    if r < 5 then
      m$ = m$ + "."
    else
      m$ = m$ + "#"
    endif
  next
  m$ = m$ + "#"
next

for x = 0 to 39
  m$ = m$ + "#"
next

locate 0,5:print m$

'''HOLY SHIT, IT'S THE END OF THE MAP GENERATOR!!!

''LET'S MAKE SURE THIS MOTHERFUCKER IS AT THE CENTER OF THE MAP!!!

px = 20
py = 17

'''TIME TO PARTY, BITCHES!!!

while true

  '''Basic Movement
  if scankeydown(vk_right) and CharAt$(px+1,py) = "." then
    while scankeydown(vk_right):wend
    locate px,py
    color(255,255,255)
    print "."
    px=px+1
  endif
  if scankeydown(vk_left) and CharAt$(px-1,py) = "." then
    while scankeydown(vk_left):wend
    locate px,py
    color(255,255,255)
    print "."
    px=px-1
  endif
  if scankeydown(vk_up) and CharAt$(px,py-1) = "." then
    while scankeydown(vk_up):wend
    locate px,py
    color(255,255,255)
    print "."
    py=py-1
  endif
  if scankeydown(vk_down) and CharAt$(px,py+1) = "." then
    while scankeydown(vk_down):wend
    locate px,py
    color(255,255,255)
    print "."
    py=py+1
  endif

  '''Draw Character
  locate px,py
  color(200,150,100)
  print "@"
  color(255,255,255)


wend