« previous next »
Pages: [1]   Go Down

Author Topic: weird number results in my program.(Fixed, thanks guys!)  (Read 2760 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
weird number results in my program.(Fixed, thanks guys!)
« on: January 09, 2020, 11:22:56 am »
have some weird number issues in my program, like a number being reduced by 1 then magically going back, or 2 numbers changing by large amounts all the sudden.   the issues of numbers being reduced by 1 then going back occurs in(or seems too) in the sub Drop_Inventory (where I have the prints) and then in sub NPC_TALK or line 617 where drop_inventory is called. the prints are all there for debugging.

FORGOT SOME IINCLUDES, JUST A MINUTE.
Should be good to go now.

some mal-adjusted numbers in the memory routines was placing data in the wrong locations. Caused when I adjusted the Nam string length from 24 to 8 without adjusting the memory location for the 16byte change. Without the help I might never had caught that! Thank you guys over on Discord!


Code: QB64: [Select]
  1. REM'$include:'DW1_Types.bas'
  2. REM'$include:'DW1_Const.bas'
  3. REM'$include:'DW1_Arrays.bas'
  4. REM'$include:'DW1_Layers.bas'
  5. REM'$include:'DW1_timers.bas'
  6. TYPE Player
  7.  Nam AS STRING * 8 '24 'eventually
  9.  Max_HP AS _UNSIGNED _BYTE
  11.  Max_MP AS _UNSIGNED _BYTE
  12.  Pack AS STRING * 32 '_MEM
  13.  Items AS _BYTE 'items in pack
  14.  Armor AS _BYTE
  15.  Weapon AS _BYTE
  16.  Shield AS _BYTE
  19.  Age AS _BYTE 'as player gains experiance levels they age, age negativliy affects stats.
  20.  Strength AS _BYTE
  21.  Agility AS _BYTE
  22.  Luck AS _BYTE
  23.  Level AS _BYTE
  24.  Spells AS INTEGER
  25.  WorldX AS _BYTE 'players location in over world
  26.  WorldY AS _BYTE
  27.  MapX AS _BYTE 'players location in a castle\town or cave\temple
  28.  MapY AS _BYTE
  29.  Map AS _BYTE 'where is player? -1 to 27 (-1 = over world map)
  30.  Facing AS _BYTE
  31.  Has_Princess AS _BYTE 'is player carring Princess?
  32.  Princess_Saved AS _BYTE 'has player saved Princess?
  33.  WX AS _BYTE 'used when player is walking
  34.  WY AS _BYTE
  35.  Keys AS _BYTE 'number of keys player has (6max)
  36.  Herbs AS _BYTE 'how many Herbs player has, different from items in pack
  37.  Has_Stones AS _BYTE 'does player have stones of sunlight?
  38.  Cursed AS _BYTE 'did the player equip a cursed item?
  40.  
  41. TYPE Monsters
  42.  Nam AS STRING * 16
  43.  Strength AS _UNSIGNED _BYTE
  44.  Agility AS _UNSIGNED _BYTE
  46.  Max_Hp AS _UNSIGNED _BYTE
  48.  Max_Mp AS _UNSIGNED _BYTE
  49.  SlpResist AS _UNSIGNED _BYTE
  50.  StpSplResist AS _UNSIGNED _BYTE
  51.  HurtResist AS _UNSIGNED _BYTE
  52.  Evasion AS _UNSIGNED _BYTE
  55.  Attk1 AS _BYTE 'special attack 1 - these are additional options to normal physical attack
  56.  Attk1Prob AS _UNSIGNED _BYTE
  57.  Attk2 AS _BYTE 'special attack 2
  58.  Attk2Prob AS _UNSIGNED _BYTE
  59.  Group AS _BYTE
  61.  
  62. TYPE GameData
  63.  Y AS _BYTE
  64.  X AS _BYTE
  65.  Flag AS _BYTE
  66.  JustLeft AS _BYTE 'if player just left town\castle don't reprocess location
  67.  In_Place AS _BYTE 'player is in a town\castle
  68.  LastMove AS LONG 'timer, if player doesn't press any keys his current stats display
  69.  Menu AS _BYTE 'does player have the menu up?
  70.  Selection AS _BYTE 'what selection did player make from menu
  71.  Message AS INTEGER 'current message displayed via Controls menu
  72.  Input_Wait AS _BYTE 'waiting for player input, after message display
  73.  Action AS _BYTE 'what action is player currently performing?(talk,search,stair,take,door,spell,item)
  74.  Lite_Level AS _BYTE 'how much light is there 0-none, 1-torch 2&3-Radiant
  75.  Display_Status AS _BYTE
  76.  Current_BGM AS _BYTE 'which music is currently in background
  77.  f AS INTEGER 'number of cycles completed perframe(AKA:Frames Per Sec)
  78.  SaveFile AS _BYTE 'Adventure log player is using to save 1-3
  79.  MessageSpeed AS _BYTE 'how fast messages are displayed 1-3
  80.  TextClick AS _BYTE 'Controls the 'typing' sound when displaying a message
  81.  Price AS INTEGER ' price of item used in message processing
  82.  ItemID AS _BYTE 'the item player is trying to buy from shop
  84.  
  85. TYPE Non_Playable_Character
  86.  Sprite_ID AS _BYTE
  87.  X AS _BYTE 'NPCs location
  88.  Y AS _BYTE
  89.  Map AS _BYTE 'Which town\castle\cave do they live in
  90.  Facing AS _BYTE
  91.  Lines AS _BYTE 'What lines do they say
  92.  Flag AS _BYTE 'used if they change what they say over time
  93.  Can_Move AS _BYTE
  94.  Moving AS _BYTE
  95.  MX AS _BYTE 'used to adjust position when NPC is moving
  96.  MY AS _BYTE '""""""""""""""""""""""""""""""""""""""""""
  98.  
  99. TYPE Tiles
  100.  Sprite_ID AS _BYTE 'sprite used on tile
  101.  Is_Town AS _BYTE 'Town ID/Castle ID
  102.  Is_Cave AS _BYTE 'Cave ID
  103.  Is_Stairs AS _BYTE 'Stairs ID
  104.  Territory AS _BYTE 'Monster selection ID, determines which monster are picked for battle
  105.  Is_Exit AS _BYTE 'does tile lead out of castle or town
  106.  Encounter_rate AS _UNSIGNED _BYTE 'odds of engaging a monster
  107.  Has_Special AS _BYTE 'does search find something here or is special battle here
  109.  
  110. TYPE Flags
  111.  Has_Left_Throne_Room AS _BYTE 'set when Player first leave thrown room after starting game.
  112.  Just_Started AS _BYTE 'Set when player first starts game
  113.  Saved_Princess AS _BYTE 'Set after Player has Brought Princess back
  114.  Has_Proof AS _BYTE 'Set when player finds proof of ancestry
  115.  Made_Bridge AS _BYTE 'set after player uses Rainbow Drop and makes Bridge
  116.  YNFlag AS _BYTE 'set if a message dialog needs a Yes or No response
  117.  Dragon_King_Killed AS _BYTE
  119.  
  120. TYPE Stair_Data
  121.  Map AS _BYTE 'where is the stairs
  122.  X AS _BYTE 'stairs position
  123.  Y AS _BYTE
  124.  Direction AS _BYTE 'going up or down
  125.  Link AS _BYTE 'links to which other stairs
  127.  
  128. TYPE Treasure_Chest
  129.  Map AS _BYTE
  130.  X AS _BYTE
  131.  Y AS _BYTE
  132.  Treasure AS _BYTE
  133.  Count AS INTEGER
  135.  
  136. TYPE Items
  137.  Nam AS STRING * 16
  138.  Valu AS INTEGER
  139.  Power AS _BYTE
  141.  
  142. TYPE Menu_Data
  143.  HName AS STRING * 8
  144.  MesSpd AS _BYTE
  145.  CurLvl AS _BYTE
  147.  
  148. TYPE Name_Select
  149.  X AS _BYTE 'selection arrow X
  150.  Y AS _BYTE 'Selection arrow Y
  151.  C AS _BYTE 'Character associated with selection
  153.  
  154. TYPE Place_Data
  155.  Start_X AS _BYTE 'when Entering where do you start.
  156.  Start_Y AS _BYTE '
  157.  Is_Lit AS _BYTE 'is a Torch or Radiant needed to see?
  159.  
  160. TYPE Cords
  161.  X AS _BYTE
  162.  Y AS _BYTE
  164.  
  165. TYPE Messaging
  166.  LineCount AS _BYTE
  167.  LineID AS _UNSIGNED _BYTE
  169.  
  170. CONST TRUE = -1, FALSE = NOT TRUE
  171. CONST DOWN = 0, LEFT = 1, UP = 2, RIGHT = 3
  172. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  173. CONST A_Button = 32, B_Button = 13, Start_Button = 65, Select_Button = 66
  174. CONST MoveDown = 1, MoveLeft = 2, MoveUp = 3, MoveRight = 4
  175. CONST Talking = 1, Stairs = 2, Searching = 3, Spells = 4, Items = 5, Doors = 6, Taking = 7
  176.  
  177. DIM SHARED P AS Player 'Player stats and data
  178. DIM SHARED G AS GameData 'game data
  179. DIM SHARED F AS Flags 'game flags
  180. DIM SHARED I(127) AS Items 'Item data
  181. DIM SHARED M(64) AS Monsters 'Monster stats and data
  182. DIM SHARED L(30) AS _UNSIGNED INTEGER 'level ups
  183. DIM SHARED GF(5) AS SINGLE 'group factor\used in determining escape posibilities
  184. DIM SHARED SA(10) AS Cords 'selection arrow positions
  185. DIM SHARED World(127, 127) AS Tiles 'World data
  186. DIM SHARED Place(27, 45, 45) AS Tiles 'Map data
  187. DIM SHARED PD(-1 TO 27) AS Place_Data 'Where the player starts, if map is prelit
  188. DIM SHARED Stairs(127) AS Stair_Data 'Where all stairs in game lead
  189. DIM SHARED Chest(127) AS Treasure_Chest 'Where each chest is and what it contains
  190. DIM SHARED Shop(16, 10) AS _BYTE
  191.  
  192. DIM SHARED NPC(127) AS Non_Playable_Character 'Data and controls for NPCs
  193. 'DIM SHARED NPCDialog(127, 8) AS NPCMonologue
  194. DIM SHARED Messages(255, 1) AS _UNSIGNED _BYTE '0-line count, 1-LINES() ID
  195. DIM SHARED Script(361) AS STRING 'All the lines spoken in the game by NPCs
  196. DIM SHARED Lines(255, 8) AS INTEGER 'dialog for Messages 0-8 lines of script(9 max)
  197.  
  198. DIM SHARED Layer(32) AS LONG, DWFont AS LONG, Frame%%, SFX(32) AS LONG, BGM(-1 TO 27) AS LONG, Title AS LONG, Frames%, MenuD(3) AS Menu_Data 'internal data
  199. DIM SHARED T(5) AS LONG 'game timers
  200. DIM SHARED LS(63) AS Name_Select 'used for selecting Hero Name
  201. DIM SHARED ClearLayerMaster AS _MEM 'Advanced Clearlayer data
  202.  
  204.  
  205. Layer(0) = _DISPLAY
  206. Layer(1) = _NEWIMAGE(640, 480, 32)
  207. Layer(2) = _NEWIMAGE(255 * 32, 255 * 32, 32) 'world map
  208. Layer(5) = _NEWIMAGE(640, 480, 32) 'temp backup layer for menus
  209. Layer(6) = _NEWIMAGE(352, 128, 32) 'temp layer to scroll text
  210. Layer(7) = _NEWIMAGE(46 * 32, 46 * 32, 32) 'map layer
  211. Layer(8) = _NEWIMAGE(46 * 32, 46 * 32, 32) 'NPC sprite layer
  212. Layer(9) = _NEWIMAGE(640, 480, 32) 'debug info layer
  213. Layer(11) = _NEWIMAGE(640, 480, 32) 'light mask for underground
  214. Layer(12) = _NEWIMAGE(1472, 1472, 32) 'NPC sprite Clear layer
  215. Layer(15) = _NEWIMAGE(640, 480, 32) 'Message handler text print layer
  216. _CLEARCOLOR _RGB32(0, 128, 128), Layer(4)
  217. _CLEARCOLOR _RGB32(0, 0, 0), Layer(12)
  218. ClearLayerMaster = _MEMIMAGE(Layer(12)) '8667136bytes
  219.  
  220. 'Layer(3) = _LOADIMAGE("tilebase2.bmp", 32)
  221. 'Layer(4) = _LOADIMAGE("characters.bmp", 32)
  222. 'Layer(10) = _LOADIMAGE("controller.bmp", 32)
  223. 'Layer(13) = _LOADIMAGE("DragonWarrior1Title.PNG", 32)'title screen
  224. 'Layer(14) = _LOADIMAGE("Shine.bmp", 32)'title shine\flare
  225.  
  226. 'DWFont = _LOADFONT("DW1.ttf", 16, "Monospace")
  227. T(0) = _FREETIMER
  228. T(1) = _FREETIMER
  229. ON TIMER(T(0), .25) Frame_Change
  230. ON TIMER(T(1), 1) FPS
  231.  
  232.  
  233. MFI_Loader "DragonWV1.MFI"
  234. _DELAY .25
  236. _TITLE "'Dragon Warrior I' UniKorn ProDucKions 2019"
  237. INIT 'a bit of pre-run setup
  238. '--------------development data-------------------
  239. G.MessageSpeed = 1
  240. G.TextClick = FALSE
  241. G.SaveFile = 1
  242. MenuD(1).HName = "Newton"
  243. MenuD(1).MesSpd = 1
  244. MenuD(1).CurLvl = 0
  245. '--------------------------------------------------
  246. 'Run_Title_Screen
  248. 'GameStartMenu
  249. IF F.Just_Started THEN Init_Player
  250. Build_Place_Layer Layer(7), P.Map
  251. F.Has_Left_Throne_Room = TRUE
  252. F.Just_Started = FALSE
  253. P.Has_Princess = FALSE 'TRUE
  254. IF P.Map >= 0 THEN L%% = 7: PMX%% = P.MapX: PMY%% = P.MapY ELSE L%% = 2: PMX%% = P.WorldX: PMY%% = P.WorldY
  255. Copy_Map_Layer Layer(L%%), PMX%% + WX%%, PMY%% + WY%%
  256. P.Nam = "Newton"
  257. P.Gold = 200
  258. P.Weapon = 1
  259. Add_To_Inventory 21, 1 'torch
  260. Add_To_Inventory 22, 1 'herb
  261. 'Add_To_Inventory 23, 1 'wings
  262. 'Add_To_Inventory 24, 1 'dragon's scale
  263. Add_To_Inventory 26, 1 'key
  264.  
  265. _FONT DWFont, Layer(5)
  266.  
  267. Draw_Stat_Window Layer(1)
  268. Process_Command Command_Window(Layer(1)), Layer(1)
  269.  
  271. TIMER(T(0)) OFF
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279. REM'$include:'DW1_MFILoader.bas'
  280. REM'$include:'CoreFunctions.bas'
  281. REM'$include:'DW1_TitleScreen.bas'
  282. REM'$include:'DW1_BeginNewQuest.bas'
  283. REM'$include:'DW1_RestoreGameFile.bas'
  284. REM'$include:'DW1_GameMenu.bas'
  285. REM'$include:'DW1_Playerstats.bas'
  286. REM'$include:'DW1_InputWindows.bas'
  287. REM'$include:'DW1_Commands.bas'
  288.  
  289.  
  290. SUB NPC_Talk (ID%%)
  291.  SELECT CASE ID%%
  292.   CASE 0 'king
  293.    IF F.Just_Started THEN
  294.     IF F.Has_Left_Throne_Room = FALSE THEN
  295.      Result%% = Message_Handler(Layer(15), 7) 'game intro message
  296.      F.Just_Started = FALSE
  297.     ELSE
  298.      Result%% = Message_Handler(Layer(15), 13) 'restarted game message
  299.     END IF
  300.    ELSEIF F.Has_Left_Throne_Room = FALSE THEN
  301.     Result%% = Message_Handler(Layer(15), 14) 'havent left throne room yet
  302.    ELSEIF P.Has_Princess THEN 'has saved princess
  303.     Result%% = Message_Handler(Layer(15), 15) 'havent left throne room yet
  304.     NPC_Talk 1
  305.     P.Has_Princess = FALSE
  306.     P.Princess_Saved = TRUE
  307.     NPC_Talk 0
  308.    ELSEIF F.Dragon_King_Killed THEN 'has beaten boss
  309.    ELSE
  310.     Result%% = Message_Handler(Layer(15), 8) 'returned to king to save
  311.     IF Yes_NO_Box(20, 5, Layer(1)) THEN 'does player want to save
  312.      Result%% = Message_Handler(Layer(15), 9) 'player saved
  313.     ELSE
  314.      Result%% = Message_Handler(Layer(15), 10) 'does player want to keep playing?
  315.     END IF
  316.     IF Yes_NO_Box(20, 5, Layer(1)) THEN 'does player want to keep playing
  317.      Result%% = Message_Handler(Layer(15), 12) 'keeps playing
  318.     ELSE
  319.      Result%% = Message_Handler(Layer(15), 11) 'quits
  320.      CLOSE: END
  321.     END IF
  322.    END IF
  323.   CASE 1 'Princess
  324.    IF P.Has_Princess THEN
  325.     Result%% = Message_Handler(Layer(15), 21) 'returns princess to throne room
  326.    END IF
  327.   CASE 2 'Guard Roaming throne room
  328.    IF P.Has_Princess OR P.Princess_Saved THEN
  329.     Result%% = Message_Handler(Layer(15), 27) 'Pricess saved
  330.    ELSE
  331.     Result%% = Message_Handler(Layer(15), 24) 'just started
  332.     IF Yes_NO_Box(20, 5, Layer(1)) THEN 'does player know about princess
  333.      Result%% = Message_Handler(Layer(15), 26) 'yes
  334.     ELSE
  335.      Result%% = Message_Handler(Layer(15), 25) 'no, tell player
  336.     END IF
  337.    END IF
  338.   CASE 3 'Left hand Gaurd throne room
  339.    IF F.Has_Left_Throne_Room = FALSE THEN
  340.     Result%% = Message_Handler(Layer(15), 28) '
  341.    ELSE
  342.     Result%% = Message_Handler(Layer(15), 29) '
  343.    END IF
  344.   CASE 4 'right hand gaurd throne room
  345.    IF F.Has_Left_Throne_Room = FALSE THEN
  346.     Result%% = Message_Handler(Layer(15), 30) '
  347.    ELSE
  348.     Result%% = Message_Handler(Layer(15), 31) '
  349.    END IF
  350.   CASE 5 'Gaurd Roaming North of Stairs
  351.    Result%% = Message_Handler(Layer(15), 40) '
  352.   CASE 6 'Key Sales Man
  353.    G.Price = 85
  354.    Result%% = Message_Handler(Layer(15), 49) '
  355.    DO
  356.     IF Yes_NO_Box(20, 5, Layer(1)) THEN 'does player know about princess
  357.      Result%% = Message_Handler(Layer(15), 51) 'yes
  358.      IF P.Keys < 6 THEN
  359.       IF P.Gold >= 85 THEN 'buys a key
  360.        P.Gold = P.Gold - 85
  361.        P.Keys = P.Keys + 1
  362.       ELSE
  363.        Result%% = Message_Handler(Layer(15), 52) 'Player has too little gold
  364.        ExitFlag%% = TRUE
  365.       END IF
  366.       Result%% = Message_Handler(Layer(15), 53) 'Player has too many keys
  367.       ExitFlag%% = TRUE
  368.      ELSE
  369.      END IF
  370.     ELSE
  371.      Result%% = Message_Handler(Layer(15), 50) 'no,
  372.      ExitFlag%% = TRUE
  373.     END IF
  374.    LOOP UNTIL ExitFlag%%
  375.    ExitFlag%% = FALSE
  376.   CASE 7 'Girl by key store
  377.    Result%% = Message_Handler(Layer(15), 42) '
  378.   CASE 8 'Roaming Red Guard
  379.    Result%% = Message_Handler(Layer(15), 41) '
  380.   CASE 9 'Roaming Wizard right of stairs
  381.    Result%% = Message_Handler(Layer(15), 44) '
  382.   CASE 10 'Guard at damage floor room entrance
  383.    Result%% = Message_Handler(Layer(15), 43) '
  384.   CASE 11 'Red Guard in damage floor room
  385.    Result%% = Message_Handler(Layer(15), 45) '
  386.   CASE 12 'Guard north of stairs
  387.    Result%% = Message_Handler(Layer(15), 32) '
  388.   CASE 13 'Guard south of stairs
  389.    Result%% = Message_Handler(Layer(15), 33) '
  390.   CASE 14 'Boy in center
  391.    Result%% = Message_Handler(Layer(15), 35) '
  392.   CASE 15 'boy above treasure room
  393.    Result%% = Message_Handler(Layer(15), 39) '
  394.   CASE 16 'guard in treasure room
  395.    Result%% = Message_Handler(Layer(15), 38) '
  396.   CASE 17 'girl in center area
  397.    Result%% = Message_Handler(Layer(15), 34) '
  398.   CASE 18 'merchant 1 bottom left
  399.    Result%% = Message_Handler(Layer(15), 36) '
  400.   CASE 19 'merchant 2 bottom left
  401.    Result%% = Message_Handler(Layer(15), 37) '
  402.   CASE 20 'Guard standing right of pool
  403.    IF P.Princess_Saved THEN
  404.     Result%% = Message_Handler(Layer(15), 48) '
  405.    ELSE
  406.     Result%% = Message_Handler(Layer(15), 47) '
  407.    END IF
  408.   CASE 21 'Guard Roaming right of pool
  409.    Result%% = Message_Handler(Layer(15), 46) '
  410.   CASE 22 'Wizard Bottom Right
  411.    Result%% = Message_Handler(Layer(15), 54) '
  412.    P.MP = P.Max_MP
  413.   CASE 23 'Guard Left of entrance
  414.    Result%% = Message_Handler(Layer(15), 55) '
  415.   CASE 24 'guard right of entrance
  416.    Result%% = Message_Handler(Layer(15), 56) '
  417.   CASE 25 'Wizard in castle celar
  418.    IF P.Has_Stones THEN
  419.     Result%% = Message_Handler(Layer(15), 58) '
  420.    ELSE
  421.     Result%% = Message_Handler(Layer(15), 57) '
  422.    END IF
  423.    'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄEnd of Tantegel Castle NPCsÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  424.   CASE 26 'Red gaurd in top right corner
  425.    Result%% = Message_Handler(Layer(15), 57) '59
  426.   CASE 27 'Armory shop keep
  427.    ExitFlag%% = FALSE
  428.    Result%% = Message_Handler(Layer(15), 60) '
  429.    IF Yes_NO_Box(10, 4, Layer(1)) THEN 'does player wish to buy something
  430.     DO
  431.      Result%% = Run_Shop(1, Layer(1))
  432.      IF Result%% < 0 THEN
  433.       ExitFlag%% = TRUE
  434.      ELSE
  435.       G.ItemID = Result%%
  436.       Result%% = Message_Handler(Layer(15), 63) '
  437.       IF Yes_NO_Box(10, 4, Layer(1)) THEN 'does player wish to buy it
  438.        IF P.Gold >= I(G.ItemID).Valu THEN 'player has enough gold
  439.         'check and see if player must sell something to buy
  440.         temp%% = G.ItemID 'backup the item player wishes to buy
  441.         IF G.ItemID < 8 AND P.Weapon <> 0 THEN Sell%% = 1: G.ItemID = P.Weapon
  442.         IF G.ItemID > 7 AND G.ItemID < 16 AND P.Armor <> 0 THEN Sell%% = 2: G.ItemID = P.Armor
  443.         IF G.ItemID > 15 AND G.ItemID < 21 AND P.Shield <> 0 THEN Sell%% = 3: G.ItemID = P.Shield
  444.         IF Sell%% THEN
  445.          G.Price = INT(I(G.ItemID).Valu \ 2)
  446.          Result%% = Message_Handler(Layer(15), 67) 'does player wish to sell current equipment
  447.          IF Yes_NO_Box(20, 5, Layer(1)) THEN 'does player wish to sell it
  448.           P.Gold = P.Gold + G.Price
  449.           G.ItemID = temp%% 'restore the item player wants to buy
  450.           SELECT CASE Sell%%
  451.            CASE 1
  452.             P.Weapon = G.ItemID
  453.            CASE 2
  454.             P.Armor = G.ItemID
  455.            CASE 3
  456.             P.Shield = G.ItemID
  457.           END SELECT
  458.  
  459.           P.Gold = P.Gold - I(G.ItemID).Valu
  460.           Draw_Stat_Window Layer(5) 'update the stat window after purchase
  461.           Result%% = Message_Handler(Layer(15), 65) '
  462.          ELSE
  463.           Result%% = Message_Handler(Layer(15), 64) '
  464.          END IF
  465.         ELSE
  466.         END IF
  467.         '--------------------------------------------------
  468.        ELSE 'player lacks enough gold
  469.         Result%% = Message_Handler(Layer(15), 66) '
  470.        END IF
  471.       ELSE
  472.        Result%% = Message_Handler(Layer(15), 64) '
  473.       END IF
  474.       IF Yes_NO_Box(10, 4, Layer(1)) THEN ExitFlag%% = FALSE ELSE ExitFlag%% = TRUE 'does player wish to buy anything else
  475.      END IF
  476.     LOOP UNTIL ExitFlag%%
  477.     Result%% = Message_Handler(Layer(15), 61) 'please come again
  478.    ELSE
  479.     Result%% = Message_Handler(Layer(15), 61) '
  480.    END IF
  481.   CASE 28 'woman standing in front of shop
  482.    Result%% = Message_Handler(Layer(15), 68) '
  483.   CASE 29 'boy at entrace of town
  484.    Result%% = Message_Handler(Layer(15), 69) '
  485.   CASE 30 'boy in room
  486.    Result%% = Message_Handler(Layer(15), 70) '
  487.   CASE 31 'wizard in room, removes curses
  488.    IF P.Cursed THEN
  489.     Result%% = Message_Handler(Layer(15), 72) '
  490.    ELSE
  491.     Result%% = Message_Handler(Layer(15), 71) '
  492.    END IF
  493.   CASE 32 'roaming merchant
  494.    Result%% = Message_Handler(Layer(15), 73) '
  495.   CASE 33 'guard to far right
  496.    Result%% = Message_Handler(Layer(15), 74) '
  497.   CASE 34 'Roaming red guard
  498.    Result%% = Message_Handler(Layer(15), 75) '
  499.   CASE 35 'roaming wizard
  500.    Result%% = Message_Handler(Layer(15), 76) '
  501.   CASE 36 'inn keep
  502.    G.Price = 6
  503.    Result%% = Message_Handler(Layer(15), 77) '
  504.    IF Yes_NO_Box(10, 4, Layer(1)) THEN 'does player wish to stay at the inn
  505.     Result%% = Message_Handler(Layer(15), 78) '
  506.     P.HP = P.Max_HP
  507.     P.MP = P.Max_MP
  508.     P.Gold = P.Gold - 6
  509.     _DELAY .33
  510.     Result%% = Message_Handler(Layer(15), 79) '
  511.    ELSE
  512.     Result%% = Message_Handler(Layer(15), 80) '
  513.    END IF
  514.   CASE 37 'Roaming Red guard in Inn
  515.    Result%% = Message_Handler(Layer(15), 81) '
  516.   CASE 38 'Guard in Inn
  517.    Result%% = Message_Handler(Layer(15), 82) '
  518.   CASE 39 'roaming boy
  519.    Result%% = Message_Handler(Layer(15), 83) '
  520.   CASE 40 'roaming girl
  521.    Result%% = Message_Handler(Layer(15), 84) '
  522.   CASE 41 'boy roaming across bridge
  523.    Result%% = Message_Handler(Layer(15), 85) '
  524.   CASE 42 'Boy standing across bridge
  525.    Result%% = Message_Handler(Layer(15), 86) '
  526.   CASE 43 'roaming Red guard
  527.    Result%% = Message_Handler(Layer(15), 87) '
  528.   CASE 44 'Girl selling fairy water
  529.    G.Price = 38
  530.    Result%% = Message_Handler(Layer(15), 88) '
  531.    IF Yes_NO_Box(10, 4, Layer(1)) THEN 'does player wish to buy fairy water
  532.     DO
  533.      IF P.Gold >= 38 THEN 'player has enough gold
  534.       IF P.Items < 8 THEN 'player has room in pack
  535.        Result%% = Message_Handler(Layer(15), 90) '
  536.        IF Yes_NO_Box(10, 4, Layer(1)) THEN ExitFlag%% = FALSE ELSE ExitFlag%% = TRUE 'does player wish to buy more
  537.       ELSE 'player is out of room
  538.        Result%% = Message_Handler(Layer(15), 92) '
  539.        ExitFlag%% = TRUE
  540.       END IF
  541.      ELSE 'player lacks enough gold
  542.       Result%% = Message_Handler(Layer(15), 91) '
  543.       ExitFlag%% = TRUE
  544.      END IF
  545.     LOOP UNTIL ExitFlag%%
  546.    ELSE 'player says no
  547.     Result%% = Message_Handler(Layer(15), 89) '
  548.    END IF
  549.   CASE 45 'Tool shop keep
  550.    Result%% = Message_Handler(Layer(15), 93) '
  551.    IF Buy_Sell_Box(10, 4, Layer(1)) THEN 'does player wish to buy
  552.     '--------------player is buying items---------------------------------------
  553.     Result%% = Message_Handler(Layer(15), 99) '
  554.     DO
  555.      Item%% = Run_Shop(2, Layer(1))
  556.      G.ItemID = Item%%
  557.      IF Item%% < 0 THEN
  558.       ExitFlag%% = TRUE
  559.      ELSE
  560.       IF P.Gold > I(Item%%).Valu THEN 'dose player have the gold
  561.        IF P.Items < 8 AND Item%% <> 22 THEN 'does player have room or is player buying herbs
  562.  
  563.         P.Gold = P.Gold - I(Item%%).Valu 'remove the cost from players purse
  564.         Draw_Stat_Window Layer(5) 'update the stat window after purchase
  565.         Add_To_Inventory Item%%, 1 'add the item to players inventory
  566.         Result%% = Message_Handler(Layer(15), 100) 'player buys item
  567.  
  568.        ELSE 'players inventory is full or they are buying herbs
  569.  
  570.         IF Item%% = 22 THEN 'if its a Herb then see if player has less than 6
  571.          IF P.Herbs < 6 THEN 'can player hold more?
  572.           P.Gold = P.Gold - I(Item%%).Valu
  573.           Draw_Stat_Window Layer(5) 'update the stat window after purchase
  574.           P.Herbs = P.Herbs + 1
  575.           Result%% = Message_Handler(Layer(15), 100) 'player buys item
  576.          ELSE 'player has too many herbs
  577.           Result%% = Message_Handler(Layer(15), 102) '
  578.          END IF
  579.         ELSE 'player has too many items
  580.          Result%% = Message_Handler(Layer(15), 103) '
  581.         END IF
  582.        END IF
  583.  
  584.       ELSE 'player hasn't the gold to buy
  585.        Result%% = Message_Handler(Layer(15), 101) '
  586.       END IF
  587.       IF Yes_NO_Box(10, 4, Layer(1)) THEN ExitFlag%% = FALSE ELSE ExitFlag%% = TRUE 'does player wish to buy more
  588.      END IF
  589.     LOOP UNTIL ExitFlag%%
  590.  
  591.    ELSE 'or is player going to sell
  592.     '--------------------------Player is selling Items--------------------------------------
  593.     IF P.Items OR P.Herbs OR P.Keys THEN
  594.      Result%% = Message_Handler(Layer(15), 94) '
  595.      DO
  596.       Item%% = Run_Item(18, 6, Layer(1))
  597.       IF Item%% < 0 THEN 'player canceled
  598.        ExitFlag%% = TRUE
  599.       ELSE
  600.        G.ItemID = Item%%
  601.        G.Price = INT(I(G.ItemID).Valu \ 2)
  602.        Result%% = Message_Handler(Layer(15), 96) '
  603.  
  604.        IF Yes_NO_Box(10, 4, Layer(1)) THEN 'does player wish to sell
  605.         P.Gold = P.Gold + G.Price 'pay player
  606.         Draw_Stat_Window Layer(5) 'update the stat window after purchase
  607.  
  608.         IF G.ItemID = 22 THEN 'remove the item from players inventory
  609.          P.Herbs = P.Herbs - 1
  610.         ELSEIF G.ItemID = 26 THEN
  611.          P.Keys = P.Keys - 1
  612.         ELSE
  613.          '         Remove_Inventory G.ItemID, 1
  614.          '         PRINT "starts at"; P.Items
  615.  
  616.  
  617.          Drop_Inventory G.ItemID
  618.          '         PRINT "ends at"; P.Items
  619.          '         END
  620.  
  621.         END IF
  622.         Result%% = Message_Handler(Layer(15), 98) '
  623.        ELSE
  624.         Result%% = Message_Handler(Layer(15), 97) '
  625.        END IF
  626.  
  627.        IF Yes_NO_Box(10, 4, Layer(1)) THEN 'does player wish to sell anything else
  628.         IF P.Items OR P.Herbs OR P.Keys THEN
  629.          ExitFlag%% = FALSE
  630.         ELSE
  631.          Result%% = Message_Handler(Layer(15), 95) 'player has no items to sell
  632.          ExitFlag%% = TRUE
  633.         END IF
  634.        ELSE
  635.         ExitFlag%% = TRUE
  636.        END IF
  637.       END IF
  638.      LOOP UNTIL ExitFlag%%
  639.     ELSE
  640.      Result%% = Message_Handler(Layer(15), 95) 'player has no items to sell
  641.     END IF
  642.    END IF
  643.   CASE 46
  644.   CASE 47
  645.   CASE 48
  646.   CASE 49
  647.   CASE 50
  648.   CASE 51
  649.   CASE 52
  650.   CASE 53
  651.   CASE 54
  652.   CASE 55
  653.   CASE 56
  654.   CASE 57
  655.   CASE 58
  656.   CASE 59
  657.  
  660.  
  661.  
  662. FUNCTION Run_Item%% (X%%, Y%%, L&)
  663.  Result%% = -1
  664.  Selection%% = 1
  665.  _PUTIMAGE , Layer(1), Layer(5)
  666.  IF P.Herbs THEN Count%% = Count%% + 1
  667.  IF P.Keys THEN Count%% = Count%% + 1
  668.  Count%% = Count%% + P.Items
  669.  DO
  670.   _PUTIMAGE , Layer(5), L&
  671.   Draw_Window X%%, Y%%, 11, Count%% * 2 + 1, L&
  672.   i%% = 0
  673.   IF P.Herbs THEN
  674.    _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 1 + (i%% * 2))), "Herbs", L&
  675.    V1$ = LTRIM$(STR$(P.Herbs))
  676.    _PRINTSTRING (16 * (28), 16 * (Y%% + 1 + (i%% * 2))), V1$, L&
  677.    i%% = i%% + 1
  678.   END IF
  679.   IF P.Keys THEN
  680.    _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 1 + (i%% * 2))), "Magic", L&
  681.    _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 2 + (i%% * 2))), " Keys", L&
  682.    V1$ = LTRIM$(STR$(P.Keys))
  683.    _PRINTSTRING (16 * (28), 16 * (Y%% + 1 + (i%% * 2))), V1$, L&
  684.    i%% = i%% + 1
  685.   END IF
  686.  
  687.   Offset%% = Y%% + 1 + (i%% * 2)
  688.  
  689.   FOR j%% = 0 TO P.Items - 1
  690.    IF LEN(RTRIM$(I(Inventory_Item(j%%)).Nam)) < 9 THEN
  691.     V1$ = RTRIM$(I(Inventory_Item(j%%)).Nam)
  692.     _PRINTSTRING (16 * (X%% + 2), 16 * (Offset%% + ((j%%) * 2))), V1$, L&
  693.    ELSE
  694.     V1$ = MID$(I(Inventory_Item(j%%)).Nam, 1, INSTR(I(Inventory_Item(j%%)).Nam, CHR$(32)))
  695.     _PRINTSTRING (16 * (X%% + 2), 16 * (Offset%% + ((j%%) * 2))), V1$, L&
  696.     V2$ = RTRIM$(MID$(I(Inventory_Item(j%%)).Nam, INSTR(I(Inventory_Item(j%%)).Nam, CHR$(32))))
  697.     _PRINTSTRING (16 * (X%% + 2), 16 * (Offset%% + ((j%%) * 2 + 1))), V2$, L&
  698.    END IF
  699.   NEXT j%%
  700.  
  701.   IF Frame%% THEN Display_Selection_Arrow X%% + 1, 7 + ((Selection%% - 1) * 2), L&
  702.   _PUTIMAGE , L&, Layer(0)
  704.    CASE 27
  705.     ExitFlag%% = TRUE
  706.    CASE Key_Up
  707.     Selection%% = Selection%% - 1
  708.     IF Selection%% = 0 THEN Selection%% = 1
  709.    CASE Key_Down
  710.     Selection%% = Selection%% + 1
  711.     IF Selection%% = P.Items + i%% + 1 THEN Selection%% = P.Items + i%%
  712.    CASE A_Button
  713.     ExitFlag%% = TRUE
  714.  
  715.     IF Selection%% = 1 AND P.Herbs THEN
  716.      Result%% = 22
  717.     ELSEIF Selection%% = 1 AND P.Keys > 0 THEN
  718.      Result%% = 26
  719.     ELSEIF Selection%% = 2 AND P.Keys > 0 AND P.Herbs > 0 THEN
  720.      Result%% = 26
  721.     ELSE
  722.      Result%% = Inventory_Item(Selection%% - i%% - 1)
  723.     END IF
  724.  
  725.    CASE B_Button
  726.     ExitFlag%% = TRUE
  727.     Result%% = TRUE 'exit shop routine
  729.   _LIMIT 60
  730.  LOOP UNTIL ExitFlag%%
  731.  Run_Item = Result%%
  733.  
  734.  
  735.  
  736. SUB Process_Command (Opt%%, L&)
  737.  IF Opt%% THEN
  738.   _PUTIMAGE , L&, Layer(5)
  739.   DO
  740.    KBD& = _KEYHIT
  741.    SELECT CASE Opt%%
  742.     CASE 1 'talk
  743.      NPC_Talk 45
  744.      ExitFlag%% = TRUE
  745.     CASE 2 'Status
  746.      Display_Player_Status L&
  747.     CASE 3 'Stairs
  748.      Run_Stairs
  749.     CASE 4 'search
  750.      Result%% = Message_Handler(Layer(15), 2) 'found nothing message
  751.      END
  752.     CASE 5 'spell
  753.      Result%% = Message_Handler(Layer(15), 3) 'no spells yet
  754.      END
  755.     CASE 6 'Items
  756.      '     Result%% = Message_Handler(Layer(15), 4) 'no items yet message
  757.      Result%% = Run_Item(18, 6, Layer(1))
  758.      _PUTIMAGE , Layer(1), Layer(0)
  759.      END
  760.     CASE 7 'Door
  761.      Result%% = Message_Handler(Layer(15), 5) 'no door here message
  762.      END
  763.     CASE 8 'take(chest)
  764.      Result%% = Message_Handler(Layer(15), 6) 'nothing to take message
  765.      END
  766.    END SELECT
  767.    _PUTIMAGE , L&, Layer(0)
  768.    SELECT CASE KBD&
  769.     CASE 27
  770.      ExitFlag%% = TRUE
  771.     CASE A_Button, B_Button
  772.      ExitFlag%% = TRUE
  773.    END SELECT
  774.  
  775.    _LIMIT 60
  776.   LOOP UNTIL ExitFlag%%
  779.  
  780. FUNCTION Run_Shop%% (ID%%, L&)
  781.  X%% = 10: Y%% = 4
  782.  Result%% = FALSE
  783.  Selection%% = 1
  784.  _PUTIMAGE , Layer(1), Layer(5)
  785.  
  786.  SELECT CASE ID%%
  787.   CASE 1 'breconary armory shop
  788.    DO
  789.     _PUTIMAGE , Layer(5), L&
  790.     Draw_Window X%%, Y%%, 20, 13, L&
  791.  
  792.     FOR i%% = 1 TO 6
  793.      IF LEN(RTRIM$(I(Shop(1, i%%)).Nam)) < 9 THEN
  794.       V1$ = RTRIM$(I(Shop(1, i%%)).Nam)
  795.       _PRINTSTRING (16 * (13), 16 * (3 + (i%% * 2))), V1$, L&
  796.      ELSE
  797.       V1$ = MID$(I(Shop(1, i%%)).Nam, 1, INSTR(I(Shop(1, i%%)).Nam, CHR$(32)))
  798.       _PRINTSTRING (16 * (13), 16 * (3 + (i%% * 2))), V1$, L&
  799.       V2$ = RTRIM$(MID$(I(Shop(1, i%%)).Nam, INSTR(I(Shop(1, i%%)).Nam, CHR$(32))))
  800.       _PRINTSTRING (16 * (13), 16 * (3 + (i%% * 2) + 1)), V2$, L&
  801.      END IF
  802.      V1$ = LTRIM$(STR$(I(Shop(1, i%%)).Valu))
  803.      _PRINTSTRING (16 * (30 - LEN(V1$)), 16 * (3 + (i%% * 2))), V1$, L&
  804.     NEXT i%%
  805.     IF Frame%% THEN Display_Selection_Arrow X%% + 1, 3 + (Selection%% * 2), L&
  806.     _PUTIMAGE , L&, Layer(0)
  808.      CASE 27
  809.       ExitFlag%% = TRUE
  810.      CASE Key_Up
  811.       Selection%% = Selection%% - 1
  812.       IF Selection%% = 0 THEN Selection%% = 1
  813.      CASE Key_Down
  814.       Selection%% = Selection%% + 1
  815.       IF Selection%% = 7 THEN Selection%% = 6
  816.      CASE A_Button
  817.       ExitFlag%% = TRUE
  818.       Result%% = Shop(1, Selection%%)
  819.      CASE B_Button
  820.       ExitFlag%% = TRUE
  821.       Result%% = TRUE 'exit shop routine
  822.     END SELECT
  823.     _LIMIT 60
  824.    LOOP UNTIL ExitFlag%%
  825.   CASE 2 'breconary item shop buy
  826.    DO
  827.     _PUTIMAGE , Layer(5), L&
  828.     Draw_Window X%%, Y%%, 20, 7, L&
  829.     FOR i%% = 1 TO 3
  830.      IF LEN(RTRIM$(I(Shop(2, i%%)).Nam)) < 9 THEN
  831.       V1$ = RTRIM$(I(Shop(2, i%%)).Nam)
  832.       _PRINTSTRING (16 * (13), 16 * (3 + (i%% * 2))), V1$, L&
  833.      ELSE
  834.       V1$ = MID$(I(Shop(2, i%%)).Nam, 1, INSTR(I(Shop(2, i%%)).Nam, CHR$(32)))
  835.       _PRINTSTRING (16 * (13), 16 * (3 + (i%% * 2))), V1$, L&
  836.       V2$ = RTRIM$(MID$(I(Shop(2, i%%)).Nam, INSTR(I(Shop(2, i%%)).Nam, CHR$(32))))
  837.       _PRINTSTRING (16 * (13), 16 * (3 + (i%% * 2) + 1)), V2$, L&
  838.      END IF
  839.      V1$ = LTRIM$(STR$(I(Shop(2, i%%)).Valu))
  840.      _PRINTSTRING (16 * (30 - LEN(V1$)), 16 * (3 + (i%% * 2))), V1$, L&
  841.     NEXT i%%
  842.     IF Frame%% THEN Display_Selection_Arrow X%% + 1, 3 + (Selection%% * 2), L&
  843.     _PUTIMAGE , L&, Layer(0)
  845.      CASE 27
  846.       ExitFlag%% = TRUE
  847.      CASE Key_Up
  848.       Selection%% = Selection%% - 1
  849.       IF Selection%% = 0 THEN Selection%% = 1
  850.      CASE Key_Down
  851.       Selection%% = Selection%% + 1
  852.       IF Selection%% = 4 THEN Selection%% = 3
  853.      CASE A_Button
  854.       ExitFlag%% = TRUE
  855.       Result%% = Shop(2, Selection%%)
  856.      CASE B_Button
  857.       ExitFlag%% = TRUE
  858.       Result%% = TRUE 'exit shop routine
  859.     END SELECT
  860.     _LIMIT 60
  861.    LOOP UNTIL ExitFlag%%
  862.   CASE 3 'breconary item shop Sell
  863.  
  864.    DO
  865.     _PUTIMAGE , Layer(5), L&
  866.     Draw_Window X%%, Y%%, 20, P.Items * 2 + 1, L&
  867.     FOR i%% = 0 TO P.Items - 1
  868.      IF LEN(RTRIM$(I(Shop(3, i%%)).Nam)) < 9 THEN
  869.       V1$ = RTRIM$(I(Shop(3, i%%)).Nam)
  870.       _PRINTSTRING (16 * (13), 16 * (3 + ((i%% + 1) * 2))), V1$, L&
  871.      ELSE
  872.       V1$ = MID$(I(Shop(3, i%%)).Nam, 1, INSTR(I(Shop(3, i%%)).Nam, CHR$(32)))
  873.       _PRINTSTRING (16 * (13), 16 * (3 + ((i%% + 1) * 2))), V1$, L&
  874.       V2$ = RTRIM$(MID$(I(Shop(3, i%%)).Nam, INSTR(I(Shop(3, i%%)).Nam, CHR$(32))))
  875.       _PRINTSTRING (16 * (13), 16 * (3 + ((i%% + 1) * 2) + 1)), V2$, L&
  876.      END IF
  877.      V1$ = LTRIM$(STR$(I(Shop(3, i%%)).Valu))
  878.      _PRINTSTRING (16 * (30 - LEN(V1$)), 16 * (3 + ((i%% + 1) * 2))), V1$, L&
  879.     NEXT i%%
  880.     IF Frame%% THEN Display_Selection_Arrow X%% + 1, 3 + (Selection%% * 2), L&
  881.     _PUTIMAGE , L&, Layer(0)
  883.      CASE 27
  884.       ExitFlag%% = TRUE
  885.      CASE Key_Up
  886.       Selection%% = Selection%% - 1
  887.       IF Selection%% = 0 THEN Selection%% = 1
  888.      CASE Key_Down
  889.       Selection%% = Selection%% + 1
  890.       IF Selection%% = P.Items + 1 THEN Selection%% = P.Items
  891.      CASE A_Button
  892.       ExitFlag%% = TRUE
  893.       Result%% = Shop(3, Selection%% - 1)
  894.      CASE B_Button
  895.       ExitFlag%% = TRUE
  896.       Result%% = TRUE 'exit shop routine
  897.     END SELECT
  898.     _LIMIT 60
  899.    LOOP UNTIL ExitFlag%%
  900.  
  902.  Run_Shop = Result%%
  904.  
  905. SUB Run_Stairs
  906.  IF P.Map >= 0 THEN
  907.   IF Place(P.Map, P.MapX, P.MapY).Is_Stairs THEN
  908.    IF NOT F.Has_Left_Throne_Room THEN F.Has_Left_Throne_Room = TRUE 'if player has just started game
  909.  
  910.    IF Stairs(Place(P.Map, P.MapX, P.MapY).Is_Stairs).Direction = 1 THEN _SNDPLAY SFX(1) ELSE _SNDPLAY SFX(2)
  911.    P.Map = Stairs(Place(P.Map, P.MapX, P.MapY).Is_Stairs).Link
  912.    'get location information from the linked stair Record.
  913.    P.MapX = Stairs(P.Map).X
  914.    P.MapY = Stairs(P.Map).Y
  915.    IF Stairs(P.Map).Map = -1 THEN P.WorldX = Stairs(P.Map).X: P.WorldY = Stairs(P.Map).Y
  916.    P.Map = Stairs(P.Map).Map
  917.    IF P.Map >= 0 THEN Build_Place_Layer Layer(7), P.Map
  918.    '   Change_BGM 0
  919.    G.Menu = FALSE
  920.   ELSE
  921.    Result%% = Message_Handler(Layer(15), 0) 'no stairs here message
  922.    END
  923.   END IF
  925.   IF World(P.WorldX, P.WorldY).Is_Stairs THEN
  926.    IF Stairs(World(P.WorldX, P.WorldY).Is_Stairs).Direction = 1 THEN _SNDPLAY SFX(1) ELSE _SNDPLAY SFX(2)
  927.    P.Map = Stairs(World(P.WorldX, P.WorldY).Is_Stairs).Link
  928.    'get location information from the linked stair Record.
  929.    P.MapX = Stairs(P.Map).X
  930.    P.MapY = Stairs(P.Map).Y
  931.    P.Map = Stairs(P.Map).Map
  932.    Build_Place_Layer Layer(7), P.Map
  933.    G.Menu = FALSE
  934.    '  Change_BGM 0
  935.   ELSE
  936.    Result%% = Message_Handler(Layer(15), 0) 'no stairs here message
  937.   END IF
  940.  
  941.  
  942.  
  943. FUNCTION Message_Handler (L&, MSG%)
  944.  STATIC Processed AS STRING, LineCount AS _BYTE, CurrentLine AS _BYTE
  945.  STATIC WLine(10) AS STRING * 22, Slowit AS _BYTE, Displayed AS _BYTE
  946.  TotalLines%% = Messages(MSG%, 1) 'number of lines to display
  947.  CurrentLine = 1
  948.  
  949.  DO
  950.   CMSG% = Lines(Messages(MSG%, 0), DisplayedLines%%) 'Current MeSsaGe line
  951.   IF INSTR(Script(CMSG%), "#") OR INSTR(Script(CMSG%), "&") THEN 'special needs character
  952.    Processed = Process_Message_Coding$(Script(CMSG%)): Message_Length = LEN(Processed)
  953.   ELSE
  954.    Message_Length = LEN(Script(CMSG%))
  955.    Processed = Script(CMSG%)
  956.   END IF
  957.   'check message length word wrap if needed
  958.   IF Message_Length > 22 AND LineCount = 0 THEN LineCount = Process_Word_Wrap(WLine(), Processed)
  959.   IF Message_Length <= 22 THEN LineCount = 1: WLine(1) = Processed
  960.   DO
  961.    Slowit = Slowit + 1 'makes the message display at the set speed
  962.  
  963.    IF Slowit = 2 * G.MessageSpeed THEN Slowit = 0: Current_Char = Current_Char + 1: IF G.TextClick THEN _SNDPLAY SFX(3)
  964.  
  965.    _PRINTSTRING (80, 304 + (16 * (Displayed))), MID$(WLine(CurrentLine), 1, Current_Char), L& 'print message 1 character at a time.
  966.  
  967.    IF Current_Char = LEN(RTRIM$(WLine(CurrentLine))) THEN CurrentLine = CurrentLine + 1: Current_Char = 0: Displayed = Displayed + 1
  968.    IF Displayed = 8 THEN Scroll_Line L&: Displayed = Displayed - 1
  969.  
  970.    IF CurrentLine = LineCount + 1 THEN ExitFlag%% = TRUE
  971.    _PUTIMAGE , Layer(5), Layer(1) 'throw the backup layer in
  972.    Draw_Window 4, 18, 23, 9, Layer(1) 'add message area window
  973.    _PUTIMAGE , L&, Layer(1) 'move text into window
  974.    _PUTIMAGE , Layer(1), Layer(0) 'move that to screen
  975.  
  976.    LOCATE 1, 1: PRINT LineCount; CurrentLine; Displayed
  977.  
  978.    _LIMIT 60
  979.    IF _KEYHIT = 27 THEN ExitFlag%% = TRUE
  980.   LOOP UNTIL ExitFlag%%
  981.  
  982.   ExitFlag%% = FALSE
  983.  
  984.   DisplayedLines%% = DisplayedLines%% + 1
  985.  
  986.   OFFY%% = CurrentLine: CurrentLine = 1: LineCount = 0: Displayed = Displayed + 1
  987.   IF DisplayedLines%% = TotalLines%% THEN 'are we done displaying message? or
  988.    Completed%% = TRUE
  989.   ELSE 'is there more of message to display
  990.    DO
  991.     KBD& = _KEYHIT
  992.     _PUTIMAGE , Layer(5), Layer(1) 'throw the backup layer in
  993.     Draw_Window 4, 18, 23, 9, Layer(1) 'add message area window
  994.     _PUTIMAGE , L&, Layer(1) 'move text into window
  995.     IF Frame%% THEN Display_Waiting_Arrow 15, 18 + Displayed, Layer(1)
  996.     _PUTIMAGE , Layer(1), Layer(0) 'move that to screen
  997.     _LIMIT 60
  998.     IF KBD& = 27 THEN END
  999.    LOOP UNTIL KBD& = A_Button
  1000.   END IF
  1001.  
  1002.  LOOP UNTIL Completed%%
  1003.  Processed = "": Message_Length = 0: Result%% = FALSE
  1004.  CurrentLine = 0: WLine(1) = "": LineCount = 0
  1005.  Message_Handler = Result%%
  1007.  
  1008. FUNCTION Process_Message_Coding$ (Txt$)
  1009.  FOR i~%% = 1 TO LEN(Txt$) 'check message for formating
  1010.   IF MID$(Txt$, i~%%, 1) = "#" THEN
  1011.    SELECT CASE MID$(Txt$, i~%% + 1, 1)
  1012.     CASE "E"
  1013.      Result$ = Result$ + RTRIM$(M(battle%%).Nam)
  1014.      i~%% = i~%% + 1
  1015.     CASE "P"
  1016.      Result$ = Result$ + RTRIM$(P.Nam)
  1017.      i~%% = i~%% + 1
  1018.     CASE "I"
  1019.      Result$ = Result$ + RTRIM$(I(G.ItemID).Nam)
  1020.      i~%% = i~%% + 1
  1021.     CASE "N"
  1022.      SELECT CASE MID$(Txt$, i~%% + 2, 1)
  1023.       CASE "X"
  1024.        Result$ = Result$ + LTRIM$(STR$(EXP_Required))
  1025.       CASE "G"
  1026.        Result$ = Result$ + LTRIM$(STR$(G.Price)) '+ " "
  1027.      END SELECT
  1028.      i~%% = i~%% + 2
  1029.    END SELECT
  1030.   ELSEIF MID$(Txt$, i~%%, 1) = "&" THEN
  1031.    SELECT CASE MID$(Txt$, i~%% + 1, 1)
  1032.     CASE "Y"
  1033.      '     F.YNFlag = TRUE
  1034.      Temp$ = MID$(Txt$, i~%% + 2)
  1035.      '     G.Yes_Dialog = VAL(MID$(Temp$, 1, INSTR(Temp$, ",") - 0))
  1036.      '     G.No_Dialog = VAL(MID$(Temp$, INSTR(Temp$, ",") + 1))
  1037.      i~%% = i~%% + 1 + LEN(Temp$)
  1038.    END SELECT
  1039.   ELSE
  1040.    Result$ = Result$ + MID$(Txt$, i~%%, 1)
  1041.   END IF
  1042.  NEXT i~%%
  1043.  Process_Message_Coding = Result$
  1045.  
  1046. FUNCTION Process_Word_Wrap (Lines() AS STRING * 22, txt$)
  1047.  Result%% = 1: I%% = 1
  1048.  DO
  1049.   'start on character 22 and work back to a space
  1050.   x%% = 22: Space%% = FALSE
  1051.   DO
  1052.    IF MID$(txt$, x%%, 1) <> CHR$(32) THEN x%% = x%% - 1 ELSE Space%% = TRUE
  1053.    IF x%% = 0 AND I%% = 1 THEN PRINT "ERROR": END
  1054.   LOOP UNTIL Space%%
  1055.   Lines(I%%) = MID$(txt$, 1, x%%)
  1056.   txt$ = MID$(txt$, x%% + 1)
  1057.   I%% = I%% + 1
  1058.   IF LEN(txt$) <= 22 THEN GoodLength%% = TRUE
  1059.  LOOP UNTIL GoodLength%%
  1060.  Lines(I%%) = txt$ 'put the last of the text into a line
  1061.  Result%% = I%%
  1062.  Process_Word_Wrap = Result%%
  1064.  
  1065. SUB Scroll_Line (L&)
  1066.  ClearLayer Layer(6)
  1067.  _PUTIMAGE (0, 0), L&, Layer(6), (80, 320)-STEP(351, 111)
  1068.  _PUTIMAGE (80, 304), Layer(6), L&, (0, 0)-STEP(351, 127)
  1070.  
  1071. FUNCTION EXP_Required~%
  1072.  Result~% = L(P.Level) - P.Exp
  1073.  EXP_Required = Result~%
  1075.  
  1076. SUB Save_Game
  1077.  SELECT CASE G.SaveFile
  1078.   CASE 1
  1079.    OPEN "DW1.SV1" FOR BINARY AS #1
  1080.    PUT #1, , MenuD(1)
  1081.   CASE 2
  1082.    OPEN "DW1.SV2" FOR BINARY AS #1
  1083.    PUT #1, , MenuD(2)
  1084.   CASE 3
  1085.    OPEN "DW1.SV3" FOR BINARY AS #1
  1086.    PUT #1, , MenuD(3)
  1088.  PUT #1, , P
  1089.  PUT #1, , G
  1090.  PUT #1, , F
  1091.  CLOSE #1
  1093.  
  1094.  
  1095. SUB Draw_Window (X%%, Y%%, Xs%%, Ys%%, L&)
  1096.  'top corners of window
  1097.  _PUTIMAGE (X%% * 16, Y%% * 16)-STEP(15, 15), Layer(3), L&, (0, 18)-STEP(7, 7)
  1098.  _PUTIMAGE (X%% * 16 + Xs%% * 16, Y%% * 16)-STEP(15, 15), Layer(3), L&, (8, 18)-STEP(7, 7)
  1099.  'bottom corners of window
  1100.  _PUTIMAGE (X%% * 16, Y%% * 16 + Ys%% * 16)-STEP(15, 15), Layer(3), L&, (16, 18)-STEP(7, 7)
  1101.  _PUTIMAGE (X%% * 16 + Xs%% * 16, Y%% * 16 + Ys%% * 16)-STEP(15, 15), Layer(3), L&, (24, 18)-STEP(7, 7)
  1102.  'top and bottom of window
  1103.  FOR i%% = 1 TO Xs%% - 1
  1104.   _PUTIMAGE (X%% * 16 + i%% * 16, Y%% * 16)-STEP(15, 15), Layer(3), L&, (56, 18)-STEP(7, 7)
  1105.   _PUTIMAGE (X%% * 16 + i%% * 16, Y%% * 16 + Ys%% * 16)-STEP(15, 15), Layer(3), L&, (48, 18)-STEP(7, 7)
  1106.  NEXT i%%
  1107.  'left and right sides of window
  1108.  FOR i%% = 1 TO Ys%% - 1
  1109.   _PUTIMAGE (X%% * 16, Y%% * 16 + 16 * i%%)-STEP(15, 15), Layer(3), L&, (32, 18)-STEP(7, 7)
  1110.   _PUTIMAGE (X%% * 16 + Xs%% * 16, Y%% * 16 + 16 * i%%)-STEP(15, 15), Layer(3), L&, (40, 18)-STEP(7, 7)
  1111.  NEXT i%%
  1112.  'fill in window
  1113.  _PUTIMAGE ((X%% + 1) * 16, (Y%% + 1) * 16)-STEP((Xs%% - 1) * 16, (Ys%% - 1) * 16), Layer(3), L&, (307, 1)-STEP(15, 15)
  1115.  
  1116. SUB ClearLayer (L&)
  1117.  old& = _DEST
  1118.  _DEST L&
  1119.  CLS
  1120.  _DEST old&
  1122.  
  1123. SUB ClearLayerADV (L&)
  1124.  STATIC ML1 AS _MEM
  1125.  ML1 = _MEMIMAGE(L&)
  1126.  _MEMPUT ML1, ML1.OFFSET, _MEMGET(ClearLayerMaster, ClearLayerMaster.OFFSET, STRING * 8667136)
  1128.  
  1129. SUB Display_Selection_Arrow (X%%, Y%%, L&)
  1130.  _PUTIMAGE (X%% * 16, Y%% * 16)-STEP(15, 15), Layer(3), L&, (64, 18)-STEP(7, 7)
  1132.  
  1133. SUB Display_Waiting_Arrow (X%%, Y%%, L&)
  1134.  _PUTIMAGE (X%% * 16, Y%% * 16)-STEP(15, 15), Layer(3), L&, (72, 18)-STEP(7, 7)
  1136.  
  1137. SUB Frame_Change
  1138.  IF Frame%% THEN Frame%% = 0 ELSE Frame%% = 1
  1140.  
  1141. SUB FPS
  1142.  G.f = Frames%
  1143.  Frames% = 0
  1145.  
  1146. SUB INIT
  1147.  _FONT DWFont, Layer(15)
  1148.  _FONT DWFont, Layer(1)
  1149.  TIMER(T(0)) ON
  1150.  G.TextClick = TRUE
  1151.  _SNDVOL BGM(3), .4
  1152.  F.Just_Started = TRUE
  1154.  
  1155. 'mapping routines ------------------------------------------
  1156. SUB Copy_Map_Layer (L&, MX%%, MY%%)
  1157.  IF P.Map >= 0 THEN
  1158.   _PUTIMAGE (16, 16), L&, Layer(1), (MX%% * 32 - 240 + G.X, MY%% * 32 - 208 + G.Y)-STEP(495, 447)
  1160.   _PUTIMAGE (16, 16), L&, Layer(1), (128 + MX%% * 32 - 240 + G.X, 128 + MY%% * 32 - 208 + G.Y)-STEP(495, 447)
  1163.  
  1164. SUB Build_World_Layer (L&)
  1165.  FOR Y~%% = 0 TO 255
  1166.   FOR X~%% = 0 TO 255
  1167.    _PUTIMAGE (32 * X~%%, 32 * Y~%%)-STEP(31, 31), Layer(3), L&, (1 + 17 * 14, 1)-STEP(15, 15)
  1168.  NEXT X~%%, Y~%%
  1169.  FOR Y%% = 0 TO 121
  1170.   FOR X%% = 0 TO 121
  1171.    _PUTIMAGE (128 + 32 * X%%, 128 + 32 * Y%%)-STEP(31, 31), Layer(3), L&, (1 + 17 * World(X%%, Y%%).Sprite_ID, 1)-STEP(15, 15)
  1172.  NEXT X%%, Y%%
  1174.  
  1175. SUB Build_Place_Layer (L&, ID%%)
  1176.  FOR Y%% = 0 TO 45
  1177.   FOR X%% = 0 TO 45
  1178.    _PUTIMAGE (0 + 32 * X%%, 0 + 32 * Y%%)-STEP(31, 31), Layer(3), L&, (1 + 17 * Place(ID%%, X%%, Y%%).Sprite_ID, 1)-STEP(15, 15)
  1179.  NEXT X%%, Y%%
  1181. '-----------------------------------------------------------
  1182. 'Draw Sprite Routines---------------------------------------
  1183. SUB Draw_Player_Sprite (L&)
  1184.  IF P.Weapon AND P.Shield > 16 THEN 'pick which sprite set to use
  1185.   Y1%% = 3 'has a shield and weapon
  1186.  ELSEIF P.Weapon THEN
  1187.   Y1%% = 1 'only has weapon
  1188.  ELSEIF P.Shield > 16 THEN 'No sheild is 16
  1189.   Y1%% = 2 'on has shield
  1191.   Y1%% = 0 'has nothing
  1193.  IF P.Armor > 9 THEN Y1%% = Y1%% + 4 'player has armor
  1194.  
  1195.  IF P.Has_Princess THEN Y1%% = 8 'if player is returning princess over-ride tile set
  1196.  
  1197.  SX% = 3 + (Frame%% * 16) + (P.Facing * 32)
  1198.  SY% = 4 + (Y1%% * 18)
  1199.  _PUTIMAGE (256, 224)-STEP(31, 31), Layer(4), L&, (SX%, SY%)-STEP(15, 15)
  1201.  
  1202. SUB Draw_NPC_Sprites (Count%%, L&)
  1203.  ClearLayerADV L&
  1204.  FOR i%% = 0 TO Count%%
  1205.   IF P.Map = NPC(i%%).Map THEN
  1206.    SX% = 3 + (Frame%% * 16) + (NPC(i%%).Facing * 32)
  1207.    SY% = 4 + (NPC(i%%).Sprite_ID * 18)
  1208.    _PUTIMAGE (NPC(i%%).X * 32 + NPC(i%%).MX, NPC(i%%).Y * 32 + NPC(i%%).MY)-STEP(31, 31), Layer(4), L&, (SX%, SY%)-STEP(15, 15)
  1209.   END IF
  1210.  NEXT i%%
  1212.  
  1213. '-----------------------------------------------------------
  1214.  
  1215. SUB Add_To_Inventory (Item%%, Count%%)
  1216.  STATIC m AS _MEM 'no need to initialize/free it over and over
  1218.  m = _MEM(P) 'Just change where you want to point it to.
  1219.  Pack = m.OFFSET + 28 'æmove to where P .Pack starts at in memory
  1220.  
  1221.  Match%% = FALSE
  1222.  IF Item%% = 22 THEN 'herb
  1223.   P.Herbs = P.Herbs + 1
  1224.  ELSEIF Item%% = 26 THEN 'Key
  1225.   P.Keys = P.Keys + 1
  1227.   _MEMPUT m, Pack + P.Items * 2, Item%% 'POKE
  1228.   _MEMPUT m, Pack + P.Items * 2 + 1, Count%% 'POKE
  1229.   P.Items = P.Items + 1
  1232.  
  1233. FUNCTION Item_Count%% (Item%%)
  1234.  STATIC m AS _MEM 'no need to initialize/free it over and over
  1236.  m = _MEM(P) 'Just change where you want to point it to.
  1237.  Pack = m.OFFSET + 28 'æmove to where P .Pack starts at in memory
  1238.  Result%% = 0
  1239.  Result%% = _MEMGET(m, Pack + Item%% * 2 + 1, _BYTE)
  1240.  Item_Count = Result%%
  1242.  
  1243. FUNCTION Inventory_Item%% (Item%%)
  1244.  STATIC m AS _MEM 'no need to initialize/free it over and over
  1246.  m = _MEM(P) 'Just change where you want to point it to.
  1247.  Pack = m.OFFSET + 28 'æmove to where P .Pack starts at in memory
  1248.  Result%% = 0
  1249.  Result%% = _MEMGET(m, Pack + Item%% * 2, _BYTE)
  1250.  Inventory_Item = Result%%
  1252.  
  1253. SUB Remove_Inventory (Item%%, Count%%)
  1254.  STATIC m AS _MEM 'no need to initialize/free it over and over
  1256.  m = _MEM(P) 'Just change where you want to point it to.
  1257.  Pack = m.OFFSET + 28 'æmove to where P .Pack starts at in memory
  1258.  
  1259.  Match%% = -1
  1260.  FOR i%% = 0 TO 15 'find the item
  1261.   IF Item%% = _MEMGET(m, Pack + i%% * 2, _BYTE) THEN Match%% = i%%: i%% = 30
  1262.  NEXT i%%
  1263.  IF Match%% < 0 THEN
  1264.   'something went horribly wrong!
  1265.   PRINT Item%%: END
  1267.   temp%% = _MEMGET(m, Pack + Match%% * 2 + 1, _BYTE)
  1268.   temp%% = temp%% - Count%%
  1269.  
  1270.   IF temp%% = 0 THEN 'item is out so remove from inventory
  1271.    temp$ = _MEMGET(m, Pack, STRING * 32) 'get entire pack string
  1272.    temp$ = LEFT$(temp$, Match%% * 2) + MID$(temp$, 2 * Match%% + 3)
  1273.    P.Items = P.Items - 1
  1274.  
  1275.    l%% = LEN(temp$)
  1276.    FOR i%% = l%% TO 31 'pad temp$ to full 32 characters
  1277.     temp$ = temp$ + CHR$(0)
  1278.    NEXT i%%
  1279.  
  1280.    _MEMPUT m, Pack, temp$ 'put invetory back
  1281.   ELSE
  1282.    _MEMPUT m, Pack + Match%% * 2 + 1, temp%% 'put adjusted count back
  1283.   END IF
  1286.  
  1287. SUB Drop_Inventory (ID%%)
  1288.  STATIC m AS _MEM 'no need to initialize/free it over and over
  1290.  m = _MEM(P) 'Just change where you want to point it to.
  1291.  Pack = m.OFFSET + 28 'æmove to where P .Pack starts at in memory
  1292.  
  1293.  Match%% = -1
  1294.  FOR i%% = 0 TO 15 'find the item
  1295.   IF ID%% = _MEMGET(m, Pack + i%% * 2, _BYTE) THEN Match%% = i%%: i%% = 30
  1296.  NEXT i%%
  1297.  IF Match%% < 0 THEN
  1298.   'something went horribly wrong!
  1299.   PRINT item%%: END
  1301.   temp$ = _MEMGET(m, Pack, STRING * 32) 'get entire pack string
  1302.   temp$ = LEFT$(temp$, Match%% * 2) + MID$(temp$, 2 * Match%% + 3)
  1303.  
  1304.   PRINT P.Items
  1305.   P.Items = P.Items - 1
  1306.   PRINT P.Items
  1307.  
  1308.   l%% = LEN(temp$)
  1309.   FOR i%% = l%% TO 31 'pad temp$ to full 32 characters
  1310.    temp$ = temp$ + CHR$(0)
  1311.   NEXT i%%
  1312.  
  1313.   _MEMPUT m, Pack, temp$ 'put invetory back
  1316.  
  1317. FUNCTION Player_Battle_Defense~%%
  1318.  'compute primary Defense value
  1319.  Result~%% = Player_Defense
  1320.  'now check for luck bonus good or bad
  1321.  IF INT(RND * 255) <= (P.Luck \ 2) THEN 'if random chance is less than half player luck then give luck adjustment
  1322.   Result~%% = Result~%% + INT(RND * (P.Luck * 2) - (P.Luck - (P.Age * 2)))
  1324.  Player_Battle_Defense = Result~%%
  1326.  
  1327. FUNCTION Player_Defense~%%
  1328.  'compute defense value to display in status window and to use in battle defense function
  1329.  Result~%% = INT(P.Agility / 2) + I(P.Armor).Power + I(P.Shield).Power
  1330.  Player_Defense = Result~%%
  1332.  
  1333. FUNCTION Player_Attack~%%
  1334.  'Compute Attack value to display in status window and to use in battle attack function
  1335.  Result~%% = INT(P.Strength) + I(P.Weapon).Power
  1336.  Player_Attack = Result~%%
  1338.  
  1339. FUNCTION Player_Battle_Attack~%%
  1340.  'get primary attack value
  1341.  Result~%% = Player_Attack
  1342.  C~%% = Chance
  1343.  IF C~%% < (P.Luck \ 2) THEN 'if random chance is less than half player luck then give luck adjustment
  1344.   Result~%% = Result~%% + INT(RND * (P.Luck * 2) - (P.Luck - (P.Age * 2)))
  1345.  ELSEIF C~%% >= (128 - P.Luck / 16) AND C~%% <= (128 + P.Luck / 16) THEN 'critical hit
  1346.   Result~%% = Result~%% + INT(Result~%% * .25) 'add 25% to hit value
  1348.  Player_Battle_Attack = Result~%%
  1350.  
  1351. FUNCTION Enemy_Damage (ID%%)
  1352.  IF Player_Battle_Defense / 2 > M(ID%%).Strength THEN Miss%% = INT(M(ID%%).Strength + 4 / 6) ELSE Miss%% = FALSE
  1353.  Low~%% = (M(ID%%).Strength - Player_Battle_Defense / 2) / 4
  1354.  High~%% = (M(ID%%).Strength - Player_Battle_Defense / 2) / 2
  1355.  
  1356.  IF (Chance < P.Luck / 4) THEN 'player evades attack(-1)
  1357.   Result%% = TRUE
  1358.  ELSEIF Miss%% >= 0 THEN 'not really a miss just a weak hit
  1359.   Result%% = Miss%%
  1360.  ELSE 'normal attack damage
  1361.   Result%% = INT(RND * (High~%% - Low~%%)) + Low~%%
  1363.  Enemy_Damage = Result%%
  1365.  
  1366. FUNCTION Player_Damage (ID%%)
  1367.  IF Chance + P.Luck / 2 > 228 THEN 'critical hit
  1368.   Low~%% = (Player_Battle_Attack / 2)
  1369.   High~%% = (Player_Battle_Attack)
  1371.   Low~%% = (Player_Battle_Attack - M(ID%%).Agility / 2) / 4
  1372.   High~%% = (Player_Battle_Attack - M(ID%%).Agility / 2) / 2
  1374.  Result~%% = INT(RND * (High~%% - Low~%%)) + Low~%%
  1375.  IF Result~%% = 0 THEN
  1376.   IF Chance + (P.Luck / 2) > 127 THEN Result~%% = 1
  1378.  Player_Damage = Result~%%
  1380.  
  1381. FUNCTION Enemy_Flee (ID%%)
  1382.  IF Player_Attack >= M(ID%%).Strength * 2 THEN
  1383.   IF Chance > 192 THEN Result%% = TRUE ELSE Result%% = FALSE
  1385.  Enemy_Flee = Result%%
  1387.  
  1388. FUNCTION Player_Flee (Id%%)
  1389.  IF P.Agility * Chance < M(Id%%).Agility * Chance * GF(M(Id%%).Group) THEN
  1390.   Result%% = FALSE 'player is blocked
  1392.   Result%% = TRUE 'player evades
  1394.  Player_Flee = Result%%
  1396.  
  1397. FUNCTION Battle_Initiative (ID%%)
  1398.  'if false then enemy goes first else player goes first in battle
  1399.  IF P.Agility * Chance < M(ID%%).Agility * Chance * GF(1) THEN
  1400.   Result%% = FALSE 'Monster goes first
  1402.   Result%% = TRUE 'player Goes first
  1404.  Battle_Initiative = Result%%
  1406.  
  1407. FUNCTION Chance~%%
  1408.  Chance = INT(RND * 255)
  1410.  
  1411. SUB MFI_Loader (FN$)
  1412.  DIM Size(64) AS LONG, FOffset(64) AS LONG
  1414.  GET #1, , c~%% 'retrieve number of files
  1415.  FOR I~%% = 1 TO c~%%
  1416.   GET #1, , FOffset(I~%%)
  1417.   GET #1, , Size(I~%%)
  1418.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  1419.  NEXT I~%%
  1420.  Layer(10) = LoadGFX(FOffset(1), Size(1))
  1421.  Layer(3) = LoadGFX(FOffset(2), Size(2))
  1422.  Layer(4) = LoadGFX(FOffset(3), Size(3))
  1423.  Layer(13) = LoadGFX(FOffset(14), Size(14))
  1424.  Layer(14) = LoadGFX(FOffset(15), Size(15))
  1425.  BGM(-1) = LoadSFX(FOffset(4), Size(4))
  1426.  BGM(0) = LoadSFX(FOffset(10), Size(10))
  1427.  BGM(1) = LoadSFX(FOffset(12), Size(12))
  1428.  BGM(3) = LoadSFX(FOffset(13), Size(13))
  1429.  SFX(0) = LoadSFX(FOffset(5), Size(5))
  1430.  SFX(1) = LoadSFX(FOffset(8), Size(8))
  1431.  SFX(2) = LoadSFX(FOffset(9), Size(9))
  1432.  SFX(3) = LoadSFX(FOffset(11), Size(11))
  1433.  Title = LoadSFX(FOffset(16), Size(16))
  1434.  LoadData FOffset(6), Size(6)
  1435.  DWFont = LoadFFX(FOffset(7), Size(7), 16)
  1436.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(14)
  1437.  CLOSE #1
  1438.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1440.  
  1441. FUNCTION LoadGFX& (Foff&, Size&)
  1442.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1443.  OPEN "temp.dat" FOR BINARY AS #3
  1444.  dat$ = SPACE$(Size&)
  1445.  GET #1, Foff&, dat$
  1446.  PUT #3, , dat$
  1447.  CLOSE #3
  1448.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  1450.  
  1451. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  1452.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1453.  OPEN "temp.dat" FOR BINARY AS #3
  1454.  dat$ = SPACE$(Size&)
  1455.  GET #1, Foff&, dat$
  1456.  PUT #3, , dat$
  1457.  CLOSE #3
  1458.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  1460.  
  1461. FUNCTION LoadSFX& (Foff&, Size&)
  1462.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1463.  OPEN "temp.dat" FOR BINARY AS #3
  1464.  dat$ = SPACE$(Size&)
  1465.  GET #1, Foff&, dat$
  1466.  PUT #3, , dat$
  1467.  CLOSE #3
  1468.  LoadSFX& = _SNDOPEN("temp.dat")
  1470.  
  1471. SUB LoadData (Foff&, Size&)
  1472.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1473.  OPEN "temp.dat" FOR BINARY AS #3
  1474.  dat$ = SPACE$(Size&)
  1475.  GET #1, Foff&, dat$
  1476.  PUT #3, , dat$
  1477.  CLOSE #3
  1478.  
  1479.  F1 = FREEFILE
  1480.  OPEN "temp.dat" FOR BINARY AS #F1
  1481.  GET #F1, , World()
  1482.  GET #F1, , Place()
  1483.  GET #F1, , I()
  1484.  GET #F1, , L()
  1485.  GET #F1, , GF()
  1486.  GET #F1, , M()
  1487.  GET #F1, , Stairs()
  1488.  GET #F1, , PD()
  1489.  GET #F1, , Chest()
  1490.  FOR i% = 1 TO 361
  1491.   GET #F1, , L~%%
  1492.   Script(i%) = SPACE$(L~%%)
  1493.   GET #F1, , Script(i%)
  1494.  NEXT i%
  1495.  GET #F1, , NPC()
  1496.  GET #F1, , Lines()
  1497.  GET #F1, , SA()
  1498.  GET #F1, , LS()
  1499.  GET #F1, , Messages()
  1500.  GET #F1, , Shop()
  1501.  CLOSE #F1
  1502.  
  1504.  
  1505. SUB Level_Up
  1506.  P.Level = P.Level + 1
  1507.  P.Age = P.Age + INT(P.Level * 1.5 - .49)
  1508.  P.Strength = P.Strength + INT(RND * 6) + 1 - INT((-5 + (P.Age - 20)) * (.15 + ((P.Age - 17) / 100)) - .49)
  1509.  P.Agility = P.Agility + INT(RND * 6) + 1 - INT((-8 + (P.Age - 20)) * (.4 + ((P.Age - 17) / 100)) - .49)
  1510.  P.Luck = P.Luck + INT(RND * 3) + INT(0 + (P.Age - 25)) * (.4 + ((P.Age - 17) / 50) + .49)
  1511.  P.Max_HP = P.Max_HP + INT(RND * 10 - (P.Age / 10)) + 1
  1512.  P.Max_MP = P.Max_MP + INT(RND * 5 + (P.Age / 10))
  1513.  Check_Level_Up_Spells
  1515.  
  1516. SUB Check_Level_Up_Spells
  1517.  'give spells to player based on Max_MP
  1518.  'heal-restores 7-18hp
  1519.  IF P.Max_MP >= 4 AND (NOT _READBIT(P.Spells, 0)) THEN P.Spells = _SETBIT(P.Spells, 0)
  1520.  'hurt-hits enemy for 5-12hp
  1521.  IF P.Max_MP >= 10 AND (NOT _READBIT(P.Spells, 1)) THEN P.Spells = _SETBIT(P.Spells, 1)
  1522.  'sleep-puts enemy to sleep for up to 6 rounds
  1523.  IF P.Max_MP >= 20 AND (NOT _READBIT(P.Spells, 2)) THEN P.Spells = _SETBIT(P.Spells, 2)
  1524.  'radiant-generates light in caves radius x3 for 160 steps
  1525.  IF P.Max_MP >= 32 AND (NOT _READBIT(P.Spells, 3)) THEN P.Spells = _SETBIT(P.Spells, 3)
  1526.  'stopspell-prevents enemy from using magic including healing spells
  1527.  IF P.Max_MP >= 48 AND (NOT _READBIT(P.Spells, 4)) THEN P.Spells = _SETBIT(P.Spells, 4)
  1528.  'outside-teleports player out of a cave\temple
  1529.  IF P.Max_MP >= 52 AND (NOT _READBIT(P.Spells, 5)) THEN P.Spells = _SETBIT(P.Spells, 5)
  1530.  'return- teleports player back to Tantegel castle
  1531.  IF P.Max_MP >= 64 AND (NOT _READBIT(P.Spells, 6)) THEN P.Spells = _SETBIT(P.Spells, 6)
  1532.  'repel-stops attacks from monsters weaker than player for 128 steps
  1533.  IF P.Max_MP >= 80 AND (NOT _READBIT(P.Spells, 7)) THEN P.Spells = _SETBIT(P.Spells, 7)
  1534.  'HealMore-restores 70-110hp
  1535.  IF P.Max_MP >= 94 AND (NOT _READBIT(P.Spells, 8)) THEN P.Spells = _SETBIT(P.Spells, 8)
  1536.  'HurtMore-hits enemy for 58-65hp
  1537.  IF P.Max_MP >= 98 AND (NOT _READBIT(P.Spells, 9)) THEN P.Spells = _SETBIT(P.Spells, 9)
  1538.  'Strengthen-adds 1/4 bonus to players attack strength for duration of battle
  1539.  IF P.Max_MP >= 114 AND (NOT _READBIT(P.Spells, 10)) THEN P.Spells = _SETBIT(P.Spells, 10)
  1540.  'Quicken-adds 1/3 bonus to players defensive strength for duration of battle
  1541.  IF P.Max_MP >= 124 AND (NOT _READBIT(P.Spells, 11)) THEN P.Spells = _SETBIT(P.Spells, 11)
  1543.  
  1544. SUB Init_Player
  1545.  '---------------Player starting stats-----------------------
  1546.  P.Max_HP = INT(RND * 8) + 12 'start 12-20hp
  1547.  P.HP = P.Max_HP
  1548.  IF INT(RND * 100) = 95 THEN P.Max_MP = INT(RND * 3) + 4 '1 in 100 chance of starting with magical powers
  1549.  IF P.Max_MP THEN P.Spells = _SETBIT(P.Spells, 0) 'give player HEAL if they start with magic
  1550.  P.MP = P.Max_MP
  1551.  P.Strength = INT(RND * 3) + 2 'determines base attack damage
  1552.  P.Agility = INT(RND * 2) + 2 'determines base defence\evasion
  1553.  P.Luck = INT(RND * 5) 'a "chance" bonus to hits and evasions
  1554.  P.Level = 0 'starting at base; first fight elevates to level 1, no xp gain though
  1555.  P.Age = 17 'level adds to age *1.5 (level 10 adds 15 to age, 20 adds 30, 30 adds 45, max age 72!)
  1556.  ' age affects Strength by subtracting INT((-5 + (Age - 20)) * (.15 + ((Age-17)/100))-.49)  ;  youth gives strength
  1557.  ' age affects Agility by subtracting INT((-8 + (Age - 20)) * (.4 + ((Age-17)/100))-.49)   ;  youth gives great agility, age loses agility quickly
  1558.  ' age affects Luck by adding (0 + (Age - 25)) * (.4 + ((Age-17)/50))  ;  age adds luck
  1559.  P.Weapon = 0 'adds to Attack strength , start with Fists
  1560.  P.Armor = 8 'adds to Defensive strength , start with Loin Cloth
  1561.  P.Shield = 16 'adds to Defensive strength , start with None
  1562.  P.Gold = 0
  1563.  P.Exp = 0
  1564.  P.WorldX = 44
  1565.  P.WorldY = 44
  1566.  P.MapX = 17 'when starting game player always starts here
  1567.  P.MapY = 18
  1568.  P.Map = 1
  1569.  '-----------------------------------------------------------
  1571.  
  1572. SUB Draw_Stat_Window (L&)
  1573.  Draw_Window 2, 4, 7, 11, L&
  1574.  _PUTIMAGE (4 * 16 - 2, 4 * 16)-STEP(4 * 15 + 4, 1 * 15), Layer(3), L&, (205, 35)-STEP(15, 15)
  1575.  _PRINTSTRING (16 * 4, 16 * 4), LEFT$(P.Nam, 4), L&
  1576.  _PRINTSTRING (16 * 3, 16 * 6), "LV", L&
  1577.  _PRINTSTRING (16 * 3, 16 * 8), "HP", L&
  1578.  _PRINTSTRING (16 * 3, 16 * 10), "MP", L&
  1579.  _PRINTSTRING (16 * 3, 16 * 12), "G", L&
  1580.  _PRINTSTRING (16 * 3, 16 * 14), "E", L&
  1581.  _PRINTSTRING (16 * (9 - LEN(STR$(P.Level))), 16 * 6), STR$(P.Level), L&
  1582.  _PRINTSTRING (16 * (9 - LEN(STR$(P.HP))), 16 * 8), (STR$(P.HP)), L&
  1583.  _PRINTSTRING (16 * (9 - LEN(STR$(P.MP))), 16 * 10), STR$(P.MP), L&
  1584.  _PRINTSTRING (16 * (9 - LEN(STR$(P.Gold))), 16 * 12), STR$(P.Gold), L&
  1585.  _PRINTSTRING (16 * (9 - LEN(STR$(P.Exp))), 16 * 14), STR$(P.Exp), L&
  1587.  
  1588. SUB Display_Player_Status (L&)
  1589.  Draw_Window 10, 6, 19, 21, L&
  1590.  _PRINTSTRING (16 * 16, 16 * 7), "NAME:" + RTRIM$(P.Nam), L&
  1591.  _PRINTSTRING (16 * 17, 16 * 9), "STRENGTH:", L&
  1592.  _PRINTSTRING (16 * 18, 16 * 11), "AGILITY:", L&
  1593.  _PRINTSTRING (16 * 15, 16 * 13), "MAXIMUM HP:", L&
  1594.  _PRINTSTRING (16 * 15, 16 * 15), "MAXIMUM MP:", L&
  1595.  _PRINTSTRING (16 * 13, 16 * 17), "ATTACK POWER:", L&
  1596.  _PRINTSTRING (16 * 12, 16 * 19), "DEFENSE POWER:", L&
  1597.  _PRINTSTRING (16 * 13, 16 * 21), "WEAPON:", L&
  1598.  _PRINTSTRING (16 * 14, 16 * 23), "ARMOR:", L&
  1599.  _PRINTSTRING (16 * 13, 16 * 25), "SHIELD:", L&
  1600.  V1$ = LTRIM$(STR$(P.Strength))
  1601.  _PRINTSTRING (16 * (26 + (3 - LEN(V1$))), 16 * 9), V1$, L&
  1602.  V1$ = LTRIM$(STR$(P.Agility))
  1603.  _PRINTSTRING (16 * (26 + (3 - LEN(V1$))), 16 * 11), V1$, L&
  1604.  V1$ = LTRIM$(STR$(P.Max_HP))
  1605.  _PRINTSTRING (16 * (26 + (3 - LEN(V1$))), 16 * 13), V1$, L&
  1606.  V1$ = LTRIM$(STR$(P.Max_MP))
  1607.  _PRINTSTRING (16 * (26 + (3 - LEN(V1$))), 16 * 15), V1$, L&
  1608.  V1$ = LTRIM$(STR$(Player_Attack))
  1609.  _PRINTSTRING (16 * (26 + (3 - LEN(V1$))), 16 * 17), V1$, L&
  1610.  V1$ = LTRIM$(STR$(Player_Defense))
  1611.  _PRINTSTRING (16 * (26 + (3 - LEN(V1$))), 16 * 19), V1$, L&
  1612.  
  1613.  IF LEN(RTRIM$(I(P.Weapon).Nam)) < 9 THEN
  1614.   V1$ = RTRIM$(I(P.Weapon).Nam)
  1615.   _PRINTSTRING (16 * (20), 16 * 21), V1$, L&
  1617.   V1$ = MID$(I(P.Weapon).Nam, 1, INSTR(I(P.Weapon).Nam, CHR$(32)))
  1618.   _PRINTSTRING (16 * (20), 16 * 21), V1$, L&
  1619.   V2$ = RTRIM$(MID$(I(P.Weapon).Nam, INSTR(I(P.Weapon).Nam, CHR$(32))))
  1620.   _PRINTSTRING (16 * (20), 16 * 22), V2$, L&
  1622.  
  1623.  IF LEN(RTRIM$(I(P.Armor).Nam)) < 9 THEN
  1624.   V1$ = RTRIM$(I(P.Armor).Nam)
  1625.   _PRINTSTRING (16 * (20), 16 * 23), V1$, L&
  1627.   V1$ = MID$(I(P.Armor).Nam, 1, INSTR(I(P.Armor).Nam, CHR$(32)))
  1628.   _PRINTSTRING (16 * (20), 16 * 23), V1$, L&
  1629.   V2$ = RTRIM$(MID$(I(P.Armor).Nam, INSTR(I(P.Armor).Nam, CHR$(32))))
  1630.   _PRINTSTRING (16 * (20), 16 * 24), V2$, L&
  1632.  
  1633.  IF LEN(RTRIM$(I(P.Shield).Nam)) < 9 THEN
  1634.   V1$ = RTRIM$(I(P.Shield).Nam)
  1635.   _PRINTSTRING (16 * (20), 16 * 25), V1$, L&
  1637.   V1$ = MID$(I(P.Shield).Nam, 1, INSTR(I(P.Shield).Nam, CHR$(32)))
  1638.   _PRINTSTRING (16 * (20), 16 * 25), V1$, L&
  1639.   V2$ = RTRIM$(MID$(I(P.Shield).Nam, INSTR(I(P.Shield).Nam, CHR$(32))))
  1640.   _PRINTSTRING (16 * (20), 16 * 26), V2$, L&
  1642.  
  1644.  
  1645. SUB Draw_Command_Window (L&)
  1646.  Draw_Window 12, 2, 15, 9, Layer(1)
  1647.  _PUTIMAGE (16 * 16 - 2, 2 * 16)-STEP(7 * 15 + 4, 1 * 15), Layer(3), L&, (205, 35)-STEP(15, 15)
  1648.  _PRINTSTRING (16 * 16, 16 * 2), "COMMAND", L&
  1649.  _PRINTSTRING (16 * 14, 16 * 4), "TALK", L&
  1650.  _PRINTSTRING (16 * 14, 16 * 6), "STATUS", L&
  1651.  _PRINTSTRING (16 * 14, 16 * 8), "STAIRS", L&
  1652.  _PRINTSTRING (16 * 14, 16 * 10), "SEARCH", L&
  1653.  _PRINTSTRING (16 * 22, 16 * 4), "SPELL", L&
  1654.  _PRINTSTRING (16 * 22, 16 * 6), "ITEM", L&
  1655.  _PRINTSTRING (16 * 22, 16 * 8), "DOOR", L&
  1656.  _PRINTSTRING (16 * 22, 16 * 10), "TAKE", L&
  1658.  
  1659. FUNCTION Yes_NO_Box%% (X%%, Y%%, L&)
  1660.  Result%% = FALSE
  1661.  selection%% = 2
  1662.  _PUTIMAGE , Layer(1), Layer(5)
  1663.  DO
  1664.   _PUTIMAGE , Layer(5), L&
  1665.   Draw_Window X%%, Y%%, 7, 5, L&
  1666.   _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 2)), "YES", L&
  1667.   _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 4)), "NO", L&
  1668.   IF Frame%% THEN Display_Selection_Arrow X%% + 1, Y%% + (selection%% * 2), L&
  1669.   _PUTIMAGE , L&, Layer(0)
  1671.    CASE 27
  1672.     ExitFlag%% = TRUE
  1673.    CASE Key_Up
  1674.     selection%% = selection%% - 1
  1675.     IF selection%% = 0 THEN selection%% = 1
  1676.    CASE Key_Down
  1677.     selection%% = selection%% + 1
  1678.     IF selection%% = 3 THEN selection%% = 2
  1679.    CASE A_Button
  1680.     ExitFlag%% = TRUE
  1681.     IF selection%% = 1 THEN Result%% = TRUE
  1682.    CASE B_Button
  1683.     ExitFlag%% = TRUE
  1685.  
  1686.   _LIMIT 60
  1687.  LOOP UNTIL ExitFlag%%
  1688.  Yes_NO_Box = Result%%
  1690.  
  1691. FUNCTION Buy_Sell_Box%% (X%%, Y%%, L&)
  1692.  Result%% = FALSE
  1693.  selection%% = 1
  1694.  _PUTIMAGE , Layer(1), Layer(5)
  1695.  DO
  1696.   _PUTIMAGE , Layer(5), L&
  1697.   Draw_Window X%%, Y%%, 7, 5, L&
  1698.   _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 2)), "BUY", L&
  1699.   _PRINTSTRING (16 * (X%% + 2), 16 * (Y%% + 4)), "SELL", L&
  1700.   IF Frame%% THEN Display_Selection_Arrow X%% + 1, Y%% + (selection%% * 2), L&
  1701.   _PUTIMAGE , L&, Layer(0)
  1703.    CASE 27
  1704.     ExitFlag%% = TRUE
  1705.    CASE Key_Up
  1706.     selection%% = selection%% - 1
  1707.     IF selection%% = 0 THEN selection%% = 1
  1708.    CASE Key_Down
  1709.     selection%% = selection%% + 1
  1710.     IF selection%% = 3 THEN selection%% = 2
  1711.    CASE A_Button
  1712.     ExitFlag%% = TRUE
  1713.     IF selection%% = 1 THEN Result%% = TRUE
  1714.    CASE B_Button
  1715.     ExitFlag%% = TRUE
  1717.  
  1718.   _LIMIT 60
  1719.  LOOP UNTIL ExitFlag%%
  1720.  Buy_Sell_Box = Result%%
  1722.  
  1723. FUNCTION Command_Window%% (L&)
  1724.  Result%% = FALSE
  1725.  Selection%% = 1
  1726.  DO
  1727.   KBD& = _KEYHIT
  1728.   Draw_Command_Window L&
  1729.   Display_Selection_Arrow SA(Selection%%).X, SA(Selection%%).Y, L&
  1730.   IF KBD& = Key_Up AND Selection%% > 1 AND Selection%% <> 5 THEN Selection%% = Selection%% - 1
  1731.   IF KBD& = Key_Down AND Selection%% < 8 AND Selection%% <> 4 THEN Selection%% = Selection%% + 1
  1732.   IF KBD& = Key_Left AND Selection%% > 4 THEN Selection%% = Selection%% - 4
  1733.   IF KBD& = Key_Right AND Selection%% < 5 THEN Selection%% = Selection%% + 4
  1734.  
  1735.   IF KBD& = B_Button THEN ExitFlag%% = TRUE
  1736.   IF KBD& = A_Button THEN Result%% = Selection%%: ExitFlag%% = TRUE
  1737.   IF KBD& = 27 THEN ExitFlag%% = TRUE
  1738.   _PUTIMAGE , L&, Layer(0)
  1739.   _LIMIT 60
  1740.  LOOP UNTIL ExitFlag%%
  1741.  Command_Window = Result%%
  1743.  
« Last Edit: January 09, 2020, 12:26:11 pm by Cobalt »
Logged
Granted after becoming radioactive I only have a half-life!

FellippeHeitor

  • Guest
Re: weird number results in my program.(Fixed, thanks guys!)
« Reply #1 on: January 09, 2020, 01:13:47 pm »
Glad to hear you've figured it out.

For anyone out there not yet taking part in the Discord party, please head to http://discord.qb64.org.

If you're old school and prefer IRC, head over to http://irc.qb64.org, although this one isn't nearly as active as Discord these days.
« Last Edit: January 09, 2020, 01:14:58 pm by FellippeHeitor »
Logged
Pages: [1]   Go Up
« previous next »