Advertisement
12Me21

item usage code

Oct 17th, 2016
347
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.81 KB | None | 0 0
  1. Axe
  2.  tree->PUT air, give wood AND saplings
  3. shovel
  4.  dirt->PUT air, give dirt
  5.  sand->PUT air, give sand
  6. bucket
  7.  water->PUT air, replace water bucket
  8. water bucket
  9.  air->PUT water, replace bucket
  10. pickaxe
  11.  stone->PUT air, give stone
  12.  ore->PUT air, give stone AND ore
  13.  crystals->PUT air, give stone AND crystals
  14.  
  15. Y1
  16.  *define LIST of pickupable items here*
  17.  wall
  18.  floor
  19.  
  20. Y2
  21.  tree w/ fruit->PUT tree, give fruit
  22.  
  23. IF ITEM==#AXE THEN
  24.  IF TILE==#TREE THEN
  25.   GIVEITEM #WOOD,3
  26.   GIVEITEM #SAPLING,1
  27.   RETURN 0
  28.  ENDIF
  29. ELSEIF ITEM==#SHOVEL THEN
  30.  IF TILE==#DIRT THEN
  31.   GIVEITEM #DIRT,1
  32.   RETURN 0
  33.  ELSEIF TILE==#SAND THEN
  34.   GIVEITEM #SAND,1
  35.   RETURN 0
  36.  ENDIF
  37. ELSEIF ITEM==#BUCKET THEN
  38.  IF TILE==#WATER THEN
  39.   GIVEITEM #WATERBUCKET
  40.   RETURN 0
  41.  ENDIF
  42. ELSEIF ITEM==#WATERBUCKET
  43.  IF TILE==#AIR THEN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement