« previous next »
Pages: [1]   Go Down

Author Topic: Zelda 64(NES Zelda Clone) Demo  (Read 3382 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
Zelda 64(NES Zelda Clone) Demo
« on: December 19, 2021, 09:41:26 pm »
After taking a peek at Craz1000's Master Sword game (based on the NES game Zelda) reminded me of my Zelda Clone I started in March 2018! So I brought it up, deleted all the code and started from scratch!
And here is my past Weeks worth of work on it!

Temporary controls(Defaults)

Letter controls are UPPER CASE!

A -  Start Button
B -  Select Button (change selection(option) in game selection screen)
Space Bar - Button A (attack)
Enter - Button B(not used yet)
Arrow Keys - Map navigation, letter selection

The Title Scroll works!
The Game Selection menus all work, Pick a game to resume, Register a name, and Elimination Mode.
Once Registering and picking your character you can Explore the map.
At the moment the map is empty, no creatures to combat, No caves or dungeons to enter. You do start with the first sword so blast and slash away!

took me a few hours to get the map traversing done, took 4 DAYS to get the title screen and game selection screens working!

Really putting this up here to see what people think of the Title screen and Selection screens, and to see if anyone can break those parts.

I should warn you it is possible to get stuck, if you change map screens and the next screen bottle necks down you can wind up stuck in rock. There is no way to undo this yet, you have to quit.

As I do not have the OPTIONS screen done yet, there is one option you can manually play with if you like, the Scale option. There are 3 settings; LINE 116:G.Scale_Factor = 1
1- Small(actual game size) 256x224px
2- Normal 512x448px
3- Large 768x672px

at scale 1 a debugging map of the game is displayed at the top of the screen, the yellow square is you.

(developed in 2.0.2, but tested on 1.4,1.5,and 1.6 all work[should work with all versions back to 1.1build82])

Code: QB64: [Select]
  1. 'Zelda Clone take 2
  2.  
  3. TYPE ControllerKeys
  4.  KBCon_Up AS LONG
  5.  KBCon_Down AS LONG
  6.  KBCon_Left AS LONG
  7.  KBCon_Right AS LONG
  8.  KBCon_Select AS LONG
  9.  KBCon_Start AS LONG
  10.  KBCon_A_Button AS LONG
  11.  KBCon_B_Button AS LONG
  13.  
  14. TYPE Game_Data
  15.  Impactflag AS _BYTE
  16.  Scale_Factor AS _BYTE
  17.  Scale_X AS _BYTE
  18.  Scale_Y AS _BYTE
  19.  NextScreen AS _BYTE
  20.  Wtime AS _BYTE
  21.  Atime AS _BYTE
  22.  Wframe AS _BYTE
  23.  Aframe AS _BYTE
  24.  Projectile_Count AS _BYTE
  25.  LoadedGame AS _BYTE 'which game is loaded?(1-3)
  27.  
  28. TYPE Projectile_Data
  29.  Id AS _BYTE '       Kind of projectile; Sword\Arrow\Rock\Ball
  30.  Xloc AS INTEGER '   Projectile location
  31.  Yloc AS INTEGER '
  32.  Direction AS _BYTE 'Direction Projectile is traveling
  33.  Hits AS _BYTE '     Hits per projectile\(AKA:damage) in half heart increments
  34.  Owner AS _BYTE '    Who shot the projectile
  36.  
  37. TYPE Links_Data
  38.  '-----Position data-----
  39.  World AS _BYTE '           Player in Overworld or Underworld
  40.  World_X AS _BYTE '         Overworld X position
  41.  World_Y AS _BYTE '         Overworld Y position
  42.  Tile_X AS _UNSIGNED _BYTE 'Array X location:for Collision\entrances
  43.  Tile_Y AS _BYTE '          Array Y location:for Collision\entrances
  44.  Screen_X AS INTEGER '      X Position on screen
  45.  Screen_Y AS INTEGER '      Y Position on screen
  46.  Direction AS _BYTE '       Direction player is moving\facing
  47.  '-----------------------
  48.  '------Status Data------
  49.  Hearts AS _BYTE '    Units of health: 2 units(halves) per heart
  50.  Containers AS _BYTE 'Max number of health: total full hearts
  51.  Hits AS _BYTE '      Used when Link has defence rings;Blue = 2 hits per 1\2 heart, Red = 4 hits per 1\2 heart
  52.  '-----------------------
  53.  '------Items Data-------
  54.  Sword AS _BYTE ' which Sword does player have? Wooden-1,Silver-2,Magical-3
  55.  Weapon AS _BYTE 'Which Weapon is in hand A? Wooden-1,Silver-2,Magical-3,Wand-4
  56.  Ring AS _BYTE 'which does player have? 0-none, 1-blue,2-red
  57.  '-----------------------
  58.  '------Extra Data-------
  59.  Action AS _BYTE '          is player; using an item, Aquiring an item\sword, or aquiring a piece of the triforce?
  60.  Shot AS _BYTE '            player has shot sword
  61.  Projectile_id AS _BYTE '
  62.  Played AS _UNSIGNED _BYTE 'how many times has player played?
  63.  Beaten AS _BYTE '          Has player beaten Game 1? Game 2?
  64.  '-----------------------
  66.  
  67. TYPE Map_Data
  68.  Id AS _UNSIGNED _BYTE 'Tile id
  69.  Hidden AS _BYTE '      is there something under the tile?
  70.  Burnable AS _BYTE '    can the tile be burnt with candle?
  71.  Pushable AS _BYTE '    can the tile be moved by pushing?
  72.  PushableXtra AS _BYTE 'can the tile be moved by pushing with braclet?
  73.  Is_Shop AS _BYTE '     is there a shop here?(shop\gift\gamble)
  74.  Walkable AS _BYTE '    can the tile be walk upon?
  76.  
  77.  
  78. CONST TRUE = -1, FALSE = NOT TRUE, None = 0
  79. CONST Up = 3, Right = 2, Left = 1, Down = 0, SELECT_BUTTON = 4, START_BUTTON = 5, BUTTON_B = 6, BUTTON_A = 7
  80. CONST OverWorld = 0, UnderWorld = 1
  81. CONST Walking = 1, Useing = 2, GetItem = 3, GetTriforce = 4, Attack = 5
  82. CONST Key_Right = 19712, Key_Left = 19200, Key_Up = 18432, Key_Down = 20480
  83. CONST Key_Space = 32, Key_Enter = 13
  84. CONST Default_Key_Right = 19712, Default_Key_Left = 19200, Default_Key_Up = 18432, Default_Key_Down = 20480
  85. CONST Default_A_Button = 32, Default_B_Button = 13, Default_Start_Button = 65, Default_Select_Button = 66
  86. CONST Sword = 1, Arrow = 2, Rock = 3, Ball = 4, Boomerang = 5
  87. CONST Player = 1, Monster = 2
  88. CONST Item = 0, Slash = 1, Stairs = 2, SwordShot = 3
  89.  
  90. DIM SHARED Layer(16) AS LONG, Hyrule(255, 87) AS Map_Data, Link AS Links_Data, Reset_Link AS Links_Data
  91. DIM SHARED C AS ControllerKeys, G AS Game_Data, P(16) AS Projectile_Data, Letter(44) AS STRING * 1
  92. DIM SHARED Offset_X(3) AS INTEGER, Offset_Y(3) AS INTEGER, Cave(15, 10) AS Map_Data
  93. DIM SHARED BGM(8) AS LONG, SFX(10) AS LONG, FFX(1) AS LONG
  94. DIM SHARED Records(3) AS Links_Data, Nick(3) AS STRING * 8 'loading\registering\elimination
  95.  
  96. SCREEN _NEWIMAGE(800, 600, 32)
  97.  
  98. Layer(0) = _DISPLAY
  99. Layer(1) = _NEWIMAGE(800, 600, 32) 'temp layer
  100. Layer(2) = _NEWIMAGE(640, 480, 256) 'palettized sprite sheet for color shifting
  101. Layer(3) = _NEWIMAGE(800, 600, 32) 'Map background prebuild layer
  102. Layer(4) = _NEWIMAGE(800, 600, 32) 'Mob layer
  103. Layer(5) = _NEWIMAGE(800, 600, 32) 'Sprite layer, moveable\burnable items + bomb holes + pickups
  104. Layer(6) = _NEWIMAGE(12288, 4224, 32) 'PreBuilt Map, upto 300%, for easier map scrolling.
  105. Layer(8) = _NEWIMAGE(800, 600, 32) 'debug map display
  106. Layer(16) = _NEWIMAGE(800, 600, 32) 'temp
  107.  
  108. MFI_Loader "Zelda.MFI"
  109.  
  110. _CLEARCOLOR _RGB32(31), Layer(7)
  111. _CLEARCOLOR _RGB32(116), Layer(12)
  113.  
  114.  
  115. '==================================
  116. G.Scale_Factor = 1
  117. G.Scale_X = 16 * G.Scale_Factor - 1
  118. G.Scale_Y = 16 * G.Scale_Factor - 1
  119. Link.Screen_X = Offset_X(G.Scale_Factor) + (16 * G.Scale_Factor * 7) + 8 * G.Scale_Factor '392
  120. Link.Screen_Y = Offset_Y(G.Scale_Factor) + (16 * G.Scale_Factor * 5) '292
  121. Nick(0) = "": Nick(1) = "": Nick(2) = "": Nick(3) = ""
  122. '==================================
  123.  
  124. 'OPEN "debug.txt" FOR OUTPUT AS #6
  125. Build_Map_Screen 16 * Link.World_X, 11 * Link.World_Y
  126. ClearLayer Layer(6)
  127. Build_Map_in_Totallity 'prebuild the entire map at the current scale factor
  128. ClearLayer Layer(1)
  129. _FONT FFX(0), Layer(1)
  130. _FONT FFX(0), Layer(16)
  131. Title_Screen
  132. Select_Screen
  133.  
  135.  SELECT CASE Get_Input
  136.   CASE BUTTON_A
  137.    IF G.Aframe = 0 AND G.Atime = 0 THEN _SNDPLAY SFX(Slash): Link.Action = Attack: Press = Press + 1
  138.    Check_Link_Sword_Shot
  139.   CASE Up
  140.    IF Link.Action <> Attack THEN Link.Direction = Up: Link.Action = Walking
  141.   CASE Down
  142.    IF Link.Action <> Attack THEN Link.Direction = Down: Link.Action = Walking
  143.   CASE Right
  144.    IF Link.Action <> Attack THEN Link.Direction = Right: Link.Action = Walking
  145.   CASE Left
  146.    IF Link.Action <> Attack THEN Link.Direction = Left: Link.Action = Walking
  148.    IF Link.Action = Walking THEN Link.Action = None
  150.  
  151.  IF Link.Action = GetItem OR Link.Action = GetTriforce THEN
  152.   IF NOT _SNDPLAYING(Temp&) THEN Link.Action = None
  154.  '------Graphx build------
  155.  _PUTIMAGE , Layer(3), Layer(1)
  156.  IF Link.Action = Walking THEN Move_Link
  157.  IF Link.Shot THEN Move_Sword_Shot
  158.  IF G.Impactflag THEN Impact 0, 0
  159.  Place_Link
  160.  ' _PRINTSTRING (0, 0), STR$(Link.Tile_X) + STR$(Link.Tile_Y) + STR$(G.Projectile_Count), Layer(1)
  161.  IF G.Scale_Factor = 1 THEN _PUTIMAGE , Layer(8), Layer(1)
  162.  _DEST Layer(1)
  163.  LINE (100 + 2 * Link.Tile_X, 0 + 2 * Link.Tile_Y)-STEP(1, 1), _RGB32(255, 255, 0), BF
  164.  _PUTIMAGE , Layer(1), Layer(0)
  165.  ClearLayer Layer(1)
  166.  '------------------------
  167.  IF INKEY$ = CHR$(27) THEN ExitFlag%% = TRUE
  168.  _LIMIT 60
  169. LOOP UNTIL ExitFlag%%
  170.  
  171.  
  172. SUB Add_Projectile (What%%, Who%%)
  173.  SELECT CASE What%%
  174.   CASE Sword
  175.    P(G.Projectile_Count).Owner = Who%%
  176.    P(G.Projectile_Count).Id = Sword
  177.    P(G.Projectile_Count).Direction = Link.Direction
  178.    IF Who%% = Player THEN
  179.     P(G.Projectile_Count).Xloc = Link.Screen_X
  180.     P(G.Projectile_Count).Yloc = Link.Screen_Y
  181.    ELSE
  182.    END IF
  183.    G.Projectile_Count = G.Projectile_Count + 1
  186.  
  187. SUB Remove_Projectile (What%%, Who%%)
  188.  SELECT CASE What%%
  189.   CASE Sword
  190.    IF Who%% = Player THEN
  191.     G.Projectile_Count = G.Projectile_Count - 1
  192.    END IF
  195.  
  196. SUB Build_Cave_Screen
  197.  FOR Y%% = 0 TO 10
  198.   FOR X%% = 0 TO 15
  199.    Place_Tile_On_Screen (16 * G.Scale_Factor) * X%%, (16 * G.Scale_Factor) * Y%%, Cave(X%%, Y%%).Id, Layer(3)
  200.   NEXT
  203.  
  204. SUB Build_Map_Screen (Map_X~%%, Map_Y%%)
  205.  _DEST Layer(8)
  206.  FOR Y%% = 0 TO 10
  207.   FOR X%% = 0 TO 15
  208.    Place_Tile_On_Screen (16 * G.Scale_Factor) * X%%, (16 * G.Scale_Factor) * Y%%, Hyrule(Map_X~%% + X%%, Map_Y%% + Y%%).Id, Layer(3)
  209.   NEXT
  211.  FOR Y%% = 0 TO 87
  212.   FOR x~%% = 0 TO 255
  213.    IF Hyrule(x~%%, Y%%).Walkable = FALSE THEN LINE (100 + 2 * x~%%, 0 + 2 * Y%%)-STEP(1, 1), _RGB32(255), BF
  214.   NEXT
  216.  _DEST Layer(0)
  218.  
  219. SUB Build_Map_in_Totallity
  220.  FOR Y%% = 0 TO 87
  221.   FOR X~%% = 0 TO 255
  222.    tile~%% = Hyrule(X~%%, Y%%).Id
  223.    Gy% = 17 * (tile~%% \ 20) 'get which row it comes from
  224.    Gx% = 17 * (tile~%% MOD 20) 'which column position
  225.    _PUTIMAGE ((16 * G.Scale_Factor) * X~%%, (16 * G.Scale_Factor) * Y%%)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(6), (1 + Gx%, 1 + Gy%)-STEP(15, 15)
  226.   NEXT
  229.  
  230. SUB Check_Link_Location
  231.  Ax% = Link.World_X * 16 * (16 * G.Scale_Factor) 'gets the Left most pixel point for the current map screen
  232.  Ay% = Link.World_Y * 11 * (16 * G.Scale_Factor) 'gets the Top most pixel point for the current map screen
  233.  Tx~%% = (Ax% + Link.Screen_X - Offset_X(G.Scale_Factor) + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent x-offset+50% sprite size
  234.  Ty%% = (Ay% + Link.Screen_Y - Offset_Y(G.Scale_Factor) - 2 + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent y-offset+50% sprite size
  235.  IF Hyrule(Tx~%%, Ty%%).Is_Shop THEN Enter_Shop Hyrule(Tx~%%, Ty%%).Is_Shop
  236.  
  238.  
  239. SUB Enter_Shop (Which%%)
  241.  
  242. SUB Check_Link_Sword_Shot 'Can Link shoot his sword?
  243.  IF Link.Hearts = Link.Containers * 2 THEN 'Link has full hearts and can shoot
  244.   IF NOT _SNDPLAYING(SFX(SwordShot)) THEN 'Link did not just shoot
  245.    IF NOT G.Impactflag THEN 'Link's last shot has finished
  246.     IF NOT Link.Shot THEN
  247.      _SNDPLAY SFX(SwordShot)
  248.      Link.Shot = TRUE
  249.      Add_Projectile Sword, Player
  250.     END IF
  251.    END IF
  252.   END IF
  255.  
  256. SUB ClearLayer (L&)
  257.  _DEST L&
  258.  CLS
  261.  
  262. SUB ClearLayerTrans (L&)
  263.  _DEST L&
  264.  CLS , 0
  267.  
  268. SUB DarkenImage (Image AS LONG, Value_From_0_To_1 AS SINGLE)
  269.  IF Value_From_0_To_1 <= 0 OR Value_From_0_To_1 >= 1 OR _PIXELSIZE(Image) <> 4 THEN EXIT SUB
  270.  DIM Buffer AS _MEM: Buffer = _MEMIMAGE(Image) 'Get a memory reference to our image
  271.  DIM Frac_Value AS LONG: Frac_Value = Value_From_0_To_1 * 65536 'Used to avoid slow floating point calculations
  272.  DIM O AS _OFFSET, O_Last AS _OFFSET
  273.  O = Buffer.OFFSET 'We start at this offset
  274.  O_Last = Buffer.OFFSET + _WIDTH(Image) * _HEIGHT(Image) * 4 'We stop when we get to this offset
  275.  'use on error free code ONLY!
  277.  DO
  278.   _MEMPUT Buffer, O, _MEMGET(Buffer, O, _UNSIGNED _BYTE) * Frac_Value \ 65536 AS _UNSIGNED _BYTE
  279.   _MEMPUT Buffer, O + 1, _MEMGET(Buffer, O + 1, _UNSIGNED _BYTE) * Frac_Value \ 65536 AS _UNSIGNED _BYTE
  280.   _MEMPUT Buffer, O + 2, _MEMGET(Buffer, O + 2, _UNSIGNED _BYTE) * Frac_Value \ 65536 AS _UNSIGNED _BYTE
  281.   O = O + 4
  282.  LOOP UNTIL O = O_Last
  283.  'turn checking back on when done!
  285.  _MEMFREE Buffer
  287.  
  288. SUB Fade_Out (L&)
  289.  FOR n! = 1 TO 0.5 STEP -0.05
  290.   i2& = _COPYIMAGE(L&)
  291.   DarkenImage i2&, n!
  292.   _PUTIMAGE (0, 0), i2&, Layer(0)
  293.   _FREEIMAGE i2&
  294.   _DELAY .03
  297.  
  298. SUB Fade_In (L&)
  299.  FOR n! = 0.01 TO 1 STEP 0.05
  300.   i2& = _COPYIMAGE(L&)
  301.   DarkenImage i2&, n!
  302.   _PUTIMAGE (0, 0), i2&, Layer(0)
  303.   _FREEIMAGE i2&
  304.   _DELAY .03
  307.  
  308. FUNCTION Find_First_Available%% (Which%%, Start%%)
  309.  Selection%% = Start%% 'always start at the first saved game slot then check
  310.  DO 'lets find the first available selection (if there are any saved games)
  311.   IF Selection%% < 4 THEN
  312.    IF Which%% = 0 THEN IF RTRIM$(Nick(Selection%%)) = "" THEN Selection%% = Selection%% + 1 ELSE Good_Selection%% = TRUE
  313.    IF Which%% = 1 THEN IF RTRIM$(Nick(Selection%%)) = "" THEN Good_Selection%% = TRUE ELSE Selection%% = Selection%% + 1
  314.   ELSE '4 and 5 are always good selections
  315.    Good_Selection%% = TRUE
  316.   END IF
  317.  LOOP UNTIL Good_Selection%%
  318.  Find_First_Available = Selection%%
  320.  
  321. FUNCTION Get_Input%% ()
  322.  Result%% = TRUE '-1 for no input
  323.  ' SELECT CASE G.ControlType
  324.  '  CASE TRUE 'Keyboard input
  325.  IF _KEYDOWN(C.KBCon_Up) THEN Result%% = Up
  326.  IF _KEYDOWN(C.KBCon_Down) THEN Result%% = Down
  327.  IF _KEYDOWN(C.KBCon_Left) THEN Result%% = Left
  328.  IF _KEYDOWN(C.KBCon_Right) THEN Result%% = Right
  329.  IF _KEYDOWN(C.KBCon_Select) THEN Result%% = SELECT_BUTTON: ' DO: LOOP WHILE _KEYDOWN(C.KBCon_Select)
  330.  IF _KEYDOWN(C.KBCon_Start) THEN Result%% = START_BUTTON: ' DO: LOOP WHILE _KEYDOWN(C.KBCon_Start)
  331.  IF _KEYDOWN(C.KBCon_A_Button) THEN Result%% = BUTTON_A: ' DO: LOOP WHILE _KEYDOWN(C.KBCon_A_Button)
  332.  IF _KEYDOWN(C.KBCon_B_Button) THEN Result%% = BUTTON_B: ' DO: LOOP WHILE _KEYDOWN(C.KBCon_B_Button)
  333.  '  CASE FALSE 'joystick input
  334.  'IF C.Control_Pad THEN
  335.  'IF NOT G.Flag THEN DO: LOOP WHILE _DEVICEINPUT(C.Control_Pad)
  336.  'IF NOT C.BAD_Pad THEN
  337.  ' nul%% = AxisPower(CJR%%, CJL%%, CJU%%, CJD%%) 'read directional axis values
  338.  ' IF CJU%% THEN Result%% = Up
  339.  ' IF CJD%% THEN Result%% = Down
  340.  ' IF CJL%% THEN Result%% = Left
  341.  ' IF CJR%% THEN Result%% = Right
  342.  'ELSE
  343.  '   IF _BUTTON(C.Joy_Button_Up) THEN Result%% = Up ': Joy_Lock_Button (C.Joy_Button_Up)
  344.  '   IF _BUTTON(C.Joy_Button_Down) THEN Result%% = Down ': Joy_Lock_Button (C.Joy_Button_Down)
  345.  '   IF _BUTTON(C.Joy_Button_Left) THEN Result%% = Left ': Joy_Lock_Button (C.Joy_Button_Left)
  346.  '   IF _BUTTON(C.Joy_Button_Right) THEN Result%% = Right ': Joy_Lock_Button (C.Joy_Button_Right)
  347.  ' END IF
  348.  '  IF _BUTTON(C.Joy_Select) THEN Result%% = SELECT_BUTTON: Joy_Lock_Button (C.Joy_Select)
  349.  '  IF _BUTTON(C.Joy_Start) THEN Result%% = START_BUTTON: Joy_Lock_Button (C.Joy_Start)
  350.  '  IF _BUTTON(C.Joy_A_Button) THEN Result%% = BUTTON_A: Joy_Lock_Button (C.Joy_A_Button)
  351.  '  IF _BUTTON(C.Joy_B_Button) THEN Result%% = BUTTON_B: Joy_Lock_Button (C.Joy_B_Button)
  352.  ' END IF
  353.  ' END SELECT
  354.  Get_Input = Result%%
  356.  
  357. SUB Link_Attack
  358.  SELECT CASE Link.Direction
  359.   CASE Up
  360.    Ox%% = 0: Oy%% = -14 * G.Scale_Factor
  361.   CASE Down
  362.    Ox%% = 0: Oy%% = 14 * G.Scale_Factor
  363.   CASE Left
  364.    Ox%% = -14 * G.Scale_Factor + G.Aframe * (4 * G.Scale_Factor): Oy%% = 0
  365.   CASE Right
  366.    Ox%% = 14 * G.Scale_Factor - G.Aframe * (4 * G.Scale_Factor): Oy%% = 0
  368.  SELECT CASE G.Aframe
  369.   CASE 0
  370.    _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 17 * (Link.Direction + 8), 137)-STEP(15, 15)
  371.   CASE 1
  372.    _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 17 * (Link.Direction + 8), 137)-STEP(15, 15)
  373.    _PUTIMAGE (Link.Screen_X + Ox%%, Link.Screen_Y + Oy%%)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 51 * Link.Weapon, 171 + 17 * Link.Direction)-STEP(15, 15)
  374.   CASE 2
  375.    _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 34 * Link.Direction + 17, 137)-STEP(15, 15)
  376.    _PUTIMAGE (Link.Screen_X + Ox%%, Link.Screen_Y + Oy%%)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 51 * Link.Weapon + 17, 171 + 17 * Link.Direction)-STEP(15, 15)
  377.   CASE 3
  378.    _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 34 * Link.Direction + 0, 137)-STEP(15, 15)
  379.    _PUTIMAGE (Link.Screen_X + Ox%%, Link.Screen_Y + Oy%%)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 51 * Link.Weapon + 34, 171 + 17 * Link.Direction)-STEP(15, 15)
  380.   CASE ELSE 'attack animation finished
  381.    G.Atime = 0: G.Aframe = 0: Link.Action = None
  382.    _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 34 * Link.Direction + 17 * Frame%%, 137)-STEP(15, 15)
  386.  
  387. FUNCTION Link_Collision%% (Dir%%)
  388.  Result%% = FALSE 'start at no collision
  389.  'get links center point x\y tile position to check for collision
  390.  Ax% = Link.World_X * 16 * (16 * G.Scale_Factor) 'gets the Left most pixel point for the current map screen
  391.  Ay% = Link.World_Y * 11 * (16 * G.Scale_Factor) 'gets the Top most pixel point for the current map screen
  392.  'we now have the tile that Links center pixel is in!
  393.  SELECT CASE Dir%%
  394.   CASE Up
  395.    Tx~%% = (Ax% + Link.Screen_X - Offset_X(G.Scale_Factor) + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent x-offset+50% sprite size
  396.    Ty%% = (Ay% + Link.Screen_Y - Offset_Y(G.Scale_Factor) - 2 + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent y-offset+50% sprite size
  397.    IF NOT Hyrule(Tx~%%, Ty%%).Walkable THEN Result%% = TRUE
  398.   CASE Down
  399.    Tx~%% = (Ax% + Link.Screen_X - Offset_X(G.Scale_Factor) + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent x-offset+50% sprite size
  400.    Ty%% = (2 + Ay% + Link.Screen_Y - Offset_Y(G.Scale_Factor) + 2 + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent y-offset+50% sprite size
  401.    IF NOT Hyrule(Tx~%%, Ty%%).Walkable THEN Result%% = TRUE
  402.   CASE Left
  403.    Tx~%% = (Ax% + Link.Screen_X - Offset_X(G.Scale_Factor) - 2 + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent x-offset+50% sprite size
  404.    Ty%% = (Ay% + Link.Screen_Y - Offset_Y(G.Scale_Factor) + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent y-offset+50% sprite size
  405.    IF NOT Hyrule(Tx~%%, Ty%%).Walkable THEN Result%% = TRUE
  406.   CASE Right
  407.    Tx~%% = (2 + Ax% + Link.Screen_X - Offset_X(G.Scale_Factor) + 2 + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent x-offset+50% sprite size
  408.    Ty%% = (Ay% + Link.Screen_Y - Offset_Y(G.Scale_Factor) + (16 * G.Scale_Factor \ 2)) \ 16 * G.Scale_Factor 'now add curent y-offset+50% sprite size
  409.    IF NOT Hyrule(Tx~%%, Ty%%).Walkable THEN Result%% = TRUE
  411.  Link.Tile_X = Tx~%%
  412.  Link.Tile_Y = Ty%%
  413.  Link_Collision = Result%%
  415.  
  416. SUB Move_Link
  417.  SELECT CASE Link.Direction
  418.   CASE Up
  419.    IF NOT Link_Collision(Up) THEN 'nothing blocking Link
  420.     IF Link.Screen_Y > Offset_Y(G.Scale_Factor) THEN 'Link is not at the edge of the screen
  421.      Link.Screen_Y = Link.Screen_Y - 2 * G.Scale_Factor
  422.     ELSE 'player is at edge of screen to shift to next one.
  423.      G.NextScreen = Up
  424.      Shift_New_Map_Screen
  425.     END IF
  426.    END IF
  427.   CASE Down
  428.    IF NOT Link_Collision(Down) THEN 'nothing blocking Link
  429.     IF Link.Screen_Y < (Offset_Y(G.Scale_Factor) + (16 * G.Scale_Factor * 10)) THEN 'Link is not at the edge of the screen
  430.      Link.Screen_Y = Link.Screen_Y + 2 * G.Scale_Factor
  431.     ELSE 'player is at edge of screen to shift to next one.
  432.      G.NextScreen = Down
  433.      Shift_New_Map_Screen
  434.     END IF
  435.    END IF
  436.   CASE Left
  437.    IF NOT Link_Collision(Left) THEN 'nothing blocking Link
  438.     IF Link.Screen_X > Offset_X(G.Scale_Factor) THEN 'Link is not at the edge of the screen
  439.      Link.Screen_X = Link.Screen_X - 2 * G.Scale_Factor
  440.     ELSE 'player is at edge of screen to shift to next one.
  441.      G.NextScreen = Left
  442.      Shift_New_Map_Screen
  443.     END IF
  444.    END IF
  445.   CASE Right
  446.    IF NOT Link_Collision(Right) THEN 'nothing blocking Link
  447.     IF Link.Screen_X < (Offset_X(G.Scale_Factor) + (16 * G.Scale_Factor * 15)) THEN 'Link is not at the edge of the screen
  448.      Link.Screen_X = Link.Screen_X + 2 * G.Scale_Factor
  449.     ELSE 'player is at edge of screen to shift to next one.
  450.      G.NextScreen = Right
  451.      Shift_New_Map_Screen
  452.     END IF
  453.    END IF
  456.  
  457. SUB Move_Sword_Shot
  458.  STATIC Xloc AS INTEGER, Yloc AS INTEGER, Direction AS _BYTE, Fstp AS _BYTE, Frame AS _BYTE
  459.  IF Direction = -1 OR Xloc = 0 THEN 'if no direction assigned then assign one
  460.   Direction = Link.Direction
  461.   Xloc = Link.Screen_X
  462.   Yloc = Link.Screen_Y
  464.  SELECT CASE Direction
  465.   CASE Up
  466.    Yloc = Yloc - 4 * G.Scale_Factor
  467.   CASE Down
  468.    Yloc = Yloc + 4 * G.Scale_Factor
  469.   CASE Left
  470.    Xloc = Xloc - 4 * G.Scale_Factor
  471.   CASE Right
  472.    Xloc = Xloc + 4 * G.Scale_Factor
  474.  _PUTIMAGE (Xloc, Yloc)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 17 * Frame + 68 * Direction, 239)-STEP(15, 15)
  475.  SELECT CASE G.Scale_Factor
  476.   CASE 1
  477.    IF Xloc <= 272 OR Xloc >= 514 OR Yloc <= 212 OR Yloc >= 372 THEN Done%% = TRUE
  478.   CASE 2
  479.    IF Xloc <= 140 OR Xloc >= 630 OR Yloc <= 100 OR Yloc >= 430 THEN Done%% = TRUE
  480.   CASE 3
  481.    IF Xloc <= 16 OR Xloc >= 744 OR Yloc <= 96 OR Yloc >= 559 THEN Done%% = TRUE
  483.  IF Done%% THEN Link.Shot = FALSE: G.Impactflag = TRUE: Impact Xloc, Yloc: Direction = -1: Remove_Projectile Sword, Player
  484.  Fstp = Fstp + 1
  485.  IF Fstp = 2 THEN Fstp = 0: Frame = Frame + 1
  486.  IF Frame = 4 THEN Frame = 0
  488.  
  489. SUB Impact (X%, Y%)
  490.  STATIC Frame AS _BYTE, Fstp AS _BYTE, Xloc(3) AS INTEGER, Yloc(3) AS INTEGER
  491.  IF Frame = -1 OR Xloc(2) = 0 THEN
  492.   Fstp = 0
  493.   FOR i%% = 0 TO 3: Xloc(i%%) = X% + 8 * G.Scale_Factor: Yloc(i%%) = Y% + 8 * G.Scale_Factor: NEXT i%%
  495.  Xloc(0) = Xloc(0) - G.Scale_Factor: Yloc(0) = Yloc(0) - G.Scale_Factor
  496.  Xloc(1) = Xloc(1) + G.Scale_Factor: Yloc(1) = Yloc(1) - G.Scale_Factor
  497.  Xloc(2) = Xloc(2) + G.Scale_Factor: Yloc(2) = Yloc(2) + G.Scale_Factor
  498.  Xloc(3) = Xloc(3) - G.Scale_Factor: Yloc(3) = Yloc(3) + G.Scale_Factor
  499.  FOR i%% = 0 TO 3
  500.   SELECT CASE i%%
  501.    CASE 0
  502.     _PUTIMAGE (Xloc(i%%) - 16, Yloc(i%%) - 16)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (205 + 17 * Frame, 205)-STEP(15, 15)
  503.    CASE 1
  504.     _PUTIMAGE (Xloc(i%%) + 16, Yloc(i%%) - 16)-STEP(-G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (205 + 17 * Frame, 205)-STEP(15, 15)
  505.    CASE 2
  506.     _PUTIMAGE (Xloc(i%%) + 16, Yloc(i%%) + 16)-STEP(-G.Scale_X, -G.Scale_Y), Layer(7), Layer(1), (205 + 17 * Frame, 205)-STEP(15, 15)
  507.    CASE 3
  508.     _PUTIMAGE (Xloc(i%%) - 16, Yloc(i%%) + 16)-STEP(G.Scale_X, -G.Scale_Y), Layer(7), Layer(1), (205 + 17 * Frame, 205)-STEP(15, 15)
  510.  NEXT i%%
  511.  Fstp = Fstp + 1
  512.  Frame = Frame + 1
  513.  IF Frame = 4 THEN Frame = 0
  514.  IF Fstp = 16 THEN Frame = -1: G.Impactflag = FALSE
  516.  
  517. SUB Place_Link
  518.  STATIC Ftime AS _BYTE, Frame AS _BYTE
  519.  IF Link.Action = Walking THEN 'while Link is moving
  520.   G.Wtime = G.Wtime + 1 'Increment frame time
  521.   IF G.Wtime = 8 THEN
  522.    IF G.Wframe THEN G.Wframe = 0 ELSE G.Wframe = 1 'change frame
  523.    G.Wtime = 0 'reset frame time
  524.   END IF
  525.   _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 34 * Link.Direction + 17 * G.Wframe, 137)-STEP(15, 15)
  526.  ELSEIF Link.Action = Useing THEN 'when Link uses an item
  527.   Ftime = Ftime + 1 'Increment frame time
  528.   IF Ftime = 32 THEN Link.Action = None: Ftime = 0 'action is done
  529.   _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 17 * (Link.Direction + 8), 137)-STEP(15, 15)
  530.  ELSEIF Link.Action = GetItem THEN 'When Link gets a sword\item or buys something
  531.   'Held while music plays
  532.   _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 17 * 12, 137)-STEP(15, 15)
  533.  ELSEIF Link.Action = GetTriforce THEN 'When Link recovers a Triforce piece
  534.   'Held while music plays
  535.   _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 17 * 13, 137)-STEP(15, 15)
  536.  ELSEIF Link.Action = Attack THEN
  537.   G.Atime = G.Atime + 1 'Increment frame time
  538.   IF G.Atime = 4 THEN G.Aframe = G.Aframe + 1: G.Atime = 0 'change frame:reset frame time
  539.   Link_Attack
  540.  ELSE 'Link is standing Still(Action=None)
  541.   G.Atime = 0: G.Aframe = 0
  542.   G.Wtime = 0: G.Wframe = 0
  543.   _PUTIMAGE (Link.Screen_X, Link.Screen_Y)-STEP(G.Scale_X, G.Scale_Y), Layer(7), Layer(1), (1 + 34 * Link.Direction + 17 * Frame%%, 137)-STEP(15, 15)
  546.  
  547. SUB Place_Player_Record (I%%, Where%)
  548.  SELECT CASE Where%
  549.   CASE 0
  550.    IF Records(I%% + 1).Beaten THEN _PUTIMAGE (260, 228 + 48 * I%%)-STEP(15, 31), Layer(12), Layer(16), (64, 247)-STEP(7, 15) 'Player 1 Sword
  551.    _PUTIMAGE (236, 234 + 48 * I%%)-STEP(31, 31), Layer(12), Layer(16), (1 + 17 * Records(I%% + 1).Ring, 230)-STEP(15, 15) 'Player 1 Link (green)
  552.    _PRINTSTRING (284, 232 + 48 * I%%), RTRIM$(Nick(I%% + 1)), Layer(16) 'player 1 name
  553.    _PRINTSTRING (284, 248 + 48 * I%%), LEFT$("   ", 3 - LEN(LTRIM$(RTRIM$(STR$(Records(I%% + 1).Played))))) + LTRIM$(STR$(Records(I%% + 1).Played)), Layer(16) 'player 1 tries
  554.    FOR j%% = 1 TO Records(I%% + 1).Containers
  555.     IF j%% < 4 THEN 'first 3 hearts are red
  556.      _PUTIMAGE (428 + 16 * j%%, 232 + 48 * I%%)-STEP(15, 15), Layer(12), Layer(16), (52, 230)-STEP(7, 7) 'Player 1 hearts red
  557.     ELSE
  558.      IF j%% < 9 THEN
  559.       _PUTIMAGE (428 + 16 * j%%, 232 + 48 * I%%)-STEP(15, 15), Layer(12), Layer(16), (73, 267)-STEP(7, 7) 'Player 1 hearts white
  560.      ELSE
  561.       _PUTIMAGE (428 + 16 * (j%% - 8), 232 + 64 * I%%)-STEP(15, 15), Layer(12), Layer(16), (73, 267)-STEP(7, 7) 'Player 1 hearts white
  562.      END IF
  563.     END IF
  564.    NEXT j%%
  565.   CASE 1
  566.    IF Records(I%% + 1).Beaten THEN _PUTIMAGE (326, 148 + 48 * (I%% - 1))-STEP(15, 31), Layer(12), Layer(16), (64, 247)-STEP(7, 15) 'Player 1 Sword
  567.    _PUTIMAGE (300, 154 + 48 * (I%%))-STEP(31, 31), Layer(12), Layer(16), (1 + 17 * Records(I%% + 1).Ring, 230)-STEP(15, 15) 'Player 1 Link (green)
  568.    _PRINTSTRING (364, 152 + 48 * (I%%)), RTRIM$(Nick(I%% + 1)), Layer(1)
  569.  
  572.  
  573. SUB Place_Tile_On_Screen (X%, Y%, Tile~%%, L&)
  574.  Gy% = 17 * (Tile~%% \ 20) 'get which row it comes from
  575.  Gx% = 17 * (Tile~%% MOD 20) 'which column position
  576.  _PUTIMAGE (Offset_X(G.Scale_Factor) + X%, Offset_Y(G.Scale_Factor) + Y%)-STEP(G.Scale_X, G.Scale_Y), Layer(7), L&, (1 + Gx%, 1 + Gy%)-STEP(15, 15)
  578.  
  579. SUB Scroll_Screen_II (Dir%%)
  580.  Cx% = Offset_X(G.Scale_Factor) 'top left corner location of map displayed
  581.  Cy% = Offset_Y(G.Scale_Factor)
  582.  Sfx% = 16 * 16 * G.Scale_Factor 'size of the map display
  583.  Sfy% = 11 * 16 * G.Scale_Factor
  584.  Lwx% = 16 * 16 * G.Scale_Factor * Link.World_X 'map area link is in
  585.  Lwy% = 11 * 16 * G.Scale_Factor * Link.World_Y
  586.  SELECT CASE Dir%%
  587.   CASE Up
  588.    FOR y% = 0 TO Sfy% STEP 2 * G.Scale_Factor
  589.     _PUTIMAGE (Cx%, Cy%)-STEP(Sfx%, Sfy%), Layer(6), Layer(1), (Lwx%, Lwy% - y%)-STEP(Sfx%, Sfy%)
  590.     IF y% > 16 * G.Scale_Factor THEN Link.Screen_Y = Link.Screen_Y + 2 * G.Scale_Factor
  591.     Place_Link
  592.     _LIMIT 60
  593.     _PUTIMAGE , Layer(1), Layer(0)
  594.    NEXT
  595.    Link.World_Y = Link.World_Y - 1
  596.   CASE Down
  597.    FOR y% = 0 TO Sfy% STEP 2 * G.Scale_Factor
  598.     _PUTIMAGE (Cx%, Cy%)-STEP(Sfx%, Sfy%), Layer(6), Layer(1), (Lwx%, Lwy% + y%)-STEP(Sfx%, Sfy%)
  599.     IF y% > 16 * G.Scale_Factor THEN Link.Screen_Y = Link.Screen_Y - 2 * G.Scale_Factor
  600.     Place_Link
  601.     _LIMIT 60
  602.     _PUTIMAGE , Layer(1), Layer(0)
  603.    NEXT
  604.    Link.World_Y = Link.World_Y + 1
  605.   CASE Left
  606.    FOR x% = 0 TO Sfx% STEP 2 * G.Scale_Factor
  607.     _PUTIMAGE (Cx%, Cy%)-STEP(Sfx%, Sfy%), Layer(6), Layer(1), (Lwx% - x%, Lwy%)-STEP(Sfx%, Sfy%)
  608.     IF x% > 16 * G.Scale_Factor THEN Link.Screen_X = Link.Screen_X + 2 * G.Scale_Factor
  609.     Place_Link
  610.     _LIMIT 60
  611.     _PUTIMAGE , Layer(1), Layer(0)
  612.    NEXT
  613.    Link.World_X = Link.World_X - 1
  614.   CASE Right
  615.    FOR x% = 0 TO Sfx% STEP 2 * G.Scale_Factor
  616.     _PUTIMAGE (Cx%, Cy%)-STEP(Sfx%, Sfy%), Layer(6), Layer(1), (Lwx% + x%, Lwy%)-STEP(Sfx%, Sfy%)
  617.     IF x% > 16 * G.Scale_Factor THEN Link.Screen_X = Link.Screen_X - 2 * G.Scale_Factor
  618.     Place_Link
  619.     _LIMIT 60
  620.     _PUTIMAGE , Layer(1), Layer(0)
  621.    NEXT
  622.    Link.World_X = Link.World_X + 1
  624.  Place_Link
  625.  Lwx% = 16 * 16 * G.Scale_Factor * Link.World_X
  626.  Lwy% = 11 * 16 * G.Scale_Factor * Link.World_Y
  627.  _PUTIMAGE (Cx%, Cy%)-STEP(Sfx%, Sfy%), Layer(6), Layer(3), (Lwx%, Lwy%)-STEP(Sfx%, Sfy%) 'move new screen to layer(3)
  629.  
  630. SUB Shift_New_Map_Screen
  631.  SELECT CASE G.NextScreen
  632.   CASE Up
  633.    Scroll_Screen_II Up
  634.   CASE Down
  635.    Scroll_Screen_II Down
  636.   CASE Left
  637.    Scroll_Screen_II Left
  638.   CASE Right
  639.    Scroll_Screen_II Right
  641.  G.NextScreen = -1
  643.  
  644. SUB Title_Screen
  645.  _CLEARCOLOR _RGB32(21), Layer(9)
  646.  _CLEARCOLOR _RGB32(21), Layer(10)
  647.  _SNDVOL BGM(0), .33
  648.  _SNDLOOP BGM(0)
  649.  DO
  650.   F%% = 0: F% = 0: ExitFlag%% = FALSE
  651.   DO: _LIMIT 60: LOOP WHILE _SNDGETPOS(BGM(0)) > 10
  652.   DO
  653.    _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (0, 0)-STEP(255, 223)
  654.    SELECT CASE F%%
  655.     CASE 12 TO 18
  656.      _PUTIMAGE (400 - 74, 300 - 128)-STEP(143, 143), Layer(9), Layer(1), (289, 0)-STEP(71, 71)
  657.     CASE 19 TO 24
  658.      _PUTIMAGE (400 - 74, 300 - 128)-STEP(143, 143), Layer(9), Layer(1), (289, 0 + 72)-STEP(71, 71)
  659.     CASE 25 TO 36
  660.      _PUTIMAGE (400 - 74, 300 - 128)-STEP(143, 143), Layer(9), Layer(1), (289, 0 + 144)-STEP(71, 71)
  661.     CASE 37 TO 52
  662.      _PUTIMAGE (400 - 74, 300 - 128)-STEP(143, 143), Layer(9), Layer(1), (289, 0 + 72)-STEP(71, 71)
  663.     CASE 53 TO 59
  664.      _PUTIMAGE (400 - 74, 300 - 128)-STEP(143, 143), Layer(9), Layer(1), (289, 0 + 0)-STEP(71, 71)
  665.    END SELECT
  666.    _PUTIMAGE (304, 523 - 112), Layer(10), Layer(1), (0 + 64 * wave%%, 0)-STEP(63, 111)
  667.    _PUTIMAGE , Layer(1), Layer(0)
  668.    _LIMIT 90
  669.    F%% = F%% + 1
  670.    IF F%% = 60 THEN F%% = 0
  671.    IF F%% MOD 2 = 0 THEN wave%% = wave%% + 1
  672.    IF wave%% = 16 THEN wave%% = 0
  673.    IF Get_Input = START_BUTTON THEN ExitFlag%% = TRUE
  674.   LOOP UNTIL _SNDGETPOS(BGM(0)) > 8.4 OR ExitFlag%%
  675.  
  676.   IF NOT ExitFlag%% THEN
  677.    'start the title fade
  678.    _DEST Layer(1)
  679.    F%% = 0
  680.    DO
  681.     SELECT CASE F%
  682.      CASE 0 TO 13
  683.       LINE (144, 76)-STEP(511, 447), _RGB32(202, 241, 159), BF
  684.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (361, 0)-STEP(255, 223)
  685.      CASE 13 TO 24
  686.       LINE (144, 76)-STEP(511, 447), _RGB32(182, 216, 255), BF
  687.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (361, 0)-STEP(255, 223)
  688.      CASE 25 TO 34
  689.       LINE (144, 76)-STEP(511, 447), _RGB32(166, 229, 255), BF
  690.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (361, 0)-STEP(255, 223)
  691.      CASE 35 TO 42
  692.       LINE (144, 76)-STEP(511, 447), _RGB32(165, 238, 223), BF
  693.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (617, 0)-STEP(255, 223)
  694.      CASE 43 TO 48
  695.       LINE (144, 76)-STEP(511, 447), _RGB32(37, 190, 255), BF
  696.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (617, 0)-STEP(255, 223)
  697.      CASE 49 TO 52
  698.       LINE (144, 76)-STEP(511, 447), _RGB32(0, 109, 181), BF
  699.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (617, 0)-STEP(255, 223)
  700.      CASE 53 TO 57
  701.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (873, 0)-STEP(255, 223)
  702.       Wf% = 112
  703.      CASE 58 TO 61
  704.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (1129, 0)-STEP(255, 223)
  705.       Wf% = 224
  706.      CASE 62 TO 363
  707.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (1385, 0)-STEP(255, 223)
  708.       Wf% = 336
  709.      CASE 364 TO 385
  710.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (1641, 0)-STEP(255, 223)
  711.       Wf% = 448
  712.      CASE 386 TO 393
  713.       _PUTIMAGE ((800 - 512) \ 2, (600 - 448) \ 2)-STEP(511, 447), Layer(9), Layer(1), (1897, 0)-STEP(255, 223)
  714.       Wf% = 560
  715.     END SELECT
  716.     _PUTIMAGE (304, 523 - 112), Layer(10), Layer(1), (0 + 64 * wave%%, 0 + Wf%)-STEP(63, 111)
  717.     _PUTIMAGE , Layer(1), Layer(0)
  718.     _LIMIT 90
  719.     F% = F% + 1
  720.     IF F% = 394 THEN ExitFlag%% = TRUE
  721.     IF F% MOD 2 = 0 THEN wave%% = wave%% + 1
  722.     IF wave%% = 16 THEN wave%% = 0
  723.     IF Get_Input = START_BUTTON THEN ExitFlag%% = TRUE
  724.    LOOP UNTIL ExitFlag%%
  725.    ExitFlag%% = FALSE
  726.   END IF
  727.   ClearLayer Layer(0)
  728.   ClearLayer Layer(1)
  729.   IF NOT ExitFlag%% THEN
  730.    'Title scroll
  731.    DO: _LIMIT 60: IF Get_Input = START_BUTTON THEN ExitFlag%% = TRUE
  732.    LOOP UNTIL _SNDGETPOS(BGM(0)) > 16 OR ExitFlag%%
  733.    F% = 0
  734.    IF NOT ExitFlag%% THEN
  735.     DO
  736.      SELECT CASE F%
  737.       CASE 0 TO 223
  738.        _PUTIMAGE (144, 76)-STEP(511, 447), Layer(11), Layer(1), (0, -223 + F%)-STEP(255, 223)
  739.       CASE IS >= 354
  740.        IF blink% THEN
  741.         _PUTIMAGE (72, 332)-STEP(7, 15), Layer(7), Layer(11), (247, 154)-STEP(7, 15) 'heart
  742.         _PUTIMAGE (72, 464)-STEP(7, 15), Layer(7), Layer(11), (213, 171)-STEP(7, 15) 'Ruby
  743.         _PUTIMAGE (120, 1432)-STEP(15, 15), Layer(7), Layer(11), (239, 188)-STEP(15, 15) 'Triforce
  744.        ELSE
  745.         _PUTIMAGE (72, 332)-STEP(7, 15), Layer(7), Layer(11), (239, 154)-STEP(7, 15) 'heart
  746.         _PUTIMAGE (72, 464)-STEP(7, 15), Layer(7), Layer(11), (205, 171)-STEP(7, 15) 'Ruby
  747.         _PUTIMAGE (120, 1432)-STEP(15, 15), Layer(7), Layer(11), (222, 188)-STEP(15, 15) 'Triforce
  748.        END IF
  749.        IF Fblink% THEN
  750.         _PUTIMAGE (72, 400)-STEP(7, 15), Layer(7), Layer(11), (256, 188)-STEP(7, 15) 'fairy blank
  751.         _PUTIMAGE (72, 400)-STEP(7, 15), Layer(7), Layer(11), (281, 154)-STEP(7, 15) 'fairy
  752.        ELSE
  753.         _PUTIMAGE (72, 400)-STEP(7, 15), Layer(7), Layer(11), (256, 188)-STEP(7, 15) 'fairy blank
  754.         _PUTIMAGE (72, 400)-STEP(7, 15), Layer(7), Layer(11), (273, 154)-STEP(7, 15) 'fairy
  755.        END IF
  756.        _PUTIMAGE (144, 76)-STEP(511, 447), Layer(11), Layer(1), (0, F% - 354)-STEP(255, 223)
  757.      END SELECT
  758.      _PUTIMAGE , Layer(1), Layer(0)
  759.      _LIMIT 30
  760.      F% = F% + 1
  761.      IF F% = 1762 THEN F% = F% - 1 'ExitFlag%% = TRUE
  762.      B% = B% + 1
  763.      IF B% = 4 THEN blink% = NOT blink%: B% = 0
  764.      IF B% MOD 2 = 0 THEN Fblink% = NOT Fblink%
  765.      IF Get_Input = START_BUTTON THEN ExitFlag%% = TRUE
  766.     LOOP UNTIL _SNDGETPOS(BGM(0)) >= 79.75 OR ExitFlag%%
  767.     ExitFlag%% = FALSE
  768.    END IF
  769.   END IF
  770.  
  771.  LOOP UNTIL ExitFlag%%
  772.  _DEST Layer(0)
  773.  _SNDSTOP BGM(0)
  774.  DO: LOOP UNTIL Get_Input%% = -1
  775.  
  777.  
  778. FUNCTION Projectile_Collision%%
  779.  Result%% = FALSE
  780.  FOR i%% = 0 TO G.Projectile_Count
  782.  Projectile_Collision = Result%%
  784.  
  785. SUB Select_Screen
  786.  ClearLayer Layer(16)
  787.  IF _FILEEXISTS("Zelda.MSF") THEN 'load saved data
  788.   OPEN "Zelda.MSF" FOR BINARY AS #1
  789.   FOR I%% = 1 TO 3 'load all 3 records
  790.    GET #1, , Nick(I%%)
  791.    GET #1, , Records(I%%)
  792.    IF Selection%% = 0 THEN IF RTRIM$(Nick(I%%)) <> "" THEN Selection%% = I%%
  793.   NEXT I%%
  794.   CLOSE #1
  795.  ELSE 'file doesn't exist so make it.
  796.   Reset_Record 1
  797.   Reset_Record 2
  798.   Reset_Record 3
  799.   Save_Records
  801.  _PUTIMAGE (140, 72)-STEP(511, 447), Layer(12), Layer(16), (1, 1)-STEP(255, 223) 'background
  802.  FOR I%% = 1 TO 3
  803.   IF RTRIM$(Nick(I%%)) <> "" THEN Place_Player_Record I%% - 1, 0
  804.  NEXT I%%
  805.  IF Record_Count%% = 0 THEN Selection%% = 4 ELSE Selection%% = 1
  806.  Selection%% = Find_First_Available(0, 1)
  807.  DO
  808.   _PUTIMAGE , Layer(16), Layer(1)
  809.   SELECT CASE Get_Input%%
  810.    CASE START_BUTTON
  811.     SELECT CASE Selection%%
  812.      CASE 1 TO 3
  813.       Link = Records(Selection%%)
  814.       Exitflag%% = TRUE
  815.      CASE 4
  816.       DO: LOOP UNTIL Get_Input%% = -1
  817.       nul%% = Register(nul%%)
  818.       OPEN "Zelda.MSF" FOR BINARY AS #1 'update records
  819.       FOR I%% = 1 TO 3
  820.        PUT #1, , Nick(I%%)
  821.        PUT #1, , Link
  822.        IF RTRIM$(Nick(I%%)) <> "" THEN Place_Player_Record I%% - 1, 0
  823.       NEXT I%%
  824.       CLOSE #1
  825.      CASE 5
  826.       DO: LOOP UNTIL Get_Input%% = -1
  827.       Elimination_Mode
  828.       nul%% = Register(nul%%) 'go straight to register mode after elimination
  829.     END SELECT
  830.    CASE SELECT_BUTTON
  831.     Selection%% = Selection%% + 1
  832.     IF Selection%% = 6 THEN Selection%% = 1
  833.     Selection%% = Find_First_Available(0, Selection%%)
  834.     DO: LOOP UNTIL Get_Input%% = -1
  835.    CASE ELSE
  836.     _PRINTSTRING (0, 20), STR$(SELECT_BUTTON), Layer(1)
  838.  
  839.   SELECT CASE Selection%%
  840.    CASE 1
  841.     _PUTIMAGE (220, 242)-STEP(15, 15), Layer(12), Layer(1), (73, 247)-STEP(7, 7) 'Player 1
  842.    CASE 2
  843.     _PUTIMAGE (220, 290)-STEP(15, 15), Layer(12), Layer(1), (73, 247)-STEP(7, 7) 'Player 2
  844.    CASE 3
  845.     _PUTIMAGE (220, 338)-STEP(15, 15), Layer(12), Layer(1), (73, 247)-STEP(7, 7) 'Player 3
  846.    CASE 4
  847.     _PUTIMAGE (220, 394)-STEP(15, 15), Layer(12), Layer(1), (73, 247)-STEP(7, 7) 'register
  848.    CASE 5
  849.     _PUTIMAGE (220, 426)-STEP(15, 15), Layer(12), Layer(1), (73, 247)-STEP(7, 7) 'Elimination
  851.   _PRINTSTRING (0, 0), STR$(Selection%%), Layer(1)
  852.   _PUTIMAGE , Layer(1), Layer(0)
  853.   _LIMIT 60
  854.   IF INKEY$ = CHR$(27) THEN Exitflag%% = TRUE
  855.  LOOP UNTIL Exitflag%%
  857.  
  858. FUNCTION Register%% (Records%%)
  859.  DIM Names(2, 8) AS STRING * 1
  860.  Result%% = Records%%
  861.  Tmp& = _COPYIMAGE(Layer(16))
  862.  ClearLayer Layer(16)
  863.  ClearLayer Layer(1)
  864.  _PUTIMAGE (140, 72)-STEP(511, 447), Layer(12), Layer(16), (258, 1)-STEP(255, 223) 'background
  865.  FOR i%% = 1 TO 3
  866.   IF RTRIM$(Nick(i%%)) <> "" THEN Place_Player_Record i%% - 1, 1
  867.  NEXT i%%
  868.  IF i%% > 0 THEN Selection%% = i%% ELSE Selection%% = 1
  869.  FOR i%% = 1 TO 3
  870.   IF RTRIM$(Nick(i%%)) = "" THEN _PUTIMAGE (300, 154 + 48 * (i%% - 1))-STEP(31, 31), Layer(12), Layer(16), (1, 230)-STEP(15, 15) 'Player 1 Link (green)
  871.  NEXT i%%
  872.  _CLEARCOLOR _RGB32(0), Layer(16)
  873.  _PUTIMAGE , Layer(16), Layer(1)
  874.  _DEST Layer(1)
  876.  Current_Letter%% = 1
  877.  Selection%% = Find_First_Available(1, 1)
  878.  DO
  879.  
  880.   SELECT CASE Get_Input%%
  881.    CASE Up
  882.     _PUTIMAGE (236 + 32 * Lx%, 328 + 32 * Ly%)-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current selected Letter
  883.     Ly% = Ly% - 1
  884.     IF Ly% = -1 THEN Ly% = 3
  885.     Current_Letter%% = Current_Letter%% - 11
  886.     IF Current_Letter%% < 0 THEN Current_Letter%% = 44 - ABS(Current_Letter%%)
  887.    CASE Down
  888.     _PUTIMAGE (236 + 32 * Lx%, 328 + 32 * Ly%)-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current selected Letter
  889.     Ly% = Ly% + 1
  890.     IF Ly% = 4 THEN Ly% = 0
  891.     Current_Letter%% = Current_Letter%% + 11
  892.     IF Current_Letter%% > 44 THEN Current_Letter%% = Current_Letter%% - 44
  893.    CASE Left
  894.     _PUTIMAGE (236 + 32 * Lx%, 328 + 32 * Ly%)-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current selected Letter
  895.     Lx% = Lx% - 1
  896.     IF Lx% = -1 THEN Lx% = 10: Ly% = Ly% - 1: IF Ly% = -1 THEN Ly% = 3
  897.     Current_Letter%% = Current_Letter%% - 1
  898.     IF Current_Letter%% = 0 THEN Current_Letter%% = 44
  899.    CASE Right
  900.     _PUTIMAGE (236 + 32 * Lx%, 328 + 32 * Ly%)-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current selected Letter
  901.     Lx% = Lx% + 1
  902.     IF Lx% = 11 THEN Lx% = 0: Ly% = Ly% + 1: IF Ly% = 4 THEN Ly% = 0
  903.     Current_Letter%% = Current_Letter%% + 1
  904.     IF Current_Letter%% = 45 THEN Current_Letter%% = 1
  905.    CASE BUTTON_A OR BUTTON_B
  906.     IF Selection%% <> 4 THEN 'only allow buttons if valid name entry selection
  907.      _PUTIMAGE (364 + 16 * Length%%, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current Nick Letter
  908.      Names(Selection%% - 1, Length%%) = Letter(Current_Letter%%)
  909.      Length%% = Length%% + 1
  910.      IF Length%% = 8 THEN Length%% = 0
  911.     END IF
  912.    CASE START_BUTTON
  913.     SELECT CASE Selection%%
  914.      CASE 4 'end
  915.       FOR j%% = 0 TO 2
  916.        a$ = ""
  917.        IF RTRIM$(Nick(j%% + 1)) = "" THEN
  918.         FOR i%% = 0 TO 7
  919.          IF ASC(Names(j%%, i%%)) > 31 THEN a$ = a$ + Names(j%%, i%%)
  920.         NEXT
  921.         Nick(j%% + 1) = a$
  922.        END IF
  923.       NEXT
  924.       ExitFlag%% = TRUE
  925.     END SELECT
  926.    CASE SELECT_BUTTON 'Change to different name or end registration
  927.     _PUTIMAGE (364 + 16 * Length%%, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current Nick Letter
  928.     _PUTIMAGE (274, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'heart selection
  929.     Selection%% = Selection%% + 1: Length%% = 0 'reset the name position when changing.
  930.     IF Selection%% = 5 THEN Selection%% = 1
  931.     _PRINTSTRING (0, 0), STR$(Selection%%), Layer(1)
  932.     Selection%% = Find_First_Available(1, Selection%%)
  933.    CASE ELSE
  934.     LINE (0, 0)-STEP(160, 40), _RGB32(0), BF
  935.     _PRINTSTRING (0, 20), STR$(Selection%%), Layer(1)
  937.   DO: LOOP UNTIL Get_Input%% = -1
  938.  
  939.   _PUTIMAGE (274, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (73, 247)-STEP(7, 7) 'heart selection
  940.   IF Selection%% <> 4 THEN
  941.    FOR j%% = 0 TO 8
  942.     IF Names(Selection%% - 1, j%%) > CHR$(31) THEN _PRINTSTRING (364 + 16 * j%%, 152 + 48 * (Selection%% - 1)), Names(Selection%% - 1, j%%), Layer(1)
  943.    NEXT j%%
  944.   END IF
  945.   _PUTIMAGE , Layer(1), Layer(0)
  946.   IF blink%% AND Selection%% <> 4 THEN
  947.    _PUTIMAGE (364 + 16 * Length%%, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (61, 230)-STEP(7, 7) 'Current Nick Letter
  948.    _PUTIMAGE (236 + 32 * Lx%, 328 + 32 * Ly%)-STEP(15, 15), Layer(12), Layer(1), (61, 230)-STEP(7, 7) 'Current selected Letter
  949.   ELSE
  950.    _PUTIMAGE (364 + 16 * Length%%, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current Nick Letter
  951.    _PUTIMAGE (236 + 32 * Lx%, 328 + 32 * Ly%)-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'Current selected Letter
  952.   END IF
  953.   _PUTIMAGE , Layer(16), Layer(1)
  954.   b%% = b%% + 1
  955.   IF b%% = 8 THEN blink%% = NOT blink%%: b%% = 0
  956.   _LIMIT 60
  957.   IF INKEY$ = CHR$(27) THEN ExitFlag%% = TRUE
  958.  LOOP UNTIL ExitFlag%%
  959.  ClearLayer Layer(16)
  960.  _PUTIMAGE , Tmp&, Layer(16)
  961.  _FREEIMAGE Tmp&
  962.  Save_Records
  963.  FOR i%% = 1 TO 3
  964.   IF RTRIM$(Nick(i%%)) <> "" THEN Place_Player_Record i%% - 1, 0
  965.  NEXT i%%
  966.  Register = Result%%
  968.  
  969. SUB Elimination_Mode
  970.  Tmp& = _COPYIMAGE(Layer(16))
  971.  ClearLayer Layer(16)
  972.  ClearLayer Layer(1)
  973.  _PUTIMAGE (140, 72)-STEP(511, 447), Layer(12), Layer(16), (515, 1)-STEP(255, 223) 'background
  974.  FOR i%% = 1 TO 3
  975.   IF RTRIM$(Nick(i%%)) <> "" THEN Place_Player_Record i%% - 1, 1
  976.  NEXT i%%
  977.  _PUTIMAGE , Layer(16), Layer(0)
  978.  IF i%% > 0 THEN Selection%% = i%% ELSE Selection%% = 1
  979.  FOR i%% = 1 TO 3 'remove the erased game from the background screens
  980.   IF RTRIM$(Nick(i%%)) = "" THEN _PUTIMAGE (300, 154 + 48 * (i%% - 1))-STEP(31, 31), Layer(12), Layer(16), (1, 230)-STEP(15, 15) 'Player 1 Link (green)
  981.  NEXT i%%
  982.  _CLEARCOLOR _RGB32(0), Layer(16)
  983.  _PUTIMAGE , Layer(16), Layer(1)
  984.  _DEST Layer(1)
  986.  Current_Letter%% = 1
  987.  Selection%% = 1
  988.  DO
  989.   _PUTIMAGE , Layer(16), Layer(1)
  990.   SELECT CASE Get_Input%%
  991.    CASE START_BUTTON
  992.     SELECT CASE Selection%%
  993.      CASE 1 TO 3
  994.       Nick(Selection%%) = ""
  995.       Reset_Record Selection%%
  996.       _PUTIMAGE (364, 152 + 48 * (Selection%% - 1))-STEP(159, 31), Layer(12), Layer(16), (86, 240)-STEP(7, 7) 'black out
  997.       _PUTIMAGE (236, 232 + 48 * (Selection%% - 1))-STEP(159, 33), Layer(12), Tmp&, (86, 240)-STEP(7, 7) 'black out name
  998.       _PUTIMAGE (428, 232 + 48 * (Selection%% - 1))-STEP(127, 31), Layer(12), Tmp&, (86, 240)-STEP(7, 7) 'black out hearts
  999.      CASE 4
  1000.       ExitFlag%% = TRUE
  1001.     END SELECT
  1002.    CASE SELECT_BUTTON
  1003.     _PUTIMAGE (274, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (86, 240)-STEP(7, 7) 'heart selection black out
  1004.     Selection%% = Selection%% + 1
  1005.     IF Selection%% = 5 THEN Selection%% = 1
  1006.    CASE ELSE
  1007.     _PRINTSTRING (0, 20), STR$(SELECT_BUTTON), Layer(1)
  1009.   DO: LOOP UNTIL Get_Input%% = -1
  1010.   _PUTIMAGE (274, 152 + 48 * (Selection%% - 1))-STEP(15, 15), Layer(12), Layer(1), (73, 267)-STEP(7, 7) 'heart selection
  1011.   _PUTIMAGE , Layer(1), Layer(0)
  1012.   _LIMIT 60
  1013.   IF INKEY$ = CHR$(27) THEN ExitFlag%% = TRUE
  1014.  LOOP UNTIL ExitFlag%%
  1015.  ClearLayer Layer(16)
  1016.  _PUTIMAGE , Tmp&, Layer(16)
  1017.  _FREEIMAGE Tmp&
  1019.  
  1020. SUB Reset_Record (Which%%)
  1021.  Records(Which%%) = Reset_Link
  1023.  
  1024. SUB Save_Records
  1025.  OPEN "Zelda.MSF" FOR BINARY AS #1
  1026.  FOR I%% = 1 TO 3
  1027.   PUT #1, , Nick(I%%)
  1028.   PUT #1, , Records(I%%)
  1029.  NEXT I%%
  1030.  CLOSE #1
  1032.  
  1033. SUB MFI_Loader (FN$)
  1034.  DIM Size(128) AS LONG, FOffset(128) AS LONG
  1036.  GET #1, , c~%% 'retrieve number of files
  1037.  FOR I~%% = 1 TO c~%%
  1038.   GET #1, , FOffset(I~%%)
  1039.   GET #1, , Size(I~%%)
  1040.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  1041.  NEXT I~%%
  1042.  Layer(7) = LoadGFX(FOffset(1), Size(1)) '_LOADIMAGE("overworldtiles.bmp", 32)
  1043.  Layer(9) = LoadGFX(FOffset(2), Size(2)) '_LOADIMAGE("TitleScreen.bmp", 32)
  1044.  Layer(10) = LoadGFX(FOffset(3), Size(3)) '_LOADIMAGE("Titlefalls.bmp", 32)
  1045.  Layer(11) = LoadGFX(FOffset(4), Size(4)) '_LOADIMAGE("Titlescroll.bmp", 32)
  1046.  Layer(12) = LoadGFX(FOffset(5), Size(5)) '_LOADIMAGE("selectionscreen.bmp", 32)
  1047.  
  1048.  SFX(0) = LoadSFX(FOffset(6), Size(6))
  1049.  SFX(1) = LoadSFX(FOffset(7), Size(7))
  1050.  SFX(2) = LoadSFX(FOffset(8), Size(8))
  1051.  SFX(3) = LoadSFX(FOffset(9), Size(9))
  1052.  BGM(0) = LoadSFX(FOffset(10), Size(10))
  1053.  FFX(0) = LoadFFX(FOffset(11), Size(11), 16)
  1054.  LoadData FOffset(12), Size(12)
  1055.  
  1056.  CLOSE #1
  1057.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1059.  
  1060. FUNCTION LoadGFX& (Foff&, Size&)
  1061.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1062.  OPEN "temp.dat" FOR BINARY AS #3
  1063.  dat$ = SPACE$(Size&)
  1064.  GET #1, Foff&, dat$
  1065.  PUT #3, , dat$
  1066.  CLOSE #3
  1067.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  1069.  
  1070. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  1071.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1072.  OPEN "temp.dat" FOR BINARY AS #3
  1073.  dat$ = SPACE$(Size&)
  1074.  GET #1, Foff&, dat$
  1075.  PUT #3, , dat$
  1076.  CLOSE #3
  1077.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  1079.  
  1080. FUNCTION LoadSFX& (Foff&, Size&)
  1081.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1082.  OPEN "temp.dat" FOR BINARY AS #3
  1083.  dat$ = SPACE$(Size&)
  1084.  GET #1, Foff&, dat$
  1085.  PUT #3, , dat$
  1086.  CLOSE #3
  1087.  LoadSFX& = _SNDOPEN("temp.dat")
  1089.  
  1090. SUB LoadData (Foff&, Size&)
  1091.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  1092.  OPEN "temp.dat" FOR BINARY AS #3
  1093.  dat$ = SPACE$(Size&)
  1094.  GET #1, Foff&, dat$
  1095.  PUT #3, , dat$
  1096.  CLOSE #3
  1097.  
  1098.  F1 = FREEFILE
  1099.  OPEN "temp.dat" FOR BINARY AS #F1
  1100.  GET #F1, , Hyrule()
  1101.  GET #F1, , Link
  1102.  GET #F1, , C
  1103.  GET #F1, , G
  1104.  GET #F1, , Offset_X()
  1105.  GET #F1, , Offset_Y()
  1106.  FOR I%% = 1 TO 44
  1107.   GET #F1, , Letter(I%%)
  1108.  NEXT I%%
  1109.  CLOSE #F1
  1110.  
  1112.  
* Zelda.MFI (Filesize: 1.74 MB, Downloads: 194)
Logged
Granted after becoming radioactive I only have a half-life!
Pages: [1]   Go Up
« previous next »