added basic sourcefile

robotfindskitten.bas

@@ -0,0 +1,159 @@
+REM SmallBASIC
+REM ROBOT FINDS KITTEN
+REM BY ASCIIBENEFACTOR
+rem 
+
+
+REM GET DICT FILE WITH ITEM NAMES 
+
+' x:28,y14
+linenb=10
+colnb=20
+win=false
+score=0
+robx=fix(rnd*colnb)
+roby=fix(rnd*linenb)
+kitx=fix(rnd*colnb)
+kity=fix(rnd*linenb)
+kitchar = charget
+amount = 5
+thrash = array("{0:{}}")
+
+
+rem prg start
+genThrash(amount)
+rem grafx loop waiting for win
+repeat
+  if robx = kitx AND roby = kity then
+     win=true
+     
+  fi
+  printrob()
+  printobj()
+  printkit()
+  printui()
+  collscan()
+    
+   if inkey = nil then
+    delay 10
+  else
+    kbctrl
+  endif
+
+until win
+
+
+REM ======FUNCTION SPACE =========-
+
+
+sub remtrash(nb,x,y)
+  locate thrash[y].x,thrash[x].x
+  ? " " 
+end
+
+sub collscan()
+  for local i = 1 to amount
+  if robx=thrash[i].x and roby=thrash[i].y then
+ locate linenb+1,1
+ print thrash[i].text
+fi
+next   
+end
+
+sub kbctrl()
+  kb = inkey
+  ' delete old rob
+  locate roby,robx
+  ? " "
+  select case kb
+    case "h"
+      if robx > 0 then
+      robx = robx-1
+      dir="x-"
+      fi
+    case "j"
+      if roby < linenb then
+      roby = roby+1
+      dir="x+"
+      fi
+    case "k"
+      if roby > 0 then
+      roby = roby-1
+      dir="y-"
+      fi
+    case "l"
+      if robx < colnb then
+      robx = robx+1
+      dir="y+"
+      fi
+   end select
+   printrob()
+end
+
+sub printui()
+  locate linenb+1,1
+  print "Robot finds kitten"
+  locate linenb+2,6
+  print "score:"+score
+end
+
+sub printrob()
+  locate roby,robx
+  print  "@"
+end
+
+sub printkit()
+  locate kity,kitx
+  print kitchar
+end
+
+sub printobj()
+  rem print thrash
+  for it=1 to amount
+    local objx = thrash[it].x
+    local objy = thrash[it].y
+     locate objy,objx
+     print thrash[it].ch
+   next
+end
+
+func charget()
+ select case fix(rnd*4)
+   case 1
+   return "&"
+   case 2
+   return "%"
+   case 3 
+   return "#"
+   case 4
+   return "?"
+ end select
+end
+
+sub genthrash(amount)
+  for index = 1 to amount
+    local tx = fix(rnd*colnb)
+    local ty = fix(rnd*linenb)
+    thrash[index].x = tx
+    thrash[index].y = ty
+    thrash[index].ch = charget
+    thrash[index].text = textget
+  next
+end
+
+func textget()
+  r = rnd()*len(dict)
+  return 'placeholder'
+end
+
+sub borderscr()
+cls
+for i = 0 to linenb+1
+  locate i,colnb+1
+  ? "X"
+  for i2 = 0 to colnb+1
+  locate linenb+1,i2
+  print "X"
+  next
+next 
+end