QB64.org Forum

Active Forums => Programs => Topic started by: Juan Tamarit on September 24, 2020, 01:12:13 am

Title: Fantasy
Post by: Juan Tamarit on September 24, 2020, 01:12:13 am

I'm working on an RPG and i'm having a problem that i cant explain. I have an array with little hearts images for drawing life of the character and i did the following serires of IF...THEN & SELECT CASE...END SELECT statements:

Code: QB64: [Select]

1.     lifeAsPercent% = CINT((Hero.life * 100) / Hero.maxLife) ' calculate percentage
2.  
3.     IF lifeAsPercent% > 99 THEN
4.         _PUTIMAGE (32, 3), LifeImg&(0)
5.         _PUTIMAGE (40, 3), LifeImg&(0)
6.         _PUTIMAGE (48, 3), LifeImg&(0)
7.         _PUTIMAGE (56, 3), LifeImg&(0)
8.     ELSE
9.         IF lifeAsPercent% > 74 THEN
10.             _PUTIMAGE (32, 3), LifeImg&(0)
11.             _PUTIMAGE (40, 3), LifeImg&(0)
12.             _PUTIMAGE (48, 3), LifeImg&(0)
13.             SELECT CASE lifeAsPercent%
14.                 CASE 99 TO 95: _PUTIMAGE (56, 3), LifeImg&(1)
15.                 CASE 94 TO 90: _PUTIMAGE (56, 3), LifeImg&(2)
16.                 CASE 89 TO 85: _PUTIMAGE (56, 3), LifeImg&(3)
17.                 CASE 84 TO 80: _PUTIMAGE (56, 3), LifeImg&(4)
18.                 CASE 79 TO 75: _PUTIMAGE (56, 3), LifeImg&(5)
19.             END SELECT
20.         ELSE
21.             IF lifeAsPercent% > 49 THEN
22.                 _PUTIMAGE (32, 3), LifeImg&(0)
23.                 _PUTIMAGE (40, 3), LifeImg&(0)
24.                 _PUTIMAGE (56, 3), LifeImg&(5)
25.                 SELECT CASE lifeAsPercent%
26.                     CASE 74 TO 70: _PUTIMAGE (48, 3), LifeImg&(1)
27.                     CASE 69 TO 65: _PUTIMAGE (48, 3), LifeImg&(2)
28.                     CASE 64 TO 60: _PUTIMAGE (48, 3), LifeImg&(3)
29.                     CASE 59 TO 55: _PUTIMAGE (48, 3), LifeImg&(4)
30.                     CASE 54 TO 50: _PUTIMAGE (48, 3), LifeImg&(5)
31.                 END SELECT
32.             ELSE
33.                 IF lifeAsPercent% > 24 THEN
34.                     _PUTIMAGE (32, 3), LifeImg&(0)
35.                     _PUTIMAGE (48, 3), LifeImg&(5)
36.                     _PUTIMAGE (56, 3), LifeImg&(5)
37.                     SELECT CASE lifeAsPercent%
38.                         CASE 49 TO 45: _PUTIMAGE (40, 3), LifeImg&(1)
39.                         CASE 44 TO 40: _PUTIMAGE (40, 3), LifeImg&(2)
40.                         CASE 39 TO 35: _PUTIMAGE (40, 3), LifeImg&(3)
41.                         CASE 34 TO 30: _PUTIMAGE (40, 3), LifeImg&(4)
42.                         CASE 29 TO 25: _PUTIMAGE (40, 3), LifeImg&(5)
43.                     END SELECT
44.                 ELSE
45.                     _PUTIMAGE (40, 3), LifeImg&(5)
46.                     _PUTIMAGE (48, 3), LifeImg&(5)
47.                     _PUTIMAGE (56, 3), LifeImg&(5)
48.                     SELECT CASE lifeAsPercent%
49.                         CASE 24 TO 20: _PUTIMAGE (32, 3), LifeImg&(1)
50.                         CASE 19 TO 15: _PUTIMAGE (32, 3), LifeImg&(2)
51.                         CASE 14 TO 10: _PUTIMAGE (32, 3), LifeImg&(3)
52.                         CASE 9 TO 5: _PUTIMAGE (32, 3), LifeImg&(4)
53.                         CASE 4 TO 0: _PUTIMAGE (32, 3), LifeImg&(5)
54.                     END SELECT
55.                 END IF ' > 24
56.             END IF ' > 49
57.         END IF ' > 74
58.     END IF ' > 99

