lol

robotfindskitten.bas

@@ -11,6 +11,7 @@ linenb=10
 colnb=20
 win=false
 score=0
+
 robx=fix(rnd*colnb)
 roby=fix(rnd*linenb)
 kitx=fix(rnd*colnb)
@@ -18,20 +19,21 @@ kity=fix(rnd*linenb)
 kitchar = charget
 amount = 5
 thrash = array("{0:{}}")
-
+map={}
 
 rem prg start
 genThrash(amount)
+borderscr()
 rem grafx loop waiting for win
 repeat
   if robx = kitx AND roby = kity then
      win=true
-     
+     locate linenb,1
+     print " You found kitten!"
   fi
-  printrob()
   printobj()
-  printkit()
   printui()
+  printrob()
   collscan()
     
    if inkey = nil then
@@ -52,10 +54,11 @@ sub remtrash(nb,x,y)
 end
 
 sub collscan()
-  for local i = 1 to amount
+  for i = 1 to amount
   if robx=thrash[i].x and roby=thrash[i].y then
- locate linenb+1,1
+ locate linenb+3,2
  print thrash[i].text
+ thrash[i].active = false
 fi
 next   
 end
@@ -86,6 +89,8 @@ sub kbctrl()
       robx = robx+1
       dir="y+"
       fi
+    case "q"
+      break
    end select
    printrob()
 end
@@ -102,19 +107,20 @@ sub printrob()
   print  "@"
 end
 
-sub printkit()
-  locate kity,kitx
-  print kitchar
-end
 
 sub printobj()
   rem print thrash
   for it=1 to amount
+    if thrash[it].active then
     local objx = thrash[it].x
     local objy = thrash[it].y
      locate objy,objx
      print thrash[it].ch
+     fi
    next
+    locate kity,kitx
+  print kitchar
+   
 end
 
 func charget()
@@ -137,7 +143,8 @@ sub genthrash(amount)
     thrash[index].x = tx
     thrash[index].y = ty
     thrash[index].ch = charget
-    thrash[index].text = textget
+    thrash[index].text = "lazy"
+    thrash[index].active = true
   next
 end