added inventory

findthrash.bas

@@ -9,18 +9,16 @@ 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}
+dmg:3,nextinv:1}
 mob={}
 robx=fix(rnd*colnb)
 roby=fix(rnd*linenb)
-kitx=fix(rnd*colnb)
-kity=fix(rnd*linenb)
-kitchar = charget
 ' amount mob
-amob = 7
+amob = 2
 ' amount thrash (items)
 amount = 5
 endgame=false
@@ -28,45 +26,57 @@ thrash = array("{0:{}}")
 map={}
 
 rem prg start
+label start
+dbinit()
 genThrash(amount)
-borderscr()
+
+' mob = genmob(1)
 rem grafx loop waiting for win
+
+borderscr()
 repeat
-  if robx = kitx AND roby = kity then
-     win=true
+  ' if dead
+  if pl.hp =< 0 then
+     win=false
      endgame=true
      locate linenb,1
-     print " You found kitten!"
+     print " You died"
   fi
+  
+   itemcolscan()
+  kbctrl()
   printobj()
+  ' printmob()
   printui()
-  printrob()
-  collscan()
 
-   
-    kbctrl
-
-until win
+until endgame
 
 
 REM ======FUNCTION SPACE =========-
 
 
-sub remtrash(x,y)
-  locate thrash[y].y,thrash[x].x
-  ? " " 
-end
-
-sub collscan()
-  for i = 1 to amount
-  if robx=thrash[i].x and roby=thrash[i].y then
- locate linenb+3,2
- print thrash[i].text
- thrash[i].active = false
-fi
+' scan if your on the same tile as item
+sub itemcolscan()
+  for iscan = 0 to amount
+  if robx=thrash[iscan].x and roby=thrash[iscan].y then
+   ' if @ is on item note item num 
+  locate linenb+3,2
+  print thrash[iscan].name
+  onitem=iscan
+    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
@@ -76,12 +86,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
@@ -94,9 +104,16 @@ 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()
@@ -104,33 +121,38 @@ sub printui()
   print "HP: "+pl.hp
   locate linenb+2,8
   ? "dmg"+pl.dmg
+  ' status bar 1
   locate linenb+3,1
-  print pl.name
+  print "~~~~~~~~~~~~~~~~~~"
+  ' status bar 2 is inside the bottom wall... so linenb+1
+  
 end
 
-sub printrob()
-  locate roby,robx
-  print  "@"
+sub printmob()
+  for i=1 to amob
+    my = mob[i].y
+    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].active then
+    if thrash[it].onscreen 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
- rem print kitty
-    locate kity,kitx
-  print kitchar
-   
+  locate roby,robx
+  print  "@"
 end
 
 func charget()
@@ -144,36 +166,48 @@ func charget()
    case 4
    return "?"
    case 5
-   return "÷"
+   return "+"
    case 6
    return "$"
  end select
 end
 
-rem Items are represented by thrash
+rem Items are represented by thrash so this func also gens items stats
+' 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 = "lazy"
-    thrash[index].active = true
-  rem  thrash[index].item = get
+    thrash[index].text = "testtext"
+    thrash[index].onscreen = true 
+    thrash[index].take = false
   next
+' proto represents the base item 
+' before stat mod from algory
+  func genitem()
+     proto={}
+    proto = weap.knife
+    return proto
+  end
 end
 
-func textget()
-  r = rnd()*len(dict)
-  return 'placeholder'
+func dbinit()
+ ' tload weapdb.dat, byref weap
+  weap={}
+  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"
@@ -182,7 +216,26 @@ next
 end
 
 func genmob(lvl)
-  for i = 0 to amob 
-   pmob[i] = {hp:30,name:jello}
+  for i = 1 to amob 
+   pmob={}
+   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
+