now, by some reason i can't figure it never enters the SELECT CASE...END SELECT statements. The if are working properly, but when it's suposed to get inside the corresponding SELECT CASE...END SELECT it dosn't. Is this construction i made wrong? And if it is wheres the mistake? I chequed the wiki and seems to be that what im doing is logical and ok... Any ideas on this?

Title: Re: Fantasy
Post by: bplus on September 24, 2020, 01:21:30 am

Try putting all IF's on same level:

Code: QB64: [Select]

1. lifeAsPercent% = CINT((Hero.life * 100) / Hero.maxLife) ' calculate percentage
2.  
3. IF lifeAsPercent% > 99 THEN
4.     _PUTIMAGE (32, 3), LifeImg&(0)
5.     _PUTIMAGE (40, 3), LifeImg&(0)
6.     _PUTIMAGE (48, 3), LifeImg&(0)
7.     _PUTIMAGE (56, 3), LifeImg&(0)
8.  
9. ELSEIF lifeAsPercent% > 74 THEN
10.     _PUTIMAGE (32, 3), LifeImg&(0)
11.     _PUTIMAGE (40, 3), LifeImg&(0)
12.     _PUTIMAGE (48, 3), LifeImg&(0)
13.     SELECT CASE lifeAsPercent%
14.         CASE 99 TO 95: _PUTIMAGE (56, 3), LifeImg&(1)
15.         CASE 94 TO 90: _PUTIMAGE (56, 3), LifeImg&(2)
16.         CASE 89 TO 85: _PUTIMAGE (56, 3), LifeImg&(3)
17.         CASE 84 TO 80: _PUTIMAGE (56, 3), LifeImg&(4)
18.         CASE 79 TO 75: _PUTIMAGE (56, 3), LifeImg&(5)
19.     END SELECT
20.  
21. ELSEIF lifeAsPercent% > 49 THEN
22.     _PUTIMAGE (32, 3), LifeImg&(0)
23.     _PUTIMAGE (40, 3), LifeImg&(0)
24.     _PUTIMAGE (56, 3), LifeImg&(5)
25.     SELECT CASE lifeAsPercent%
26.         CASE 74 TO 70: _PUTIMAGE (48, 3), LifeImg&(1)
27.         CASE 69 TO 65: _PUTIMAGE (48, 3), LifeImg&(2)
28.         CASE 64 TO 60: _PUTIMAGE (48, 3), LifeImg&(3)
29.         CASE 59 TO 55: _PUTIMAGE (48, 3), LifeImg&(4)
30.         CASE 54 TO 50: _PUTIMAGE (48, 3), LifeImg&(5)
31.     END SELECT
32.  
33. ELSEIF lifeAsPercent% > 24 THEN
34.     _PUTIMAGE (32, 3), LifeImg&(0)
35.     _PUTIMAGE (48, 3), LifeImg&(5)
36.     _PUTIMAGE (56, 3), LifeImg&(5)
37.     SELECT CASE lifeAsPercent%
38.         CASE 49 TO 45: _PUTIMAGE (40, 3), LifeImg&(1)
39.         CASE 44 TO 40: _PUTIMAGE (40, 3), LifeImg&(2)
40.         CASE 39 TO 35: _PUTIMAGE (40, 3), LifeImg&(3)
41.         CASE 34 TO 30: _PUTIMAGE (40, 3), LifeImg&(4)
42.         CASE 29 TO 25: _PUTIMAGE (40, 3), LifeImg&(5)
43.     END SELECT
44.  
45. ELSE
46.     _PUTIMAGE (40, 3), LifeImg&(5)
47.     _PUTIMAGE (48, 3), LifeImg&(5)
48.     _PUTIMAGE (56, 3), LifeImg&(5)
49.     SELECT CASE lifeAsPercent%
50.         CASE 24 TO 20: _PUTIMAGE (32, 3), LifeImg&(1)
51.         CASE 19 TO 15: _PUTIMAGE (32, 3), LifeImg&(2)
52.         CASE 14 TO 10: _PUTIMAGE (32, 3), LifeImg&(3)
53.         CASE 9 TO 5: _PUTIMAGE (32, 3), LifeImg&(4)
54.         CASE 4 TO 0: _PUTIMAGE (32, 3), LifeImg&(5)
55.     END SELECT
56. END IF
57.  

Title: Re: Fantasy
Post by: Juan Tamarit on September 24, 2020, 08:11:26 am

Dear bro B+! Sup? I tried and didn't work. =( But thanks anyway for the suggestion =)

