« previous next »
Pages: [1]   Go Down

Author Topic: Hyrule Exploration!  (Read 3554 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
Hyrule Exploration!
« on: December 29, 2019, 03:26:46 pm »
A little peak at something I've worked on the past 3-4 days now. Collision is a bit extreme, and moving diagonally can cause some issues. but you should be able to explore most of the world. Meet the crazy old man in every cave trying to give you a wooden sword because he thinks its "dangerous to go alone!" I mean EVERY cave! how does he move without you seeing him? 

Anyway,

this REQUIRES QB64 Development Build.

Arrow keys to move, Enter to enter\exit inventory screen, ESC to quit.
You can select different items for hand B but can not use them yet.
And no you cannot accept the Wooden sword as of yet.

Code: QB64: [Select]
  1. 'Zelda peliminary R&D
  2. TYPE Link_Data
  3.  Hearts AS _BYTE 'player health
  4.  HeartContainers AS _BYTE 'players max health
  5.  Hit_level AS _BYTE 'number of hits before losing heart(1-normal, 2-B_Ring, 4-R_Ring)
  6.  Rupies AS _UNSIGNED _BYTE 'players rupies
  7.  Keys AS _BYTE 'number of keys
  8.  Bombs AS _BYTE 'number of bombs
  9.  Sword AS _BYTE 'which sword does player have
  10.  Sheild AS _BYTE 'does player have magical shield
  11.  Items AS LONG 'Arrow,S_Arrow,B_Candle,R_Candle,B_Ring,R_Ring,Bracelet,Recorder,Raft,Ladder
  12.  '              Rod,Book,M_Key,Letter,B_Potion,R_Potion,Food,Boomerang,M_Boomerang
  13.  Hand_A AS _BYTE 'sword equiped
  14.  Hand_B AS _BYTE 'item equiped
  15.  X AS _BYTE 'players world X
  16.  Y AS _BYTE 'players world Y
  17.  Sx AS INTEGER 'Screen X
  18.  Sy AS INTEGER 'Screen Y
  19.  Face AS _BYTE 'which direction is player facing up,down,left,right
  20.  Level AS _BYTE 'is player on 2nd quest
  21.  Dungeon AS _BYTE 'is player in dungeon\which dungeon
  22.  TriForce AS _UNSIGNED _BYTE ' collected triforce pieces
  23.  Frame AS _BYTE
  25.  
  26. TYPE Map_data
  30.  
  31. TYPE Game_Data
  32.  Enter AS _BYTE 'player is entering a cave or dungeon level
  33.  In_Cave AS _BYTE
  34.  Just_Left AS _BYTE 'did player just leave cave or dungeon level
  35.  Ox AS INTEGER
  36.  Oy AS INTEGER
  37.  Mx AS _BYTE
  38.  My AS _BYTE
  39.  State AS _BYTE 'old mans image, if hit
  40.  Text_Done AS _BYTE 'has message been displayed
  42.  
  43. CONST TRUE = -1, FALSE = NOT TRUE
  44. CONST DOWN = 1, UP = 2, RIGHT = 3, LEFT = 4, TOINVENTORY = 1, TOMAP = 2, NORMAL = 0, ANGRY = 1
  45. CONST Key_Up = 18432, Key_Left = 19200, Key_Down = 20480, Key_Right = 19712, Start_Button = 13
  46. CONST Black = _RGB32(0, 0, 0)
  47.  
  48. DIM SHARED L AS Link_Data
  49. DIM SHARED G AS Game_Data
  50. DIM SHARED M(255) AS Map_data
  51. DIM SHARED Layer(16) AS LONG
  52. DIM SHARED MSG$(24), FFX&
  53.  
  54. SCREEN _NEWIMAGE(640, 480, 32)
  55. Layer(0) = _DISPLAY
  56. Layer(1) = _NEWIMAGE(640, 480, 32)
  57. 'Layer(2) = _LOADIMAGE("GFX\119176.bmp", 32)
  58. 'Layer(3) = _LOADIMAGE("GFX\8366.bmp", 32)
  59. 'Layer(4) = _LOADIMAGE("GFX\119278.bmp", 32)
  60. 'Layer(5) = _LOADIMAGE("GFX\Map_Maskb.bmp", 32)
  61. 'Layer(6) = _LOADIMAGE("GFX\21189.bmp", 32) 'npc sheet
  62.  
  63. MFI_Loader "Zelda1.MFI"
  64.  
  65. Layer(8) = _NEWIMAGE(640, 480, 32) 'scrolling overworld item temp layer
  66. Layer(9) = _NEWIMAGE(640, 480, 32) 'scrolling map layer
  67. Layer(10) = _NEWIMAGE(640, 480, 32) 'collision layer
  68. Layer(11) = _NEWIMAGE(640, 480, 32) 'temp inventory layer/map movement layer
  69. Layer(12) = _NEWIMAGE(640, 480, 32) 'text message layer
  70.  
  71. 'FFX& = _LOADFONT("NESfont.otf", 20, "monospace")
  72.  
  73. _CLEARCOLOR _RGB32(116), Layer(3)
  74. _CLEARCOLOR _RGB32(116), Layer(4)
  75. _CLEARCOLOR _RGB32(116), Layer(6)
  76. _CLEARCOLOR _RGB32(0, 128, 0), Layer(4)
  77. _CLEARCOLOR _RGB32(0), Layer(4)
  78. _SOURCE Layer(10) 'collision detection map
  79. _FONT FFX&, Layer(1)
  80. _FONT FFX&, Layer(12)
  81. MSG$(1) = "it's dangerous to go  alone! Take this."
  82. L.X = 7: L.Y = 7: L.Sx = 304: L.Sy = 288: L.Face = UP: L.Hearts = 6: L.HeartContainers = 3
  83. L.Hand_A = 0: L.Hand_B = 1: L.TriForce = 0: L.Items = 75 '767 '2097151
  84. _DEST Layer(1)
  85.  
  87.  Build_Main_Display
  88.  Display_B_Hand L.Hand_B
  89.  Display_A_Hand L.Hand_A
  90.  IF G.In_Cave THEN Fill_Cave 1
  91.  IF G.Text_Done THEN _PUTIMAGE , Layer(12), Layer(1)
  92.  Place_Link L.Sx, L.Sy, L.Frame
  93.  _PRINTSTRING (0, 0), STR$(L.Sy) + STR$(L.Sx), Layer(1)
  94.  _PUTIMAGE , Layer(1), Layer(0)
  95.  _LIMIT 60
  96.  
  97.  IF _KEYDOWN(Key_Up) AND Movement_Collision(L.Sx, L.Sy - 2) = FALSE THEN L.Sy = L.Sy - 2: L.Face = UP: L.Frame = Animate_Link
  98.  IF _KEYDOWN(Key_Down) AND Movement_Collision(L.Sx, L.Sy + 2) = FALSE THEN L.Sy = L.Sy + 2: L.Face = DOWN: L.Frame = Animate_Link
  99.  IF _KEYDOWN(Key_Left) AND Movement_Collision(L.Sx - 2, L.Sy) = FALSE THEN L.Sx = L.Sx - 2: L.Face = LEFT: L.Frame = Animate_Link
  100.  IF _KEYDOWN(Key_Right) AND Movement_Collision(L.Sx + 2, L.Sy) = FALSE THEN L.Sx = L.Sx + 2: L.Face = RIGHT: L.Frame = Animate_Link
  101.  IF _KEYDOWN(Start_Button) THEN Scroll_Overworld_Inventory TOINVENTORY: Run_Overworld_Inventory: Scroll_Overworld_Inventory TOMAP
  102.  IF G.Enter > 0 THEN Play_Entering_Animation L.Sx, L.Sy: Enter_Cave 1
  103.  IF L.Sy = 114 THEN Scroll_Map L.X, L.Y, L.Face
  104.  IF L.Sy = 446 AND (NOT G.In_Cave) THEN
  105.   Scroll_Map L.X, L.Y, L.Face
  106.  ELSEIF G.In_Cave AND L.Sy = 446 THEN
  107.   Exit_Cave 1
  109.  IF L.Sx = 60 THEN Scroll_Map L.X, L.Y, L.Face
  110.  IF L.Sx = 546 THEN Scroll_Map L.X, L.Y, L.Face
  111.  
  112.  IF _KEYHIT = 27 THEN ExitFlag%% = TRUE
  113.  
  114. LOOP UNTIL ExitFlag%%
  115.  
  116. _FONT 16, Layer(1)
  117. '_PUTIMAGE , Layer(10), Layer(0)
  118.  
  119. REM'$include:'DisplayFunctions.BAS'
  120. REM'$include:'OverworldInventory.BAS'
  121. REM'$include:'Core_Function.BAS'
  122. REM'$include:'MFI_Functions.BAS'
  123.  
  124. SUB MFI_Loader (FN$)
  125.  DIM Size(64) AS LONG, FOffset(64) AS LONG
  127.  GET #1, , c~%% 'retrieve number of files
  128.  FOR I~%% = 1 TO c~%%
  129.   GET #1, , FOffset(I~%%)
  130.   GET #1, , Size(I~%%)
  131.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  132.  NEXT I~%%
  133.  'load the files where they go here----------
  134.  Layer(2) = LoadGFX(FOffset(3), Size(3)) '
  135.  Layer(3) = LoadGFX(FOffset(1), Size(1)) '
  136.  Layer(4) = LoadGFX(FOffset(4), Size(4)) '
  137.  Layer(5) = LoadGFX(FOffset(5), Size(5)) '
  138.  Layer(6) = LoadGFX(FOffset(2), Size(2)) '
  139.  FFX& = LoadFFX(FOffset(6), Size(6), 20) '_LOADFONT("NESfont.otf", 20, "monospace")
  140.  '-------------------------------------------
  141.  CLOSE #1
  142.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  144.  
  145. SUB Place_Link (X%, Y%, F%%)
  146.  SELECT CASE L.Face
  147.   CASE DOWN
  148.    _PUTIMAGE (X%, Y%)-STEP(31, 31), Layer(3), Layer(1), (1 + F%% * 17, 11)-STEP(15, 15)
  149.   CASE UP
  150.    _PUTIMAGE (X%, Y%)-STEP(31, 31), Layer(3), Layer(1), (69 + F%% * 17, 11)-STEP(15, 15)
  151.   CASE LEFT
  152.    _PUTIMAGE (X% + 32, Y%)-STEP(-31, 31), Layer(3), Layer(1), (35 + F%% * 17, 11)-STEP(15, 15)
  153.   CASE RIGHT
  154.    _PUTIMAGE (X%, Y%)-STEP(31, 31), Layer(3), Layer(1), (35 + F%% * 17, 11)-STEP(15, 15)
  157.  
  158.  
  159. SUB Fill_Cave (ID%%)
  160.  SELECT CASE ID%%
  161.   CASE 1
  162.    Place_Flame 5, 4
  163.    Place_Flame 11, 4
  164.    IF L.Sword = 0 THEN
  165.     Place_Man 8, 4
  166.     Place_Pickup_Item 31, 22, 1
  167.     IF NOT G.Text_Done THEN Write_Text 9, 10, 1
  168.    END IF
  171.  
  172. SUB Place_Man (X%%, Y%%)
  173.  SELECT CASE G.State
  174.   CASE NORMAL
  175.    _PUTIMAGE (48 + 32 * X%%, 128 + 32 * Y%%)-STEP(31, 31), Layer(6), Layer(1), (1, 11)-STEP(15, 15)
  176.   CASE ANGRY
  177.    _PUTIMAGE (48 + 32 * X%%, 128 + 32 * Y%%)-STEP(31, 31), Layer(6), Layer(1), (18, 11)-STEP(15, 15)
  180.  
  181. SUB Place_Pickup_Item (X%%, Y%%, I%%)
  182.  SELECT CASE I%%
  183.   CASE 1 'wood sword
  184.    _PUTIMAGE (64 + 8 * X%%, 128 + 8 * Y%%)-STEP(15, 31), Layer(4), Layer(1), (555, 137)-STEP(7, 15)
  187.  
  188. SUB Write_Text (X%%, Y%%, T%%)
  189.  ClearLayer Layer(11)
  190.  ClearLayer Layer(12)
  191.  _PUTIMAGE , Layer(1), Layer(11)
  192.  L%% = LEN(MSG$(T%%))
  193.  DO
  194.   D%% = D%% + 1
  195.   _PRINTSTRING (64 + 8 * X%% + 16 * D%%, 128 + 8 * Y%% + 17 * Z%%), MID$(MSG$(T%%), D%% + 20 * Z%%, 1), Layer(12)
  196.   _PUTIMAGE , Layer(11), Layer(1)
  197.   _PUTIMAGE , Layer(12), Layer(1)
  198.   Place_Link L.Sx, L.Sy, L.Frame
  199.   _PUTIMAGE , Layer(1), Layer(0)
  200.   _LIMIT 10
  201.   IF D%% = 20 THEN Z%% = Z%% + 1: D%% = 0
  202.   IF D%% + 20 * Z%% = L%% THEN ExitFlag%% = TRUE
  203.  LOOP UNTIL ExitFlag%%
  204.  G.Text_Done = TRUE
  206.  
  207. FUNCTION Movement_Collision%% (X%, Y%)
  208.  DIM Test(10) AS _UNSIGNED LONG
  209.  Result%% = FALSE 'there is no collision by defult
  210.  'get all test points
  211.  Test(1) = POINT(X% + 4, Y% + 15) 'upper left test point
  212.  Test(2) = POINT(X% + 16, Y% + 15) 'upper center test point
  213.  Test(3) = POINT(X% + 28, Y% + 15) 'upper right test point
  214.  Test(4) = POINT(X% + 4, Y% + 32) 'lower left test point
  215.  Test(5) = POINT(X% + 16, Y% + 32) 'lower center test point
  216.  Test(6) = POINT(X% + 28, Y% + 32) 'lower right test point
  217.  FOR i%% = 1 TO 6
  218.   IF Test(i%%) <> Black THEN Result%% = TRUE
  219.  NEXT i%%
  220.  
  221.  IF _RED32(Test(2)) = 4 THEN
  222.   Result%% = FALSE 'player can walk into door way
  223.   IF NOT G.Just_Left THEN
  224.    IF Test(5) <> Black THEN G.Enter = _RED32(Test(2))
  225.   ELSE
  226.    IF Test(5) <> Black THEN Result%% = TRUE
  227.   END IF
  228.  
  230.   G.Just_Left = FALSE
  232.  
  233.  Movement_Collision = Result%%
  235.  
  236. SUB ClearLayer (L&)
  237.  old& = _DEST
  238.  _DEST L&
  239.  CLS , 0
  240.  _DEST old&
  242.  
  243. SUB Enter_Cave (ID%%)
  244.  L.Sx = 284: L.Sy = 440
  245.  SELECT CASE ID%%
  246.   CASE 1
  247.    G.Mx = L.X
  248.    G.My = L.Y
  249.    L.X = 0
  250.    L.Y = 8
  251.    G.Enter = FALSE
  252.    G.In_Cave = TRUE
  255.  
  256. SUB Exit_Cave (ID%%)
  257.  SELECT CASE ID%%
  258.   CASE 1
  259.    L.X = G.Mx
  260.    L.Y = G.My
  261.    G.In_Cave = FALSE
  262.    Play_Exiting_Animation G.Ox, G.Oy
  263.    G.Text_Done = FALSE
  266.  
  267. SUB Place_Cave_Screen
  268.  _PUTIMAGE (64, 128)-STEP(511, 351), Layer(2), Layer(1), (1, 1421)-STEP(255, 175)
  270.  
  271. SUB Build_Cave_Collision_Screen
  272.  _PUTIMAGE (64, 128)-STEP(511, 351), Layer(11), Layer(12), (1, 1421)-STEP(255, 175)
  274.  
  275. SUB Display_Map_Screen (X%%, Y%%)
  276.  _PUTIMAGE (64, 128)-STEP(511, 351), Layer(2), Layer(1), (1 + 257 * X%%, 1 + 177 * Y%%)-STEP(255, 175)
  278.  
  279. SUB Place_Header
  280.  _PUTIMAGE (64, 16)-STEP(511, 111), Layer(4), Layer(1), (258, 11)-STEP(255, 55)
  282.  
  283. SUB Place_Map_Grid
  284.  _PUTIMAGE (96, 32)-STEP(127, 79), Layer(4), Layer(1), (519, 1)-STEP(63, 39)
  286.  
  287. SUB Display_Ruby_Count (X~%%)
  288.  C$ = LTRIM$(STR$(X~%%))
  289.  IF LEN(C$) < 3 THEN
  290.   IF LEN(C$) = 1 THEN C$ = C$ + " "
  291.   C$ = "X" + C$
  293.  _PRINTSTRING (256, 45), C$, Layer(1) 'Rupies
  295.  
  296. SUB Display_Key_Count (X%%)
  297.  C$ = LTRIM$(STR$(X%%))
  298.  IF LEN(C$) = 1 THEN C$ = C$ + " "
  299.  _PRINTSTRING (256, 75), "X" + C$, Layer(1) 'keys
  301.  
  302. SUB Display_Bomb_Count (X%%)
  303.  C$ = LTRIM$(STR$(X%%))
  304.  IF LEN(C$) = 1 THEN C$ = C$ + " "
  305.  _PRINTSTRING (256, 93), "X" + C$, Layer(1) 'bombs
  307.  
  308. SUB Display_Hearts (X%%)
  309.  FOR i%% = 1 TO X%% \ 2
  310.   _PUTIMAGE (416 + (i%% - 1) * 16, 96)-STEP(15, 15), Layer(4), Layer(1), (645, 117)-STEP(7, 7)
  311.  NEXT i%%
  312.  IF X%% MOD 2 = 1 THEN
  313.   _PUTIMAGE (416 + (i%% - 1) * 16, 96)-STEP(15, 15), Layer(4), Layer(1), (636, 117)-STEP(7, 7)
  316.  
  317. SUB Display_Heart_Containers (X%%)
  318.  FOR i%% = 1 TO X%%
  319.   _PUTIMAGE (416 + (i%% - 1) * 16, 96)-STEP(15, 15), Layer(4), Layer(1), (627, 117)-STEP(7, 7)
  320.  NEXT i%%
  322.  
  323. SUB Display_B_Hand (ID%%)
  324.  _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  325.  SELECT CASE ID%%
  326.   CASE 0 'no item
  327.   CASE 1 'Boomerang
  328.    IF _READBIT(L.Items, 8) THEN
  329.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (592, 137)-STEP(7, 15) '
  330.    ELSEIF _READBIT(L.Items, 0) THEN
  331.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (584, 137)-STEP(7, 15) 'boomerang
  332.    END IF
  333.   CASE 2 'Bomb
  334.    _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (604, 137)-STEP(7, 15) '
  335.   CASE 3 'Bow
  336.    _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (633, 137)-STEP(7, 15) '
  337.   CASE 4 'Blue Candle
  338.    IF _READBIT(L.Items, 9) THEN
  339.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (653, 137)-STEP(7, 15) '
  340.    ELSEIF _READBIT(L.Items, 3) THEN
  341.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (644, 137)-STEP(7, 15) '
  342.    END IF
  343.   CASE 5 'Recorder
  344.    _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (664, 137)-STEP(7, 15) '
  345.   CASE 6 'Meat
  346.    _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (675, 137)-STEP(7, 15) '
  347.   CASE 7 'Letter
  348.    IF _READBIT(L.Items, 11) THEN
  349.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (704, 137)-STEP(7, 15) '
  350.    ELSEIF _READBIT(L.Items, 10) THEN
  351.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (695, 137)-STEP(7, 15) '
  352.    ELSEIF _READBIT(L.Items, 6) THEN
  353.     _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (686, 137)-STEP(7, 15) '
  354.    END IF
  355.   CASE 8 'Magical Rod
  356.    _PUTIMAGE (320, 64)-STEP(15, 31), Layer(4), Layer(1), (715, 137)-STEP(7, 15) '
  359.  
  360. SUB Display_A_Hand (ID%%)
  361.  _PUTIMAGE (368, 64)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  362.  SELECT CASE ID%%
  363.   CASE 0 'no sword
  364.   CASE 1 'Wooden sword
  365.    _PUTIMAGE (368, 64)-STEP(15, 31), Layer(4), Layer(1), (555, 137)-STEP(7, 15)
  366.   CASE 2 'Silver Sword
  367.    _PUTIMAGE (368, 64)-STEP(15, 31), Layer(4), Layer(1), (564, 137)-STEP(7, 15)
  368.   CASE 3 'Magical Sword
  369.    _PUTIMAGE (368, 64)-STEP(15, 31), Layer(4), Layer(1), (573, 137)-STEP(7, 15)
  372.  
  373. SUB Display_Map_Position (X%%, Y%%)
  374.  _PUTIMAGE (96 + X%% * 8, 48 + Y%% * 8)-STEP(5, 5), Layer(4), Layer(1), (519, 126)-STEP(2, 2) 'over world pos.
  376.  
  377. SUB Build_Main_Display
  378.  Display_Map_Screen L.X, L.Y
  379.  Place_Collision_map L.X, L.Y
  380.  Place_Header
  381.  Place_Map_Grid
  382.  Display_Ruby_Count L.Rupies
  383.  Display_Key_Count L.Keys
  384.  Display_Bomb_Count L.Bombs
  385.  Display_Heart_Containers L.HeartContainers
  386.  Display_Hearts L.Hearts
  387.  Display_Map_Position L.X, L.Y
  389.  
  390. FUNCTION Animate_Link%%
  391.  STATIC Count%%, Result%%
  392.  Count%% = Count%% + 1
  393.  IF Count%% = 10 THEN Result%% = 1
  394.  IF Count%% = 20 THEN Result%% = 0: Count%% = 0
  395.  Animate_Link = Result%%
  397.  
  398. SUB Place_Collision_map (X%%, Y%%)
  399.  _PUTIMAGE (64, 128)-STEP(511, 351), Layer(5), Layer(10), (1 + 257 * X%%, 1 + 177 * Y%%)-STEP(255, 175)
  401.  
  402. SUB Play_Entering_Animation (X%, Y%)
  403.  G.Ox = X%
  404.  G.Oy = Y%
  405.  F%% = 0
  406.  FOR i%% = 0 TO 15
  407.   Build_Main_Display
  408.   _PUTIMAGE (X%, Y% + (i%% * 2) + 2)-STEP(31, 31 - (i%% * 2)), Layer(3), Layer(1), (69 + F%% * 17, 11)-STEP(15, 15 - i%%)
  409.   IF F%% = 0 THEN F%% = 1 ELSE F%% = 0
  410.   _PUTIMAGE , Layer(1), Layer(0)
  411.   _LIMIT 12
  412.  NEXT i%%
  413.  Build_Main_Display
  414.  _PUTIMAGE , Layer(1), Layer(0)
  416.  
  417. SUB Play_Exiting_Animation (X%, Y%)
  418.  F%% = 0
  419.  FOR i%% = 15 TO 0 STEP -1
  420.   Build_Main_Display
  421.   _PUTIMAGE (X%, Y% + (i%% * 2) + 2)-STEP(31, 31 - (i%% * 2)), Layer(3), Layer(1), (1 + F%% * 17, 11)-STEP(15, 15 - i%%)
  422.   IF F%% = 0 THEN F%% = 1 ELSE F%% = 0
  423.   _PUTIMAGE , Layer(1), Layer(0)
  424.   _LIMIT 12
  425.  NEXT i%%
  426.  Build_Main_Display
  427.  _PUTIMAGE , Layer(1), Layer(0)
  428.  L.Sx = X%
  429.  L.Sy = Y% + (i%% * 2) + 4
  430.  L.Face = DOWN
  431.  G.Enter = FALSE
  432.  G.Just_Left = TRUE
  434.  
  435. SUB Scroll_Map (X%%, Y%%, D%%)
  436.  '---------------setup----------------
  437.  Build_Main_Display
  438.  _PUTIMAGE , Layer(1), Layer(9)
  439.  SELECT CASE D%%
  440.   CASE UP
  441.    Display_Map_Screen X%%, Y%% - 1
  442.    _PUTIMAGE , Layer(1), Layer(11)
  443.   CASE DOWN
  444.    Display_Map_Screen X%%, Y%% + 1
  445.    _PUTIMAGE , Layer(1), Layer(11)
  446.   CASE LEFT
  447.    Display_Map_Screen X%% - 1, Y%%
  448.    _PUTIMAGE , Layer(1), Layer(11)
  449.   CASE RIGHT
  450.    Display_Map_Screen X%% + 1, Y%%
  451.    _PUTIMAGE , Layer(1), Layer(11)
  453.  '------------------------------------
  454.  SELECT CASE D%%
  455.   CASE UP
  456.    FOR i% = 0 TO 177 STEP 1
  457.     _PUTIMAGE , Layer(9), Layer(1) 'put base
  458.     _PUTIMAGE (64, 128)-STEP(511, 351), Layer(2), Layer(1), (1 + 257 * X%%, 1 + 177 * Y%% - i%)-STEP(255, 175)
  459.     Place_Link L.Sx, L.Sy, L.Frame
  460.     L.Sy = L.Sy + 2
  461.     IF L.Sy > 444 THEN L.Sy = 444
  462.     L.Frame = Animate_Link
  463.     _PUTIMAGE , Layer(1), Layer(0)
  464.     _LIMIT 110
  465.    NEXT i%
  466.    L.Y = L.Y - 1
  467.   CASE DOWN
  468.    FOR i% = 0 TO 177 STEP 1
  469.     _PUTIMAGE , Layer(9), Layer(1) 'put base
  470.     _PUTIMAGE (64, 128)-STEP(511, 351), Layer(2), Layer(1), (1 + 257 * X%%, 1 + 177 * Y%% + i%)-STEP(255, 175)
  471.     Place_Link L.Sx, L.Sy, L.Frame
  472.     L.Sy = L.Sy - 2
  473.     IF L.Sy < 116 THEN L.Sy = 116
  474.     L.Frame = Animate_Link
  475.     _PUTIMAGE , Layer(1), Layer(0)
  476.     _LIMIT 110
  477.    NEXT i%
  478.    L.Y = L.Y + 1
  479.   CASE LEFT
  480.    FOR i% = 0 TO 257 STEP 1
  481.     _PUTIMAGE , Layer(9), Layer(1) 'put base
  482.     _PUTIMAGE (64, 128)-STEP(511, 351), Layer(2), Layer(1), (1 + 257 * X%% - i%, 1 + 177 * Y%%)-STEP(255, 175)
  483.     Place_Link L.Sx, L.Sy, L.Frame
  484.     L.Sx = L.Sx + 2
  485.     IF L.Sx > 544 THEN L.Sx = 544
  486.     L.Frame = Animate_Link
  487.     _PUTIMAGE , Layer(1), Layer(0)
  488.     _LIMIT 130
  489.    NEXT i%
  490.    L.X = L.X - 1
  491.   CASE RIGHT
  492.    FOR i% = 0 TO 257 STEP 1
  493.     _PUTIMAGE , Layer(9), Layer(1) 'put base
  494.     _PUTIMAGE (64, 128)-STEP(511, 351), Layer(2), Layer(1), (1 + 257 * X%% + i%, 1 + 177 * Y%%)-STEP(255, 175)
  495.     Place_Link L.Sx, L.Sy, L.Frame
  496.     L.Sx = L.Sx - 2
  497.     IF L.Sx < 62 THEN L.Sx = 62
  498.     L.Frame = Animate_Link
  499.     _PUTIMAGE , Layer(1), Layer(0)
  500.     _LIMIT 130
  501.    NEXT i%
  502.    L.X = L.X + 1
  505.  
  506. SUB Place_Flame (X%%, Y%%)
  507.  STATIC Frame%%
  508.  SELECT CASE Frame%%
  509.   CASE 0 TO 9
  510.    _PUTIMAGE (48 + 32 * X%%, 128 + 32 * Y%%)-STEP(31, 31), Layer(3), Layer(1), (191, 185)-STEP(15, 15)
  511.   CASE 10 TO 19
  512.    _PUTIMAGE (80 + 32 * X%%, 128 + 32 * Y%%)-STEP(-31, 31), Layer(3), Layer(1), (191, 185)-STEP(15, 15)
  514.  Frame%% = Frame%% + 1
  515.  IF Frame%% = 20 THEN Frame%% = 0
  517.  
  518. SUB Display_Triforce_Container
  519.  _PUTIMAGE (64, 208)-STEP(511, 175), Layer(4), Layer(1), (1, 112)-STEP(255, 87)
  520.  _PUTIMAGE (224, 240)-STEP(191, 95), Layer(4), Layer(1), (519, 42)-STEP(95, 47)
  522.  
  523. SUB Place_Triforce
  524.  IF _READBIT(L.TriForce, 0) THEN _PUTIMAGE (256, 288)-STEP(31, 31), Layer(4), Layer(1), (519, 91)-STEP(15, 15)
  525.  IF _READBIT(L.TriForce, 1) THEN _PUTIMAGE (352, 288)-STEP(31, 31), Layer(4), Layer(1), (536, 91)-STEP(15, 15)
  526.  IF _READBIT(L.TriForce, 2) THEN _PUTIMAGE (288, 288)-STEP(31, 31), Layer(4), Layer(1), (553, 91)-STEP(15, 15)
  527.  IF _READBIT(L.TriForce, 3) THEN _PUTIMAGE (321, 319)-STEP(-31, -31), Layer(4), Layer(1), (553, 91)-STEP(15, 15)
  528.  IF _READBIT(L.TriForce, 2) AND _READBIT(L.TriForce, 3) THEN _PUTIMAGE (288, 288)-STEP(31, 31), Layer(4), Layer(1), (587, 91)-STEP(15, 15)
  529.  IF _READBIT(L.TriForce, 4) THEN _PUTIMAGE (320, 288)-STEP(31, 31), Layer(4), Layer(1), (553, 91)-STEP(15, 15)
  530.  IF _READBIT(L.TriForce, 5) THEN _PUTIMAGE (353, 319)-STEP(-31, -31), Layer(4), Layer(1), (553, 91)-STEP(15, 15)
  531.  IF _READBIT(L.TriForce, 4) AND _READBIT(L.TriForce, 5) THEN _PUTIMAGE (320, 288)-STEP(31, 31), Layer(4), Layer(1), (587, 91)-STEP(15, 15)
  532.  IF _READBIT(L.TriForce, 6) THEN _PUTIMAGE (288, 256)-STEP(31, 31), Layer(4), Layer(1), (519, 91)-STEP(15, 15)
  533.  IF _READBIT(L.TriForce, 7) THEN _PUTIMAGE (320, 256)-STEP(31, 31), Layer(4), Layer(1), (536, 91)-STEP(15, 15)
  535.  
  536. SUB Place_Invenorty_Container
  537.  _PUTIMAGE (64, 32)-STEP(511, 175), Layer(4), Layer(1), (1, 11)-STEP(255, 87)
  539.  
  540. SUB Display_Inventory
  541.  'Upper Items(non selectable)
  542.  ' Raft,Book,B_Ring,R_Ring,Ladder,M_Key,Bracelet
  543.  IF _READBIT(L.Items, 14) THEN _PUTIMAGE (320, 80)-STEP(31, 31), Layer(4), Layer(1), (519, 156)-STEP(15, 15) ELSE _PUTIMAGE (320, 80)-STEP(31, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  544.  IF _READBIT(L.Items, 15) THEN _PUTIMAGE (368, 80)-STEP(15, 31), Layer(4), Layer(1), (538, 156)-STEP(7, 15) ELSE _PUTIMAGE (368, 80)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  545.  IF _READBIT(L.Items, 16) THEN _PUTIMAGE (392, 80)-STEP(15, 31), Layer(4), Layer(1), (549, 156)-STEP(7, 15) ELSE _PUTIMAGE (392, 80)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  546.  IF _READBIT(L.Items, 17) THEN _PUTIMAGE (392, 80)-STEP(15, 31), Layer(4), Layer(1), (560, 156)-STEP(7, 15) ELSE _PUTIMAGE (392, 80)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  547.  IF _READBIT(L.Items, 18) THEN _PUTIMAGE (416, 80)-STEP(31, 31), Layer(4), Layer(1), (571, 156)-STEP(15, 15) ELSE _PUTIMAGE (416, 80)-STEP(31, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  548.  IF _READBIT(L.Items, 19) THEN _PUTIMAGE (456, 80)-STEP(15, 31), Layer(4), Layer(1), (590, 156)-STEP(7, 15) ELSE _PUTIMAGE (456, 80)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  549.  IF _READBIT(L.Items, 20) THEN _PUTIMAGE (480, 80)-STEP(15, 31), Layer(4), Layer(1), (601, 156)-STEP(7, 15) ELSE _PUTIMAGE (480, 80)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  550.  'lower items(selectable)
  551.  'Boomerang,bomb,bow,B_Candle,Recorder,meat,letter,rod,M_Boomerang,R_Candle,B_Potion,R_potion,Arrow,S_Arrow
  552.  IF _READBIT(L.Items, 0) THEN _PUTIMAGE (328, 128)-STEP(15, 31), Layer(4), Layer(1), (584, 137)-STEP(7, 15) ELSE _PUTIMAGE (328, 128)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  553.  IF _READBIT(L.Items, 1) THEN _PUTIMAGE (376, 128)-STEP(15, 31), Layer(4), Layer(1), (604, 137)-STEP(7, 15) ELSE _PUTIMAGE (376, 128)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  554.  IF _READBIT(L.Items, 2) THEN _PUTIMAGE (432, 128)-STEP(15, 31), Layer(4), Layer(1), (633, 137)-STEP(7, 15) ELSE _PUTIMAGE (432, 128)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  555.  IF _READBIT(L.Items, 3) THEN _PUTIMAGE (472, 128)-STEP(15, 31), Layer(4), Layer(1), (644, 137)-STEP(7, 15) ELSE _PUTIMAGE (472, 128)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  556.  IF _READBIT(L.Items, 4) THEN _PUTIMAGE (328, 160)-STEP(15, 31), Layer(4), Layer(1), (664, 137)-STEP(7, 15) ELSE _PUTIMAGE (328, 160)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  557.  IF _READBIT(L.Items, 5) THEN _PUTIMAGE (376, 160)-STEP(15, 31), Layer(4), Layer(1), (675, 137)-STEP(7, 15) ELSE _PUTIMAGE (376, 160)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  558.  IF _READBIT(L.Items, 6) THEN _PUTIMAGE (424, 160)-STEP(15, 31), Layer(4), Layer(1), (686, 137)-STEP(7, 15) ELSE _PUTIMAGE (424, 160)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  559.  IF _READBIT(L.Items, 7) THEN _PUTIMAGE (472, 160)-STEP(15, 31), Layer(4), Layer(1), (715, 137)-STEP(7, 15) ELSE _PUTIMAGE (472, 160)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  560.  IF _READBIT(L.Items, 8) THEN _PUTIMAGE (328, 128)-STEP(15, 31), Layer(4), Layer(1), (593, 137)-STEP(7, 15)
  561.  IF _READBIT(L.Items, 9) THEN _PUTIMAGE (472, 128)-STEP(15, 31), Layer(4), Layer(1), (653, 137)-STEP(7, 15)
  562.  IF _READBIT(L.Items, 10) THEN _PUTIMAGE (424, 160)-STEP(15, 31), Layer(4), Layer(1), (695, 137)-STEP(7, 15)
  563.  IF _READBIT(L.Items, 11) THEN _PUTIMAGE (424, 160)-STEP(15, 31), Layer(4), Layer(1), (704, 137)-STEP(7, 15)
  564.  IF _READBIT(L.Items, 12) THEN _PUTIMAGE (416, 128)-STEP(15, 31), Layer(4), Layer(1), (615, 137)-STEP(7, 15) ELSE _PUTIMAGE (416, 128)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  565.  IF _READBIT(L.Items, 13) THEN _PUTIMAGE (416, 128)-STEP(15, 31), Layer(4), Layer(1), (624, 137)-STEP(7, 15)
  567.  
  568. SUB Display_Selected_Item (ID%%)
  569.  _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (500, 32)-STEP(7, 15) 'blank it
  570.  SELECT CASE ID%%
  571.   CASE 0 'no item
  572.   CASE 1 'Boomerang
  573.    IF _READBIT(L.Items, 8) THEN
  574.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (592, 137)-STEP(7, 15) '
  575.    ELSEIF _READBIT(L.Items, 0) THEN
  576.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (584, 137)-STEP(7, 15) 'boomerang
  577.    END IF
  578.   CASE 2 'Bomb
  579.    _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (604, 137)-STEP(7, 15) '
  580.   CASE 3 'Bow
  581.    _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (633, 137)-STEP(7, 15) '
  582.   CASE 4 'Blue Candle
  583.    IF _READBIT(L.Items, 9) THEN
  584.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (653, 137)-STEP(7, 15) '
  585.    ELSEIF _READBIT(L.Items, 3) THEN
  586.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (644, 137)-STEP(7, 15) '
  587.    END IF
  588.   CASE 5 'Recorder
  589.    _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (664, 137)-STEP(7, 15) '
  590.   CASE 6 'Meat
  591.    _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (675, 137)-STEP(7, 15) '
  592.   CASE 7 'Letter
  593.    IF _READBIT(L.Items, 11) THEN
  594.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (704, 137)-STEP(7, 15) '
  595.    ELSEIF _READBIT(L.Items, 10) THEN
  596.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (695, 137)-STEP(7, 15) '
  597.    ELSEIF _READBIT(L.Items, 6) THEN
  598.     _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (686, 137)-STEP(7, 15) '
  599.    END IF
  600.   CASE 8 'Magical Rod
  601.    _PUTIMAGE (200, 128)-STEP(15, 31), Layer(4), Layer(1), (715, 137)-STEP(7, 15) '
  604.  
  605. SUB Scroll_Overworld_Inventory (Dir%%)
  606.  Build_Overworld_Inventory_Display
  607.  Build_Main_Display
  608.  Place_Link L.Sx, L.Sy, L.Frame
  609.  _PUTIMAGE , Layer(1), Layer(9)
  610.  ClearLayer Layer(1)
  611.  SELECT CASE Dir%%
  612.   CASE TOINVENTORY
  613.    FOR i% = 0 TO 365 STEP 2
  614.     _PUTIMAGE (0, i%), Layer(9), Layer(1)
  615.     _PUTIMAGE (0, 0 - 366 + i%), Layer(8), Layer(1)
  616.     _PUTIMAGE , Layer(1), Layer(0)
  617.     _LIMIT 120
  618.    NEXT
  619.    _PUTIMAGE (0, i%), Layer(9), Layer(1)
  620.    _PUTIMAGE (0, 0 - 366 + i%), Layer(8), Layer(1)
  621.    Display_Inventory
  622.    _PUTIMAGE , Layer(1), Layer(0)
  623.   CASE TOMAP
  624.    FOR i% = 366 TO 0 STEP -2
  625.     _PUTIMAGE (0, i%), Layer(9), Layer(1)
  626.     _PUTIMAGE (0, 0 - 366 + i%), Layer(8), Layer(1)
  627.     _PUTIMAGE , Layer(1), Layer(0)
  628.     _LIMIT 120
  629.    NEXT
  632.  
  633. SUB Build_Overworld_Inventory_Display
  634.  ClearLayer Layer(1)
  635.  Display_Triforce_Container
  636.  Place_Triforce
  637.  Place_Invenorty_Container
  638.  _PUTIMAGE , Layer(1), Layer(8)
  639.  ClearLayer Layer(1)
  641.  
  642. SUB Run_Overworld_Inventory
  643.  ExitFlag%% = FALSE: _KEYCLEAR
  644.  _PUTIMAGE , Layer(0), Layer(11)
  645.  IF L.Items THEN Selection%% = L.Hand_B ELSE Selection%% = 0
  646.  DO
  647.   _PUTIMAGE , Layer(11), Layer(1)
  648.   Display_Inventory_Selection_Box Selection%%
  649.   Display_Selected_Item Selection%%
  650.   _PRINTSTRING (0, 0), STR$(Selection%%), Layer(1)
  651.  
  652.   _PUTIMAGE , Layer(1), Layer(0)
  653.   _LIMIT 30
  654.   IF Selection%% > 0 THEN
  655.  
  656.    IF _KEYDOWN(Key_Right) AND (NOT Key_Lock%%) THEN
  657.     Selection%% = Selection%% + 1: Key_Lock%% = TRUE
  658.     IF Selection%% = 9 THEN Selection%% = 1
  659.     DO
  660.      IF _READBIT(L.Items, Selection%% - 1) THEN
  661.       Good%% = TRUE 'if player has item then allow selection
  662.      ELSE
  663.       Selection%% = Selection%% + 1 'otherwise move to next item
  664.       IF Selection%% = 9 THEN Selection%% = 1
  665.       Good%% = FALSE
  666.      END IF
  667.     LOOP UNTIL Good%%
  668.    END IF
  669.  
  670.    IF _KEYDOWN(Key_Left) AND (NOT Key_Lock%%) THEN
  671.     Selection%% = Selection%% - 1: Key_Lock%% = TRUE
  672.     IF Selection%% = 0 THEN Selection%% = 8
  673.     DO
  674.      IF _READBIT(L.Items, Selection%% - 1) THEN
  675.       Good%% = TRUE 'if player has item then allow selection
  676.      ELSE
  677.       Selection%% = Selection%% - 1 'otherwise move to next item
  678.       IF Selection%% = 0 THEN Selection%% = 8
  679.       Good%% = FALSE
  680.      END IF
  681.     LOOP UNTIL Good%%
  682.    END IF
  683.  
  684.   END IF
  685.   IF _KEYHIT = Start_Button THEN ExitFlag%% = TRUE
  686.   IF NOT _KEYDOWN(Key_Right) AND NOT _KEYDOWN(Key_Left) THEN Key_Lock%% = FALSE
  687.  
  688.  LOOP UNTIL ExitFlag%%
  689.  L.Hand_B = Selection%%
  690.  ClearLayer Layer(11)
  692.  
  693. SUB Display_Inventory_Selection_Box (ID%%)
  694.  STATIC Frame%%
  695.  SELECT CASE Frame%%
  696.   CASE 0 TO 7
  697.    SX% = 519
  698.   CASE 8 TO 15
  699.    SX% = 536
  701.  YO%% = (ID%% - 1) \ 4
  702.  XO%% = (ID%% - 1) MOD 4
  703.  IF ID%% = 0 THEN XO%% = 0
  704.  _PUTIMAGE (320 + (XO%% * 48), 128 + (YO%% * 32))-STEP(31, 31), Layer(4), Layer(1), (SX%, 137)-STEP(15, 15) 'blue
  705.  Frame%% = Frame%% + 1
  706.  IF Frame%% = 16 THEN Frame%% = 0
  708.  
  709. FUNCTION LoadGFX& (Foff&, Size&)
  710.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  711.  OPEN "temp.dat" FOR BINARY AS #3
  712.  dat$ = SPACE$(Size&)
  713.  GET #1, Foff&, dat$
  714.  PUT #3, , dat$
  715.  CLOSE #3
  716.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  718.  
  719. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  720.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  721.  OPEN "temp.dat" FOR BINARY AS #3
  722.  dat$ = SPACE$(Size&)
  723.  GET #1, Foff&, dat$
  724.  PUT #3, , dat$
  725.  CLOSE #3
  726.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  728.  
  729. FUNCTION LoadSFX& (Foff&, Size&)
  730.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  731.  OPEN "temp.dat" FOR BINARY AS #3
  732.  dat$ = SPACE$(Size&)
  733.  GET #1, Foff&, dat$
  734.  PUT #3, , dat$
  735.  CLOSE #3
  736.  LoadSFX& = _SNDOPEN("temp.dat")
  738.  
  739. SUB LoadData (Foff&, Size&)
  740.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  741.  OPEN "temp.dat" FOR BINARY AS #3
  742.  dat$ = SPACE$(Size&)
  743.  GET #1, Foff&, dat$
  744.  PUT #3, , dat$
  745.  CLOSE #3
  746.  
  747.  F1 = FREEFILE
  748.  OPEN "temp.dat" FOR BINARY AS #F1
  749.  CLOSE #F1
  751.  
* Zelda1.MFI (Filesize: 612.94 KB, Downloads: 183)
« Last Edit: April 08, 2020, 09:19:43 pm by Cobalt »
Logged
Granted after becoming radioactive I only have a half-life!

Offline 40wattstudio

  • Newbie
  • Posts: 82
    • View Profile
    • 40wattstudio
Re: Hyrule Exploration!
« Reply #1 on: April 11, 2020, 08:31:39 pm »
I'm not familiar with the .mfi extension. Will this program work in Windows 10?
Logged

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Hyrule Exploration!
« Reply #2 on: April 12, 2020, 10:12:02 am »
What is a MFI file? Look Here.
https://www.qb64.org/forum/index.php?topic=2346.0

if QB64 runs then the demo should run too.
Logged
Granted after becoming radioactive I only have a half-life!
Pages: [1]   Go Up
« previous next »