Fantasy

[Juan Tamarit]

Question: if i have dimensioned a global variable dinamic array (REDIM SHARED) in general program, can i REDIM _PRESERVE in a SUB or FUNCTION, or should i REDIM SHARED _PRESERVE? O i can't REDIM it in a SUB/FUNC?

[FellippeHeitor]

If an array has been REDIM SHARED in the main module, you can REDIM _PRESERVE in a sub/function, but you must remember to specify the data type again (AS whatever type, or by using the type suffix).

[Juan Tamarit]

Hello there again. Sorry for my ignorance, but in the next SUB:

Code: QB64: [Select]

1. SUB drawWorld () ' <-  if i could came up with a random generator... geez
2.  
3.     DIM i%
4.     DIM j%
5.     DIM tmp%%
6.     DIM orgFile&
7.     DIM destFile&
8.     DIM tmpWorlds&
9.  
10.     IF NOT _FILEEXISTS("tmpWorlds.txt") THEN '              if this file dosn't exists means that we started a new game. We must create the first map of the game, wich is a pre-arranged map of the Town
11.         CHDIR ".\.." '                                      so we move back to data
12.         CHDIR ".\worlds" '                                  and into the pre-worlds folder
13.         'we are @ Fantasy\data\wolrds\
14.         orgFile& = FREEFILE '                               we need two filehandles: one for origin file,
15.         destFile& = FREEFILE '                              and another for destination file
16.         OPEN "town.txt" FOR INPUT AS #orgFile& '            we will extract info from this file
17.         OPEN "tmp.txt" FOR OUTPUT AS #destFile& '           and place it into this one
18.         WHILE NOT EOF(orgFile&) '                           we make sure we read the full file
19.             INPUT #orgFile&, tmp%% '    ¿ <---------------- DATA TRANSFER
20.             PRINT #destFile&, tmp%% '   ¾
21.         WEND '                                              done with that thing
22.         CLOSE #orgFile& '  ¿ <----------------------------- close files
23.         CLOSE #destFile& ' ¾
24.         CHDIR ".\.." '                                      move back to data
25.         'we are @ Fantasy\data\
26.         NAME ".\worlds\tmp.txt" AS ".\tmp\tmpWorlds.txt" '  now we extract the file from worlds folder and put it on tmp folder with the right name
27.         CHDIR ".\tmp" '                                     into tmp folder again, map ready for use
28.         'we are @ Fantasy\data\tmp\
29.     END IF
30.  
31.     IF lastMapWorking%% <> actualMapWorking%% THEN '        if map has changed we need to actualize the WolrdTiles%% array
32.         tmpWorlds& = FREEFILE '                             get a handle
33.         OPEN "tmpWorlds.txt" FOR INPUT AS #tmpWorlds& '     we will extract data from this file
34.         INPUT #tmpWorlds&, tmp%% '                          we check the first number of the file
35.         WHILE tmp%% <> actualMapWorking%% '                 if it isn't the number of the level we need to know
36.             FOR i% = 0 TO 279 '            ¿
37.                 INPUT #tmpWorlds&, tmp%% ' ³ <------------ walk over the info of this map (which is not what we need to know, but we skip that data)
38.             NEXT i% '                      ¾
39.             INPUT #tmpWorlds&, tmp%% '                      and get the next number for evaluate again (that should be the number of next map)
40.         WEND '                                              keep doing this untill the right map number has been found
41.         FOR j% = 0 TO 13 '                    ¿
42.             FOR i% = 0 TO 19 '                ³
43.                 INPUT #tmpWorlds&, tmp%% '    ³ <---------- then extract the data we need
44.                 WorldTiles%%(i%, j%) = tmp%% '³             and load it into WorldTiles%% array !
45.             NEXT i% '                         ³
46.         NEXT j% '                             ¾
47.         CLOSE #tmpWorlds& '                                 close the file
48.         lastMapWorking%% = actualMapWorking%% '             and actualize map situation, so no need for reload until the map changes
49.     END IF
50.  
51.     FOR j% = 0 TO 13 '                                                          ¿
52.         FOR i% = 0 TO 19 '                                                      ³
53.             _PUTIMAGE (i% * 32, j% * 32 + 32), WorldImg&(WorldTiles%%(i%, j%)) '³ actual drawing
54.         NEXT i% '                                                               ³
55.     NEXT j% '                                                                   ¾
56.  
57. END SUB

I'm having an error that stands "file already open", particularly in line "OPEN "tmp.txt" FOR OUTPUT AS #destFile&". Does this means that QB64 can't have 2 files simoultaneously open? Or i'm making a mistake in the coding? Again, sorry by my newbiesness, but i can't understand what is wrong whit this

Cheers to all bros in forum. Still waiting for comments on the idea of the program!

[Juan Tamarit]

By the way, this is the version im actuly working on. Also attached the folder structure and assets as they work now:

Code: QB64: [Select]