I don't understand what is wrong with the original code i presented, seems so logical to me... The ELSEIF has the same output on the screen.

By the way, and since we are talking about IF's : what's the advantage on the ELSEIF's over the more conventional aproach of ELSE's? (besides cleaner code, now that i see it it a lot less indentend)

This looks annoying! Any more suggestions?

Title: Re: Fantasy
Post by: bplus on September 24, 2020, 11:03:08 am

Fresh in the morning now I see the problem clear as a bell!

BTW the advantage = cleaner code is exactly right!

So crispy clean it's obvious what the problem is!

EDIT: remove redundant code block

OK at first I thought missing or overlapping blocks, nope not that.

Now ALL these might be wrong:

Code: QB64: [Select]

1. CASE 94 TO 90

I've never see CASE X TO Y and I certainly am surprised that Y is less than X

Try an experiment:

Code: QB64: [Select]

1. FOR x = 1 TO 10
2.     SELECT CASE x
3.         CASE 10 TO 5: PRINT "I am a high level x"
4.         CASE 5 TO 0: PRINT "I am a low level x"
5.         CASE ELSE: PRINT "You should not see me in this code!"
6.     END SELECT
7. NEXT
8.  

Yep! disaster! Here is the fix

Code: QB64: [Select]

1. FOR x = 1 TO 10
2.     SELECT CASE x
3.         CASE 6, 7, 8, 9, 10: PRINT "I am a high level x"
4.         CASE 1, 2, 3, 4, 5: PRINT "I am a low level x"
5.         CASE ELSE: PRINT "You should not see me in this code!"
6.     END SELECT
7. NEXT
8.  

Here is a better fix:

Code: QB64: [Select]

1. FOR x = 1 TO 10
2.     SELECT CASE x
3.         CASE IS > 5: PRINT "I am a high level x"
4.         CASE IS > 0: PRINT "I am a low level x"
5.         CASE ELSE: PRINT "You should not see me in this code!"
6.     END SELECT
7. NEXT
8.  
9.  

Title: Re: Fantasy
Post by: bplus on September 24, 2020, 11:44:00 am

Ha! even this works! Just put the lower number first.

Code: QB64: [Select]

1. FOR x = 1 TO 10
2.     SELECT CASE x
3.         CASE 5 TO 10: PRINT "I am a high level x"
4.         CASE 0 TO 5: PRINT "I am a low level x"
5.         CASE ELSE: PRINT "You should not see me in this code!"
6.     END SELECT
7. NEXT
8.  

Title: Re: Fantasy
Post by: Juan Tamarit on September 24, 2020, 11:32:36 pm

broooooo, what can i say? how you do it?

i would never tought that the order matters on this! Thanks for the lesson! It will be well used. How did you came to this?

Title: Re: Fantasy
Post by: bplus on September 25, 2020, 09:13:02 am

Quote

How did you came to this?

:) well you saw my experiment. I knew SELECT CASE works when you tell it to do something nicely.

Different Basics have slight differences in syntax, so I just played with simple example until it worked, didn't take long. Another good resource is Wiki or Help files or this forum :)

Title: Re: Fantasy
Post by: SpriggsySpriggs on September 25, 2020, 11:23:00 am

I figured it was the CASEs having the values in the wrong spot but I didn't want to say it without knowing for sure. Glad you two figured it out!

Title: Re: Fantasy
Post by: bplus on September 25, 2020, 11:43:31 am

Yes and I am glad to learn SELECT CASE recognizes the TO keyword with a demo how to use it.

Title: Re: Fantasy
Post by: Cobalt on September 25, 2020, 12:05:04 pm

Quote from: bplus on September 25, 2020, 11:43:31 am

Yes and I am glad to learn SELECT CASE recognizes the TO keyword with a demo how to use it.

Wow I would have thought this was common knowledge, my bad.

Guess when you use certain things enough it starts to feel like second nature and you don't think twice about it.
When I originally saw you had posted to this I thought you would have had the issue nailed in the first few lines of your post(you normally do) so I didn't bother.

Title: Re: Fantasy
Post by: bplus on September 25, 2020, 01:12:25 pm

Quote from: Cobalt on September 25, 2020, 12:05:04 pm

Wow I would have thought this was common knowledge, my bad.

Guess when you use certain things enough it starts to feel like second nature and you don't think twice about it.
When I originally saw you had posted to this I thought you would have had the issue nailed in the first few lines of your post(you normally do) so I didn't bother.

