findthrash.bas

@@ -9,16 +9,18 @@ REM GET DICT FILE WITH ITEM NAMES
 ' x:28,y14
 linenb=10
 colnb=18
-statln=linenb+3
 win=false
 score=0
 pl={hp:30,hpx:30,name:"testacles",
-dmg:3,nextinv:1}
+dmg:3}
 mob={}
 robx=fix(rnd*colnb)
 roby=fix(rnd*linenb)
+kitx=fix(rnd*colnb)
+kity=fix(rnd*linenb)
+kitchar = charget
 ' amount mob
-amob = 2
+amob = 7
 ' amount thrash (items)
 amount = 5
 endgame=false
@@ -26,57 +28,45 @@ thrash = array("{0:{}}")
 map={}
 
 rem prg start
-label start
-dbinit()
 genThrash(amount)
-
-' mob = genmob(1)
-rem grafx loop waiting for win
-
 borderscr()
+rem grafx loop waiting for win
 repeat
-  ' if dead
+  if robx = kitx AND roby = kity then
-  if pl.hp =< 0 then
+     win=true
-     win=false
      endgame=true
      locate linenb,1
-     print " You died"
+     print " You found kitten!"
   fi
-  
-   itemcolscan()
-  kbctrl()
   printobj()
-  ' printmob()
   printui()
+  printrob()
+  collscan()
     
-until endgame
+   
+    kbctrl
+
+until win
 
 
 REM ======FUNCTION SPACE =========-
 
 
-' scan if your on the same tile as item
+sub remtrash(x,y)
-sub itemcolscan()
+  locate thrash[y].y,thrash[x].x
-  for iscan = 0 to amount
+  ? " " 
-  if robx=thrash[iscan].x and roby=thrash[iscan].y then
+end
-   ' if @ is on item note item num 
+
-  locate linenb+3,2
+sub collscan()
-  print thrash[iscan].name
+  for i = 1 to amount
-  onitem=iscan
+  if robx=thrash[i].x and roby=thrash[i].y then
-    fi
+ locate linenb+3,2
+ print thrash[i].text
+ thrash[i].active = false
+fi
 next   
-
 end
 
-sub takeitem()
-   locate statln,1
-   print "you take "
-   thrash[onitem].onscreen=false
-   inv[pl.nextinv] =thrash[onitem].obj
-   pl.nextinv = pl.nextinv + 1
-end
-
-' KEYBOARD CMD and scr bounds scan
 sub kbctrl()
   kb = inkey
   ' delete old rob
@@ -86,12 +76,12 @@ sub kbctrl()
     case "h"
       if robx > 0 then
       robx = robx-1
+      dir="x-"
       fi
- 
-'     if monstscan(dirP
     case "j"
       if roby < linenb then
       roby = roby+1
+      dir="x+"
       fi
     case "k"
       if roby > 0 then
@@ -104,16 +94,9 @@ sub kbctrl()
       dir="y+"
       fi
     case "q"
-   
+      print "testt"
-      cls
-      locate 3,3
-      print "buyyyyyye"
-      stop
-    case "p"
-      printinfo()
-    case "t"
-      takeitem()
    end select
+   printrob()
 end
 
 sub printui()
@@ -121,38 +104,33 @@ sub printui()
   print "HP: "+pl.hp
   locate linenb+2,8
   ? "dmg"+pl.dmg
-  ' status bar 1
   locate linenb+3,1
-  print "~~~~~~~~~~~~~~~~~~"
+  print pl.name
-  ' status bar 2 is inside the bottom wall... so linenb+1
-  
 end
 
-sub printmob()
+sub printrob()
-  for i=1 to amob
+  locate roby,robx
-    my = mob[i].y
+  print  "@"
-    mx = mob[i].x
-    locate my,mx
-    print mob[i].ch
-   next
 end
 
+
 sub printobj()
   rem print thrash
   for it=1 to amount
-    if thrash[it].onscreen then
+    if thrash[it].active then
     local objx = thrash[it].x
     local objy = thrash[it].y
      locate objy,objx
      print thrash[it].ch
     else
-      ' put the item in the unaccesible region of screen
        thrash[it].x = 0
       thrash[it].y = 0
       fi
    next
-  locate roby,robx
+ rem print kitty
-  print  "@"
+    locate kity,kitx
+  print kitchar
+   
 end
 
 func charget()
@@ -166,48 +144,36 @@ func charget()
    case 4
    return "?"
    case 5
-   return "+"
+   return "÷"
    case 6
    return "$"
  end select
 end
 
-rem Items are represented by thrash so this func also gens items stats
+rem Items are represented by thrash
-' assisigning it to the thrash[x].obj object. which will then go as such in the pl inv
 sub genthrash(amount)
   for index = 1 to amount
     local tx = fix(rnd*colnb)
     local ty = fix(rnd*linenb)
-    thrash[index].name = "def"
-    thrash[index].obj = weap.knife
     thrash[index].x = tx
     thrash[index].y = ty
     thrash[index].ch = charget
-    thrash[index].text = "testtext"
+    thrash[index].text = "lazy"
-    thrash[index].onscreen = true 
+    thrash[index].active = true
-    thrash[index].take = false
+  rem  thrash[index].item = get
   next
-' proto represents the base item 
-' before stat mod from algory
-  func genitem()
-     proto={}
-    proto = weap.knife
-    return proto
-  end
 end
 
-func dbinit()
+func textget()
- ' tload weapdb.dat, byref weap
+  r = rnd()*len(dict)
-  weap={}
+  return 'placeholder'
-  weap.knife = {name:knife,dmg:3}
-  inv={}
 end
 
 sub borderscr()
 cls
 for i = 0 to linenb+1
   locate i+1,colnb+1
-  ? "#"
+  ? "X"
   for i2 = 0 to colnb+1
   locate linenb+1,i2
   print "X"
@@ -216,26 +182,7 @@ next
 end
 
 func genmob(lvl)
-  for i = 1 to amob 
+  for i = 0 to amob 
-   pmob={}
+   pmob[i] = {hp:30,name:jello}
-   pmob[i] = {dmg:2,hpx:30}
-   pmob[i] = {hp:
-   30,name:jello}
-   pmob[i].x = fix(rnd*colnb)
-   pmob[i].y =fix(rnd*linenb)
-   pmob[i].alive = true
-   pmob[i].onscreen = true
-   pmob[i].ch="!"
     next
-  return pmob
 end
-
-sub printinfo()
-  cls
-  repeat
-   locate 3,3
-   print inv
-  until inkey == "v" 
-  stop
-end
-