1. 'we are @ Fantasy\
2. '----------------------------------------------------------------------------------------------------------Û    SETUP    Û--------------------------------------------------------------------------------------------------------------
3. SCREEN _NEWIMAGE(640, 480, 32) ' enter in graphics mode 640x480 32 bith color depth
4. _FULLSCREEN ' fullscreen mode, make it shine
5. _MOUSEHIDE ' dont show OS cursor, we will use our own
6. RANDOMIZE TIMER
7. 'x = 20 cells
8. 'y = 15 cells(14 in fact for gameplay, the upper one holds the HUD)
9.  
10. '----------------------------------------------------------------------------------------------------------Û VARAIABLES Û--------------------------------------------------------------------------------------------------------------
11. 'Û PROGRAM GLOBALS Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
12. CONST FALSE = 0: CONST TRUE = NOT FALSE ' ying-yang
13. DIM SHARED menuMain AS _BIT
14. DIM SHARED menuPocket AS _BIT
15. DIM SHARED menuSpells AS _BIT
16. DIM SHARED menuStats AS _BIT
17. DIM SHARED menuHelp AS _BIT
18. DIM SHARED menuMap AS _BIT
19. DIM SHARED playerTurn AS _BIT
20. DIM SHARED HUDpromt$
21.  
22. 'im gonna use this?
23. DIM SHARED drawFingerAs AS _BYTE
24. DIM SHARED clockForFantasy AS _BYTE
25. DIM SHARED historyTimeline AS _BYTE
26. 'Û COLORS Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
27. CONST GREEN1 = _RGB32(215, 232, 148) ' lighter ¿
28. CONST GREEN2 = _RGB32(174, 196, 64) '          ³ colors
29. CONST GREEN3 = _RGB32(82, 127, 57) '           ³
30. CONST GREEN4 = _RGB32(32, 70, 49) ' darker     Ù
31.  
32. 'Û IMAGES Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
33. DIM SHARED ArmorImg&(7): DIM SHARED ArrowImg&(2): DIM SHARED AxeImg&(7): DIM SHARED BarImg&(6): DIM SHARED BijouImg&(3): DIM SHARED BoltImg&(1): DIM SHARED BombImg&(2): DIM SHARED BookImg&(3): DIM SHARED BowImg&(2)
34. DIM SHARED ChestImg&(1): DIM SHARED CrossbowImg&(1): DIM SHARED DirArrowImg&(12): DIM SHARED EnemyImg&(31): DIM SHARED FingerImg&(8): DIM SHARED GndItemsImg&(17): DIM SHARED HeartImg&(5): DIM SHARED HelmImg&(7)
35. DIM SHARED HeroImg&(7): DIM SHARED HUDImg&(3): DIM SHARED KeyImg&(5): DIM SHARED LightImg&(7): DIM SHARED LvlImg&(10): DIM SHARED MoneyImg&(3): DIM SHARED PaperImg&(1): DIM SHARED PortalImg&(7): DIM SHARED PotionImg&(7)
36. DIM SHARED ShieldImg&(7): DIM SHARED SpellImg&(5): DIM SHARED SwordImg&(7): DIM SHARED ThrowImg&(2): DIM SHARED WandImg&(7): DIM SHARED WorldImg&(23)
37. DIM SHARED BlankImg&
38.  
39. 'Û MECHS Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
40. TYPE MECHANICAL
41.     x AS INTEGER ' mouse x position
42.     y AS INTEGER ' mouse y position
43.     kind AS _BYTE
44.     map AS _BYTE
45.     state AS _BYTE
46. END TYPE
47. REDIM SHARED Mechs(0) AS MECHANICAL
48.  
49. 'Û POINTER/MOUSE Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
50. TYPE POINTER '
51.     x AS INTEGER ' mouse x position
52.     y AS INTEGER ' mouse y position
53.     image AS LONG ' mouse aspect
54.     clickL AS _BYTE ' left click
55.     clickR AS _BYTE ' right click
56.     tmpClickL AS _BYTE '¿
57.     tmpClickR AS _BYTE '³ debouncing
58.     oldClickL AS _BYTE '³ stuff
59.     oldClickR AS _BYTE 'Ù
60. END TYPE '
61. DIM SHARED Finger AS POINTER ' create the mouse
62.  
63. 'Û HERO Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
64. TYPE USER '
65.     x AS INTEGER ' x position
66.     y AS INTEGER ' y position
67.     id AS STRING ' player name
68.     class AS _BYTE ' 0=Barbarian, 1=Clerig, 2=Assasin or 3=Wizard
69.     lvl AS _BYTE ' current character level
70.     strength AS _BYTE '¿
71.     agility AS _BYTE ' ³ basic
72.     power AS _BYTE '   ³ skills
73.     vigor AS _BYTE '   Ù
74.     life AS INTEGER ' actual life ammount
75.     mana AS INTEGER ' actual life ammount
76.     xp AS INTEGER ' actual experience level
77.     nextXp AS INTEGER ' the next target for lvlUp
78.     prevNextXp AS INTEGER '
79.     attributePoints AS INTEGER
80. END TYPE '
81. DIM SHARED Hero AS USER ' create the hero
82.  
83. 'Û ITEMS Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
84. TYPE OBJECT
85.     x AS INTEGER
86.     y AS INTEGER
87.     kind AS _BYTE
88.     lvl AS _BYTE ' level of the object
89.     ammount AS INTEGER ' can be simply 1 or more
90.     special AS STRING '<--------------------------¿
91.     map AS _BYTE 'MAP number OR -1 for POCKET     ³
92. END TYPE '                                        ³
93. ' ITEMS SPECIAL VARIABLE:-------------------------¾
94. 's=adds strength; a=adds agility; p=adds power; v=adds vigor;¿ CAN BE
95. 'd=adds defense; b=adds to base damage;m=adds to max damage; ³ FROM 1              eg:a1,v3,d2,etc...
96. 'c=adds to chance TO HIT%,will be multiplied by 7;           ¾ TO 3
97.  
98. 't= teaches some spell, for books (0 to 5) ;
99. 'r= cast a spell, for wands and scrolls (0 to 5);
100.  
101. 'u=unidentified (has no number?)
102.  
103. DIM SHARED Pocket(22) AS OBJECT
104. DIM SHARED inHand AS OBJECT
105. REDIM SHARED Items(0) AS OBJECT
106.  
107. 'Û WORLD Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
108. DIM SHARED WorldTiles%%(19, 13)
109. DIM SHARED actualMapWorking%%
110. DIM SHARED lastMapWorking%%
111.  
112. 'Û ENEMIES Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
113. TYPE PROGRAMMER '
114.     x AS INTEGER ' x position
115.     y AS INTEGER ' y position
116.     map AS _BYTE ' in wich map enemy is
117.     lvl AS _BYTE ' enemies level goes from 0 to 31, same as the image array
118.     life AS INTEGER 'enemy remaining life
119. END TYPE '
120.  
121. REDIM SHARED Enemy(3) AS PROGRAMMER ' create enemies
122.  
123. 'Û SPELLS Û- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
124. DIM SHARED SpellsIknow%%(5) ' array contains the level that the player knows from each one of the spells 0 to 5. Never will be greater than 10
125. DIM SHARED turnsRemainingSpell%%(5) ' array contains how many more turns the spell will be ON,when reaches 0 spell is OFF
126. DIM SHARED lastSpellSelected%%(1) ' array contain: 0=the number of the last spell use; 1= the level of the last spell used
127.  
128. '----------------------------------------------------------------------------------------------------------Û PRE-PROGRAM Û--------------------------------------------------------------------------------------------------------------
129. checkForAssets
130. loadImages
131. _ICON SpellImg&(0)
132. _TITLE "Fantasy"
133. loadProgramInitialVariables
134. MKDIR "tmp"
135. CHDIR ".\tmp" 'we are @ Fantasy\tmp\
136. '----------------------------------------------------------------------------------------------------------Û   PROGRAM   Û--------------------------------------------------------------------------------------------------------------
137. DO
138.     _LIMIT 60
139.     CLS , GREEN3
140.  
141.     HUDpromt$ = "" '       ¿ reinitialize this variables
142.     drawFingerAs%% = 1 '   ¾
143.  
144.     'What happened to the MUSIC????? XD
145.  
146.     getMouseData
147.     thingsYouCanDoWithFinger
148.     keyboardInputs
149.  
150.     IF Hero.life > calculateMaxLife% THEN Hero.life = calculateMaxLife%
151.     IF Hero.mana > calculateMaxMana% THEN Hero.mana = calculateMaxMana%
152.     actualizeMoneyAspect
153.  
154.     IF actualMapWorking%% > -1 THEN drawMyFantasy
155.     IF menuStats` = TRUE THEN showTheStats
156.     IF menuPocket` = TRUE THEN lookInPocket
157.     IF menuSpells = TRUE THEN selectSomeSpell
158.     IF menuMain` = TRUE THEN mainMenu
159.     IF actualMapWorking%% > -1 THEN drawHUD
160.     printHUDpromt HUDpromt$
161.     drawFinger
162.     TESTER
163.     _DISPLAY
164. LOOP
165. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
166. SUB thingsYouCanDoWithFinger () '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û ACTION PERFORMING Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
167.     DIM tmp%
168.  
169.     IF playerTurn` = TRUE THEN
170.         drawFingerAs%% = 1
171.         IF menuPocket` = TRUE THEN
172.             itemManipulation ' if you are looking at pocket you are allowed to manipulate items there
173.             IF NOT inHand.lvl = -1 THEN drawFingerAs%% = 3 ' if lvl of inhand isn't -1 means you are holding something
174.         END IF
175.         IF menuMain` = FALSE AND menuPocket` = FALSE AND menuSpells` = FALSE AND menuStats` = FALSE THEN
176.             tmp% = checkFingerSector%
177.  
178.  
179.  
180.  
181.  
182.         END IF
183.     ELSE
184.         drawFingerAs%% = 6
185.     END IF
186. END SUB
187.  
188. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
189. FUNCTION checkFingerSector% ()
190.  
191.     IF fingerIsOnSurface%(Hero.x - 32, Hero.y + 32, 32, 32) THEN '     sector 1
192.         checkFingerSector% = 1
193.     ELSEIF fingerIsOnSurface%(Hero.x, Hero.y + 32, 32, 32) THEN '      sector 2
194.         checkFingerSector% = 2
195.     ELSEIF fingerIsOnSurface%(Hero.x + 32, Hero.y + 32, 32, 32) THEN ' sector 3
196.         checkFingerSector% = 3
197.     ELSEIF fingerIsOnSurface%(Hero.x - 32, Hero.y, 32, 32) THEN '      sector 4
198.         checkFingerSector% = 4
199.     ELSEIF fingerIsOnSurface%(Hero.x, Hero.y, 32, 32) THEN '           sector 5
200.         checkFingerSector% = 5
201.     ELSEIF fingerIsOnSurface%(Hero.x + 32, Hero.y, 32, 32) THEN '      sector 6
202.         checkFingerSector% = 6
203.     ELSEIF fingerIsOnSurface%(Hero.x - 32, Hero.y - 32, 32, 32) THEN ' sector 7
204.         checkFingerSector% = 7
205.     ELSEIF fingerIsOnSurface%(Hero.x, Hero.y - 32, 32, 32) THEN '      sector 8
206.         checkFingerSector% = 8
207.     ELSEIF fingerIsOnSurface%(Hero.x + 32, Hero.y - 32, 32, 32) THEN ' sector 9
208.         checkFingerSector% = 9
209.     ELSE '                     nothing to do, further away from playable sectors
210.         checkFingerSector% = 0
211.     END IF
212.  
213. END FUNCTION
214. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
215. FUNCTION checkEnemyPresenceInSector% (sect%, orgX%, orgY%)
216.     FOR i% = 1 TO UBOUND(Enemy)
217.         IF Enemy(i%).map = actualMapWorking%% THEN
218.             SELECT CASE sect%
219.                 CASE 1: IF Enemy(i%).x = orgX% - 32 AND Enemy(i%).y = orgY% + 32 THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
220.                 CASE 2: IF Enemy(i%).x = orgX% AND Enemy(i%).y = orgY% + 32 THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
221.                 CASE 3: IF Enemy(i%).x = orgX% + 32 AND Enemy(i%).y = orgY% + 32 THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
222.                 CASE 4: IF Enemy(i%).x = orgX% - 32 AND Enemy(i%).y = orgY% THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
223.                 CASE 6: IF Enemy(i%).x = orgX% + 32 AND Enemy(i%).y = orgY% THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
224.                 CASE 7: IF Enemy(i%).x = orgX% - 32 AND Enemy(i%).y = orgY% - 32 THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
225.                 CASE 8: IF Enemy(i%).x = orgX% AND Enemy(i%).y = orgY% - 32 THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
226.                 CASE 9: IF Enemy(i%).x = orgX% + 32 AND Enemy(i%).y = orgY% - 32 THEN checkEnemyPresenceInSector% = TRUE: EXIT FUNCTION
227.             END SELECT
228.         END IF
229.     NEXT i%
230.     checkEnemyPresenceInSector% = FALSE
231. END FUNCTION
232. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
233. FUNCTION checkItemPresenceInSector% (sect%, orgX%, orgY%)
234.     FOR i% = 1 TO UBOUND(Items)
235.         IF Items(i%).map = actualMapWorking%% THEN
236.             SELECT CASE sect%
237.                 CASE 1: IF Items(i%).x = orgX% - 32 AND Items(i%).y = orgY% + 32 THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
238.                 CASE 2: IF Items(i%).x = orgX% AND Items(i%).y = orgY% + 32 THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
239.                 CASE 3: IF Items(i%).x = orgX% + 32 AND Items(i%).y = orgY% + 32 THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
240.                 CASE 4: IF Items(i%).x = orgX% - 32 AND Items(i%).y = orgY% THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
241.                 CASE 5: IF Items(i%).x = orgX% AND Items(i%).y = orgY% THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
242.                 CASE 6: IF Items(i%).x = orgX% + 32 AND Items(i%).y = orgY% THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
243.                 CASE 7: IF Items(i%).x = orgX% - 32 AND Items(i%).y = orgY% - 32 THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
244.                 CASE 8: IF Items(i%).x = orgX% AND Items(i%).y = orgY% - 32 THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
245.                 CASE 9: IF Items(i%).x = orgX% + 32 AND Items(i%).y = orgY% - 32 THEN checkItemPresenceInSector% = TRUE: EXIT FUNCTION
246.             END SELECT
247.         END IF
248.     NEXT i%
249.     checkItemPresenceInSector% = FALSE
250. END FUNCTION
251. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
252. FUNCTION checkWorldAtSector% (sect%, orgX%, orgY%)
253.     SELECT CASE sect%
254.         CASE 1:
255.         CASE 2:
256.         CASE 3:
257.         CASE 4:
258.         CASE 5:
259.         CASE 6:
260.         CASE 7:
261.         CASE 8:
262.         CASE 9:
263.     END SELECT
264. END FUNCTION
265. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
266. FUNCTION checkMechPresenceInSector% (sect%, orgX%, orgY%)
267. END FUNCTION
268. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
269. SUB drawFinger
270.     SELECT CASE drawFingerAs%%
271.         CASE 0: _PUTIMAGE (Finger.x - 8, Finger.y - 8), FingerImg&(0) 'cross
272.         CASE 1: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(1) 'finger
273.         CASE 2: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(2) 'attack sword
274.         CASE 3: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(3) 'grabbing hand
275.         CASE 4: _PUTIMAGE (Finger.x - 8, Finger.y - 8), FingerImg&(4) 'wait clock
276.         CASE 5: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(5) 'GO
277.         CASE 6: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(6) 'sand clock
278.         CASE 7: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(7) '?
279.         CASE 8: _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(8) '!
280.         CASE 11:
281.         CASE 12:
282.     END SELECT
283. END SUB
284. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
285. SUB allowedMotions (where%)
286.  
287.     SELECT CASE where%
288.         CASE 1
289.             printHUDpromt "Move down & left" '                        ¿
290.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(9) ' ³
291.             IF Finger.clickL THEN '                                   ³
292.                 Hero.y = Hero.y + 32 '                                ³
293.                 Hero.x = Hero.x - 32 '
294.                 gameTurn% = 0
295.             END IF '                                                  ¾
296.         CASE 2
297.             printHUDpromt "Move down" '                                ¿
298.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(10) ' ³
299.             IF Finger.clickL THEN '                                    ³
300.                 Hero.y = Hero.y + 32 '
301.                 gameTurn% = 0
302.             END IF '                                                   ¾
303.         CASE 3
304.             printHUDpromt "Move down & right" '                       ¿
305.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(2) ' ³
306.             IF Finger.clickL THEN '                                   ³
307.                 Hero.y = Hero.y + 32 '                                ³
308.                 Hero.x = Hero.x + 32 '
309.                 gameTurn% = 0
310.             END IF '                                                  ¾
311.         CASE 4
312.             printHUDpromt "Move left" '                               ¿
313.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(7) ' ³
314.             IF Finger.clickL THEN '                                   ³
315.                 Hero.x = Hero.x - 32 '
316.                 gameTurn% = 0
317.             END IF '                                                  ¾
318.         CASE 5
319.             printHUDpromt "Rest one turn" '                         ¿
320.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), FingerImg&(4) ' ¾
321.  
322.             '!!!!!!!!!!!!!!!!!!!!
323.             IF Finger.clickL THEN '                                   ³
324.                 gameTurn% = 0
325.             END IF '                                                  ¾
326.             '!!!!!!!!!!!!!!!!!!!!
327.  
328.  
329.         CASE 6
330.             printHUDpromt "Move right" '                              ¿
331.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(1) ' ³
332.             IF Finger.clickL THEN '                                   ³
333.                 Hero.x = Hero.x + 32 '
334.                 gameTurn% = 0
335.             END IF '                                                  ¾
336.         CASE 7
337.             printHUDpromt "Move up & left" '                          ¿
338.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(8) ' ³
339.             IF Finger.clickL THEN '                                   ³
340.                 Hero.y = Hero.y - 32 '                                ³
341.                 Hero.x = Hero.x - 32 '
342.                 gameTurn% = 0
343.             END IF '                                                  ¾
344.         CASE 8
345.             printHUDpromt "Move up" '                                 ¿
346.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(4) ' ³
347.             IF Finger.clickL THEN '                                   ³
348.                 Hero.y = Hero.y - 32 '
349.                 gameTurn% = 0
350.             END IF '                                                  ¾
351.         CASE 9
352.             printHUDpromt "Move up & right" '                         ¿
353.             _PUTIMAGE (Finger.x - 8, Finger.y - 8), DirArrowImg&(3) ' ³
354.             IF Finger.clickL THEN '                                   ³
355.                 Hero.y = Hero.y - 32 '                                ³
356.                 Hero.x = Hero.x + 32 '
357.                 gameTurn% = 0
358.             END IF '                                                  ¾
359.         CASE 0
360.             _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(0) ' normal finger
361.     END SELECT
362.  
363. END SUB
364.  
365. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
366.  
367. SUB mainMenu () '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û MENUS Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
368.     ' TO DO: allow acces to SAVE GAME & LOAD GAME
369.  
370.     drawMenuBack 240, 99, 391, 306
371.  
372.     LOCATE 8, 37 '          ¿
373.     PRINT "FANTASY"; '      ¾  TITLE
374.  
375.     _PUTIMAGE (259, 103), SpellImg&(0) '¿ demoniac
376.     _PUTIMAGE (340, 103), SpellImg&(0) 'Ù stars
377.  
378.     IF actualMapWorking%% > -1 THEN '                 are we already playing?
379.         _PUTIMAGE (369, 108), HUDImg&(3) '            then this menu has to show this image
380.         IF fingerIsOnSurface%(369, 108, 16, 16) THEN '
381.             HUDpromt$ = "Back to game"
382.             IF Finger.clickL THEN menuMain` = FALSE
383.         END IF
384.     END IF
385.  
386.     LOCATE 10, 36
387.     IF fingerIsOnSurface%(280, 144, 72, 16) THEN
388.         COLOR GREEN4, GREEN1
389.         IF Finger.clickL THEN
390.             COLOR GREEN1, GREEN4 ' so no wrong printing in newGame
391.             menuMain` = FALSE
392.             menuPocket = FALSE
393.             menuSpells` = FALSE
394.             menuStats` = FALSE
395.             newGame
396.         END IF
397.     ELSE
398.         COLOR GREEN1, GREEN4
399.     END IF
400.     PRINT "New  game";
401.  
402.     LOCATE 12, 36
403.     IF fingerIsOnSurface%(280, 176, 72, 16) THEN
404.         COLOR GREEN4, GREEN1
405.         IF Finger.clickL THEN loadGame
406.     ELSE
407.         COLOR GREEN1, GREEN4
408.     END IF
409.     PRINT "Load game";
410.  
411.     LOCATE 14, 36
412.     IF actualMapWorking%% > -1 THEN ' we only allowed to save if we are playing
413.         IF fingerIsOnSurface%(280, 208, 72, 16) THEN
414.             COLOR GREEN4, GREEN1
415.             'IF Finger.clickL THEN actualMenuWorking% = -7 '<----------------WRONG! assign a variable for this
416.         ELSE
417.             COLOR GREEN1, GREEN4
418.         END IF
419.     ELSE
420.         COLOR GREEN3, GREEN4 ' if NOT in game
421.     END IF
422.     PRINT "Save Game";
423.  
424.     LOCATE 16, 38
425.     IF fingerIsOnSurface%(296, 240, 32, 16) THEN
426.         COLOR GREEN4, GREEN1
427.         IF Finger.clickL THEN
428.             menuMain` = FALSE
429.             menuHelp` = TRUE
430.         END IF
431.     ELSE
432.         COLOR GREEN1, GREEN4
433.     END IF
434.     PRINT "Help";
435.  
436.     LOCATE 18, 38
437.     IF fingerIsOnSurface%(296, 272, 32, 16) THEN
438.         COLOR GREEN4, GREEN1
439.         IF Finger.clickL THEN
440.             exitProgram
441.         END IF
442.     ELSE
443.         COLOR GREEN1, GREEN4
444.     END IF
445.     PRINT "Exit";
446.  
447.     IF actualMapWorking%% > -1 THEN
448.         IF fingerIsOnSurface%(280, 144, 72, 16) THEN HUDpromt$ = "Start a new game"
449.         IF fingerIsOnSurface%(280, 176, 72, 16) THEN HUDpromt$ = "Load a saved game"
450.         IF fingerIsOnSurface%(280, 208, 72, 16) THEN HUDpromt$ = "Save current game"
451.         IF fingerIsOnSurface%(296, 240, 32, 16) THEN HUDpromt$ = "Learn how to play"
452.         IF fingerIsOnSurface%(296, 272, 32, 16) THEN HUDpromt$ = "Close and leave"
453.     END IF
454.  
455.     COLOR GREEN1, GREEN4 ' don't conlictuate with other stuff
456.  
457. END SUB
458. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
459. SUB exitProgram ()
460.     unloadImages
461.     CHDIR ".\.." 'to data
462.     RMDIR "tmp"
463.     SYSTEM
464. END SUB
465. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
466. SUB newGame () '!!!!!!! set me to 0 after testing
467.  
468.     DIM i%
469.  
470.     actualMapWorking%% = -1 'leave actual game
471.     Hero.lvl = 1 ' start with a fresh character
472.     Hero.class = -1
473.     Hero.id = ""
474.     Hero.xp = 0 '              ¿
475.     Hero.nextXp = 100 '        ³ with no xp
476.     Hero.prevNextXp = 0 '      ³
477.     Hero.attributePoints = 2 ' ¾<------!!!!!!! set me to 0 after testing
478.     FOR i% = 0 TO 5
479.         SpellsIknow%%(i%) = 1 ' you don't know any spells 'CHANGE ME TO 0 AFTER TESTING
480.     NEXT i%
481.     chooseClass '¿ don't switch
482.     enterName '  Ù the order!
483.     'Û LOAD CHARACTER INITIAL VARIABLES Û
484.     SELECT CASE Hero.class 'according to class
485.         CASE 0 'Barbarian       ¿
486.             Hero.strength = 20 '³
487.             Hero.agility = 10 ' ³ BARBARIAN
488.             Hero.power = 5 '    ³ SKILLS
489.             Hero.vigor = 15 '   Ù
490.         CASE 1 ' Clerig         ¿
491.             Hero.strength = 15 '³
492.             Hero.agility = 5 '  ³ CLERIG
493.             Hero.power = 10 '   ³ SKILLS
494.             Hero.vigor = 20 '   Ù
495.         CASE 2 'Assasin         ¿
496.             Hero.strength = 10 '³
497.             Hero.agility = 20 ' ³ ASSASIN
498.             Hero.power = 5 '    ³ SKILLS
499.             Hero.vigor = 15 '   Ù
500.         CASE 3 'Wizard          ¿
501.             Hero.strength = 5 ' ³
502.             Hero.agility = 10 ' ³ WIZARD
503.             Hero.power = 20 '   ³ SKILLS
504.             Hero.vigor = 15 '   ³
505.     END SELECT '                Ù
506.  
507.     Hero.life = calculateMaxLife%
508.     Hero.mana = calculateMaxMana%
509.  
510.     FOR i% = 0 TO 22
511.         cleanOnePocketSlot i% ' clearPocket
512.     NEXT i%
513.  
514.     equipOurHero
515.     loadEnemiesInitialVariables
516.     loadMechsInitialVariables
517.     'showHistory 0
518.  
519.     actualMapWorking%% = 0 ' ¿ we start
520.     Hero.x = 32 '            ³ at this
521.     Hero.y = 64 '            Ù place
522.  
523. END SUB
524. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
525. SUB loadGame () 'INCOMPLETE
526.  
527.     DIM leaving%
528.     DIM keyPress$
529.     DIM i%
530.     DIM heroName$
531.     DIM inputNumber%
532.     DIM inputNumber2%
533.     DIM tmpString$
534.     DIM slot&(2)
535.  
536.     leaving% = 0
537.     CHDIR ".\.." 'to data
538.     CHDIR ".\saved" 'into saved
539.     DO
540.         _LIMIT 60
541.         CLS , GREEN3
542.         getMouseData
543.  
544.         drawMenuBack 240, 99, 391, 306
545.         COLOR GREEN1, GREEN4 '¿
546.         LOCATE 8, 36 '        ³ TITLE
547.         PRINT "LOAD  GAME"; ' Ù
548.  
549.         keyPress$ = INKEY$ '
550.         IF keyPress$ <> "" THEN '
551.             IF ASC(keyPress$) = 27 THEN leaving% = 1 '
552.         END IF '
553.  
554.         FOR i% = 0 TO 2 '
555.             drawItemSlots 252, 142 + (i% * 48) '
556.             slot&(i%) = FREEFILE
557.             COLOR GREEN1, GREEN4
558.             LOCATE 10 + (i% * 3), 37
559.             tmpString$ = ".\save" + _TRIM$(STR$(i% + 1))
560.             IF _DIREXISTS(tmpString$) THEN
561.                 CHDIR tmpString$
562.                 tmpString$ = "s" + _TRIM$(STR$(i% + 1)) + "Game.txt"
563.                 OPEN tmpString$ FOR INPUT AS #slot&(i%)
564.                 INPUT #slot&(i%), heroName$
565.                 INPUT #slot&(i%), inputNumber%
566.                 INPUT #slot&(i%), inputNumber2%
567.                 CLOSE #slot&(i%)
568.                 CHDIR ".\.."
569.                 tmpString$ = calculateNameOfHeroClass$(inputNumber%) '
570.                 tmpString$ = tmpString$ + "(" + _TRIM$(STR$(inputNumber2%)) + ")" '
571.                 IF fingerIsOnSurface%(252, 142 + (i% * 48), 123, 32) THEN '
572.                     COLOR GREEN4, GREEN1 '
573.                     'IF Finger.clickL THEN acceptedLoadGame(1): EXIT DO? or EXIT SUB?
574.                 END IF '
575.                 PRINT heroName$ '
576.                 LOCATE 11 + (i% * 3), 37 '
577.                 PRINT tmpString$ '
578.                 _PUTIMAGE (252, 142 + (i% * 48)), calculateHeroImg&(inputNumber%, inputNumber2%) '
579.             ELSE
580.                 PRINT "Empty slot" '
581.             END IF
582.         NEXT i% '
583.  
584.         _PUTIMAGE (Finger.x, Finger.y), FingerImg&(1)
585.         _DISPLAY
586.     LOOP UNTIL leaving% = 1
587.     CHDIR ".\.." ' back to data
588.     CHDIR ".\tmp" 'and then to tmp
589. END SUB
590. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
591. SUB saveGame () 'INCOMPLETE
592.     drawMenuBack 247, 99, 391, 274
593.     LOCATE 8, 36 '    ¿ TITLE
594.     PRINT "SAVE  GAME"; ' Ù
595. END SUB
596. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
597. SUB helpMenu () ' INCOMPLETE
598.     LOCATE 1, 1
599.     PRINT "How to play"
600.  
601. END SUB
602. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
603. SUB chooseClass ()
604.     DIM i% ' ¿ LOCALS
605.     DIM ii% 'Ù
606.     DO
607.         _LIMIT 60
608.         getMouseData
609.         CLS , GREEN3 'all screen clear on green3
610.         drawMenuBack 240, 99, 398, 280
611.         LOCATE 8, 35 '                                               ¿ TITLE
612.         PRINT "CHOOSE CLASS"; ' Barbarian, Clerig, Assasin or Wizard Ù
613.         FOR i% = 0 TO 3: drawItemSlots 252 + i% * 34, 139: NEXT i% ' slots for hero images
614.         _PUTIMAGE (252, 139), HeroImg&(0) ' Barbarian ¿
615.         _PUTIMAGE (286, 139), HeroImg&(2) ' Clerig    ³ characters
616.         _PUTIMAGE (320, 139), HeroImg&(4) ' Assasin   ³ images
617.         _PUTIMAGE (354, 139), HeroImg&(6) ' Wizard    Ù
618.         LOCATE 14, 33: PRINT "Strength"; '¿ static
619.         LOCATE 15, 34: PRINT "Agility"; ' ³ ATRIBUTTE
620.         LOCATE 16, 36: PRINT "Power"; '   ³ WORDS
621.         LOCATE 17, 36: PRINT "Vigor"; '   Ù
622.         FOR i% = 0 TO 3 '                                             ¿
623.             _PUTIMAGE (327, i% * 16 + 212), BarImg&(0) ' open         ³
624.             _PUTIMAGE (367, i% * 16 + 212), BarImg&(6) ' close        ³ static
625.             FOR ii% = 0 TO 3 '                                        ³ BARS
626.                 _PUTIMAGE (ii% * 8 + 335, i% * 16 + 212), BarImg&(5) '³
627.             NEXT ii% '                                                ³
628.         NEXT i% '                                                     Ù
629.         IF fingerIsOnSurface%(252, 139, 32, 32) THEN '    ¿
630.             LOCATE 13, 37 '                               ³
631.             PRINT "Barbarian"; '                          ³
632.             barShowingPercentage 327, 212, 100 'STRENGTH  ³
633.             barShowingPercentage 327, 228, 50 'AGILITY    ³ BARBARIAN
634.             barShowingPercentage 327, 244, 25 'POWER      ³
635.             barShowingPercentage 327, 260, 75 ' VIGOR     ³
636.             IF Finger.clickL THEN Hero.class = 0 '        ¾
637.         ELSEIF fingerIsOnSurface%(286, 139, 32, 32) THEN '¿
638.             LOCATE 13, 38 '                               ³
639.             PRINT "Clerig"; '                             ³
640.             barShowingPercentage 327, 212, 75 'STRENGTH   ³
641.             barShowingPercentage 327, 228, 25 'AGILITY    ³ CLERIG
642.             barShowingPercentage 327, 244, 50 'POWER      ³
643.             barShowingPercentage 327, 260, 100 ' VIGOR    ³
644.             IF Finger.clickL THEN Hero.class = 1 '        ¾
645.         ELSEIF fingerIsOnSurface%(320, 139, 32, 32) THEN '¿
646.             LOCATE 13, 38 '                               ³
647.             PRINT "Assasin"; '                            ³
648.             barShowingPercentage 327, 212, 50 'STRENGTH   ³
649.             barShowingPercentage 327, 228, 100 'AGILITY   ³ ASSASIN
650.             barShowingPercentage 327, 244, 25 'POWER      ³
651.             barShowingPercentage 327, 260, 75 ' VIGOR     ³
652.             IF Finger.clickL THEN Hero.class = 2 '        ¾
653.         ELSEIF fingerIsOnSurface%(354, 139, 32, 32) THEN '¿
654.             LOCATE 13, 38 '                               ³
655.             PRINT "Wizard"; '                             ³
656.             barShowingPercentage 327, 212, 25 'STRENGTH   ³
657.             barShowingPercentage 327, 228, 50 'AGILITY    ³ WIZARD
658.             barShowingPercentage 327, 244, 100 'POWER     ³
659.             barShowingPercentage 327, 260, 75 ' VIGOR     ³
660.             IF Finger.clickL THEN Hero.class = 3 '        ³
661.         END IF '                                          ¾
662.         _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(1) ' show finger
663.         _DISPLAY
664.     LOOP UNTIL Hero.class <> -1 ' leave when we have a class
665. END SUB
666. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - -
667. SUB enterName () '
668.     DIM playerChoosingName$ '¿
669.     DIM suffixForName$ '     ³
670.     DIM key$ '               ³ LOCALS
671.     DIM i% '                 ³
672.     DIM ii% '                Ù
673.     Hero.id = "" '             ¿ get ready for recive
674.     playerChoosingName$ = "" ' Ù something
675.     suffixForName$ = "the "
676.     SELECT CASE Hero.class ' Hero.class in words                ¿
677.         CASE 0: suffixForName$ = suffixForName$ + "Barbarian" ' ³
678.         CASE 1: suffixForName$ = suffixForName$ + "Clerig" '    ³
679.         CASE 2: suffixForName$ = suffixForName$ + "Assasin" '   ³ we already have
680.         CASE 3: suffixForName$ = suffixForName$ + "Wizard" '    ³ an rpg class ;)
681.     END SELECT '                                                ³
682.     ii% = 40 - (LEN(suffixForName$) \ 2) ' center it            Ù
683.     DO
684.         _LIMIT 60
685.         getMouseData
686.         CLS , GREEN3 'all screen clear on green3
687.         drawMenuBack 240, 99, 398, 274
688.         LOCATE 8, 34 '              ¿ TITLE
689.         PRINT "ENTER YOUR NAME"; '  Ù
690.         drawItemSlots 303, 139 ' slot for hero image
691.         SELECT CASE Hero.class ' images of possible hero chosen
692.             CASE 0: _PUTIMAGE (303, 139), HeroImg&(0)
693.             CASE 1: _PUTIMAGE (303, 139), HeroImg&(2)
694.             CASE 2: _PUTIMAGE (303, 139), HeroImg&(4)
695.             CASE 3: _PUTIMAGE (303, 139), HeroImg&(6)
696.         END SELECT '
697.         LOCATE 12, 32 '               ¿ print
698.         PRINT "This story begins"; '  ³ text pre
699.         LOCATE 13, 32 '               ³ name
700.         PRINT "with a hero called"; ' Ù
701.         key$ = INKEY$ ' get the key                                                                                                                     ¿
702.         IF key$ <> "" THEN '                                                                                                                            ³
703.             ' write                                                                                                                                     ³
704.             IF LEN(playerChoosingName$) < 11 THEN '                                                                                                     ³ keyboard
705.                 IF ((ASC(key$) > 96 AND ASC(key$) < 123)) THEN playerChoosingName$ = playerChoosingName$ + key$ '                                       ³ inputs
706.             END IF '                                                                                                                                    ³ for this
707.             IF LEN(playerChoosingName$) > 0 THEN ' if the name has at least one character                                                               ³ particular
708.                 IF LEN(playerChoosingName$) = 1 THEN playerChoosingName$ = UCASE$(playerChoosingName$) 'capitalize the first one                        ³
709.                 IF ASC(key$) = 8 THEN playerChoosingName$ = LEFT$(playerChoosingName$, LEN(playerChoosingName$) - 1) ' if backspace erease one letter   ³ menu
710.                 IF ASC(key$) = 13 THEN Hero.id = playerChoosingName$ ' confirm name                                                                     ³
711.             END IF '                                                                                                                                    ³
712.         END IF '                                                                                                                                        Ù
713.         i% = 40 - (LEN(playerChoosingName$) \ 2) '¿ print the name
714.         LOCATE 14, i% '                           ³ the player is
715.         PRINT playerChoosingName$; "_"; '         Ù actually writing
716.         LOCATE 15, ii% '       ¿ print
717.         PRINT suffixForName$; 'Ù "the " + Hero.class as words
718.         _PUTIMAGE (287, 245), FingerImg&(5) ' GO ¿ print
719.         _PUTIMAGE (335, 245), FingerImg&(0) ' X  Ù "buttons"
720.         IF Finger.clickL THEN ' when u click                                                ¿
721.             IF LEN(playerChoosingName$) > 0 THEN ' and some name has been written           ³
722.                 ' if finger position ok, then confirm name                                  ³ mouse click
723.                 IF fingerIsOnSurface%(287, 245, 16, 16) THEN Hero.id = playerChoosingName$ '³ inputs in
724.             END IF '                                                                        ³ this particular
725.             ' if u click on the cross erease the pre-name                                   ³ menu
726.             IF fingerIsOnSurface(335, 245, 16, 16) THEN playerChoosingName$ = "" '          ³
727.         END IF '                                                                            Ù
728.         _PUTIMAGE (Finger.x - 1, Finger.y - 1), FingerImg&(1) ' show finger
729.         _DISPLAY
730.     LOOP UNTIL Hero.id <> "" ' leave here when we have a name
731. END SUB
732. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
733. SUB lookInPocket () 'what about in case of commerce or chest, bag, bones, etc....????
734.  
735.     drawMenuBack 320, 32, 639, 383 ' POCKET & EQUIPED
736.     drawMenuBack 0, 384, 639, 479 ' ITEM INFO
737.  
738.     LOCATE 5, 48 '
739.     PRINT "POCKET"; '
740.     LOCATE 5, 67 '
741.     PRINT "EQUIPPED"; '
742.  
743.     _PUTIMAGE (328, 40), HUDImg&(3)
744.     IF fingerIsOnSurface%(328, 40, 16, 16) AND inHand.lvl = -1 THEN
745.         HUDpromt$ = "Back to game"
746.         IF Finger.clickL THEN menuPocket` = FALSE
747.     END IF
748.  
749.     FOR i% = 0 TO 22
750.         drawItemSlots Pocket(i%).x, Pocket(i%).y ' POCKET & EQUIPPED slots draw
751.     NEXT i%
752.  
753.     LINE (480, 64)-(480, 351), GREEN1 ' divisory line
754.  
755.     FOR i% = 0 TO 22
756.         IF fingerIsOnSurface(Pocket(i%).x, Pocket(i%).y, 32, 32) THEN itemInformation i% ' if mouse over an item inform
757.     NEXT i%
758.  
759.  
760.     drawItemsInPocket
761. END SUB
762. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
763. SUB selectSomeSpell () ' INCOMPLETE
764.  
765.     DIM i%, j%, x%, y%
766.  
767.     drawMenuBack 320, 32, 639, 383
768.     drawMenuBack 0, 384, 639, 479 ' spell info board
769.     LOCATE 5, 58: PRINT "SPELLS";
770.     x% = 409
771.     y% = 120
772.     FOR i% = 0 TO 1
773.         FOR j% = 0 TO 2
774.             drawItemSlots x% + (j% * 54), y% + (i% * 54)
775.         NEXT j%
776.     NEXT i%
777.     IF SpellsIknow%%(0) > 0 THEN _PUTIMAGE (409, 120), SpellImg&(0)
778.     IF SpellsIknow%%(1) > 0 THEN _PUTIMAGE (463, 120), SpellImg&(1)
779.     IF SpellsIknow%%(2) > 0 THEN _PUTIMAGE (517, 120), SpellImg&(2)
780.     IF SpellsIknow%%(3) > 0 THEN _PUTIMAGE (409, 174), SpellImg&(3)
781.     IF SpellsIknow%%(4) > 0 THEN _PUTIMAGE (463, 174), SpellImg&(4)
782.     IF SpellsIknow%%(5) > 0 THEN _PUTIMAGE (517, 174), SpellImg&(5)
783.  
784.  
785.     LOCATE 17, 59: PRINT "WAND";
786.     drawItemSlots 447, 286
787.     LOCATE 19, 62: PRINT "CHARGES";
788.     LOCATE 20, 62
789.     IF Pocket(2).kind = 15 THEN
790.         IF INSTR(Pocket(2).special, "0") THEN
791.             _PUTIMAGE (447, 286), SpellImg&(0)
792.         ELSEIF INSTR(Pocket(2).special, "1") THEN
793.             _PUTIMAGE (447, 286), SpellImg&(1)
794.         ELSEIF INSTR(Pocket(2).special, "2") THEN
795.             _PUTIMAGE (447, 286), SpellImg&(2)
796.         ELSEIF INSTR(Pocket(2).special, "3") THEN
797.             _PUTIMAGE (447, 286), SpellImg&(3)
798.         ELSEIF INSTR(Pocket(2).special, "4") THEN
799.             _PUTIMAGE (447, 286), SpellImg&(4)
800.         ELSEIF INSTR(Pocket(2).special, "5") THEN
801.             _PUTIMAGE (447, 286), SpellImg&(5)
802.         END IF
803.         PRINT _TRIM$(STR$(Pocket(2).ammount - 1)) + "/" + _TRIM$(STR$(calculateWandMaxCharges%(Pocket(2).lvl)))
804.     ELSE
805.         PRINT "-/-"
806.     END IF
807.  
808.     _PUTIMAGE (328, 40), HUDImg&(3)
809.     IF fingerIsOnSurface%(328, 40, 16, 16) AND inHand.lvl = -1 AND NOT menuMain` THEN
810.         HUDpromt$ = "Back to game"
811.         IF Finger.clickL THEN menuSpells` = FALSE
812.     END IF
813.  
814. END SUB
815. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
816. FUNCTION calculateNameOfHeroClass$ (heroClass%)
817.     SELECT CASE heroClass%
818.         CASE 0: calculateNameOfHeroClass$ = "Barbarian"
819.         CASE 1: calculateNameOfHeroClass$ = "Clerig"
820.         CASE 2: calculateNameOfHeroClass$ = "Assasin"
821.         CASE 3: calculateNameOfHeroClass$ = "Wizard"
822.     END SELECT
823. END FUNCTION
824. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
825. SUB showTheStats () ' STILL HAVE TO: !!!ARROW FOR UPGRADING CAN'T APPEAR IF WE REACHED TOP OF SKILL FOR CLASS!!!!
826.  
827.     drawMenuBack 0, 32, 319, 383 '
828.     'drawMenuBack 0, 384, 639, 479 ' ITEM
829.     LOCATE 5, 18 '  ¿ TITLE
830.     PRINT "STATS"; 'Ù
831.  
832.     _PUTIMAGE (297, 40), HUDImg&(3)
833.     IF fingerIsOnSurface%(297, 40, 16, 16) AND inHand.lvl = -1 THEN
834.         HUDpromt$ = "Back to game"
835.         IF Finger.clickL THEN menuStats` = FALSE
836.     END IF
837.  
838.     drawItemSlots 64, 96: _PUTIMAGE (64, 96), calculateHeroImg&(Hero.class, Hero.lvl)
839.     drawItemSlots 144, 96: _PUTIMAGE (144, 104), LvlImg&(0): _PUTIMAGE (160, 104), LvlImg&(Hero.lvl)
840.  
841.     LOCATE 7, 28: PRINT Hero.id;
842.     LOCATE 8, 28: PRINT calculateNameOfHeroClass$(Hero.class)
843.  
844.  
845.     LOCATE 10, 19: PRINT "BASE NOW";
846.  
847.     'BASE
848.     LOCATE 11, 12: PRINT "STRENGTH"; Hero.strength;
849.     LOCATE 12, 13: PRINT "AGILITY"; Hero.agility;
850.     LOCATE 13, 15: PRINT "POWER"; Hero.power;
851.     LOCATE 14, 15: PRINT "VIGOR"; Hero.vigor;
852.  
853.     LOCATE 17, 6: PRINT "DAMAGE " + _TRIM$(STR$(calculateHeroBaseDmg%)) + " - " + _TRIM$(STR$(calculateHeroMaxDmg%));
854.     LOCATE 17, 25: PRINT "TO HIT %"; calculateHeroChanceToHit%;
855.     LOCATE 19, 17: PRINT "DEFENSE"; calculateHeroDefense%;
856.     LOCATE 22, 14: PRINT "POINTS TO ADD"; Hero.attributePoints;
857.  
858.     IF Hero.attributePoints > 0 THEN ' if you have points
859.  
860.         _PUTIMAGE (184, 160), DirArrowImg&(4) ' strength         ¿
861.         IF fingerIsOnSurface%(184, 160, 16, 16) THEN '           ³
862.             printHUDpromt "Increase your strength" '             ³
863.             IF Finger.clickL THEN '                              ³
864.                 Hero.strength = Hero.strength + 1 '              ³
865.                 Hero.attributePoints = Hero.attributePoints - 1 '³
866.             END IF '                                             ³
867.         END IF '                                                 ³
868.         _PUTIMAGE (184, 176), DirArrowImg&(4) ' agility          ³
869.         IF fingerIsOnSurface%(184, 176, 16, 16) THEN '           ³
870.             printHUDpromt "Increase your agility" '              ³
871.             IF Finger.clickL THEN '                              ³
872.                 Hero.agility = Hero.agility + 1 '                ³ ARROWS
873.                 Hero.attributePoints = Hero.attributePoints - 1 '³ FOR
874.             END IF '                                             ³ UPGRADING  <---------------Need to make functions for checking topStrength, topPower, etc... calculateHeroTopVigor
875.         END IF '                                                 ³ SKILLS
876.         _PUTIMAGE (184, 192), DirArrowImg&(4) ' power            ³
877.         IF fingerIsOnSurface%(184, 192, 16, 16) THEN '           ³
878.             printHUDpromt "Increase your power" '                ³
879.             IF Finger.clickL THEN '                              ³
880.                 Hero.power = Hero.power + 1 '                    ³
881.                 Hero.attributePoints = Hero.attributePoints - 1 '³
882.             END IF '                                             ³
883.         END IF '                                                 ³
884.         _PUTIMAGE (184, 208), DirArrowImg&(4) ' vigor            ³
885.         IF fingerIsOnSurface%(184, 208, 16, 16) THEN '           ³
886.             printHUDpromt "Increase your vigor" '                ³
887.             IF Finger.clickL THEN '                              ³
888.                 Hero.vigor = Hero.vigor + 1 '                    ³
889.                 Hero.attributePoints = Hero.attributePoints - 1 '³
890.             END IF '                                             ³
891.         END IF '                                                 ¾
892.     ELSE
893.         'NOW
894.         LOCATE 11, 23: PRINT calculateHeroActualStrength%;
895.         LOCATE 12, 23: PRINT calculateHeroActualAgility%;
896.         LOCATE 13, 23: PRINT calculateHeroActualPower%;
897.         LOCATE 14, 23: PRINT calculateHeroActualVigor%;
898.     END IF
899.     LINE (179, 146)-(179, 219), GREEN1 ' separation line between BASE & NOW
900. END SUB
901.  
902. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
903.  
904. SUB lookAtMap () ' INCOMPLETE
905.     drawMenuBack 16, 48, 624, 464
906.     LOCATE 4, 38
907.     PRINT "MAP"
908.     'closeWindowButton 608, 52
909. END SUB
910. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
911.  
912. SUB cleanYourHand () '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û ITEMS Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
913.     inHand.kind = -1
914.     inHand.lvl = -1
915.     inHand.ammount = 0
916.     inHand.special = ""
917. END SUB
918. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
919. FUNCTION lookForSpaceInPocket% ()
920.     DIM i%
921.     FOR i% = 7 TO 22
922.         IF Pocket(i%).kind = -1 THEN lookForSpaceInPocket% = i%: EXIT FUNCTION
923.     NEXT i%
924.     lookForSpaceInPocket% = FALSE
925. END FUNCTION
926. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
927. SUB clearPocket ()
928.     FOR i% = 0 TO 22
929.         Pocket(i%).kind = -1
930.         Pocket(i%).lvl = -1
931.         Pocket(i%).ammount = 0
932.         Pocket(i%).special = ""
933.     NEXT i%
934. END SUB
935. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
936. SUB createItemInPocket (kind%, lvl%, ammount%, slot%, special$)
937.     Pocket(slot%).kind = kind%
938.     Pocket(slot%).lvl = lvl%
939.     Pocket(slot%).ammount = ammount%
940.     Pocket(slot%).special = special$
941. END SUB
942. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
943. SUB cleanOnePocketSlot (indexOfSlot%)
944.     Pocket(indexOfSlot%).kind = -1
945.     Pocket(indexOfSlot%).lvl = -1
946.     Pocket(indexOfSlot%).ammount = 0
947.     Pocket(indexOfSlot%).special = ""
948. END SUB
949. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
950. SUB drawItemsOnGround ()
951.     FOR i% = 0 TO UBOUND(Items)
952.         IF Items(i%).map = actualmapworking% THEN
953.             _PUTIMAGE (Items(i%).x + 8, Items(i%).y + 8), calculateItemOnGroundImage&(Items(i%).kind)
954.         END IF
955.     NEXT i%
956. END SUB
957. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
958. SUB drawItemsInPocket ()
959.     FOR i% = 0 TO 22
960.         _PUTIMAGE (Pocket(i%).x, Pocket(i%).y), calculateItemImage&(Pocket(i%).kind, Pocket(i%).lvl)
961.     NEXT i%
962.     _PUTIMAGE (inHand.x - 16, inHand.y - 16), calculateItemImage&(inHand.kind, inHand.lvl)
963. END SUB
964. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
965. FUNCTION calculateItemOnGroundImage& (k%)
966.     calculateItemOnGroundImage& = GndItemsImg&(k%)
967. END FUNCTION
968. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
969. FUNCTION calculateItemImage& (kind%, lvl%) 'TO DO:case 18= history or special related items
970.     SELECT CASE kind%
971.         CASE -1: calculateItemImage& = BlankImg&
972.         CASE 0: calculateItemImage& = KeyImg&(lvl%)
973.         CASE 1: calculateItemImage& = PotionImg&(lvl%)
974.         CASE 2: calculateItemImage& = PaperImg&(lvl%)
975.         CASE 3: calculateItemImage& = BookImg&(lvl%)
976.         CASE 4: calculateItemImage& = SwordImg&(lvl%)
977.         CASE 5: calculateItemImage& = AxeImg&(lvl%)
978.         CASE 6: calculateItemImage& = ThrowImg&(lvl%)
979.         CASE 7: calculateItemImage& = BowImg&(lvl%)
980.         CASE 8: calculateItemImage& = CrossbowImg&(lvl%)
981.         CASE 9: calculateItemImage& = BombImg&(lvl%)
982.         CASE 10: calculateItemImage& = ArrowImg&(lvl%)
983.         CASE 11: calculateItemImage& = BoltImg&(lvl%)
984.         CASE 12: calculateItemImage& = ArmorImg&(lvl%)
985.         CASE 13: calculateItemImage& = HelmImg&(lvl%)
986.         CASE 14: calculateItemImage& = ShieldImg&(lvl%)
987.         CASE 15: calculateItemImage& = WandImg&(lvl%)
988.         CASE 16: calculateItemImage& = MoneyImg&(lvl%)
989.         CASE 17: calculateItemImage& = BijouImg&(lvl%)
990.             'CASE 18: calculateItemImage& = WonderImg&(lvl%)
991.     END SELECT
992. END FUNCTION
993. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -.
994. SUB actualizeMoneyAspect ()
995.     FOR i% = 7 TO 22 '
996.         IF Pocket(i%).kind = 16 AND Pocket(i%).lvl < 2 THEN '
997.             IF Pocket(i%).ammount > 249 THEN '
998.                 Pocket(i%).lvl = 1 '
999.             ELSE '
1000.                 Pocket(i%).lvl = 0 '
1001.             END IF '
1002.         END IF '
1003.     NEXT i% '
1004.     IF inHand.kind = 16 AND inHand.lvl < 2 THEN '
1005.         IF inHand.ammount > 249 THEN '
1006.             inHand.lvl = 1 '
1007.         ELSE '
1008.             inHand.lvl = 0 '
1009.         END IF '
1010.     END IF '
1011. END SUB
1012. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1013. FUNCTION calculateWandMaxCharges% (lvl%)
1014.     calculateWandMaxCharges% = 20 + (lvl% * 5)
1015. END FUNCTION
1016. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1017. FUNCTION calculateItemDefense% (kind%, lvl%, special$) 'TO DO:balance the game
1018.     DIM tmp%
1019.     tmp% = 0
1020.     SELECT CASE kind%
1021.         CASE 12: tmp% = 3 + 3 * lvl% ' ARMORS
1022.         CASE 13: tmp% = 1 + 1 * lvl% ' HELMS
1023.         CASE 14: tmp% = 2 + 2 * lvl% ' SHIELDS
1024.     END SELECT
1025.     IF special$ <> "" THEN
1026.         IF INSTR(special$, "d") THEN
1027.             tmp% = tmp% + VAL(RIGHT$(special$, 1))
1028.         END IF
1029.     END IF
1030.     calculateItemDefense% = tmp%
1031. END FUNCTION
1032. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1033. FUNCTION calculateItemBaseDmg% (kind%, lvl%, special$) 'TO DO:balance the game
1034.     DIM tmp%
1035.     tmp% = 0
1036.     SELECT CASE kind%
1037.         CASE 4: tmp% = (lvl% + 1) * 2 '     SWORDS
1038.         CASE 5: tmp% = (lvl% + 1) * 3 '     AXES
1039.         CASE 6: tmp% = (lvl% + 1) '         THROWS
1040.         CASE 7: tmp% = (lvl% + 1) * 2 '     BOWS
1041.         CASE 8: tmp% = (lvl% + 1) * 3 '     CROSSBOWS
1042.         CASE 9: tmp% = (lvl% + 1) * 15 '    BOMBS
1043.         CASE 10: tmp% = (lvl% + 1) * 2 '    ARROWS
1044.         CASE 11: tmp% = (lvl% + 1) * 3 '    BOLTS
1045.         CASE 15: tmp% = (lvl% + 1) '        WANDS
1046.     END SELECT
1047.     IF special$ <> "" THEN
1048.         IF INSTR(special$, "b") THEN
1049.             tmp% = tmp% + VAL(RIGHT$(special$, 1))
1050.         END IF
1051.     END IF
1052.     calculateItemBaseDmg% = tmp%
1053. END FUNCTION
1054. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1055. FUNCTION calculateItemMaxDmg% (kind%, lvl%, special$) 'TO DO: balance the game
1056.     DIM k%
1057.     DIM l%
1058.     DIM s$
1059.     DIM tmp%
1060.     k% = kind%
1061.     l% = lvl%
1062.     s$ = special$
1063.     SELECT CASE kind%
1064.         CASE 4: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 3 '              SWORDS
1065.         CASE 5: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 4 '              AXES
1066.         CASE 6: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 1 '              THROWS
1067.         CASE 7: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 2 '              BOWS
1068.         CASE 8: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 3 '              CROSSBOWS
1069.         CASE 9: tmp% = calculateItemBaseDmg%(k%, l%, s$) + (l% + 1) * 5 '   BOMBS
1070.         CASE 10: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 1 '             ARROWS
1071.         CASE 11: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 2 '             BOLTS
1072.         CASE 15: tmp% = calculateItemBaseDmg%(k%, l%, s$) + 1 '             WANDS
1073.     END SELECT
1074.     IF s$ <> "" THEN
1075.         IF INSTR(s$, "m") THEN
1076.             tmp% = tmp% + VAL(RIGHT$(s$, 1))
1077.         END IF
1078.     END IF
1079.     calculateItemMaxDmg% = tmp%
1080. END FUNCTION
1081. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1082. FUNCTION nameAnItem$ (kind%, lvl%, special$) 'TO DO:case 18=history related items, scroll names?
1083.  
1084.     DIM tmp$
1085.  
1086.     SELECT CASE kind%
1087.         CASE -1 ' nothing
1088.             tmp$ = ""
1089.         CASE 0 '  KEYS
1090.             SELECT CASE lvl%
1091.                 CASE 0: tmp$ = "Tiny"
1092.                 CASE 1: tmp$ = "Elegant"
1093.                 CASE 2: tmp$ = "Rare"
1094.                 CASE 3: tmp$ = "Heavy"
1095.                 CASE 4: tmp$ = "Criptyc"
1096.                 CASE 5: tmp$ = "Twisted"
1097.             END SELECT
1098.             tmp$ = tmp$ + " key"
1099.         CASE 1 '  POTIONS
1100.             SELECT CASE lvl% '
1101.                 CASE 0: tmp$ = "Minor"
1102.                 CASE 1: tmp$ = "Light"
1103.                 CASE 2: tmp$ = "Small"
1104.                 CASE 3: tmp$ = "Medium"
1105.                 CASE 4: nameAnItem$ = "Potion": EXIT FUNCTION
1106.                 CASE 5: tmp$ = "Large"
1107.                 CASE 6: tmp$ = "Big"
1108.                 CASE 7: tmp$ = "Full"
1109.             END SELECT
1110.             tmp$ = tmp$ + " potion"
1111.         CASE 2 '  PAPERS
1112.             SELECT CASE lvl%
1113.                 CASE 0: tmp$ = "Scroll"
1114.                 CASE 1: tmp$ = "Map"
1115.             END SELECT
1116.         CASE 3 '  BOOKS
1117.             SELECT CASE lvl%
1118.                 CASE 0: tmp$ = "Ancient book"
1119.                 CASE 1: tmp$ = "Old book"
1120.                 CASE 2: tmp$ = "Tome"
1121.                 CASE 3: tmp$ = "Enciclopedy"
1122.             END SELECT
1123.         CASE 4 '  SWORDS
1124.             SELECT CASE lvl%
1125.                 CASE 0: tmp$ = "Small"
1126.                 CASE 1: tmp$ = "Curve"
1127.                 CASE 2: tmp$ = "Templed"
1128.                 CASE 3: tmp$ = "Medium"
1129.                 CASE 4: nameAnItem$ = "Sabre" + itemSpecialSuffix$(special$): EXIT FUNCTION
1130.                 CASE 5: tmp$ = "Sharpened"
1131.                 CASE 6: tmp$ = "Celestial"
1132.                 CASE 7: tmp$ = "Demoniac"
1133.             END SELECT
1134.             tmp$ = tmp$ + " sword"
1135.         CASE 5 '  AXES
1136.             SELECT CASE lvl%
1137.                 CASE 0: tmp$ = "Bushcraft"
1138.                 CASE 1: tmp$ = "Small"
1139.                 CASE 2: nameAnItem$ = "Bardiche" + itemSpecialSuffix$(special$): EXIT FUNCTION
1140.                 CASE 3: tmp$ = "Medium"
1141.                 CASE 4: tmp$ = "Double"
1142.                 CASE 5: tmp$ = "Sharp double"
1143.                 CASE 6: tmp$ = "War"
1144.                 CASE 7: tmp$ = "Demoniac"
1145.             END SELECT
1146.             tmp$ = tmp$ + " axe"
1147.         CASE 6 '  THROWS
1148.             SELECT CASE lvl%
1149.                 CASE 0: tmp$ = "Light"
1150.                 CASE 1: tmp$ = "Heavy"
1151.                 CASE 2: nameAnItem$ = "Throwin knives": EXIT FUNCTION
1152.             END SELECT
1153.             tmp$ = tmp$ + " shurikens"
1154.         CASE 7 '  BOWS
1155.             SELECT CASE lvl%
1156.                 CASE 0: tmp$ = "Hunter"
1157.                 CASE 1: tmp$ = "Composite"
1158.                 CASE 2: tmp$ = "War"
1159.             END SELECT
1160.             tmp$ = tmp$ + " bow"
1161.         CASE 8 '  CROSSBOWS
1162.             SELECT CASE lvl%
1163.                 CASE 0: tmp$ = "Light"
1164.                 CASE 1: tmp$ = "Heavy"
1165.             END SELECT
1166.             tmp$ = tmp$ + " crossbow"
1167.         CASE 9 '  BOMBS
1168.             SELECT CASE lvl%
1169.                 CASE 0: tmp$ = "Small"
1170.                 CASE 1: tmp$ = "Medium"
1171.                 CASE 2: tmp$ = "Large"
1172.             END SELECT
1173.             tmp$ = tmp$ + " bombs"
1174.         CASE 10 ' ARROWS
1175.             SELECT CASE lvl%
1176.                 CASE 0: tmp$ = "Light"
1177.                 CASE 1: tmp$ = "Sharp"
1178.                 CASE 2: tmp$ = "Heavy"
1179.             END SELECT
1180.             tmp$ = tmp$ + " arrows"
1181.         CASE 11 ' BOLTS
1182.             SELECT CASE lvl%
1183.                 CASE 0: tmp$ = "Light"
1184.                 CASE 1: tmp$ = "Heavy"
1185.             END SELECT
1186.             tmp$ = tmp$ + " bolts"
1187.         CASE 12 ' ARMORS
1188.             SELECT CASE lvl%
1189.                 CASE 0: nameAnItem$ = "Leather vest" + itemSpecialSuffix$(special$): EXIT FUNCTION
1190.                 CASE 1: nameAnItem$ = "Leather armor" + itemSpecialSuffix$(special$): EXIT FUNCTION
1191.                 CASE 2: nameAnItem$ = "Ring mail" + itemSpecialSuffix$(special$): EXIT FUNCTION
1192.                 CASE 3: tmp$ = "Small"
1193.                 CASE 4: tmp$ = "Medium"
1194.                 CASE 5: tmp$ = "Heavy"
1195.                 CASE 6: tmp$ = "War"
1196.                 CASE 7: tmp$ = "Full"
1197.             END SELECT
1198.             tmp$ = tmp$ + " plate"
1199.         CASE 13 ' HELMS
1200.             SELECT CASE lvl%
1201.                 CASE 0: tmp$ = "Small"
1202.                 CASE 1: tmp$ = "Medium"
1203.                 CASE 2: tmp$ = "Full"
1204.                 CASE 3: nameAnItem$ = "Half helm" + itemSpecialSuffix$(special$): EXIT FUNCTION
1205.                 CASE 4: nameAnItem$ = "Full helm" + itemSpecialSuffix$(special$): EXIT FUNCTION
1206.                 CASE 5: nameAnItem$ = "Small Helmet" + itemSpecialSuffix$(special$): EXIT FUNCTION
1207.                 CASE 6: nameAnItem$ = "Great healmet" + itemSpecialSuffix$(special$): EXIT FUNCTION
1208.                 CASE 7: nameAnItem$ = "Hellking Crown" + itemSpecialSuffix$(special$): EXIT FUNCTION
1209.             END SELECT
1210.             tmp$ = tmp$ + " cap"
1211.         CASE 14 ' SHIELDS
1212.             SELECT CASE lvl%
1213.                 CASE 0: tmp$ = "Small"
1214.                 CASE 1: tmp$ = "Medium"
1215.                 CASE 2: tmp$ = "Large"
1216.                 CASE 3: tmp$ = "Great"
1217.                 CASE 4: tmp$ = "Bronze"
1218.                 CASE 5: tmp$ = "Iron"
1219.                 CASE 6: tmp$ = "Steel"
1220.                 CASE 7: tmp$ = "War"
1221.             END SELECT
1222.             tmp$ = tmp$ + " shield"
1223.         CASE 15 ' WANDS
1224.             SELECT CASE lvl%
1225.                 CASE 0: tmp$ = "Apprentice"
1226.                 CASE 1: tmp$ = "Initiate"
1227.                 CASE 2: tmp$ = "Learner"
1228.                 CASE 3: tmp$ = "Academic"
1229.                 CASE 4: tmp$ = "Sacred"
1230.                 CASE 5: tmp$ = "Dark"
1231.                 CASE 6: tmp$ = "Egiptian"
1232.                 CASE 7: tmp$ = "Voodoo"
1233.             END SELECT
1234.             tmp$ = tmp$ + " wand"
1235.         CASE 16 ' MONEY
1236.             SELECT CASE lvl%
1237.                 CASE 0: tmp$ = "Coins"
1238.                 CASE 1: tmp$ = "Many coins"
1239.                 CASE 2: tmp$ = "Crude gemstones"
1240.                 CASE 3: tmp$ = "Gemstone"
1241.             END SELECT
1242.         CASE 17 ' BIJOUTERY
1243.             SELECT CASE lvl%
1244.                 CASE 0: tmp$ = "Circlet"
1245.                 CASE 1: tmp$ = "Ring"
1246.                 CASE 2: tmp$ = "Said"
1247.                 CASE 3: tmp$ = "Necklace"
1248.             END SELECT
1249.             'CASE 18 '
1250.             '    SELECT CASE lvl%
1251.             '        CASE 0: tmp$ = "Dyran crystals"
1252.             '        CASE 1: tmp$ = "The Orb"
1253.             '    END SELECT
1254.     END SELECT
1255.     nameAnItem$ = tmp$ + itemSpecialSuffix$(special$)
1256. END FUNCTION
1257. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1258. FUNCTION itemSpecialSuffix$ (s$)
1259.  
1260.     DIM tmp$
1261.  
1262.     IF s$ <> "" THEN
1263.         IF INSTR(s$, "s") THEN ' adds to STR
1264.             SELECT CASE VAL(RIGHT$(s$, 1))
1265.                 CASE 1: tmp$ = "might"
1266.                 CASE 2: tmp$ = "warriors"
1267.                 CASE 3: tmp$ = "titans"
1268.             END SELECT
1269.         ELSEIF INSTR(s$, "a") THEN ' adds to AGI
1270.             SELECT CASE VAL(RIGHT$(s$, 1))
1271.                 CASE 1: tmp$ = "reflex"
1272.                 CASE 2: tmp$ = "swiftness"
1273.                 CASE 3: tmp$ = "martiality"
1274.             END SELECT
1275.         ELSEIF INSTR(s$, "p") THEN ' adds to PWR
1276.             SELECT CASE VAL(RIGHT$(s$, 1))
1277.                 CASE 1: tmp$ = "ilusionism"
1278.                 CASE 2: tmp$ = "invocation"
1279.                 CASE 3: tmp$ = "necromancy"
1280.             END SELECT
1281.         ELSEIF INSTR(s$, "v") THEN ' adds to VIG
1282.             SELECT CASE VAL(RIGHT$(s$, 1))
1283.                 CASE 1: tmp$ = "youthness"
1284.                 CASE 2: tmp$ = "longevity"
1285.                 CASE 3: tmp$ = "eternity"
1286.             END SELECT
1287.         ELSEIF INSTR(s$, "d") THEN ' adds to DEF
1288.             SELECT CASE VAL(RIGHT$(s$, 1))
1289.                 CASE 1: tmp$ = "protection"
1290.                 CASE 2: tmp$ = "guardian"
1291.                 CASE 3: tmp$ = "angels"
1292.             END SELECT
1293.         ELSEIF INSTR(s$, "m") THEN ' adds to MAX DMG
1294.             SELECT CASE VAL(RIGHT$(s$, 1))
1295.                 CASE 1: tmp$ = "fatality"
1296.                 CASE 2: tmp$ = "brutality"
1297.                 CASE 3: tmp$ = "animality"
1298.             END SELECT
1299.         ELSEIF INSTR(s$, "b") THEN ' adds to BASE DMG
1300.             SELECT CASE VAL(RIGHT$(s$, 1))
1301.                 CASE 1: tmp$ = "craftmanship"
1302.                 CASE 2: tmp$ = "technicism"
1303.                 CASE 3: tmp$ = "engineering"
1304.             END SELECT
1305.         ELSEIF INSTR(s$, "c") THEN ' adds to TO HIT%
1306.             SELECT CASE VAL(RIGHT$(s$, 1))
1307.                 CASE 1: tmp$ = "aiming"
1308.                 CASE 2: tmp$ = "exactitud"
1309.                 CASE 3: tmp$ = "precision"
1310.             END SELECT
1311.         ELSEIF INSTR(s$, "t") OR INSTR(s$, "r") THEN ' teaches or can cast some spell
1312.             SELECT CASE VAL(RIGHT$(s$, 1))
1313.                 CASE 0: tmp$ = "firebolt"
1314.                 CASE 1: tmp$ = "blessing"
1315.                 CASE 2: tmp$ = "infravision"
1316.                 CASE 3: tmp$ = "teleport"
1317.                 CASE 4: tmp$ = "healing"
1318.                 CASE 5: tmp$ = "mana shield"
1319.             END SELECT
1320.         ELSEIF INSTR(s$, "u") THEN ' unidentified
1321.             itemSpecialSuffix$ = " (Unidentified)": EXIT FUNCTION
1322.         END IF
1323.         itemSpecialSuffix$ = " of " + tmp$
1324.     ELSE
1325.         itemSpecialSuffix$ = ""
1326.     END IF
1327.  
1328. END FUNCTION
1329. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1330. SUB fromPocketToHand (slotIndex%)
1331.     inHand.kind = Pocket(slotIndex%).kind
1332.     inHand.lvl = Pocket(slotIndex%).lvl
1333.     inHand.ammount = Pocket(slotIndex%).ammount
1334.     inHand.special = Pocket(slotIndex%).special
1335.     cleanOnePocketSlot slotIndex%
1336. END SUB
1337. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1338. SUB fromHandToPocket (slotIndex%)
1339.     Pocket(slotIndex%).kind = inHand.kind
1340.     Pocket(slotIndex%).lvl = inHand.lvl
1341.     Pocket(slotIndex%).ammount = inHand.ammount
1342.     Pocket(slotIndex%).special = inHand.special
1343.     cleanYourHand
1344. END SUB
1345. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1346. SUB dropItemToGround ()
1347.     REDIM _PRESERVE Items(UBOUND(items) + 1) AS OBJECT ' increase the Items array index by one
1348.     Items(UBOUND(Items)).x = Hero.x '
1349.     Items(UBOUND(Items)).y = Hero.y '
1350.     Items(UBOUND(Items)).kind = inHand.kind '
1351.     Items(UBOUND(Items)).lvl = inHand.lvl '
1352.     Items(UBOUND(Items)).ammount = inHand.ammount '
1353.     Items(UBOUND(Items)).special = inHand.special '
1354.     Items(UBOUND(Items)).map = actualMapWorking%% '
1355.     cleanYourHand
1356. END SUB
1357. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1358. SUB pickItemFromGround (indexOfItem%)
1359.     IF lookForSpaceInPocket% THEN '                                                 if theres place in your pocket
1360.         IF indexOfItem% = UBOUND(Items) THEN '                                      and that item is the last one of the array
1361.             Pocket(lookForSpaceInPocket%).kind = Items(idexOfItem%).kind '      ¿
1362.             Pocket(lookForSpaceInPocket%).lvl = Items(idexOfItem%).lvl '        ³   Transfer the data of the item to
1363.             Pocket(lookForSpaceInPocket%).ammount = Items(idexOfItem%).ammount '³   the free place on Pocket
1364.             Pocket(lookForSpaceInPocket%).special = Items(idexOfItem%).special '¾
1365.             REDIM _PRESERVE Items(UBOUND(Items) - 1) AS OBJECT '                    and reduce the array by one (destroying the last one)
1366.         ELSE ' but if the item is not the last one of the array
1367.             Pocket(lookForSpaceInPocket%).kind = Items(idexOfItem%).kind '      ¿
1368.             Pocket(lookForSpaceInPocket%).lvl = Items(idexOfItem%).lvl '        ³   Transfer the data of the item to
1369.             Pocket(lookForSpaceInPocket%).ammount = Items(idexOfItem%).ammount '³   the free place on Pocket
1370.             Pocket(lookForSpaceInPocket%).special = Items(idexOfItem%).special '¾
1371.             Items(indexOfItem%).x = Items(UBOUND(Items)).x '                    ¿
1372.             Items(indexOfItem%).y = Items(UBOUND(Items)).y '                    ³
1373.             Items(indexOfItem%).kind = Items(UBOUND(Items)).kind '              ³   copy all the data of the last item
1374.             Items(indexOfItem%).lvl = Items(UBOUND(Items)).lvl '                ³   in the array to this index of the array,
1375.             Items(indexOfItem%).ammount = Items(UBOUND(Items)).ammount '        ³   overwriting the item we just picked
1376.             Items(indexOfItem%).special = Items(UBOUND(Items)).special '        ³
1377.             Items(indexOfItem%).map = Items(UBOUND(Items)).map '                ¾
1378.             REDIM _PRESERVE Items(UBOUND(Items) - 1) AS OBJECT '                    now we can eliminate the last item of the array (it has been copied to the picked item index)
1379.         END IF
1380.     ELSE '                                                                          if you have no room in pocket
1381.         HUDpromt$ = "You have no room on your pocket" '                             you should be aware of it
1382.     END IF
1383. END SUB
1384. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1385. SUB itemManipulation () 'TO DO: reading scrolls
1386.     DIM i%
1387.     DIM special$
1388.     DIM specialNum%
1389.  
1390.     FOR i% = 7 TO 22 ' INVENTORY
1391.         IF fingerIsOnSurface%(Pocket(i%).x, Pocket(i%).y, 32, 32) THEN
1392.             IF NOT itemRequirementsMet%(i%) THEN HUDpromt$ = "Requirements don't met"
1393.             IF Finger.clickL AND (Pocket(i%).lvl <> -1 AND inHand.lvl = -1) THEN 'grabbing an item from a slot
1394.                 fromPocketToHand i%
1395.             ELSEIF Finger.clickL AND (Pocket(i%).lvl = -1 AND inHand.lvl <> -1) THEN 'droping an item into an empty slot
1396.                 fromHandToPocket i%
1397.             ELSEIF Finger.clickL AND inHand.lvl <> -1 AND Pocket(i%).kind = inHand.kind THEN 'trying to add multiple instances of the same thing
1398.                 checkForAddingAmmounts i%
1399.             END IF
1400.             IF Finger.clickR THEN ' if RIGHT click
1401.                 SELECT CASE Pocket(i%).kind
1402.                     CASE 1 ' potions
1403.                         SOUND 440, 1
1404.                         Hero.life = Hero.life + (Pocket(i%).lvl + 1) * 5 ' increase helth ¿ DRINKING A POTION
1405.                         cleanOnePocketSlot i% '                      and destroy the item ¾
1406.                     CASE 2 ' papers
1407.                         IF Pocket(i%).lvl = 1 THEN '¿
1408.                             menuPocket` = FALSE '   ³ READING THE MAP
1409.                             menuSpells` = FALSE '   ³
1410.                             menuStats` = FALSE '    ³
1411.                             menuMap` = TRUE '       ¾
1412.                         ELSEIF Pocket(i%).lvl = 0 THEN '¿
1413.                             '                           ³ TO DO: reading a scroll
1414.                         END IF '                        ¾
1415.  
1416.                     CASE 3 'books
1417.                         IF itemRequirementsMet%(i%) THEN
1418.                             specialNum% = VAL(RIGHT$(Pocket(i%).special, 1)) 'convert the second digit of special into a value and the CASE SELECT it for adding 1 to the corrresponding spell, if is't less than 10
1419.                             SELECT CASE specialNum%
1420.                                 CASE 0: IF SpellsIknow%%(0) < 10 THEN SpellsIknow%%(0) = spellsiknow%% + 1
1421.                                 CASE 1: IF SpellsIknow%%(1) < 10 THEN SpellsIknow%%(1) = spellsiknow%% + 1
1422.                                 CASE 2: IF SpellsIknow%%(2) < 10 THEN SpellsIknow%%(2) = spellsiknow%% + 1
1423.                                 CASE 3: IF SpellsIknow%%(3) < 10 THEN SpellsIknow%%(3) = spellsiknow%% + 1
1424.                                 CASE 4: IF SpellsIknow%%(4) < 10 THEN SpellsIknow%%(4) = spellsiknow%% + 1
1425.                                 CASE 5: IF SpellsIknow%%(5) < 10 THEN SpellsIknow%%(5) = spellsiknow%% + 1
1426.                             END SELECT
1427.                             cleanOnePocketSlot i% '                         and destroy the item
1428.                         ELSE '                                              if requirements aren't met or spell is lvl 10 already
1429.                             SOUND 220, 1 '                                  play "booooooo" sound
1430.                         END IF
1431.                 END SELECT
1432.             END IF
1433.         END IF
1434.     NEXT i%
1435.  
1436.     FOR i% = 0 TO 6 ' EQUIPPED
1437.         IF fingerIsOnSurface%(Pocket(i%).x, Pocket(i%).y, 32, 32) THEN
1438.             IF Finger.clickL AND (Pocket(i%).lvl <> -1 AND inHand.lvl = -1) THEN
1439.                 fromPocketToHand i% ' if LEFT click grab an item from a slot. No big deal on this
1440.             ELSEIF Finger.clickL AND inHand.lvl <> -1 AND Pocket(i%).kind = inHand.kind AND Pocket(i%).lvl = inHand.lvl THEN 'trying to add multiple instances of the same thing
1441.                 checkForAddingAmmounts i%
1442.             ELSEIF Pocket(i%).lvl = -1 AND inHand.lvl <> -1 THEN 'droping an item into a slot needs to check and inform some things
1443.                 IF itemFitsEquipmentSlot%(i%) THEN
1444.                     IF itemRequirementsMet%(0) THEN
1445.                         IF Finger.clickL THEN fromHandToPocket i%
1446.                     ELSE
1447.                         HUDpromt$ = "Requirements not met"
1448.                     END IF
1449.                 END IF
1450.             END IF
1451.         END IF
1452.     NEXT i%
1453.     IF Finger.clickL AND inHand.kind <> -1 AND fingerIsOnSurface%(0, 32, 319, 384) THEN dropItemToGround
1454. END SUB
1455. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1456. SUB checkForAddingAmmounts (indexOfSlot%) ' in a single slot you can fir: 500 coins; 100 throws; 75 arrows, 50 bolts or 6 bombs
1457.     DIM tmp1%
1458.     IF Pocket(indexOfSlot%).lvl = inHand.lvl THEN
1459.         SELECT CASE inHand.kind
1460.             CASE 6 '                                                                                    throws
1461.                 IF inHand.ammount + Pocket(indexOfSlot%).ammount > 100 THEN
1462.                     tmp1% = 100 - Pocket(indexOfSlot%).ammount
1463.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + tmp1%
1464.                     inHand.ammount = inHand.ammount - tmp1%
1465.                 ELSE
1466.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + inHand.ammount
1467.                     cleanYourHand
1468.                 END IF
1469.             CASE 9 '                                                                                    bombs
1470.                 IF inHand.ammount + Pocket(indexOfSlot%).ammount > 6 THEN
1471.                     tmp1% = 6 - Pocket(indexOfSlot%).ammount
1472.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + tmp1%
1473.                     inHand.ammount = inHand.ammount - tmp1%
1474.                 ELSE
1475.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + inHand.ammount
1476.                     cleanYourHand
1477.                 END IF
1478.             CASE 10 '                                                                                   arrows
1479.                 IF inHand.ammount + Pocket(indexOfSlot%).ammount > 75 THEN
1480.                     tmp1% = 75 - Pocket(indexOfSlot%).ammount
1481.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + tmp1%
1482.                     inHand.ammount = inHand.ammount - tmp1%
1483.                 ELSE
1484.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + inHand.ammount
1485.                     cleanYourHand
1486.                 END IF
1487.             CASE 11 '                                                                                   bolts
1488.                 IF inHand.ammount + Pocket(indexOfSlot%).ammount > 50 THEN
1489.                     tmp1% = 50 - Pocket(indexOfSlot%).ammount
1490.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + tmp1%
1491.                     inHand.ammount = inHand.ammount - tmp1%
1492.                 ELSE
1493.                     Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + inHand.ammount
1494.                     cleanYourHand
1495.                 END IF
1496.         END SELECT
1497.     END IF
1498.     IF inHand.kind = 16 AND inHand.lvl < 2 AND Pocket(indexOfSlot%).lvl < 2 THEN '                      money
1499.         IF inHand.ammount + Pocket(indexOfSlot%).ammount > 500 THEN
1500.             tmp1% = 500 - Pocket(indexOfSlot%).ammount
1501.             Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + tmp1%
1502.             inHand.ammount = inHand.ammount - tmp1%
1503.         ELSE
1504.             Pocket(indexOfSlot%).ammount = Pocket(indexOfSlot%).ammount + inHand.ammount
1505.             cleanYourHand
1506.         END IF
1507.     END IF
1508. END SUB
1509. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1510. FUNCTION itemRequirementsMet% (P%)
1511.     IF P% > 0 THEN '  0= HAND, other number=index of POCKET
1512.         IF calculateHeroActualStrength% >= calculateItemReqStrength%(Pocket(P%).kind, Pocket(P%).lvl) _
1513.         AND calculateHeroActualAgility% >= calculateItemReqAgility%(Pocket(P%).kind, Pocket(P%).lvl) _
1514.         AND calculateHeroActualPower% >= calculateItemReqPower%(Pocket(P%).kind, Pocket(P%).lvl, Pocket(P%).special) THEN
1515.             itemRequirementsMet% = TRUE: EXIT FUNCTION
1516.         END IF
1517.     ELSE
1518.         IF calculateHeroActualStrength% >= calculateItemReqStrength%(inHand.kind, inHand.lvl) _
1519.         AND calculateHeroActualAgility% >= calculateItemReqAgility%(inHand.kind, inHand.lvl) _
1520.         AND calculateHeroActualPower% >= calculateItemReqPower%(inHand.kind, inHand.lvl, inHand.special) THEN
1521.             itemRequirementsMet% = TRUE: EXIT FUNCTION
1522.         END IF
1523.     END IF
1524.     itemRequirementsMet% = FALSE
1525. END FUNCTION
1526. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1527. FUNCTION calculateItemReqStrength% (k%, l%)
1528.     SELECT CASE k%
1529.         CASE 4: IF l% > 0 THEN calculateItemReqStrength% = 15 + l% * 2: EXIT FUNCTION ' swords
1530.         CASE 5: IF l% > 0 THEN calculateItemReqStrength% = 15 + l% * 3: EXIT FUNCTION ' axes
1531.         CASE 7: calculateItemReqStrength% = 10 + l% * 2: EXIT FUNCTION '                bows
1532.         CASE 8: calculateItemReqStrength% = 10 + l% * 3: EXIT FUNCTION '                crossbows
1533.         CASE 12: IF l% > 0 THEN calculateItemReqStrength% = 5 + l% * 4: EXIT FUNCTION ' armors
1534.         CASE 13: IF l% > 0 THEN calculateItemReqStrength% = 5 + l% * 2: EXIT FUNCTION ' helms
1535.         CASE 14: IF l% > 0 THEN calculateItemReqStrength% = 5 + l% * 3: EXIT FUNCTION ' shields
1536.     END SELECT
1537.     calculateItemReqStrength% = 0
1538. END FUNCTION
1539. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1540. FUNCTION calculateItemReqAgility% (k%, l%)
1541.     SELECT CASE k%
1542.         CASE 5: IF l% > 0 THEN calculateItemReqAgility% = 10 + l% * 2: EXIT FUNCTION '  axes
1543.         CASE 6: IF l% > 0 THEN calculateItemReqAgility% = 15 + l% * 3: EXIT FUNCTION '  throws
1544.         CASE 7: calculateItemReqAgility% = 20 + l% * 4: EXIT FUNCTION '                 bows
1545.         CASE 8: calculateItemReqAgility% = 20 + l% * 8: EXIT FUNCTION '                 crossbows
1546.         CASE 12: IF l% > 0 THEN calculateItemReqAgility% = 5 + l% * 2: EXIT FUNCTION '  armors
1547.         CASE 13: IF l% > 0 THEN calculateItemReqAgility% = 5 + l%: EXIT FUNCTION '      helms
1548.         CASE 14: IF l% > 0 THEN calculateItemReqAgility% = 5 + l% * 3: EXIT FUNCTION '  shields
1549.     END SELECT
1550.     calculateItemReqAgility% = 0
1551. END FUNCTION
1552. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1553. FUNCTION calculateItemReqPower% (k%, l%, s$)
1554.     SELECT CASE k%
1555.         CASE 2 ' scrolls only, lvl0
1556.             IF l% = 0 THEN
1557.                 IF INSTR(s$, "0") THEN
1558.                     calculateItemReqPower% = 17: EXIT FUNCTION
1559.                 ELSEIF INSTR(s$, "1") THEN
1560.                     calculateItemReqPower% = 25: EXIT FUNCTION
1561.                 ELSEIF INSTR(s$, "2") THEN
1562.                     calculateItemReqPower% = 32: EXIT FUNCTION
1563.                 ELSEIF INSTR(s$, "3") THEN
1564.                     calculateItemReqPower% = 40: EXIT FUNCTION
1565.                 ELSEIF INSTR(s$, "4") THEN
1566.                     calculateItemReqPower% = 50: EXIT FUNCTION
1567.                 ELSEIF INSTR(s$, "5") THEN
1568.                     calculateItemReqPower% = 60: EXIT FUNCTION
1569.                 END IF
1570.             END IF
1571.         CASE 3 ' books, need to check spellsIkonw
1572.             IF INSTR(s$, "0") THEN
1573.                 calculateItemReqPower% = SpellsIknow%%(0) * 4 + 17: EXIT FUNCTION
1574.             ELSEIF INSTR(s$, "1") THEN
1575.                 calculateItemReqPower% = SpellsIknow%%(1) * 4 + 17: EXIT FUNCTION
1576.             ELSEIF INSTR(s$, "2") THEN
1577.                 calculateItemReqPower% = SpellsIknow%%(2) * 4 + 17: EXIT FUNCTION
1578.             ELSEIF INSTR(s$, "3") THEN
1579.                 calculateItemReqPower% = SpellsIknow%%(3) * 4 + 17: EXIT FUNCTION
1580.             ELSEIF INSTR(s$, "4") THEN
1581.                 calculateItemReqPower% = SpellsIknow%%(4) * 4 + 17: EXIT FUNCTION
1582.             ELSEIF INSTR(s$, "5") THEN
1583.                 calculateItemReqPower% = SpellsIknow%%(5) * 4 + 17: EXIT FUNCTION
1584.             END IF
1585.         CASE 15: calculateItemReqPower% = 17 + ((l% + 1) * 3): EXIT FUNCTION ' WANDS
1586.     END SELECT
1587.     calculateItemReqPower% = 0
1588. END FUNCTION
1589. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1590. FUNCTION itemFitsEquipmentSlot% (indexOfSlot%)
1591.     SELECT CASE indexOfSlot% ' we are checking where you wanna put the item
1592.         CASE 0 ' head
1593.             IF inHand.kind = 13 THEN itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION ' if you holding a helm
1594.         CASE 1 ' neck
1595.             IF inHand.kind = 17 AND inHand.lvl >= 2 THEN itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION
1596.         CASE 2 ' right hand
1597.             SELECT CASE inHand.kind
1598.                 CASE 4, 5, 6, 9, 15: itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION 'if in hand you have: swords,axes,throws,bombs or wands
1599.                 CASE 7, 8 ' if a bow or crossbow in hand
1600.                     IF Pocket(4).kind <> -1 THEN '& left hand is occupied
1601.                         HUDpromt$ = "Left hand is occupied"
1602.                     ELSE
1603.                         itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION
1604.                     END IF
1605.             END SELECT
1606.         CASE 3 ' torso
1607.             IF inHand.kind = 12 THEN itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION ' if you holding an armor
1608.         CASE 4 ' left hand
1609.             SELECT CASE inHand.kind
1610.                 CASE 14 ' if you have a shield in hand
1611.                     IF (Pocket(2).kind = 7 OR Pocket(2).kind = 8) THEN ' &  on right hand you have a two handed weapon
1612.                         HUDpromt$ = "Can't use it with a two handed weapon"
1613.                     ELSE
1614.                         itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION
1615.                     END IF
1616.                 CASE 10 'and you have arrows in hand
1617.                     IF Pocket(2).kind = 7 THEN '  & a bow equiped
1618.                         itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION
1619.                     ELSE
1620.                         HUDpromt$ = "You need to equip a bow"
1621.                     END IF
1622.                 CASE 11 ' if you have bolts in hand
1623.                     IF Pocket(2).kind = 8 THEN ' and a crossbow equiped
1624.                         itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION
1625.                     ELSE
1626.                         HUDpromt$ = "You need to equip a crossbow"
1627.                     END IF
1628.             END SELECT
1629.         CASE 5, 6 ' fingers
1630.             IF inHand.kind = 17 AND inHand.lvl <= 1 THEN itemFitsEquipmentSlot% = TRUE: EXIT FUNCTION
1631.     END SELECT
1632.  
1633.     itemFitsEquipmentSlot% = FALSE
1634.  
1635. END FUNCTION
1636. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1637. SUB itemInformation (whichOfTheSlots%) ' TO DO: show requirements of items, organize how the info is seen acording to kind of item, add info for r special variable on items
1638.     ' i can use lines 26, 27, 28, 29
1639.     DIM kindOfItem%
1640.     DIM lvlOfItem%
1641.     DIM specialOfItem$
1642.     DIM tmp$
1643.  
1644.     kindOfItem% = Pocket(whichOfTheSlots%).kind
1645.     lvlOfItem% = Pocket(whichOfTheSlots%).lvl
1646.     specialOfItem$ = Pocket(whichOfTheSlots%).special
1647.  
1648.     '1rst LINE = NAME OF ITEM OR BODY SLOT
1649.     IF whichOfTheSlots% < 7 AND kindOfItem% = -1 THEN
1650.         SELECT CASE whichOfTheSlots%
1651.             CASE 0: tmp$ = "Head"
1652.             CASE 1: tmp$ = "Neck"
1653.             CASE 2: tmp$ = "Right hand"
1654.             CASE 3: tmp$ = "Torso"
1655.             CASE 4: tmp$ = "Left hand"
1656.             CASE 5: tmp$ = "Right finger"
1657.             CASE 6: tmp$ = "Left finger"
1658.         END SELECT
1659.     ELSE
1660.         tmp$ = nameAnItem$(kindOfItem%, lvlOfItem%, specialOfItem$)
1661.     END IF
1662.     LOCATE 26, 40 - (LEN(tmp$) \ 2)
1663.     PRINT tmp$;
1664.  
1665.     '2nd LINE
1666.     tmp$ = "" ' kill me after testing!!!!!!!
1667.     SELECT CASE kindOfItem%
1668.         CASE 0: tmp$ = "Opens some door" 'keys
1669.         CASE 1: tmp$ = "Heals" + STR$((lvlOfItem% + 1) * 5) + " points" ' potions
1670.         CASE 2: tmp$ = "Right click for read" ' papers
1671.         CASE 3: tmp$ = "Learn about this spell" 'books
1672.         CASE 4, 5, 7, 8, 15: tmp$ = "Damage: " + _TRIM$(STR$(calculateItemBaseDmg%(kindOfItem%, lvlOfItem%, specialOfItem$))) + " - " + _TRIM$(STR$(calculateItemMaxDmg%(kindOfItem%, lvlOfItem%, specialOfItem$))) ' weapons
1673.         CASE 6, 9, 10, 11: tmp$ = "Damage: " + _TRIM$(STR$(calculateItemBaseDmg%(kindOfItem%, lvlOfItem%, specialOfItem$))) + " - " + _TRIM$(STR$(calculateItemMaxDmg%(kindOfItem%, lvlOfItem%, specialOfItem$))) 'ammunitions + throws
1674.         CASE 12, 13, 14: tmp$ = "Defense:" + STR$(calculateItemDefense%(kindOfItem%, lvlOfItem%, specialOfItem$)) ' armors, helms & shields
1675.         CASE 16: tmp$ = "Ammount:" + STR$(Pocket(whichOfTheSlots%).ammount) ' money
1676.         CASE 17 ' jewlery
1677.             IF lvlOfItem% < 2 THEN
1678.                 tmp$ = "You can wear it on your finger"
1679.             ELSE
1680.                 tmp$ = "You can wear it on your neck"
1681.             END IF
1682.     END SELECT
1683.     LOCATE 27, 40 - (LEN(tmp$) \ 2)
1684.     PRINT tmp$;
1685.  
1686.     '3rd LINE
1687.     tmp$ = "" ' kill me after testing!!!!!!!
1688.     IF specialOfItem$ <> "" THEN
1689.         IF NOT INSTR(specialOfItem$, "u") THEN ' it¿'s unidentified
1690.             tmp$ = "+" + RIGHT$(specialOfItem$, 1) + " to "
1691.             IF INSTR(specialOfItem$, "s") THEN ' adds to strenght
1692.                 tmp$ = tmp$ + "strenght"
1693.             ELSEIF INSTR(specialOfItem$, "a") THEN ' adds to agility
1694.                 tmp$ = tmp$ + "agility"
1695.             ELSEIF INSTR(specialOfItem$, "p") THEN ' adds to power
1696.                 tmp$ = tmp$ + "power"
1697.             ELSEIF INSTR(specialOfItem$, "v") THEN ' adds to vigor
1698.                 tmp$ = tmp$ + "vigor"
1699.             ELSEIF INSTR(specialOfItem$, "d") THEN ' adds to defense
1700.                 tmp$ = tmp$ + "defense"
1701.             ELSEIF INSTR(specialOfItem$, "t") THEN ' it teaches some spell
1702.                 tmp$ = ""
1703.             END IF
1704.         ELSE
1705.             tmp$ = ""
1706.         END IF
1707.     ELSE
1708.         SELECT CASE kindOfItem%
1709.             CASE 1: tmp$ = "Right click for drink" ' potions
1710.             CASE 3: tmp$ = "Right click for read" ' books
1711.             CASE 6, 9, 10, 11: tmp$ = "Ammount:" + STR$(Pocket(whichOfTheSlots%).ammount) ' ammo
1712.         END SELECT
1713.     END IF
1714.     LOCATE 28, 40 - (LEN(tmp$) \ 2)
1715.     PRINT tmp$;
1716.  
1717. END SUB
1718. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1719. SUB equipOurHero () ' remove test items
1720.     SELECT CASE Hero.class
1721.         CASE 0 ' "Barbarian" ' you get an axe, a shield, a potion and 100$
1722.             createItemInPocket 5, 0, 1, 2, "" ' axe
1723.             createItemInPocket 14, 0, 1, 4, "" ' shield
1724.  
1725.  
1726.             '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°TESTING
1727.             createItemInPocket 12, 2, 1, 7, "a2" '  armor
1728.             createItemInPocket 13, 3, 1, 8, "v3" '  helm
1729.             createItemInPocket 7, 0, 1, 9, "" ' bow
1730.             createItemInPocket 2, 1, 1, 10, "" ' map
1731.             createItemInPocket 17, 0, 1, 11, "p2" ' ring
1732.             createItemInPocket 10, 0, 50, 12, "" ' 50 arrows
1733.             createItemInPocket 17, 2, 1, 13, "d2" ' SAID for test!!!!!!!!!!
1734.             createItemInPocket 16, 0, 100, 14, "" ' 100 coins
1735.             createItemInPocket 16, 0, 100, 15, "" ' 100 coins
1736.             createItemInPocket 16, 0, 100, 16, "" ' 100 coins
1737.             createItemInPocket 10, 0, 50, 17, "" ' 50 arrows
1738.             createItemInPocket 16, 0, 123, 18, "" ' 100 coins
1739.             '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
1740.  
1741.  
1742.         CASE 1 ' "Clerig" 'you get a sword, a shield, a potion and 100$
1743.             createItemInPocket 4, 0, 1, 2, "" '     sword
1744.             createItemInPocket 14, 0, 1, 4, "" '    shield
1745.         CASE 2 ' "Assasin" ' you get a bow, 50 arrows, a potion and 100$
1746.             createItemInPocket 7, 0, 1, 2, "" '     bow
1747.             createItemInPocket 10, 0, 50, 4, "" '   50 arrows
1748.  
1749.             '°°°°°°°°°°°°°°°
1750.             createItemInPocket 10, 0, 50, 17, "" ' 50 arrows
1751.             createItemInPocket 16, 3, 1, 18, "" ' gem
1752.             createItemInPocket 11, 0, 27, 19, "" '  bolts
1753.             createItemInPocket 11, 0, 43, 20, "" '  bolts
1754.             createItemInPocket 9, 0, 4, 8, "" '  bombs
1755.             createItemInPocket 9, 0, 4, 7, "" '  bombs
1756.             '°°°°°°°°°°
1757.  
1758.         CASE 3 '"Wizard" ' you get a wand, a book, a potion and 100$
1759.             createItemInPocket 15, 0, 21, 2, "r0" '    wand
1760.             createItemInPocket 3, 0, 1, 20, "t0" '  book
1761.     END SELECT
1762.     createItemInPocket 1, 0, 1, 21, "" ' potion
1763.     createItemInPocket 16, 0, 100, 22, "" ' 100 coins
1764.  
1765. END SUB
1766. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1767. FUNCTION calculateHeroActualAgility% () '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û HERO Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
1768.     DIM i%
1769.     DIM tmp%
1770.     tmp% = 0
1771.     FOR i% = 0 TO 6
1772.         IF Pocket(i%).special <> "" AND INSTR(Pocket(i%).special, "a") THEN
1773.             tmp% = tmp% + VAL(RIGHT$(Pocket(i%).special, 1))
1774.         END IF
1775.     NEXT i%
1776.     calculateHeroActualAgility% = Hero.agility + tmp%
1777. END FUNCTION
1778. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1779. FUNCTION calculateHeroActualStrength% ()
1780.     DIM i%
1781.     DIM tmp%
1782.     tmp% = 0
1783.     FOR i% = 0 TO 6
1784.         IF Pocket(i%).special <> "" AND INSTR(Pocket(i%).special, "s") THEN
1785.             tmp% = tmp% + VAL(RIGHT$(Pocket(i%).special, 1))
1786.         END IF
1787.     NEXT i%
1788.     calculateHeroActualStrength% = Hero.strength + tmp%
1789. END FUNCTION
1790. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1791. FUNCTION calculateHeroActualPower% ()
1792.     DIM i%
1793.     DIM tmp%
1794.     tmp% = 0
1795.     FOR i% = 0 TO 6
1796.         IF Pocket(i%).special <> "" AND INSTR(Pocket(i%).special, "p") THEN
1797.             tmp% = tmp% + VAL(RIGHT$(Pocket(i%).special, 1))
1798.         END IF
1799.     NEXT i%
1800.     calculateHeroActualPower% = Hero.power + tmp%
1801. END FUNCTION
1802. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1803. FUNCTION calculateHeroActualVigor% ()
1804.     DIM i%
1805.     DIM tmp%
1806.     tmp% = 0
1807.     FOR i% = 0 TO 6
1808.         IF Pocket(i%).special <> "" AND INSTR(Pocket(i%).special, "v") THEN
1809.             tmp% = tmp% + VAL(RIGHT$(Pocket(i%).special, 1))
1810.         END IF
1811.     NEXT i%
1812.     calculateHeroActualVigor% = Hero.vigor + tmp%
1813. END FUNCTION
1814. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1815. FUNCTION calculateHeroChanceToHit% ()
1816.     DIM i%
1817.     DIM tmp%
1818.     tmp% = 0
1819.     FOR i% = 0 TO 6
1820.         IF Pocket(i%).special <> "" AND INSTR(Pocket(i%).special, "c") THEN
1821.             tmp% = tmp% + (VAL(RIGHT$(Pocket(i%).special, 1)) * 7)
1822.         END IF
1823.     NEXT i%
1824.     calculateHeroChanceToHit% = INT(calculateHeroActualAgility * 1.15) + 20 + tmp%
1825. END FUNCTION
1826. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1827. FUNCTION calculateHeroDefense% ()
1828.     DIM i%
1829.     DIM tmp%
1830.     tmp% = 0
1831.     FOR i% = 0 TO 6
1832.         tmp% = tmp% + calculateItemDefense%(Pocket(i%).kind, Pocket(i%).lvl, Pocket(i%).special)
1833.     NEXT i%
1834.     calculateHeroDefense% = tmp%
1835. END FUNCTION
1836. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1837. FUNCTION calculateHeroBaseDmg% () 'i should watch the case of no ammo, returning 0 IN PROCCES. Also should be affected by Strength, except if throw
1838.     DIM i%
1839.     DIM tmp%
1840.     tmp% = 0
1841.     IF Pocket(2).kind = -1 THEN ' if empty right hand
1842.         calculateHeroBaseDmg% = tmp%: EXIT FUNCTION
1843.     ELSE
1844.         IF Pocket(2).kind = 7 AND Pocket(4).kind <> 10 THEN ' if in right hand a bow and in left hand something different than arrows
1845.             calculateHeroBaseDmg% = 0: EXIT FUNCTION
1846.         ELSEIF Pocket(2).kind = 8 AND Pocket(4).kind <> 11 THEN ' if in right hand a crossbow and in left hand something different than bolts
1847.             calculateHeroBaseDmg% = 0: EXIT FUNCTION
1848.         ELSE
1849.             FOR i% = 0 TO 6
1850.                 tmp% = tmp% + calculateItemBaseDmg%(Pocket(i%).kind, Pocket(i%).lvl, Pocket(i%).special)
1851.             NEXT i%
1852.             calculateHeroBaseDmg% = tmp%
1853.         END IF
1854.     END IF
1855. END FUNCTION
1856. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1857. FUNCTION calculateHeroMaxDmg% () ' i should watch the case of no ammo, returning 0. Also should be affected by Strength, except if throw
1858.     DIM i%
1859.     DIM tmp%
1860.     tmp% = 0
1861.     IF Pocket(2).kind = -1 THEN ' if empty right hand
1862.         calculateHeroMaxDmg% = tmp% + 1: EXIT FUNCTION
1863.     ELSE
1864.         IF Pocket(2).kind = 7 AND Pocket(4).kind <> 10 THEN ' if in right hand a bow and in left hand something different than arrows
1865.             calculateHeroMaxDmg% = 0: EXIT FUNCTION
1866.         ELSEIF Pocket(2).kind = 8 AND Pocket(4).kind <> 11 THEN ' if in right hand a crossbow and in left hand something different than bolts
1867.             calculateHeroMaxDmg% = 0: EXIT FUNCTION
1868.         ELSE
1869.             FOR i% = 0 TO 6
1870.                 tmp% = tmp% + calculateItemMaxDmg%(Pocket(i%).kind, Pocket(i%).lvl, Pocket(i%).special)
1871.             NEXT i%
1872.             calculateHeroMaxDmg% = tmp%
1873.         END IF
1874.     END IF
1875. END FUNCTION
1876. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1877. FUNCTION calculateMaxLife% ()
1878.     calculateMaxLife% = INT(calculateHeroActualVigor% * 2.75)
1879. END FUNCTION
1880. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1881. FUNCTION calculateMaxMana% ()
1882.     calculateMaxMana% = INT(calculateHeroActualPower% * 3.25)
1883. END FUNCTION
1884. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1885. SUB drawHero ()
1886.     _PUTIMAGE (Hero.x, Hero.y), calculateHeroImg&(Hero.class, Hero.lvl)
1887. END SUB
1888. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1889. FUNCTION calculateHeroImg& (classOfHero%, lvlOfHero%)
1890.     IF lvlOfHero% <= 5 THEN
1891.         SELECT CASE classOfHero%
1892.             CASE 0: calculateHeroImg& = HeroImg&(0)
1893.             CASE 1: calculateHeroImg& = HeroImg&(2)
1894.             CASE 2: calculateHeroImg& = HeroImg&(4)
1895.             CASE 3: calculateHeroImg& = HeroImg&(6)
1896.         END SELECT
1897.     ELSE
1898.         SELECT CASE classOfHero%
1899.             CASE 0: calculateHeroImg& = HeroImg&(1)
1900.             CASE 1: calculateHeroImg& = HeroImg&(3)
1901.             CASE 2: calculateHeroImg& = HeroImg&(5)
1902.             CASE 3: calculateHeroImg& = HeroImg&(7)
1903.         END SELECT
1904.     END IF
1905. END FUNCTION
1906. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1907.  
1908.  
1909. SUB drawEnemies () '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û ENEMIES Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
1910.     FOR i% = 0 TO UBOUND(Enemy)
1911.         IF Enemy(i%).map = actualMapWorking%% THEN
1912.             _PUTIMAGE (Enemy(i%).x, Enemy(i%).y), EnemyImg&(Enemy(i%).lvl)
1913.         END IF
1914.     NEXT i%
1915. END SUB
1916. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1917. FUNCTION calculateEnemyBaseDmg% (lvl%) ' INCOMPLETE
1918.     calculateEnemyBaseDmg% = (lvl% + 1) * 5
1919. END FUNCTION
1920. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1921. FUNCTION calculateEnemyScore% (lvl%) ' UNDONE
1922. END FUNCTION
1923. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1924.  
1925. SUB loadEnemiesInitialVariables () ' <---- I SHOULD RANDOM CREATE THEM AND THEIR ARRAY SHOULD ONLY BE FOR THE ONES ON actualMapWorking%  , the rest should be on file .txt
1926.     Enemy(3).map = 0
1927.     Enemy(3).x = 8 * 32
1928.     Enemy(3).y = 2 * 32 + 32
1929.     Enemy(3).lvl = 0
1930.     Enemy(3).life = 8
1931.  
1932.     Enemy(1).map = 0
1933.     Enemy(1).x = 5 * 32
1934.     Enemy(1).y = 2 * 32 + 32
1935.     Enemy(1).lvl = 0
1936.     Enemy(1).life = 8
1937.  
1938.     Enemy(2).map = 1
1939.     Enemy(2).x = 7 * 32
1940.     Enemy(2).y = 8 * 32 + 32
1941.     Enemy(2).lvl = 0
1942.     Enemy(2).life = 8
1943.  
1944. END SUB
1945. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1946.  
1947. FUNCTION nameAnEnemy$ (lvl%)
1948.     SELECT CASE lvl%
1949.         CASE 0: nameAnEnemy$ = "rat"
1950.         CASE 1: nameAnEnemy$ = "spiders"
1951.         CASE 2: nameAnEnemy$ = "lizard"
1952.         CASE 3: nameAnEnemy$ = "tarantula"
1953.         CASE 4: nameAnEnemy$ = "frog"
1954.         CASE 5: nameAnEnemy$ = "beatle"
1955.         CASE 6: nameAnEnemy$ = "bug"
1956.         CASE 7: nameAnEnemy$ = "dragon"
1957.         CASE 8: nameAnEnemy$ = "living mushrooms"
1958.         CASE 9: nameAnEnemy$ = "rabbit"
1959.         CASE 10: nameAnEnemy$ = "small bat"
1960.         CASE 11: nameAnEnemy$ = "big bat"
1961.         CASE 12: nameAnEnemy$ = "snake"
1962.         CASE 13: nameAnEnemy$ = "wolf"
1963.         CASE 14: nameAnEnemy$ = "jabali"
1964.         CASE 15: nameAnEnemy$ = "bear"
1965.         CASE 16: nameAnEnemy$ = "stuffs"
1966.         CASE 17: nameAnEnemy$ = "big stuff"
1967.         CASE 18: nameAnEnemy$ = "scorpion"
1968.         CASE 19: nameAnEnemy$ = "octopus"
1969.         CASE 20: nameAnEnemy$ = "vampire"
1970.         CASE 21: nameAnEnemy$ = "mummy"
1971.         CASE 22: nameAnEnemy$ = "ghost"
1972.         CASE 23: nameAnEnemy$ = "hidra"
1973.         CASE 24: nameAnEnemy$ = "goblin"
1974.         CASE 25: nameAnEnemy$ = "zombie"
1975.         CASE 26: nameAnEnemy$ = "skeleton"
1976.         CASE 27: nameAnEnemy$ = "orc"
1977.         CASE 28: nameAnEnemy$ = "ciclope"
1978.         CASE 29: nameAnEnemy$ = "baron of hell"
1979.         CASE 30: nameAnEnemy$ = "stone golem"
1980.         CASE 31: nameAnEnemy$ = "Lord of the Dark"
1981.     END SELECT
1982. END FUNCTION
1983. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1984. SUB enemyAI (enemyFromArray%) '<------------- I must build the AI for enemies' cosider particular cases later
1985.  
1986.  
1987. END SUB
1988. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1989. FUNCTION enemySearchHero% (i%)
1990.     IF Enemy(indexFromArray%).x <> Hero.x THEN
1991.         IF Enemy(i%).x > Hero.x THEN Enemy(i%).x = Enemy(i%).x - 32
1992.         IF Enemy(i%).x < Hero.x THEN Enemy(i%).x = Enemy(i%).x + 32
1993.     END IF
1994.  
1995.     IF Enemy(indexFromArray%).y <> Hero.y THEN
1996.  
1997.     END IF
1998.  
1999.  
2000.  
2001. END FUNCTION
2002. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2003.  
2004. SUB drawMechs () '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û WORLD & MECHS Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
2005.     _PUTIMAGE (Mechs(0).x, Mechs(0).y), UtileryImg&(5) ' PROVISORY
2006. END SUB
2007.  
2008. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2009. SUB drawWorld () ' <-  if i could came up with a random generator... geez
2010.  
2011.     DIM i%
2012.     DIM j%
2013.     DIM tmp%%
2014.     DIM orgFile&
2015.     DIM destFile&
2016.     DIM tmpWorlds&
2017.  
2018.     IF NOT _FILEEXISTS("tmpWorlds.txt") THEN '              if this file dosn't exists means that we started a new game. We must create the first map of the game, wich is a pre-arranged map of the Town
2019.         CHDIR ".\.." '                                      we are @ Fantasy\data\
2020.         CHDIR ".\worlds" '                                  we are @ Fantasy\data\wolrds\
2021.         orgFile& = FREEFILE '                               we need two filehandles: one for origin file,
2022.         destFile& = FREEFILE '                              and another for destination file
2023.         OPEN "town.txt" FOR INPUT AS #orgFile& '            we will extract info from this file
2024.         OPEN "tmp.txt" FOR OUTPUT AS #destFile& '           and place it into this one
2025.         WHILE NOT EOF(orgFile&) '                           we make sure we read the full file
2026.             INPUT #orgFile&, tmp%% '    ¿ <---------------- DATA TRANSFER
2027.             PRINT #destFile&, tmp%% '   ¾
2028.         WEND '                                              done with that thing
2029.         CLOSE #orgFile& '  ¿ <----------------------------- close files
2030.         CLOSE #destFile& ' ¾
2031.         CHDIR ".\.." '                                      we are @ Fantasy\data\
2032.         NAME ".\worlds\tmp.txt" AS ".\tmp\tmpWorlds.txt" '  now we extract the file from worlds folder and put it on tmp folder with the right name
2033.         CHDIR ".\tmp" '                                     we are @ Fantasy\data\tmp\
2034.     END IF
2035.  
2036.     IF lastMapWorking%% <> actualMapWorking%% THEN '        if map has changed we need to actualize the WolrdTiles%% array
2037.         tmpWorlds& = FREEFILE '                             get a handle
2038.         OPEN "tmpWorlds.txt" FOR INPUT AS #tmpWorlds& '     we will extract data from this file
2039.         INPUT #tmpWorlds&, tmp%% '                          we check the first number of the file
2040.         WHILE tmp%% <> actualMapWorking%% '                 if it isn't the number of the level we need to know
2041.             FOR i% = 0 TO 279 '            ¿
2042.                 INPUT #tmpWorlds&, tmp%% ' ³ <------------ walk over the info of this map (which is not what we need to know, but we skip that data)
2043.             NEXT i% '                      ¾
2044.             INPUT #tmpWorlds&, tmp%% '                      and get the next number for evaluate again (that should be the number of next map)
2045.         WEND '                                              keep doing this untill the right map number has been found
2046.         FOR j% = 0 TO 13 '                    ¿
2047.             FOR i% = 0 TO 19 '                ³
2048.                 INPUT #tmpWorlds&, tmp%% '    ³ <---------- then extract the data we need
2049.                 WorldTiles%%(i%, j%) = tmp%% '³             and load it into WorldTiles%% array !
2050.             NEXT i% '                         ³
2051.         NEXT j% '                             ¾
2052.         CLOSE #tmpWorlds& '                                 close the file
2053.         lastMapWorking%% = actualMapWorking%% '             and actualize map situation, so no need for reload until the map changes
2054.     END IF
2055.  
2056.     FOR j% = 0 TO 13 '                                                          ¿
2057.         FOR i% = 0 TO 19 '                                                      ³
2058.             _PUTIMAGE (i% * 32, j% * 32 + 32), WorldImg&(WorldTiles%%(i%, j%)) '³ actual drawing
2059.         NEXT i% '                                                               ³
2060.     NEXT j% '                                                                   ¾
2061.  
2062. END SUB
2063. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2064. SUB loadMechsInitialVariables () ' PROVISORY, load them from a CSV as maps later
2065.  
2066.     Mechs(0).x = 128
2067.     Mechs(0).y = 128
2068.     Mechs(0).kind = 0
2069.     Mechs(0).map = 0
2070.     Mechs(0).state = 0
2071.  
2072. END SUB
2073. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2074. SUB getMouseData () ''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û PLAYER INPUTS Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
2075.  
2076.     DO WHILE _MOUSEINPUT: LOOP '               ¿
2077.     Finger.x = _MOUSEX '                       ³ get
2078.     Finger.y = _MOUSEY '                       ³ mouse
2079.     Finger.tmpClickL = _MOUSEBUTTON(1) '       ³ info
2080.     Finger.tmpClickR = _MOUSEBUTTON(2) '       Ù
2081.  
2082.     IF Finger.tmpClickL AND NOT Finger.oldClickL THEN '¿
2083.         Finger.clickL = TRUE '                            ³ DEBOUNCE
2084.     ELSE '                                             ³ LEFT
2085.         Finger.clickL = FALSE '                            ³ CLICK
2086.     END IF '                                           ³
2087.     Finger.oldClickL = Finger.tmpClickL '              Ù
2088.  
2089.     IF Finger.tmpClickR AND NOT Finger.oldClickR THEN '¿
2090.         Finger.clickR = TRUE '                            ³ DEBOUNCE
2091.     ELSE '                                             ³ RIGHT
2092.         Finger.clickR = FALSE '                            ³ CLICK
2093.     END IF '                                           ³
2094.     Finger.oldClickR = Finger.tmpClickR '              Ù
2095.  
2096.     inHand.x = Finger.x
2097.     inHand.y = Finger.y
2098.  
2099. END SUB
2100. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2101. SUB playerInputs ()
2102.     getMouseData
2103.     keyboardInputs
2104. END SUB
2105. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2106.  
2107. SUB keyboardInputs () ' <-------------------------------------------------------No more keyboard inputs of any kind? Think in playability
2108.  
2109.     DIM keyPress$
2110.     DIM mapOnPocket%
2111.     DIM i%
2112.  
2113.     'hold CTRL for throw an attack (long distance) YOU NEED TO HAVE A THROW WEAPON ON Pocket(2)!!!! AND AMMO IN Pocket(4)!!!! else should draw the cross, and if i can display "No ammo"... great. Also have to check the case of BOMBS & THROWS
2114.     'hold SHIFT for launching same spell as before, if no spell "?" sign and HUDpromt, if no mana then cross and HUDpromt too
2115.     'hold ALT to force a movement over an item instead of picking..... or maybe for the Rest One TURN ?
2116.     'SPACEBAR could accelerate the action... maybe
2117.  
2118.     '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
2119.     '° what's the best way for motion? ° numpad? QWEASDZXC? some way with
2120.     '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
2121.     'F1 for help
2122.     'F2 for new game
2123.     'F3 for save game
2124.     'F4 for load game
2125.  
2126.  
2127.     keyPress$ = INKEY$
2128.     IF keyPress$ <> "" AND playerTurn` = TRUE THEN
2129.  
2130.         IF ASC(keyPress$) = 27 THEN '                             ¿
2131.             IF menuMain` = TRUE THEN '                            ³
2132.                 menuMain` = FALSE '                               ³
2133.             ELSEIF menuPocket` OR menuStats` OR menuSpells` THEN '³
2134.                 menuPocket` = FALSE '                             ³ ESC key
2135.                 menuStats` = FALSE '                              ³
2136.                 menuSpells` = FALSE '                             ³
2137.             ELSEIF menuMain` = FALSE THEN '                       ³
2138.                 menuMain` = TRUE '                                ³
2139.             END IF '                                              ³
2140.         END IF '                                                  ¾
2141.  
2142.         IF menuMain` = FALSE THEN
2143.  
2144.             IF keyPress$ = "1" THEN '           ¿
2145.                 IF menuPocket` = FALSE THEN '   ³
2146.                     menuSpells` = FALSE '       ³
2147.                     menuPocket` = TRUE '        ³
2148.                 ELSEIF menuPocket` = TRUE THEN '³ number 1
2149.                     menuPocket` = FALSE '       ³
2150.                 END IF '                        ³
2151.             END IF '                            ¾
2152.  
2153.             IF keyPress$ = "2" THEN '           ¿
2154.                 IF menuSpells` = FALSE THEN '   ³
2155.                     menuPocket` = FALSE '       ³
2156.                     menuSpells` = TRUE '        ³
2157.                 ELSEIF menuSpells` = TRUE THEN '³ number 2
2158.                     menuSpells` = FALSE '       ³
2159.                 END IF '                        ³
2160.             END IF '                            ¾
2161.  
2162.             IF keyPress$ = "3" THEN '           ¿
2163.                 IF menuStats` = FALSE THEN '    ³
2164.                     menuStats` = TRUE '         ³
2165.                 ELSEIF menuStats` = TRUE THEN ' ³ number 3
2166.                     menuStats` = FALSE '        ³
2167.                 END IF '                        ³
2168.             END IF '                            ¾
2169.  
2170.             FOR i% = 7 TO 22 '                                      ¿
2171.                 IF Pocket(i%).kind = 2 AND Pocket(i%).lvl = 1 THEN '³
2172.                     mapOnPocket% = TRUE '                           ³
2173.                 ELSE '                                              ³check if map is on inventory
2174.                     mapOnPocket% = FALSE '                          ³
2175.                 END IF '                                            ³
2176.             NEXT i% '                                               ¾
2177.  
2178.             IF ASC(keyPress$) = 9 AND mapOnPocket% = TRUE THEN '¿
2179.                 IF menuMap` = FALSE THEN '                      ³
2180.                     menuPocket` = FALSE '                       ³
2181.                     menuSpells` = FALSE '                       ³ TAB for map
2182.                     menuStats` = FALSE '                        ³
2183.                     menuMap` = TRUE '                           ³
2184.                 ELSEIF menmumap` = TRUE THEN '                  ³
2185.                     menuMap` = FALSE '                          ³
2186.                 END IF '                                        ³
2187.             END IF '                                            ¾
2188.  
2189.         END IF
2190.  
2191.     END IF
2192. END SUB
2193. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2194. '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°Û GENERAL PROGRAM Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
2195.  
2196. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2197. SUB drawHUD ()
2198.  
2199.     DIM lifeAsPercent%
2200.     DIM manaAsPercent%
2201.     DIM xpAsPercent%
2202.  
2203.     LINE (0, 0)-(639, 31), GREEN4, BF 'background line/box ¿
2204.     LINE (0, 15)-(639, 15), GREEN1 '                       ³
2205.     LOCATE 1, 17: PRINT CHR$(179); '¿                      ³  BACK
2206.     LOCATE 1, 34: PRINT CHR$(179); '³ separation           ³
2207.     LOCATE 1, 55: PRINT CHR$(179); 'Ù lines                Ù
2208.  
2209.     _PUTIMAGE (8, 0), HUDImg&(0) ' big heart image                        ¿
2210.     lifeAsPercent% = CINT((Hero.life * 100) / calculateMaxLife%) '        ³
2211.     drawFourHeartAsPercentage 32, 3, lifeAsPercent% '                     ³ HEALTH
2212.     LOCATE 1, 10 ' written values on screen                               ³
2213.     PRINT _TRIM$(STR$(Hero.life)); "/"; _TRIM$(STR$(calculateMaxLife%)); 'Ù
2214.  
2215.     _PUTIMAGE (144, 0), HUDImg&(1) ' big star image                       ¿
2216.     manaAsPercent% = CINT((Hero.mana * 100) / calculateMaxMana%) '        ³
2217.     barShowingPercentage 160, 4, manaAsPercent% '                         ³  MANA
2218.     LOCATE 1, 27 '                                                        ³
2219.     PRINT _TRIM$(STR$(Hero.mana)); "/"; _TRIM$(STR$(calculateMaxMana%)); 'Ù
2220.  
2221.     _PUTIMAGE (280, 0), HUDImg&(2) ' little flag image                                           ¿
2222.     xpAsPercent% = CINT(((Hero.xp - Hero.prevNextXp) * 100) / (Hero.nextXp - Hero.prevNextXp)) ' ³
2223.     barShowingPercentage 296, 4, xpAsPercent% '                                                  ³  EXPERIENCE
2224.     LOCATE 1, 44 '                                                                               ³
2225.     PRINT _TRIM$(STR$(Hero.xp)); "/"; _TRIM$(STR$(Hero.nextXp)); '                               Ù
2226.  
2227.     IF inHand.lvl = -1 AND playerTurn` = TRUE AND menuMain` = FALSE THEN ' no items in hand, and it has to be your turn. Also can't work if Main Menu open
2228.         IF fingerIsOnSurface%(440, 0, 48, 16) THEN '
2229.             HUDpromt$ = "Look at you inventory" '
2230.             COLOR GREEN4, GREEN1 '
2231.             IF menuPocket` = FALSE THEN
2232.                 IF Finger.clickL THEN
2233.                     menuSpells` = FALSE
2234.                     menuPocket` = TRUE
2235.                 END IF
2236.             ELSE
2237.                 IF Finger.clickL THEN menuPocket` = FALSE
2238.             END IF
2239.         ELSE '
2240.             COLOR GREEN1, GREEN4 '
2241.         END IF '
2242.         LOCATE 1, 56 '
2243.         PRINT "POCKET"; '
2244.  
2245.         IF fingerIsOnSurface%(496, 0, 48, 16) THEN '
2246.             HUDpromt$ = "Select a spell to perform" '
2247.             COLOR GREEN4, GREEN1 '
2248.             IF menuSpells` = FALSE THEN
2249.                 IF Finger.clickL THEN
2250.                     menuPocket` = FALSE
2251.                     menuSpells` = TRUE
2252.                 END IF
2253.             ELSE
2254.                 IF Finger.clickL THEN menuSpells` = FALSE
2255.             END IF
2256.         ELSE '
2257.             COLOR GREEN1, GREEN4 '
2258.         END IF '
2259.         LOCATE 1, 63 '
2260.         PRINT "SPELLS"; '
2261.  
2262.         IF fingerIsOnSurface%(552, 0, 40, 16) THEN '
2263.             HUDpromt$ = "Character statistics" '
2264.             COLOR GREEN4, GREEN1 '
2265.             IF menuStats` = FALSE THEN
2266.                 IF Finger.clickL THEN menuStats` = TRUE
2267.             ELSE
2268.                 IF Finger.clickL THEN menuStats` = FALSE
2269.             END IF
2270.         ELSE '
2271.             COLOR GREEN1, GREEN4 '
2272.         END IF '
2273.         LOCATE 1, 70 '
2274.         PRINT "STATS"; '
2275.  
2276.         IF fingerIsOnSurface%(600, 0, 32, 16) THEN '
2277.             HUDpromt$ = "Game main menu" '
2278.             COLOR GREEN4, GREEN1 '
2279.             IF Finger.clickL THEN menuMain` = TRUE
2280.         ELSE '
2281.             COLOR GREEN1, GREEN4 '
2282.         END IF '
2283.         LOCATE 1, 76 '
2284.         PRINT "MENU"; '
2285.     ELSE '                                 ¿
2286.         COLOR GREEN1, GREEN4 '             ³ not players turn or
2287.         LOCATE 1, 56 '                     ³ he's grabbing something,
2288.         PRINT "POCKET SPELLS STATS MENU"; '³ decive him
2289.     END IF '                               ¾
2290.     LINE (0, 15)-(639, 15), GREEN1 ' divisory line between upper half and lower half of HUD
2291.  
2292.     IF Hero.attributePoints > 0 THEN lvlUpHUDButton 600, 17
2293.  
2294.     COLOR GREEN1, GREEN4 ' leave normal printing color before leaving, so we don't conflictuate with other stuff
2295.  
2296. END SUB
2297.  
2298. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2299. SUB printHUDpromt (whatDoIPrint$)
2300.     LOCATE 2, 1 '               promt line position
2301.     COLOR GREEN1, GREEN4 '      always normal color for writing
2302.     PRINT whatDoIPrint$;
2303. END SUB
2304. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2305. SUB lvlUpHUDButton (x%, y%)
2306.     _PUTIMAGE (x%, y%), LvlImg&(0) '                                                    draw Lvl image
2307.     _PUTIMAGE (x% + 16, y%), DirArrowImg&(4) '                                          draw DirArrow upside
2308.     IF fingerIsOnSurface%(x%, y%, 32, 16) AND inHand.lvl = -1 AND NOT menuMain` THEN '  if the mouse is over this images, no items held on hand and not main menu open
2309.         HUDpromt$ = "Increase your attributes" '                                        inform user
2310.         IF Finger.clickL THEN menuStats` = TRUE '                                       and if you click in it, then open the stats menu
2311.     END IF
2312. END SUB
2313. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2314.  
2315. SUB showHistory (momentOfHistory%) 'dude, use your fantasy
2316.     _AUTODISPLAY
2317.     COLOR GREEN1, GREEN4
2318.     CLS , GREEN4
2319.     SELECT CASE momentOfHistory%
2320.         CASE 0
2321.             drawItemSlots 16, 24
2322.             _PUTIMAGE (16, 24), calculateHeroImg&(Hero.class, Hero.lvl)
2323.             PRINTslowly 2, 8, Hero.id + "'s history starts here:"
2324.             PRINTslowly 3, 8, "During the year 634 a.k. the crisis of the water increased and the"
2325.             PRINTslowly 4, 8, "habitants of Natrium were in the need to find new places to extract"
2326.             PRINTslowly 5, 2, "the precius liquid, and bring it to the city to overome the problem."
2327.             PRINTslowly 6, 2, "Our hero was one of these scouts, who reached a land called:"
2328.             PRINTslowly 8, 36, "FANTASYLAND"
2329.             PRINTslowly 10, 2, "a strange place indeed, poorly explored by the habitants of Natrium."
2330.             PRINTslowly 11, 2, "And something strange is happening there: after renting a room in the"
2331.             PRINTslowly 12, 2, "town central plaza, and in his first night trying to sleep there"
2332.             PRINTslowly 13, 2, Hero.id + " heard some very strange noises. And as a good scout"
2333.             PRINTslowly 14, 2, "he went to investigate..."
2334.             SLEEP
2335.             CLS , GREEN4
2336.             PRINTslowly 14, 20, "What he found was disturbing..."
2337.             SLEEP
2338.     END SELECT
2339. END SUB
2340. ' this history sucks XD
2341. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2342. SUB loadProgramInitialVariables ()
2343.     DIM x%
2344.     DIM y%
2345.     DIM i%
2346.  
2347.     actualMapWorking%% = -1 '               with no map yet
2348.     lastMapWorking%% = actualMapWorking%% ' for drawMap check
2349.     menuMain` = TRUE '                      program starts leading to the main menu
2350.     playerTurn` = TRUE '                    Of course, the player starts
2351.     menuPocket` = FALSE '¿
2352.     menuSpells` = FALSE '³ <---------------  all menus at start must be closed
2353.     menuStats` = FALSE ' ¾
2354.  
2355.     'initialize mouse variables
2356.     Finger.x = 319
2357.     Finger.y = 239
2358.     Finger.image = FingerImg&(0)
2359.  
2360.     ' EQUIPPED positions
2361.     Pocket(0).x = 542: Pocket(0).y = 136 '  head
2362.     Pocket(1).x = 582: Pocket(1).y = 147 '  neck
2363.     Pocket(2).x = 498: Pocket(2).y = 191 '  right hand
2364.     Pocket(3).x = 542: Pocket(3).y = 191 '  torso
2365.     Pocket(4).x = 586: Pocket(4).y = 191 '  right hand
2366.     Pocket(5).x = 514: Pocket(5).y = 244 '  right finger
2367.     Pocket(6).x = 569: Pocket(6).y = 244 '  left finger
2368.  
2369.  
2370.     ' POCKET positions
2371.     x% = 332
2372.     y% = 136
2373.     FOR i% = 7 TO 10
2374.         Pocket(i%).x = x% + (i% - 7) * 36
2375.         Pocket(i%).y = y%
2376.         Pocket(i% + 4).x = x% + (i% - 7) * 36
2377.         Pocket(i% + 4).y = y% + 36
2378.         Pocket(i% + 8).x = x% + (i% - 7) * 36
2379.         Pocket(i% + 8).y = y% + 72
2380.         Pocket(i% + 12).x = x% + (i% - 7) * 36
2381.         Pocket(i% + 12).y = y% + 108
2382.     NEXT i%
2383.  
2384.     'let's also set some variables of the hand
2385.     inHand.x = Finger.x
2386.     inHand.y = Finger.y
2387.     cleanYourHand
2388.  
2389.     FOR i% = 0 TO 22 '        ¿
2390.         Pocket(i%).map = -1 ' ³ during all game .map for
2391.     NEXT i% '                 ³ pocket and inHand is always -1
2392.     inHand.map = -1 '         ¾
2393.  
2394. END SUB
2395. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2396. SUB drawFourHeartAsPercentage (x%, y%, percent%)
2397.     IF percent% > 99 THEN '                     ¿
2398.         _PUTIMAGE (x%, y%), HeartImg&(0) '      ³ full
2399.         _PUTIMAGE (x% + 8, y%), HeartImg&(0) '  ³ health
2400.         _PUTIMAGE (x% + 16, y%), HeartImg&(0) ' ³
2401.         _PUTIMAGE (x% + 24, y%), HeartImg&(0) ' Ù
2402.     ELSEIF percent% > 74 THEN '                                   ¿
2403.         _PUTIMAGE (x%, y%), HeartImg&(0) '                        ³
2404.         _PUTIMAGE (x% + 8, y%), HeartImg&(0) '                    ³
2405.         _PUTIMAGE (x% + 16, y%), HeartImg&(0) '                   ³ 99 to 75 %
2406.         SELECT CASE percent% '                                    ³ health
2407.             CASE 95 TO 99: _PUTIMAGE (x% + 24, y%), HeartImg&(1) '³
2408.             CASE 90 TO 94: _PUTIMAGE (x% + 24, y%), HeartImg&(2) '³
2409.             CASE 85 TO 89: _PUTIMAGE (x% + 24, y%), HeartImg&(3) '³
2410.             CASE 80 TO 84: _PUTIMAGE (x% + 24, y%), HeartImg&(4) '³
2411.             CASE 75 TO 79: _PUTIMAGE (x% + 24, y%), HeartImg&(5) '³
2412.         END SELECT '                                              Ù
2413.     ELSEIF percent% > 49 THEN '                                   ¿
2414.         _PUTIMAGE (x%, y%), HeartImg&(0) '                        ³
2415.         _PUTIMAGE (x% + 8, y%), HeartImg&(0) '                    ³
2416.         _PUTIMAGE (x% + 24, y%), HeartImg&(5) '                   ³
2417.         SELECT CASE percent% '                                    ³ 74 to 50 %
2418.             CASE 70 TO 74: _PUTIMAGE (x% + 16, y%), HeartImg&(1) '³ health
2419.             CASE 65 TO 69: _PUTIMAGE (x% + 16, y%), HeartImg&(2) '³
2420.             CASE 60 TO 64: _PUTIMAGE (x% + 16, y%), HeartImg&(3) '³
2421.             CASE 55 TO 59: _PUTIMAGE (x% + 16, y%), HeartImg&(4) '³
2422.             CASE 50 TO 54: _PUTIMAGE (x% + 16, y%), HeartImg&(5) '³
2423.         END SELECT '                                              Ù
2424.     ELSEIF percent% > 24 THEN '                                   ¿
2425.         _PUTIMAGE (x%, y%), HeartImg&(0) '                        ³
2426.         _PUTIMAGE (x% + 16, y%), HeartImg&(5) '                   ³
2427.         _PUTIMAGE (x% + 24, y%), HeartImg&(5) '                   ³
2428.         SELECT CASE percent% '                                    ³ 49 to 25 %
2429.             CASE 45 TO 49: _PUTIMAGE (x% + 8, y%), HeartImg&(1) ' ³ health
2430.             CASE 40 TO 44: _PUTIMAGE (x% + 8, y%), HeartImg&(2) ' ³
2431.             CASE 35 TO 39: _PUTIMAGE (x% + 8, y%), HeartImg&(3) ' ³
2432.             CASE 30 TO 34: _PUTIMAGE (x% + 8, y%), HeartImg&(4) ' ³
2433.             CASE 25 TO 29: _PUTIMAGE (x% + 8, y%), HeartImg&(5) ' ³
2434.         END SELECT '                                              Ù
2435.     ELSE '                                                        ¿
2436.         _PUTIMAGE (x% + 8, y%), HeartImg&(5) '                    ³
2437.         _PUTIMAGE (x% + 16, y%), HeartImg&(5) '                   ³
2438.         _PUTIMAGE (x% + 24, y%), HeartImg&(5) '                   ³
2439.         SELECT CASE percent% '                                    ³ 25 to 0 %
2440.             CASE 20 TO 24: _PUTIMAGE (x%, y%), HeartImg&(1) '     ³ health
2441.             CASE 15 TO 19: _PUTIMAGE (x%, y%), HeartImg&(2) '     ³
2442.             CASE 10 TO 14: _PUTIMAGE (x%, y%), HeartImg&(3) '     ³
2443.             CASE 5 TO 9: _PUTIMAGE (x%, y%), HeartImg&(4) '       ³
2444.             CASE 0 TO 4: _PUTIMAGE (x%, y%), HeartImg&(5) '       ³
2445.         END SELECT '                                              ³
2446.     END IF '                                                      Ù
2447.  
2448. END SUB
2449. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2450. SUB barShowingPercentage (x%, y%, percent%)
2451.  
2452.     _PUTIMAGE (x%, y%), BarImg&(0) ' opening bar
2453.     _PUTIMAGE (x% + 40, y%), BarImg&(6) ' closing bar
2454.     '
2455.     IF percent% > 99 THEN '                  ¿
2456.         _PUTIMAGE (x% + 8, y%), BarImg&(1) ' ³ 100%
2457.         _PUTIMAGE (x% + 16, y%), BarImg&(1) '³
2458.         _PUTIMAGE (x% + 24, y%), BarImg&(1) '³
2459.         _PUTIMAGE (x% + 32, y%), BarImg&(1) 'Ù
2460.     ELSEIF percent% > 74 THEN '                                 ¿
2461.         _PUTIMAGE (x% + 8, y%), BarImg&(1) '                    ³
2462.         _PUTIMAGE (x% + 16, y%), BarImg&(1) '                   ³
2463.         _PUTIMAGE (x% + 24, y%), BarImg&(1) '                   ³
2464.         SELECT CASE percent% '                                  ³ 99 to 75 %
2465.             CASE 95 TO 99: _PUTIMAGE (x% + 32, y%), BarImg&(1) '³
2466.             CASE 90 TO 94: _PUTIMAGE (x% + 32, y%), BarImg&(2) '³
2467.             CASE 85 TO 89: _PUTIMAGE (x% + 32, y%), BarImg&(3) '³
2468.             CASE 80 TO 84: _PUTIMAGE (x% + 32, y%), BarImg&(4) '³
2469.             CASE 75 TO 79: _PUTIMAGE (x% + 32, y%), BarImg&(5) '³
2470.         END SELECT '                                            Ù
2471.     ELSEIF percent% > 49 THEN '                                 ¿
2472.         _PUTIMAGE (x% + 8, y%), BarImg&(1) '                    ³
2473.         _PUTIMAGE (x% + 16, y%), BarImg&(1) '                   ³
2474.         _PUTIMAGE (x% + 32, y%), BarImg&(5) '                   ³ 74 to 50 %
2475.         SELECT CASE percent% '                                  ³
2476.             CASE 70 TO 74: _PUTIMAGE (x% + 24, y%), BarImg&(1) '³
2477.             CASE 65 TO 69: _PUTIMAGE (x% + 24, y%), BarImg&(2) '³
2478.             CASE 60 TO 64: _PUTIMAGE (x% + 24, y%), BarImg&(3) '³
2479.             CASE 55 TO 59: _PUTIMAGE (x% + 24, y%), BarImg&(4) '³
2480.             CASE 50 TO 54: _PUTIMAGE (x% + 24, y%), BarImg&(5) '³
2481.         END SELECT '                                            Ù
2482.     ELSEIF percent% > 24 THEN '                                 ¿
2483.         _PUTIMAGE (x% + 8, y%), BarImg&(1) '                    ³
2484.         _PUTIMAGE (x% + 24, y%), BarImg&(5) '                   ³
2485.         _PUTIMAGE (x% + 32, y%), BarImg&(5) '                   ³
2486.         SELECT CASE percent% '                                  ³ 49 to 25 %
2487.             CASE 45 TO 49: _PUTIMAGE (x% + 16, y%), BarImg&(1) '³
2488.             CASE 40 TO 44: _PUTIMAGE (x% + 16, y%), BarImg&(2) '³
2489.             CASE 35 TO 39: _PUTIMAGE (x% + 16, y%), BarImg&(3) '³
2490.             CASE 30 TO 34: _PUTIMAGE (x% + 16, y%), BarImg&(4) '³
2491.             CASE 25 TO 29: _PUTIMAGE (x% + 16, y%), BarImg&(5) '³
2492.         END SELECT '                                            Ù
2493.     ELSE '                                                      ¿
2494.         _PUTIMAGE (x% + 16, y%), BarImg&(5) '                   ³
2495.         _PUTIMAGE (x% + 24, y%), BarImg&(5) '                   ³
2496.         _PUTIMAGE (x% + 32, y%), BarImg&(5) '                   ³
2497.         SELECT CASE percent% '                                  ³
2498.             CASE 20 TO 24: _PUTIMAGE (x% + 8, y%), BarImg&(1) ' ³ 25 to 0 %
2499.             CASE 15 TO 19: _PUTIMAGE (x% + 8, y%), BarImg&(2) ' ³
2500.             CASE 10 TO 14: _PUTIMAGE (x% + 8, y%), BarImg&(3) ' ³
2501.             CASE 5 TO 9: _PUTIMAGE (x% + 8, y%), BarImg&(4) '   ³
2502.             CASE 0 TO 4: _PUTIMAGE (x% + 8, y%), BarImg&(5) '   ³
2503.         END SELECT '                                            ³
2504.     END IF '                                                    Ù
2505.  
2506. END SUB
2507. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2508. SUB drawMenuBack (strX%, strY%, endX%, endY%)
2509.     LINE (strX%, strY%)-(endX%, endY%), GREEN4, B
2510.     LINE (strX% + 1, strY% + 1)-(endX% - 1, endY% - 1), GREEN3, B
2511.     LINE (strX% + 2, strY% + 2)-(endX% - 2, endY% - 2), GREEN2, B
2512.     LINE (strX% + 3, strY% + 3)-(endX% - 3, endY% - 3), GREEN1, B
2513.     LINE (strX% + 4, strY% + 4)-(endX% - 4, endY% - 4), GREEN2, B
2514.     LINE (strX% + 5, strY% + 5)-(endX% - 5, endY% - 5), GREEN3, B
2515.     LINE (strX% + 6, strY% + 6)-(endX% - 6, endY% - 6), GREEN4, BF
2516. END SUB
2517. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2518. SUB drawItemSlots (begX, begY)
2519.     LINE (begX, begY)-(begX + 32, begY + 32), GREEN1, B
2520.     LINE (begX + 1, begY + 1)-(begX + 31, begY + 31), GREEN2, BF
2521. END SUB
2522. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2523. FUNCTION fingerIsOnSurface% (begX%, begY%, imagePixelsX%, imagePixelsY%)
2524.     IF ((Finger.x >= begX% AND Finger.x <= begX% + (imagePixelsX% - 1)) AND (Finger.y >= begY% AND Finger.y <= begY% + (imagePixelsY% - 1))) THEN
2525.         fingerIsOnSurface% = TRUE
2526.     ELSE
2527.         fingerIsOnSurface% = FALSE
2528.     END IF
2529. END FUNCTION
2530. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2531. SUB PRINTslowly (originY%, originX%, message$)
2532.     DIM i%
2533.     i% = 0 '                                                Ä¿
2534.     DO '                                                     ³
2535.         _DELAY .05 '                                         ³
2536.         i% = i% + 1 '                                        ³ print message$
2537.         buildingMessage$ = LEFT$(message$, i%) + CHR$(219) ' ³ character by character
2538.         LOCATE originY%, originX% '                          ³ and erease the cursor
2539.         PRINT buildingMessage$; '                            ³
2540.     LOOP UNTIL LEN(buildingMessage$) = LEN(message$) + 1 '  ÄÙ
2541.     LOCATE CSRLIN, originX% + LEN(message$): PRINT " "; ' erease cursor
2542. END SUB
2543. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2544. SUB drawMyFantasy ()
2545.     drawWorld
2546.     'drawPortals
2547.     drawItemsOnGround
2548.     'drawMechs
2549.     drawHero
2550.     drawEnemies
2551.     'drawFlyingObjectOrExplosion
2552. END SUB
2553. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2554. SUB TESTER () ' <KILL ME AFTER TESTINGS>
2555.     COLOR GREEN1, GREEN4
2556.     LOCATE 27, 1
2557.     PRINT (Finger.y \ 16) + 1; ","; (Finger.x \ 8) + 1
2558.     LOCATE 28, 1
2559.     PRINT "x="; Finger.x;
2560.     LOCATE 29, 1
2561.     PRINT "y="; Finger.y;
2562.     PSET (Finger.x, Finger.y), _RGB32(255, 0, 0) '
2563. END SUB
2564. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2565. SUB checkForAssets ()
2566.     IF NOT _DIREXISTS(".\data") THEN fatalError "data folder"
2567.     CHDIR ".\data" 'we are @ Fantasy\data\
2568.     IF NOT _DIREXISTS(".\images") THEN fatalError "images folder"
2569.     IF NOT _DIREXISTS(".\sounds") THEN fatalError "sounds folder"
2570.     IF NOT _DIREXISTS(".\worlds") THEN fatalError "worlds folder"
2571.     IF NOT _DIREXISTS(".\saved") THEN fatalError "saved folder"
2572.     'if no more directories for check then check the images
2573.     CHDIR ".\images" 'we are @ Fantasy\data\images\
2574.     IF NOT _FILEEXISTS(".\armor.png") THEN fatalError "armor.png"
2575.     IF NOT _FILEEXISTS(".\arrow.png") THEN fatalError "arrow.png"
2576.     IF NOT _FILEEXISTS(".\axe.png") THEN fatalError "axe.png"
2577.     IF NOT _FILEEXISTS(".\bar.png") THEN fatalError "bar.png"
2578.     IF NOT _FILEEXISTS(".\bijou.png") THEN fatalError "bijou.png"
2579.     IF NOT _FILEEXISTS(".\bolt.png") THEN fatalError "bolt.png"
2580.     IF NOT _FILEEXISTS(".\bomb.png") THEN fatalError "bomb.png"
2581.     IF NOT _FILEEXISTS(".\book.png") THEN fatalError "book.png"
2582.     IF NOT _FILEEXISTS(".\bow.png") THEN fatalError "bow.png"
2583.     IF NOT _FILEEXISTS(".\chest.png") THEN fatalError "chest.png"
2584.     IF NOT _FILEEXISTS(".\crossbow.png") THEN fatalError "crossbow.png"
2585.     IF NOT _FILEEXISTS(".\dirArrow.png") THEN fatalError "dirArrow.png"
2586.     IF NOT _FILEEXISTS(".\enemy.png") THEN fatalError "enemy.png"
2587.     IF NOT _FILEEXISTS(".\finger.png") THEN fatalError "finger.png"
2588.     IF NOT _FILEEXISTS(".\gndItems.png") THEN fatalError "gndItems.png"
2589.     IF NOT _FILEEXISTS(".\heart.png") THEN fatalError "heart.png"
2590.     IF NOT _FILEEXISTS(".\helm.png") THEN fatalError "helm.png"
2591.     IF NOT _FILEEXISTS(".\hero.png") THEN fatalError "hero.png"
2592.     IF NOT _FILEEXISTS(".\hud.png") THEN fatalError "hud.png"
2593.     IF NOT _FILEEXISTS(".\key.png") THEN fatalError "key.png"
2594.     IF NOT _FILEEXISTS(".\light.png") THEN fatalError "light.png"
2595.     IF NOT _FILEEXISTS(".\lvl.png") THEN fatalError "lvl.png"
2596.     IF NOT _FILEEXISTS(".\money.png") THEN fatalError "money.png"
2597.     IF NOT _FILEEXISTS(".\paper.png") THEN fatalError "paper.png"
2598.     IF NOT _FILEEXISTS(".\portal.png") THEN fatalError "portal.png"
2599.     IF NOT _FILEEXISTS(".\potion.png") THEN fatalError "potion.png"
2600.     IF NOT _FILEEXISTS(".\shield.png") THEN fatalError "shield.png"
2601.     IF NOT _FILEEXISTS(".\spell.png") THEN fatalError "spell.png"
2602.     IF NOT _FILEEXISTS(".\sword.png") THEN fatalError "sword.png"
2603.     IF NOT _FILEEXISTS(".\throw.png") THEN fatalError "throw.png"
2604.     IF NOT _FILEEXISTS(".\wand.png") THEN fatalError "wand.png"
2605.     IF NOT _FILEEXISTS(".\world.png") THEN fatalError "world.png"
2606.     CHDIR ".\.." 'we are @ Fantasy\data\
2607.  
2608. END SUB
2609. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2610. SUB fatalError (thingNotFound$)
2611.     CLS , GREEN4
2612.     LOCATE 2, 2
2613.     COLOR GREEN1, GREEN4
2614.     PRINT "Fatal error: " + thingNotFound$ + " not found"
2615.     SLEEP
2616.     SYSTEM
2617. END SUB
2618. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2619. SUB loadImages ()
2620.     DIM tmpImg&
2621.     DIM i%
2622.     CHDIR ".\images"
2623.     'we are @ Fantasy\data\images\
2624.     tmpImg& = _LOADIMAGE(".\armor.png", 32): FOR i% = 0 TO 7: ArmorImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, ArmorImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2625.     tmpImg& = _LOADIMAGE(".\arrow.png", 32): FOR i% = 0 TO 2: ArrowImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, ArrowImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2626.     tmpImg& = _LOADIMAGE(".\axe.png", 32): FOR i% = 0 TO 7: AxeImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, AxeImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2627.     tmpImg& = _LOADIMAGE(".\bar.png", 32): FOR i% = 0 TO 6: BarImg&(i%) = _NEWIMAGE(8, 8, 32): _PUTIMAGE (0, 0), tmpImg&, BarImg&(i%), (i% * 8, 0)-(i% * 8 + 7, 7): NEXT i%: _FREEIMAGE tmpImg&
2628.     tmpImg& = _LOADIMAGE(".\bijou.png", 32): FOR i% = 0 TO 3: BijouImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, BijouImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2629.     tmpImg& = _LOADIMAGE(".\bolt.png", 32): FOR i% = 0 TO 1: BoltImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, BoltImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2630.     tmpImg& = _LOADIMAGE(".\bomb.png", 32): FOR i% = 0 TO 2: BombImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, BombImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2631.     tmpImg& = _LOADIMAGE(".\book.png", 32): FOR i% = 0 TO 3: BookImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, BookImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2632.     tmpImg& = _LOADIMAGE(".\bow.png", 32): FOR i% = 0 TO 2: BowImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, BowImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2633.     tmpImg& = _LOADIMAGE(".\chest.png", 32): FOR i% = 0 TO 1: ChestImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, ChestImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2634.     tmpImg& = _LOADIMAGE(".\crossbow.png", 32): FOR i% = 0 TO 1: CrossbowImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, CrossbowImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2635.     tmpImg& = _LOADIMAGE(".\dirArrow.png", 32): FOR i% = 0 TO 12: DirArrowImg&(i%) = _NEWIMAGE(16, 16, 32): _PUTIMAGE (0, 0), tmpImg&, DirArrowImg&(i%), (i% * 16, 0)-(i% * 16 + 15, 15): NEXT i%: _FREEIMAGE tmpImg&
2636.     tmpImg& = _LOADIMAGE(".\enemy.png", 32)
2637.     FOR i% = 0 TO 7
2638.         EnemyImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, EnemyImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31)
2639.         EnemyImg&(i% + 8) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, EnemyImg&(i% + 8), (i% * 32, 32)-(i% * 32 + 31, 63)
2640.         EnemyImg&(i% + 16) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, EnemyImg&(i% + 16), (i% * 32, 64)-(i% * 32 + 31, 95)
2641.         EnemyImg&(i% + 24) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, EnemyImg&(i% + 24), (i% * 32, 96)-(i% * 32 + 31, 127)
2642.     NEXT i%: _FREEIMAGE tmpImg&
2643.     tmpImg& = _LOADIMAGE(".\finger.png", 32): FOR i% = 0 TO 8: FingerImg&(i%) = _NEWIMAGE(16, 16, 32): _PUTIMAGE (0, 0), tmpImg&, FingerImg&(i%), (i% * 16, 0)-(i% * 16 + 15, 15): NEXT i%: _FREEIMAGE tmpImg&
2644.     tmpImg& = _LOADIMAGE(".\gndItems.png", 32): FOR i% = 0 TO 17: GndItemsImg&(i%) = _NEWIMAGE(16, 16, 32): _PUTIMAGE (0, 0), tmpImg&, GndItemsImg&(i%), (i% * 16, 0)-(i% * 16 + 15, 15): NEXT i%: _FREEIMAGE tmpImg&
2645.     tmpImg& = _LOADIMAGE(".\heart.png", 32): FOR i% = 0 TO 5: HeartImg&(i%) = _NEWIMAGE(8, 8, 32): _PUTIMAGE (0, 0), tmpImg&, HeartImg&(i%), (i% * 8, 0)-(i% * 8 + 7, 7): NEXT i%: _FREEIMAGE tmpImg&
2646.     tmpImg& = _LOADIMAGE(".\helm.png", 32): FOR i% = 0 TO 7: HelmImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, HelmImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2647.     tmpImg& = _LOADIMAGE(".\hero.png", 32): FOR i% = 0 TO 7: HeroImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, HeroImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2648.     tmpImg& = _LOADIMAGE(".\hud.png", 32): FOR i% = 0 TO 3: HUDImg&(i%) = _NEWIMAGE(16, 16, 32): _PUTIMAGE (0, 0), tmpImg&, HUDImg&(i%), (i% * 16, 0)-(i% * 16 + 15, 15): NEXT i%: _FREEIMAGE tmpImg&
2649.     tmpImg& = _LOADIMAGE(".\key.png", 32): FOR i% = 0 TO 5: KeyImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, KeyImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2650.     tmpImg& = _LOADIMAGE(".\light.png", 32): FOR i% = 0 TO 7: LightImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, LightImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2651.     tmpImg& = _LOADIMAGE(".\lvl.png", 32): FOR i% = 0 TO 10: LvlImg&(i%) = _NEWIMAGE(16, 16, 32): _PUTIMAGE (0, 0), tmpImg&, LvlImg&(i%), (i% * 16, 0)-(i% * 16 + 15, 15): NEXT i%: _FREEIMAGE tmpImg&
2652.     tmpImg& = _LOADIMAGE(".\money.png", 32): FOR i% = 0 TO 3: MoneyImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, MoneyImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2653.     tmpImg& = _LOADIMAGE(".\paper.png", 32): FOR i% = 0 TO 1: PaperImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, PaperImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2654.     tmpImg& = _LOADIMAGE(".\portal.png", 32): FOR i% = 0 TO 7: PortalImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, PortalImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2655.     tmpImg& = _LOADIMAGE(".\potion.png", 32): FOR i% = 0 TO 7: PotionImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, PotionImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2656.     tmpImg& = _LOADIMAGE(".\shield.png", 32): FOR i% = 0 TO 7: ShieldImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, ShieldImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2657.     tmpImg& = _LOADIMAGE(".\spell.png", 32): FOR i% = 0 TO 5: SpellImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, SpellImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2658.     tmpImg& = _LOADIMAGE(".\sword.png", 32): FOR i% = 0 TO 7: SwordImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, SwordImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2659.     tmpImg& = _LOADIMAGE(".\throw.png", 32): FOR i% = 0 TO 2: ThrowImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, ThrowImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2660.     tmpImg& = _LOADIMAGE(".\wand.png", 32): FOR i% = 0 TO 7: WandImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, WandImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31): NEXT i%: _FREEIMAGE tmpImg&
2661.     tmpImg& = _LOADIMAGE(".\world.png", 32)
2662.     FOR i% = 0 TO 7
2663.         WorldImg&(i%) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, WorldImg&(i%), (i% * 32, 0)-(i% * 32 + 31, 31)
2664.         WorldImg&(i% + 8) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, WorldImg&(i% + 8), (i% * 32, 32)-(i% * 32 + 31, 63)
2665.         WorldImg&(i% + 16) = _NEWIMAGE(32, 32, 32): _PUTIMAGE (0, 0), tmpImg&, WorldImg&(i% + 16), (i% * 32, 64)-(i% * 32 + 31, 95)
2666.     NEXT i%: _FREEIMAGE tmpImg&
2667.     BlankImg& = _NEWIMAGE(1, 1, 32)
2668.     CHDIR ".\.." ' back to data
2669.     'we are @ Fantasy\data\
2670. END SUB
2671. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2672. SUB unloadImages ()
2673.     DIM i%
2674.     FOR i% = 0 TO 7: _FREEIMAGE ArmorImg&(i%): NEXT i%
2675.     FOR i% = 0 TO 2: _FREEIMAGE ArrowImg&(i%): NEXT i%
2676.     FOR i% = 0 TO 7: _FREEIMAGE AxeImg&(i%): NEXT i%
2677.     FOR i% = 0 TO 6: _FREEIMAGE BarImg&(i%): NEXT i%
2678.     FOR i% = 0 TO 3: _FREEIMAGE BijouImg&(i%): NEXT i%
2679.     FOR i% = 0 TO 1: _FREEIMAGE BoltImg&(i%): NEXT i%
2680.     FOR i% = 0 TO 2: _FREEIMAGE BombImg&(i%): NEXT i%
2681.     FOR i% = 0 TO 3: _FREEIMAGE BookImg&(i%): NEXT i%
2682.     FOR i% = 0 TO 2: _FREEIMAGE BowImg&(i%): NEXT i%
2683.     FOR i% = 0 TO 1: _FREEIMAGE ChestImg&(i%): NEXT i%
2684.     FOR i% = 0 TO 1: _FREEIMAGE CrossbowImg&(i%): NEXT i%
2685.     FOR i% = 0 TO 12: _FREEIMAGE DirArrowImg&(i%): NEXT i%
2686.     FOR i% = 0 TO 31: _FREEIMAGE EnemyImg&(i%): NEXT i%
2687.     FOR i% = 0 TO 8: _FREEIMAGE FingerImg&(i%): NEXT i%
2688.     FOR i% = 0 TO 17: _FREEIMAGE GndItemsImg&(i%): NEXT i%
2689.     FOR i% = 0 TO 5: _FREEIMAGE HeartImg&(i%): NEXT i%
2690.     FOR i% = 0 TO 7: _FREEIMAGE HelmImg&(i%): NEXT i%
2691.     FOR i% = 0 TO 7: _FREEIMAGE HeroImg&(i%): NEXT i%
2692.     FOR i% = 0 TO 3: _FREEIMAGE HUDImg&(i%): NEXT i%
2693.     FOR i% = 0 TO 5: _FREEIMAGE KeyImg&(i%): NEXT i%
2694.     FOR i% = 0 TO 7: _FREEIMAGE LightImg&(i%): NEXT i%
2695.     FOR i% = 0 TO 10: _FREEIMAGE LvlImg&(i%): NEXT i%
2696.     FOR i% = 0 TO 3: _FREEIMAGE MoneyImg&(i%): NEXT i%
2697.     FOR i% = 0 TO 1: _FREEIMAGE PaperImg&(i%): NEXT i%
2698.     FOR i% = 0 TO 7: _FREEIMAGE PortalImg&(i%): NEXT i%
2699.     FOR i% = 0 TO 7: _FREEIMAGE PotionImg&(i%): NEXT i%
2700.     FOR i% = 0 TO 7: _FREEIMAGE ShieldImg&(i%): NEXT i%
2701.     FOR i% = 0 TO 5: _FREEIMAGE SpellImg&(i%): NEXT i%
2702.     FOR i% = 0 TO 7: _FREEIMAGE SwordImg&(i%): NEXT i%
2703.     FOR i% = 0 TO 2: _FREEIMAGE ThrowImg&(i%): NEXT i%
2704.     FOR i% = 0 TO 7: _FREEIMAGE WandImg&(i%): NEXT i%
2705.     FOR i% = 0 TO 23: _FREEIMAGE WorldImg&(i%): NEXT i%
2706.     _FREEIMAGE BlankImg&
2707. END SUB
2708. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2709.  

[NOVARSEG]

Hi Juan Tamarit

This is just a guess because I have not tested the code

• orgFile& = FREEFILE 'we need two filehandles: one for origin file,
          destFile& = FREEFILE '       and another for destination file
          OPEN "town.txt" FOR INPUT AS #orgFile& '    e will extract info from this file
          OPEN "tmp.txt" FOR OUTPUT AS #destFile& '

[/size]

orgFile& = FREEFILE 'we need two filehandles: one for origin file,
       
OPEN "town.txt" FOR INPUT AS #orgFile& '    e will extract info from this file
       
destFile& = FREEFILE '       and another for destination file

OPEN "tmp.txt" FOR OUTPUT AS #destFile& '

[FellippeHeitor]

NOVARSEG is correct. The FREEFILE function won't return a new handle unless the previous one it output is actually used to open a file.

[NOVARSEG]

The clue was here

I'm having an error that stands "file already open", particularly in line "OPEN "tmp.txt" FOR OUTPUT AS #destFile&".

[Juan Tamarit]

Thank you guys. I solved it. Just a +1 after the second FREEFILE. But i understand what you say: until i don't use the handle for opening the file it won't give me a new one, right? That's why this +1 trick works, isn't it? Ok, i'll switch the order for fitting. Thanks again

[Cobalt]

very NES Zelda-esk looking.

Question that came up to my mind: do i need to have all these images loaded in variable arrays? Or is there a better an more efficient way to do this? I tried using a function where i loaded a main image, assign what i needed to a tmp&() array, coded the series of decision to choose wich of the indexes i wanted, assign that handle to the function, _freeing the file and exit the function... i didn't worked. Guess that _FREEIMAGE the handle and leaving the function leaves the function without nothing, right?

as with the Bman  I'm not totally sure what your getting at, unless of course you are old skool GETing and PUTing the sprites with an array?!

[Juan Tamarit]

Yo dear bro Cobalt. Yes, i'm using an array of longs to place the images. I was asking if there was real need for doing so. b+ mentioned that yes, it was necessary, but also a function could be done with a unique tileset. But for the moment the various arrays for each kind of image makes the code more redable.

Thanks again to all you people for the help and support, even in the most silly questions.

Now, i have new doubts and problems. I'll try to be as much clear as i can: theres an UDT (User Data Type) array called Items, with and index length of just 1, index 0, and its global (SHARED on main module). When the SUB dropItemToGround happens the idea was to increase this array size by one and _PRESERVE, getting a UBOUND(Items) of 1, and then variables of the item that was holded by the hand (inHand is a variable used to manipulate items on the inventory) should suposed to be copied to this new array index. That seems to be working just fine, the item once it's on the ground outputs the rigth data (name, etc.)...

BUT, and here's the trouble, the SUB pickItemFromGround was suposed to do exactly the oposite, transfer the "item on the ground" data to a free slot in the inventory (determined by the FUNCTION lookForSpaceInPocket%, that retrieves the slot number if there's any, or 0 if not). After that the array should be reduced by one (there is some checking for case of last item in the array, but nothing very differrent from other case).

Code: QB64: [Select]

1. SUB dropItemToGround ()
2.     REDIM _PRESERVE Items(UBOUND(Items) + 1) AS OBJECT 'Increase the Items array index by one
3.     Items(UBOUND(Items)).x = Hero.x '¿                  Item will be dropped
4.     Items(UBOUND(Items)).y = Hero.y '¾                  at players feet
5.     Items(UBOUND(Items)).kind = inHand.kind '      ¿
6.     Items(UBOUND(Items)).lvl = inHand.lvl '        ³    We place in this new index
7.     Items(UBOUND(Items)).ammount = inHand.ammount '³    all the data
8.     Items(UBOUND(Items)).special = inHand.special '³    relataed to the item
9.     Items(UBOUND(Items)).map = actualMapWorking%% '¾
10.     cleanYourHand '                                     And clean all the variables from the "hand"
11. END SUB
12. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
13. SUB pickItemFromGround (indexOfItem%)
14.     IF lookForSpaceInPocket% THEN '                                                 if theres place in your pocket
15.         IF indexOfItem% = UBOUND(Items) THEN '                                      and that item is the last one of the array
16.             Pocket(lookForSpaceInPocket%).kind = Items(idexOfItem%).kind '      ¿
17.             Pocket(lookForSpaceInPocket%).lvl = Items(idexOfItem%).lvl '        ³   Transfer the data of the item to
18.             Pocket(lookForSpaceInPocket%).ammount = Items(idexOfItem%).ammount '³   the free place on Pocket
19.             Pocket(lookForSpaceInPocket%).special = Items(idexOfItem%).special '¾
20.             REDIM _PRESERVE Items(UBOUND(Items) - 1) AS OBJECT '                    and reduce the array by one (destroying the last one)
21.         ELSE ' but if the item is not the last one of the array
22.             Pocket(lookForSpaceInPocket%).kind = Items(idexOfItem%).kind '      ¿
23.             Pocket(lookForSpaceInPocket%).lvl = Items(idexOfItem%).lvl '        ³   Transfer the data of the item to
24.             Pocket(lookForSpaceInPocket%).ammount = Items(idexOfItem%).ammount '³   the free place on Pocket
25.             Pocket(lookForSpaceInPocket%).special = Items(idexOfItem%).special '¾
26.             Items(indexOfItem%).x = Items(UBOUND(Items)).x '                    ¿
27.             Items(indexOfItem%).y = Items(UBOUND(Items)).y '                    ³
28.             Items(indexOfItem%).kind = Items(UBOUND(Items)).kind '              ³   copy all the data of the last item
29.             Items(indexOfItem%).lvl = Items(UBOUND(Items)).lvl '                ³   in the array to this index of the array,
30.             Items(indexOfItem%).ammount = Items(UBOUND(Items)).ammount '        ³   overwriting the item we just picked
31.             Items(indexOfItem%).special = Items(UBOUND(Items)).special '        ³
32.             Items(indexOfItem%).map = Items(UBOUND(Items)).map '                ¾
33.             REDIM _PRESERVE Items(UBOUND(Items) - 1) AS OBJECT '                    now we can eliminate the last item of the array (it has been copied to the picked item index)
34.         END IF
35.     ELSE '                                                                          if you have no room in pocket
36.         HUDpromt$ = "You have no room on your pocket" '                             you should be aware of it
37.     END IF
38. END SUB

Running the program the item can be dropped to ground and picked up, but when you wan't to see it's image the function that is suposed to calculate such image brings an error "Subscript out of range", and it confuses completly wich image should be shown, as if the item variables were not copied back to the inventory.

What can be possibly wrong here? This sounded like perfect sense to me when i wrote it... what do you guys think? Is the problem clear or more specifications are required?

Cheers bros.

[Juan Tamarit]

Hello again. Well, i found the issue: the FUNCTION lookForSpaceInPocket% uses the variable .kind of the Items array, so i was wrong by changing it first to the inventory, has to be the last data trasfered. This avois collapse, but now the item identity is changing and by some reason Pocket().kind and Pocket().lvl are both equal to 0. I will have to find why the data is not being transfered.  Wish me luck on that.

I also added motion to the character based on the WorldTiles%%(), checked the different diection from ehre the character can approach the new position and display arrow accordingly.

I was thinking that maybe the items should work as a stack, since im stacking them when i drop them to the ground, but i don't know how to implement a structure of First In-Last Out.

I also changed the asset wolrd.png to better suit the code and future tile draws that i fell there are missing for more possible ambients (very Mendeleiev style).

I will mention any other advances i'll make. For the moment i have to fix these thing.

Cheers bros, and thanks anyway for the help.

[Juan Tamarit]

WOW! Just found the problem! =) wrong spelling of a variable name and solved. Wroted "idexOfItem%" instead of "indexOfItem%". Sometimes i scare myself. So items can be dropped an picked from the ground, no problems. I'll keep up if theres any more news. Cheeeeers!

[Juan Tamarit]

Hello nice people from the QB64 forum! Me again with a new doubt i can't figure, but i have a guess. In the following pice of code:

Code: QB64: [Select]

1. DIM tmp$
2.  
3. DO
4.     CLS
5.     tmp$ = ""
6.     IF _KEYDOWN(19200) AND _KEYDOWN(20480) THEN
7.         tmp$ = "Down & left"
8.     ELSEIF _KEYDOWN(19712) AND _KEYDOWN(20480) THEN
9.         tmp$ = "Down & right"
10.     ELSEIF _KEYDOWN(19200) AND _KEYDOWN(18432) THEN
11.         tmp$ = "Up & left"
12.     ELSEIF _KEYDOWN(19712) AND _KEYDOWN(18432) THEN
13.         tmp$ = "Up & right"
14.     ELSEIF _KEYDOWN(20480) THEN
15.         tmp$ = "Down"
16.     ELSEIF _KEYDOWN(19200) THEN
17.         tmp$ = "Left"
18.     ELSEIF _KEYDOWN(19712) THEN
19.         tmp$ = "Right"
20.     ELSEIF _KEYDOWN(18432) THEN
21.         tmp$ = "Up"
22.     END IF
23.     IF _KEYDOWN(32) THEN tmp$ = tmp$ + " Spacebar"
24.     PRINT tmp$;
25.     _DISPLAY
26.     _LIMIT 60
27. LOOP UNTIL _KEYDOWN(27)
28. SYSTEM

I can never get the phrase "Down & left Spacebar" OR "Down & right Spacebar" OR "Up & left Spacebar" OR "Up & right Spacebar"

My guessing: _KEYDOWN() can't read more that two keys at the same time... otherwise i can't figure what is happening. I'll wait for your opinions, suggestions, critics, press rolls or whatever.

On the other hand and good news: the project still advancing at good peace. There's already a commerce system for the items, recharging wands and identifying unidientified objects (of course, lol). A crude system of motion, interaction with some chests and stuff and we can combat with monsters with a ridiculous AI, but functional. I'll promise that ' will upload it as soon as have the "basic engine" working (i started to feel a bit wrong to bother you people with every single advance i make, even if it is very significative or surpraising to me). The game is ABSOLUTLY unbalanced, and i'm working hard on the commenting, so can be as much clear possible to everyone trying to read it.

By the way, i just downloaded the QB64 version 1.5, it's neat! Thanks again to the developers for creating this powerful and beatiful tool, and allowing people to download it. I really feel that with this compiler you can build ANYTHING. Be sure: you will be in the credits of the project, lol.

Ok, so i'll wait for your replies. Thanks before hand and cheers to all.

[bplus]

Confirm spacebar not always showing up. For me, down left spacebar does show but not down right spacebar.

Have you tried _KEYHIT or combos of _KEYDOWN and _KEYHIT?

@SMcNeill has worked up alternate key system(s) fixes try searching?

[Juan Tamarit]

Dear bro bPlus, thanks for your reply. I have tried these different methods. Excuse me if they aren't very smart, but they matches their author:

Code: QB64: [Select]

1. 'Problem with combination of arrows, Ctrl, Shift, Alt and the Spacebar
2.  
3. CONST FALSE = 0: CONST TRUE = NOT FALSE
4. '° CASE 0 °- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
5. DIM SHARED key$
6.  
7. DIM SHARED tmp$
8.  
9. DIM SHARED Spacebar%
10. DIM SHARED Ctrl%
11. DIM SHARED Shift%
12. DIM SHARED Alt%
13.  
14.  
15. DIM SHARED left%
16. DIM SHARED right%
17. DIM SHARED up%
18. DIM SHARED down%
19.  
20. 'FUNNY: in all cases "Up & right" seems to work okay with any other key, what's wrong with the others?
21.  
22. DO
23.     CLS
24.     key$ = ""
25.     tmp$ = ""
26.     Spacebar% = FALSE
27.     Ctrl% = FALSE
28.     Shift% = FALSE
29.     Alt% = FALSE
30.  
31.     registerArrows
32.  
33.  
34.  
35.     'CHANGE MY NUMBER to see different methods
36.     method5
37.  
38.     IF Spacebar% THEN
39.         tmp$ = tmp$ + " + Spacebar"
40.     ELSEIF Ctrl% THEN
41.         tmp$ = tmp$ + " + Ctrl"
42.     ELSEIF Shift% THEN
43.         tmp$ = tmp$ + " + Shift"
44.     ELSEIF Alt% THEN
45.         tmp$ = tmp$ + " + Alt"
46.     END IF
47.  
48.     PRINT tmp$;
49.     _DISPLAY
50.     _LIMIT 60
51. LOOP UNTIL _KEYDOWN(27)
52. SYSTEM
53. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
54. SUB method5 () 'using _KEYHIT, using the long to decide what's TRUE
55.  
56.     DIM keyhitLong&
57.  
58.     keyhitLong& = _KEYHIT
59.  
60.     IF keyhitLong& = 32 THEN Spacebar% = TRUE
61.     IF keyhitLong& = 100306 THEN Ctrl% = TRUE
62.     IF keyhitLong& = 100304 THEN Shift% = TRUE
63.     IF keyhitLong& = 100308 THEN Alt% = TRUE
64.  
65.     'Same result as method2, but with some flickering and  not continuous
66.  
67. END SUB
68. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
69. SUB method4 () 'using _KEYDOWN directly as the variable%, but with _KEYCLEAR before
70.  
71.     _KEYCLEAR ' MAYBE CLEARING THE BUFFER BEFORE?
72.  
73.     Spacebar% = _KEYDOWN(32)
74.     Ctrl% = _KEYDOWN(100306)
75.     Shift% = _KEYDOWN(100304)
76.     Alt% = _KEYDOWN(100308)
77.  
78.     'Combinations that didn't worked in this case:
79.     '   "Left & down + Spacebar"
80.     '   "Left & up + Alt"
81.     '   "Left & up + Spacebar"
82.     '   "Right & down + Spacebar"
83.  
84.     'Same result as method2, _KEYCLEAR seem to clear the buffer readed by INKEY$, but _KEYDOWN() takes directly from keyboiard hardware?
85. END SUB
86. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
87. SUB method3 () 'using _KEYDOWN directly as the variable%
88.  
89.     Spacebar% = _KEYDOWN(32)
90.     Ctrl% = _KEYDOWN(100306)
91.     Shift% = _KEYDOWN(100304)
92.     Alt% = _KEYDOWN(100308)
93.  
94.     'Combinations that didn't worked in this case:
95.     '   "Left & down + Spacebar"
96.     '   "Left & up + Alt"
97.     '   "Left & up + Spacebar"
98.     '   "Right & down + Spacebar"
99.  
100.     'Same result as method2
101. END SUB
102. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
103. SUB method2 () 'using _KEYDOWN to change variables%
104.  
105.     IF _KEYDOWN(32) THEN Spacebar% = TRUE
106.     IF _KEYDOWN(100306) THEN Ctrl% = TRUE
107.     IF _KEYDOWN(100304) THEN Shift% = TRUE
108.     IF _KEYDOWN(100308) THEN Alt% = TRUE
109.  
110.     'Combinations that didn't worked in this case:
111.     '   "Left & down + Spacebar"
112.     '   "Left & up + Alt"
113.     '   "Left & up + Spacebar"
114.     '   "Right & down + Spacebar"
115.  
116. END SUB
117. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
118. SUB method1 () ' using INKEY$ to see the spacebar
119.  
120.     key$ = INKEY$
121.     IF key$ <> "" THEN
122.         IF key$ = CHR$(32) THEN
123.             Spacebar% = TRUE
124.         END IF
125.     END IF
126.  
127.     'Combinations that didn't worked in this case:
128.     '   "Up & left + Spacebar"
129.     '   "Down & left + Spacebar"
130.     '   "Down & right + Spacebar"
131.  
132. END SUB
133. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
134. SUB registerArrows ()
135.  
136.     IF _KEYDOWN(19200) THEN ' left
137.     left% = TRUE: ELSE: left% = FALSE: END IF
138.     IF _KEYDOWN(19712) THEN ' right
139.     right% = TRUE: ELSE: right% = FALSE: END IF
140.     IF _KEYDOWN(18432) THEN ' up
141.     up% = TRUE: ELSE: up% = FALSE: END IF
142.     IF _KEYDOWN(20480) THEN ' down
143.     down% = TRUE: ELSE: down% = FALSE: END IF
144.     IF left% AND up% THEN
145.         tmp$ = "Left & Up"
146.     ELSEIF left% AND down% THEN: tmp$ = "Left & Down"
147.     ELSEIF right% AND up% THEN: tmp$ = "Right & Up"
148.     ELSEIF right% AND down% THEN: tmp$ = "Right & Down"
149.     ELSEIF left% THEN: tmp$ = "Left"
150.     ELSEIF right% THEN: tmp$ = "Right"
151.     ELSEIF up% THEN: tmp$ = "Up"
152.     ELSEIF down% THEN: tmp$ = "Down": END IF
153.     '_KEYCLEAR ' this didn't changed anything
154. END SUB

I wasn't aware about the McNeil post, i will check them and come back if i find anything related to this. Thanks again.