I am favorable to IF ELSEIF ELSE ENDIF because I don't have to remember which Basic set of rules I have to follow for SELECT CASE when dealing with ranges. QB64 just translates to IF ELSEIF ELSE ENDIF anyway. But it does look neater doing CASE with colon, less lines.

Title: Re: Fantasy
Post by: Juan Tamarit on June 13, 2021, 07:51:48 pm

Hello there!

I lost contact with this project for a long time, and i have come back to it. The idea is to get an turn based RPG, very simple one, Diablo style but for turns: the player has his turn first, he performs an action and then one by one the enemies in the actual map perform in response.

I did some very good advances in the inventory system, but i still think that im too newbie and start to feel like im making spaghetti here. Also im quite lost about how to make a turn based system inside a loop. I know that the loop is limited to 60Hz, so i could do some math and follow a variable, but im not sure exactly how that could come in handy for the needs im thinking. I would appreciate all class of comments and critics, i really need them in this moment.

I also want to excuse myself for my english too, not really english-speaker, but i try to do my best. If theres any english related corrections on the code i would appreciate the mention.

As the full thing is in procces it's more than messy.

Code: QB64: [Select]

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

Title: Re: Fantasy
Post by: Juan Tamarit on June 15, 2021, 12:03:27 am

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?

Title: Re: Fantasy
Post by: bplus on June 15, 2021, 08:12:11 am

Quote from: Juan Tamarit on June 15, 2021, 12:03:27 am

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?

Not clear what you are asking.

Quote

do i need to have all these images loaded in variable arrays?

Do you mean saving the loaded image handles in an array? Yes, specially a Shared array if you have many that are associated with each other.

On the other hand working from a sheet of images you might use functions to _PUTIMAGE sections from that sheet, so just one handle for whole sheet Shared with those Function(s) that get particular parts of sheet.

Actually probably would use Subs not functions with _PutImage for showing sections of sheet image.

Title: Re: Fantasy
Post by: Juan Tamarit on June 15, 2021, 05:27:55 pm

Ok. Thank for replying, dear bro b+. Very interesting idea of FUNC or SUBS for using only the main sheet, i kind of loaded it in diferent pieces and then _freeit, from there on i just work with the pieces. By the way ¿Is this more memory consuming or is the same? Is the same, right?

Im reorganizing this program a bit. I felt like the general program was a disorder, too much focused on the menus, forcing me to get into another loop for working with the enemies, etc... Im gonna try to fit everything in a single loop and take the focus out of the menus a bit. Hard maintance work i guess. Also modding the aspect of things a bit. I'll come back when i have it more organized and nice.

I still open to comments, opinions, critics, everything

Cheers

Title: Re: Fantasy
Post by: Juan Tamarit on June 18, 2021, 12:57:20 pm

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?

Title: Re: Fantasy
Post by: FellippeHeitor on June 18, 2021, 01:42:32 pm

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).

Title: Re: Fantasy
Post by: Juan Tamarit on June 23, 2021, 05:06:03 pm

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!

Title: Re: Fantasy
Post by: Juan Tamarit on June 23, 2021, 05:28:26 pm

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.  

Title: Re: Fantasy
Post by: NOVARSEG on June 24, 2021, 10:55:49 pm

Hi Juan Tamarit

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

Quote

• 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& '

Title: Re: Fantasy
Post by: FellippeHeitor on June 24, 2021, 11:01:01 pm

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.

Title: Re: Fantasy
Post by: NOVARSEG on June 24, 2021, 11:15:37 pm

The clue was here

Quote

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

Title: Re: Fantasy
Post by: Juan Tamarit on June 25, 2021, 12:57:00 am

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

Title: Re: Fantasy
Post by: Cobalt on June 25, 2021, 11:12:35 pm

very NES Zelda-esk looking.

Quote from: Juan Tamarit on June 15, 2021, 12:03:27 am

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?!

Title: Re: Fantasy
Post by: Juan Tamarit on June 27, 2021, 04:51:31 am

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.

Title: Re: Fantasy
Post by: Juan Tamarit on July 02, 2021, 03:47:59 am

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.

Title: Re: Fantasy
Post by: Juan Tamarit on July 02, 2021, 04:10:07 am

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!

Title: Re: Fantasy
Post by: Juan Tamarit on July 19, 2021, 10:19:30 pm

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.

Title: Re: Fantasy
Post by: bplus on July 20, 2021, 07:52:56 am

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?

Title: Re: Fantasy
Post by: Juan Tamarit on July 21, 2021, 12:56:16 am

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.

Text Only | Text with Attachments