Phantasy Star I:Some Progress being made.

[Cobalt]

Tell me what you think guys. Almost have the first town completely interactive. You can enter the houses and shops and talk with locals.
There is one house thats not done yet, so his door is locked. :)  and there is a 🐞 in the Second Hand shop so you can't access the BUY menu. not sure on that yet, just saw it when I made sure the combined code ran. you can exit the town and explore the map though collision checking is on now so you can only travel a small area of the 1st world map. You can enter any town you can see. the caves are still out yet so no exploring there. that will be once the towns and villages are stocked with NPCs.  There are a few missing NPCs in the first town, as I have been focusing on getting the buildings working.

Controls are:
Arrow Keys - Movement
ENTER - to progress dialogs\ make choices

and as always don't forget the MFI file below.

Code: QB64: [Select]

1. 'World of Palma; Exploration demo update
2. '6/26/2021
3. 'Collision checking ON version
4. 'Cobalt
5.  
6. REM'$include:'PS1_Types.bas'
7. REM'$include:'PS1_Arrays.bas'
8. REM'$include:'PS1_Const.bas'
9. TYPE ControllerKeys
10.  KBCon_Up AS LONG
11.  KBCon_Down AS LONG
12.  KBCon_Left AS LONG
13.  KBCon_Right AS LONG
14.  KBCon_Select AS LONG
15.  KBCon_Start AS LONG
16.  KBCon_A_Button AS LONG
17.  KBCon_B_Button AS LONG
18.  
19.  Control_Pad AS _BYTE 'which Gamepad\Joystick Device Is player Using?
20.  BAD_Pad AS _BYTE 'option for Buttons As Directions
21.  Joy_Up AS _BYTE 'axis for up
22.  Joy_Up_Val AS _BYTE 'axis value for up
23.  Joy_Down AS _BYTE 'axis for down
24.  Joy_Down_Val AS _BYTE 'axis value for down
25.  Joy_Left AS _BYTE 'axis for left
26.  Joy_Left_Val AS _BYTE 'axis value for left
27.  Joy_Right AS _BYTE 'axis for right
28.  Joy_Right_Val AS _BYTE 'axis value for right
29.  Joy_Select AS _BYTE
30.  Joy_Start AS _BYTE
31.  Joy_A_Button AS _BYTE
32.  Joy_B_Button AS _BYTE
33.  Joy_Button_Up AS _BYTE 'for people whos controllers give BUTTON states for direction keys
34.  Joy_Button_Down AS _BYTE 'or just want to use buttons for the direction keys.
35.  Joy_Button_Left AS _BYTE '""""
36.  Joy_Button_Right AS _BYTE 'however this fails to work so may not be implemented.
37. END TYPE
38.  
39. TYPE Player
40.  N AS STRING * 4
41.  Hp AS INTEGER
42.  Mp AS INTEGER
43.  MHp AS _UNSIGNED _BYTE
44.  MMp AS _UNSIGNED _BYTE
45.  Attk AS _UNSIGNED _BYTE
46.  Defn AS _UNSIGNED _BYTE
47.  Level AS _BYTE
48.  Exp AS _UNSIGNED INTEGER
49.  Wepn AS _BYTE
50.  Armr AS _BYTE
51.  Shld AS _BYTE
52.  Combat AS _BYTE 'Spells used in combat
53.  NonCombat AS _BYTE 'Spells used out of combat
54.  Wx AS INTEGER 'players map tile location
55.  Wy AS INTEGER
56.  Tx AS _BYTE 'players pixel location when moving, also players dungeon cords
57.  Ty AS _BYTE
58.  Fr AS _BYTE
59.  Is_Intown AS _BYTE
60.  In_Dungeon AS _BYTE
61.  Status AS _BYTE 'stoned, tied up, dead
62. END TYPE
63.  
64. TYPE Encounters
65.  Nam AS STRING * 8 '     Monster name
66.  Hp AS _UNSIGNED _BYTE ' Health
67.  MHp AS _UNSIGNED _BYTE ' Health
68.  Atp AS _UNSIGNED _BYTE ' Attack Power
69.  Dfp AS _UNSIGNED _BYTE ' Defence Power
70.  Exp AS _UNSIGNED _BYTE ' Experiance
71.  Mes AS _UNSIGNED _BYTE ' Meseta(gold)
72.  Num AS _BYTE '           How many show up
73.  Flee AS _UNSIGNED _BYTE 'Difficulty in running away (0-255 where 0 is bad)
74.  Trap AS _BYTE '          is their treasure trapped (0-255 where 0 is good)
75.  Kind AS _UNSIGNED _BYTE 'Kind of trap(arrow or blast)
76.  Drop AS _BYTE '          Item Dropped if any
77.  Odds AS _UNSIGNED _BYTE 'How likey to drop item (0-255 where 0 is no drop)
78.  Talk AS _BYTE '          can talk to normally
79.  Chat AS _BYTE '          can talk to magically
80.  Rope AS _BYTE '          can use rope against
81.  Prot AS _BYTE '          can use protect against
82.  Myst AS _BYTE '          mystery???
83.  Special AS _BYTE '       special attack(rope,cure,fire,ect)
84.  Status AS _BYTE
85. END TYPE
86.  
87. TYPE Monsters
88.  Nam AS STRING * 8 '     Monster name
89.  Hp AS _UNSIGNED _BYTE ' Health
90.  MHp AS _UNSIGNED _BYTE ' Health
91.  Atp AS _UNSIGNED _BYTE ' Attack Power
92.  Dfp AS _UNSIGNED _BYTE ' Defence Power
93.  Exp AS _UNSIGNED _BYTE ' Experiance
94.  Mes AS _UNSIGNED _BYTE ' Meseta(gold)
95.  Num AS _BYTE '           How many show up
96.  Flee AS _UNSIGNED _BYTE 'Difficulty in running away (0-255 where 0 is bad)
97.  Trap AS _BYTE '          is their treasure trapped (0-255 where 0 is good)
98.  Kind AS _UNSIGNED _BYTE 'Kind of trap(arrow or blast)
99.  Drop AS _BYTE '          Item Dropped if any
100.  Odds AS _UNSIGNED _BYTE 'How likey to drop item (0-255 where 0 is no drop)
101.  Talk AS _BYTE '          can talk to normally
102.  Chat AS _BYTE '          can talk to magically
103.  Rope AS _BYTE '          can use rope against
104.  Prot AS _BYTE '          can use protect against
105.  Myst AS _BYTE '          mystery???
106.  Special AS _BYTE '       special attack(rope,cure,fire,ect)
107. END TYPE
108.  
109. TYPE Enter_Exit
110.  Map AS _BYTE
111.  Xloc AS _BYTE
112.  Yloc AS _BYTE
113. END TYPE
114.  
115. TYPE Game_Data
116.  SavedGames AS _BYTE
117.  Sounds_ON AS _BYTE
118.  SFX_Vol AS _BYTE
119.  Music_Vol AS _BYTE
120.  ColorShift AS _BYTE 'Allows selection highlighting for Options menu
121.  Device_Count AS _BYTE
122.  ControlType AS _BYTE
123.  CurrentBGM AS _BYTE
124.  Meseta AS LONG
125.  Party_Size AS _BYTE
126.  In_Battle AS _BYTE
127.  Pack_Count AS _BYTE 'how many items are in the pack
128.  Facing AS _BYTE 'what direction is player facing
129.  Moving AS _BYTE
130.  CurrentFloor AS _BYTE 'what dungeon floor is player on?
131.  Battle_Count AS _BYTE '
132.  Wall_Cast AS _BYTE
133.  Prot_Cast AS _BYTE
134.  Runaway AS _BYTE
135.  Chest_Wait AS _BYTE
136.  Last_Church AS _BYTE 'What was the last church visted by player
137. END TYPE
138.  
139. TYPE Items
140.  Nam AS STRING * 8
141.  Pwr AS _BYTE
142.  Cost AS INTEGER
143.  Alis AS _BYTE
144.  Myau AS _BYTE
145.  Odin AS _BYTE
146.  Noah AS _BYTE
147.  CanSell AS _BYTE
148.  CanDrop AS _BYTE
149.  Is_Type AS _BYTE
150. END TYPE
151.  
152. TYPE PlayerLeveling
153.  HitPts AS _UNSIGNED _BYTE
154.  AttVal AS _UNSIGNED _BYTE
155.  DefVal AS _UNSIGNED _BYTE
156.  MagPts AS _UNSIGNED _BYTE
157.  ExpPts AS _UNSIGNED INTEGER
158.  Combat AS LONG
159.  NonCbt AS LONG
160. END TYPE
161.  
162. TYPE WorldTiles
163.  Id AS _UNSIGNED _BYTE
164.  Is_Walkable AS _BYTE
165.  Is_Animated AS _BYTE
166.  Encounter_Group AS _BYTE 'what types of creature encounters possible
167.  Is_Village AS _BYTE
168.  Is_Cave AS _BYTE 'Covers all Cave-like locations
169.  Display_Layer AS _BYTE '
170.  Search_Item AS _BYTE 'is there something to find? Most of these require a Flag set too
171. END TYPE
172.  
173. TYPE TownTiles
174.  Id AS _UNSIGNED _BYTE
175.  Is_Walkable AS _BYTE
176.  Is_Animated AS _BYTE
177.  Is_NPC_Location AS _BYTE 'where the NPCs stand
178.  Is_Building AS _UNSIGNED _BYTE 'covers shops and houses
179.  Is_Exit AS _BYTE
180.  Search_Item AS _BYTE 'is there something to find? Most of these require a Flag set too
181.  Dialogs AS INTEGER 'used with NPCs in Building for conversations
182.  Setting AS _BYTE 'building inside and npc image to use
183. END TYPE
184.  
185. TYPE Spells
186.  Nam AS STRING * 4
187.  Cost AS _BYTE
188. END TYPE
189.  
190. TYPE KeyCodeData
191.  Nam AS STRING * 8
192.  Value AS LONG
193. END TYPE
194.  
195. TYPE DEVICE_Info
196.  Buttons AS INTEGER
197.  Axis_p AS _BYTE
198. END TYPE
199.  
200. TYPE PlayerSpellList
201.  link AS _BYTE
202. END TYPE
203.  
204. TYPE Shopdata
205.  Which AS _BYTE 'kind and location of shop(town, village\armory,secondhand,firstfoods)
206.  items AS _BYTE 'number of items
207.  Ilist AS _BYTE 'array link listing items for sale
208.  Clist AS _BYTE 'array link listing cost of items
209. END TYPE
210.  
211. TYPE StartData
212.  X AS INTEGER
213.  Y AS INTEGER
214.  Map AS _BYTE
215. END TYPE
216. TYPE ExitData
217.  X AS INTEGER
218.  Y AS INTEGER
219.  Map AS _BYTE
220. END TYPE
221. TYPE NPCData
222.  ID AS INTEGER
223.  X AS INTEGER
224.  Y AS INTEGER
225.  Msg AS INTEGER
226. END TYPE
227. SCREEN _NEWIMAGE(700, 480, 32)
228. DIM SHARED P(3) AS Player, Pack(23) AS _BYTE
229. DIM SHARED M(74) AS Monsters, Pl(3, 30) AS PlayerLeveling, I(64) AS Items
230. DIM SHARED S(18) AS Spells, PSL(3, 1, 4) AS PlayerSpellList
231. DIM SHARED Dialog(1800) AS STRING, D(3) AS STRING * 5
232. DIM SHARED KeyCodes(134) AS KeyCodeData, DeviceData(16) AS DEVICE_Info
233. DIM SHARED TownMap(9, 54, 39) AS TownTiles '_UNSIGNED _BYTE
234. DIM SHARED Map(128, 96) AS WorldTiles '_UNSIGNED _BYTE
235. DIM SHARED Layer(127) AS LONG, SFX(64) AS LONG, BGM(32) AS LONG
236. DIM SHARED G AS Game_Data, SavedNames(5) AS STRING * 5, C AS ControllerKeys, F(127) AS _BYTE
237. DIM SHARED DungeonMap(9, 15, 15) AS _BYTE, DungeonMaster(127, 127) AS _BYTE
238. DIM SHARED Chat(255, 31) AS INTEGER
239. DIM SHARED Shops(32) AS Shopdata, ShopItems(32, 3) AS _BYTE, ShopCost(32, 3) AS INTEGER
240. DIM SHARED Encounters(94, 7) AS _BYTE, Churches(-1 TO 32) AS Enter_Exit
241. DIM SHARED frame%, FPSC%
242.  
243. DIM SHARED AlisAnim(4) AS _BYTE
244. DIM SHARED AnimationOrder(3, 8) '8 frames for sync between Waves\marsh and Shore animations
245. DIM SHARED NPC(127) AS NPCData, MSG$(127)
246. DIM SHARED Enter(10) AS StartData
247. DIM SHARED Exits(10) AS ExitData
248. 'time for the layer system
249. Layer(0) = _DISPLAY
250. Layer(1) = _NEWIMAGE(640, 480, 32)
251. Layer(2) = _NEWIMAGE(640, 480, 32)
252. Layer(127) = _NEWIMAGE(640, 480, 32) 'temp junk layer
253.  
254. MFI_Loader "PhantasyStarI.MFI"
255.  
256. _CLEARCOLOR _RGB32(222, 223, 99), Layer(9)
257. _CLEARCOLOR _RGB32(62), Layer(7)
258. CONST Default_Key_Right = 19712, Default_Key_Left = 19200, Default_Key_Up = 18432, Default_Key_Down = 20480
259. CONST Default_A_Button = 32, Default_B_Button = 13, Default_Start_Button = 65, Default_Select_Button = 66
260. CONST ESC_Key = 27, ESC = 99
261. CONST TRUE = -1, FALSE = NOT TRUE
262. CONST New_Game = 101, Loaded_Game = 102
263. CONST DOWN = 0, LEFT = 3, UP = 1, RIGHT = 2, SELECT_BUTTON = 4, START_BUTTON = 5, BUTTON_B = 6, BUTTON_A = 7
264. CONST None = 0, WoodCane = 1, Short_Sword = 2, Iron_Sword = 3, Wand = 4, Iron_Fang = 5
265. CONST Iron_Axe = 6, Titanium_Sword = 7, Ceramic_Sword = 8, Needle_Gun = 9, Silver_Fang = 10
266. CONST Heat_Gun = 11, Light_Saber = 12, Laser_Gun = 13, Laconian_Sword = 14, Laconian_Axe = 15
267. CONST Leather_Armor = 16, White_Mantle = 17, Light_Suit = 18, Iron_Armor = 19, Thick_Fur = 20
268. CONST Zirconium_Armor = 21, Diamond_Armor = 22, Laconian_Armor = 23, Frad_Mantle = 24, Leather_Shield = 25
269. CONST Bronze_Shield = 26, Iron_Shield = 27, Ciramic_Shield = 28, Glove = 29, Laser_Shield = 30
270. CONST Mirror_Shield = 31, Laconian_Shield = 32, LandRover = 33, HoverCraft = 34, Ice_Digger = 35
271. CONST Cola = 36, Burger = 37, Flute = 38, Flash = 39, Escaper = 40, Transer = 41
272. CONST Magic_Hat = 42, Alsulin = 43, PolyMaterial = 44, Dungeon_Key = 45, Sphere = 46
273. CONST Torch = 47, Prism = 48, Nuts = 49, Hapsby = 50, RoadPass = 51
274. CONST PassPort = 52, Compass = 53, Cake = 54, Letter = 55, Laconian_Pot = 56
275. CONST Magic_Lamp = 57, Amber_Eye = 58, Gas_Shield = 59, Crystal = 60, M_System = 61
276. CONST Mirical_Key = 62, Zillion = 63, Secrets = 64
277. CONST Weapon = 1, Armor = 2, Shield = 3, Special = 4, Consumeable = 5
278. CONST NORTH = 0, EAST = 1, WEST = 2, SOUTH = 3
279. CONST Alive = 0, Stoned = 1, Tied_Up = 2, Dead = 3
280. 'Dungeon Constants 0-NONE, 9-Unknown
281. CONST Wall = 1, FloorUp = 2, FloorDown = 3, UnlockedDoor = 4, D_KeyDoor = 5, M_KeyDoor = 6
282. CONST FakeWall = 7, Object = 8, ExitUP = 10, ExitDown = 11, ExitDoor = 12, ExitDoorLocked = 13
283. CONST ExitMagicDoor = 14, OpenDoor = UnlockedDoor + &H80
284. CONST Magic_Bye = 1, Magic_Chat = 2, Magic_Cure = 3, Magic_Exit = 4, Magic_Fire = 5, Magic_Fly = 6
285. CONST Magic_Heal = 7, Magic_Help = 8, Magic_Open = 9, Magic_Prot = 10, Magic_Rise = 11
286. CONST Magic_Rope = 12, Magic_Tele = 13, Magic_Terr = 14, Magic_Thun = 15, Magic_Trap = 16
287. CONST Magic_Wall = 17, Magic_Wind = 18
288. CONST Max_Pack_Count = 24
289. CONST Medusa_Cave = 2
290.  
291. 'place the conveyor system in corect world location
292. CONST Conveyor_1_Pos_X = 32 * 82
293. CONST Conveyor_1_Pos_Y = 32 * 53 + 8
294. CONST Conveyor_2_Pos_X = 32 * 79 + 8
295. CONST Conveyor_2_Pos_Y = 32 * 56
296. CONST Conveyor_Frame_Speed = 2
297. '--------------------------------------------------
298. 'Eppi Cover location
299. CONST Eppi_Cover_Pos_X = 32 * 94
300. CONST Eppi_Cover_Pos_Y = 32 * 85
301. '--------------------------------------------------
302. DATA 0,1,2,3,4,4,1,0: 'shore animation order
303. FOR i%% = 0 TO 7
304.  READ AnimationOrder(1, i%%)
305. NEXT i%%
306. DATA 0,1,2,1: 'animation frame order
307. FOR i%% = 0 TO 3
308.  READ AlisAnim(i%%)
309. NEXT i%%
310. DATA 36,18,0: 'Enter camineet
311. DATA 22,28,2: 'Enter parolit
312. DATA 11,19,3: 'Enter Scion
313. DATA 22,24,7: 'Enter Eppi
314.  
315. DATA 85,47,-1: 'exit to camineet to overworld
316. DATA 36,20,1: 'enter space port from camineet
317. DATA 10,20,0: 'enter camineet from space port
318. DATA 24,11,2: 'enter parolit from space port
319. DATA 24,27,1: 'enter space port from parolit
320. DATA 73,58,-1: 'exit parolit to overworld
321. DATA 102,46,-1: 'exit Scion to overworld
322. DATA 85,80,-1: 'Exit Eppi to Overworld
323. FOR En%% = 1 TO 4
324.  READ Enter(En%%).X, Enter(En%%).Y, Enter(En%%).Map
325. NEXT En%%
326. FOR Ex%% = 1 TO 8
327.  READ Exits(Ex%%).X, Exits(Ex%%).Y, Exits(Ex%%).Map
328. NEXT Ex%%
329. 'Enter Camineet from over world
330. Map(82, 46).Is_Village = 1
331. Map(83, 46).Is_Village = 1
332. Map(82, 47).Is_Village = 1
333. Map(83, 47).Is_Village = 1
334. 'enter Parolit from Over world
335. Map(70, 58).Is_Village = 2
336. Map(71, 58).Is_Village = 2
337. Map(70, 57).Is_Village = 2
338. Map(71, 57).Is_Village = 2
339. 'Enter Scion from Over world
340. Map(103, 46).Is_Village = 3
341. Map(104, 46).Is_Village = 3
342. Map(103, 45).Is_Village = 3
343. Map(104, 45).Is_Village = 3
344. 'Enter Eppi from Over world(with compass only)
345. Map(85, 78).Is_Village = 4
346. Map(86, 78).Is_Village = 4
347. Map(85, 79).Is_Village = 4
348. Map(86, 79).Is_Village = 4
349. '------------------------------
350. 'Exit Camineet to over world
351. TownMap(0, 37, 18).Is_Exit = 1
352. TownMap(0, 38, 18).Is_Exit = 1
353. TownMap(0, 19, 27).Is_Exit = 1
354. TownMap(0, 20, 27).Is_Exit = 1
355. 'Exit Camineet to Space port(if player has roadpass
356. TownMap(0, 9, 19).Is_Exit = 2
357. TownMap(0, 9, 20).Is_Exit = 2
358. '------------------------------
359. 'Exit Space Port to Camineet
360. TownMap(1, 38, 20).Is_Exit = 3
361. 'Exit Space Port to Parolit
362. TownMap(1, 24, 29).Is_Exit = 4
363. TownMap(1, 25, 29).Is_Exit = 4
364. '------------------------------
365. 'Exit Parolit to Space Port
366. TownMap(2, 24, 10).Is_Exit = 5
367. 'Exit Parolit to Over World
368. TownMap(2, 22, 27).Is_Exit = 6
369. TownMap(2, 23, 27).Is_Exit = 6
370. '------------------------------
371. 'Exit Scion to Overworld
372. TownMap(3, 10, 19).Is_Exit = 7
373. '------------------------------
374. 'Exit Eppi to Overworld
375. TownMap(7, 22, 25).Is_Exit = 8
376. TownMap(7, 23, 25).Is_Exit = 8
377. TownMap(7, 22, 25).Is_Walkable = -1
378. TownMap(7, 23, 25).Is_Walkable = -1
379. '------------------------------
380. 'NPC data fields
381. 'Camineet
382. DATA 5,36,17,0
383. DATA 5,38,20,0
384. DATA 5,10,21,1
385. DATA 5,10,19,1
386. DATA 5,18,27,2
387. DATA 5,21,27,2
388. DATA 4,22,10,
389. DATA 4,20,16,
390. DATA 4,22,24,
391. DATA 4,13,23,
392. FOR i%% = 0 TO 5
393.  READ NPC(i%%).ID, NPC(i%%).X, NPC(i%%).Y
394. NEXT i%%
395. '----------------------------------------
396. 'NPC Messages
397. DATA "You had better not leave the residential area"
398. DATA
399. _SCREENMOVE 10, 10
400.  
401. T2! = _FREETIMER
402. ON TIMER(T2!, 1) FPS
403. TIMER(T2!) ON
404. INIT_Controls
405. Load_New_Game_Stats
406.  
407. DO
408.  IF CheckFlag%% THEN Location_Checker P(0).Is_Intown, P(0).Wx, P(0).Wy: CheckFlag%% = FALSE
409.  IF P(0).Is_Intown > -1 THEN
410.   TownMap_Tile_loader P(0).Wx, P(0).Wy, P(0).Tx, P(0).Ty 'Mapx%, Mapy%, Playrx%, Playry%
411.  ELSE
412.   Map_Loader_tiled_Base P(0).Wx, P(0).Wy, P(0).Tx, P(0).Ty 'Mapx%, Mapy%, Playrx%, Playry%
413.  END IF
414.  Debugging
415.  Place_Alis
416.  _PUTIMAGE , Layer(2), Layer(1)
417.  ClearLayerTrans Layer(2)
418.  _PUTIMAGE (0, 0), Layer(1), _DISPLAY
419.  frame% = frame% + 1
420.  '-----------------Controls------------------
421.  IF _KEYDOWN(Default_Key_Up) AND (NOT G.Moving) THEN G.Facing = UP: G.Moving = TRUE
422.  IF _KEYDOWN(Default_Key_Left) AND (NOT G.Moving) THEN G.Facing = LEFT: G.Moving = TRUE
423.  IF _KEYDOWN(Default_Key_Right) AND (NOT G.Moving) THEN G.Facing = RIGHT: G.Moving = TRUE
424.  IF _KEYDOWN(Default_Key_Down) AND (NOT G.Moving) THEN G.Facing = DOWN: G.Moving = TRUE
425.  IF _KEYDOWN(27) THEN exitflag%% = -1
426.  SELECT CASE G.Facing
427.   CASE UP
428.    IF Collision(P(0).Wx, P(0).Wy - 1) THEN G.Moving = FALSE
429.   CASE DOWN
430.    IF Collision(P(0).Wx, P(0).Wy + 1) THEN G.Moving = FALSE
431.   CASE LEFT
432.    IF Collision(P(0).Wx - 1, P(0).Wy) THEN G.Moving = FALSE
433.   CASE RIGHT
434.    IF Collision(P(0).Wx + 1, P(0).Wy) THEN G.Moving = FALSE
435.  
436.  END SELECT
437.  '--------------------------------------------
438.  '----------------Movement--------------------
439.  IF G.Moving THEN
440.   SELECT CASE G.Facing
441.    CASE UP
442.     P(0).Ty = P(0).Ty + 2
443.     IF (ABS(P(0).Ty) MOD 32) = 0 THEN G.Moving = FALSE: P(0).Wy = P(0).Wy - 1: P(0).Ty = 0: CheckFlag%% = TRUE
444.     IF NOT _KEYDOWN(Default_Key_Up) THEN Ft%% = 0: P(0).Fr = 0 ELSE G.Moving = TRUE
445.    CASE DOWN
446.     P(0).Ty = P(0).Ty - 2
447.     IF (P(0).Ty MOD 32) = 0 THEN G.Moving = FALSE: P(0).Wy = P(0).Wy + 1: P(0).Ty = 0: CheckFlag%% = TRUE
448.     IF NOT _KEYDOWN(Default_Key_Down) THEN Ft%% = 0: P(0).Fr = 0 ELSE G.Moving = TRUE
449.    CASE LEFT
450.     P(0).Tx = P(0).Tx + 2
451.     IF (ABS(P(0).Tx) MOD 32) = 0 THEN G.Moving = FALSE: P(0).Wx = P(0).Wx - 1: P(0).Tx = 0: CheckFlag%% = TRUE
452.     IF NOT _KEYDOWN(Default_Key_Left) THEN Ft%% = 0: P(0).Fr = 0 ELSE G.Moving = TRUE
453.    CASE RIGHT
454.     P(0).Tx = P(0).Tx - 2
455.     IF (P(0).Tx MOD 32) = 0 THEN G.Moving = FALSE: P(0).Wx = P(0).Wx + 1: P(0).Tx = 0: CheckFlag%% = TRUE
456.     IF NOT _KEYDOWN(Default_Key_Right) THEN Ft%% = 0: P(0).Fr = 0 ELSE G.Moving = TRUE
457.   END SELECT
458.  END IF
459.  IF G.Moving THEN Ft%% = Ft%% + 1
460.  IF Ft%% = 8 THEN P(0).Fr = P(0).Fr + 1: Ft%% = 0
461.  IF P(0).Fr = 4 THEN P(0).Fr = 0
462.  'Correct for map wrap
463.  IF P(0).Wx = 128 THEN P(0).Wx = 0
464.  IF P(0).Wx = -1 THEN P(0).Wx = 127
465.  IF P(0).Wy = 96 THEN P(0).Wy = 0
466.  IF P(0).Wy = -1 THEN P(0).Wy = 95
467.  '--------------------
468.  
469.  _LIMIT 60
470. LOOP UNTIL exitflag%%
471. TIMER(T2!) OFF
472. _DEST Layer(0)
473.  
474. FUNCTION Collision (X1%, Y1%)
475.  Result%% = TRUE 'always assume collision
476.  IF P(0).Is_Intown > -1 THEN
477.   IF TownMap(P(0).Is_Intown, X1%, Y1%).Is_Walkable THEN Result%% = FALSE
478.  ELSE
479.   IF Map(X1%, Y1%).Is_Walkable THEN Result%% = FALSE
480.  END IF
481.  Collision = Result%%
482. END FUNCTION
483.  
484. SUB Map_Loader_tiled_Base (X1%, Y1%, Sx%, Sy%)
485.  STATIC SubFrame(3) AS _BYTE, MainFrame(3) AS _BYTE, Triggered%%
486.  FOR x% = -1 TO 20
487.   FOR y% = -1 TO 15
488.    mx% = X1% + x% - 9 '-9 to center on player character
489.    my% = Y1% + y% - 7 '-7 to center(ish) on player character
490.    '------Adjust for map wrap around------
491.    IF mx% < 0 THEN mx% = 128 + mx% 'use addition cause mx% is a negative
492.    IF mx% > 127 THEN mx% = mx% - 128
493.    IF my% < 0 THEN my% = 96 + my% 'use addition cause my% is a negative
494.    IF my% > 95 THEN my% = my% - 96
495.    '--------------------------------------
496.    'main map tiles
497.    _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), Layer(4), Layer(Map(mx%, my%).Display_Layer), (0 + Map(mx%, my%).Id * 34, 0)-STEP(31, 31)
498.    'animated map tiles
499.    IF Map(mx%, my%).Is_Animated THEN
500.     SELECT CASE Map(mx%, my%).Id
501.      CASE 1 TO 4 'waves
502.       _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), Layer(6), Layer(1), (544 + MainFrame(1) * 34, 0)-STEP(31, 31)
503.      CASE 21 TO 25 'marsh
504.       _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), Layer(6), Layer(1), (544 + (Map(mx%, my%).Id - 21) * 34, 34 + MainFrame(1) * 34)-STEP(31, 31)
505.      CASE 5 TO 20 'shore
506.       _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), Layer(6), Layer(1), ((Map(mx%, my%).Id - 5) * 34, AnimationOrder(1, MainFrame(2)) * 34)-STEP(31, 31)
507.     END SELECT
508.    END IF
509.   NEXT y%
510.  NEXT x%
511.  'Horizontal conveyor
512.  _PUTIMAGE (Sx% + Conveyor_1_Pos_X - (X1% * 32), Sy% + Conveyor_1_Pos_Y - (Y1% * 32)), Layer(5), Layer(2), (0, 0 + (MainFrame(0) * 34))-STEP(255, 31)
513.  'vertical conveyor
514.  _PUTIMAGE (Sx% + Conveyor_2_Pos_X - (X1% * 32), Sy% + Conveyor_2_Pos_Y - (Y1% * 32)), Layer(5), Layer(2), (257 + (MainFrame(0) * 34), 0)-STEP(31, 223)
515.  'Unless Player has compass Hide the Village of Eppi
516.  IF Has_Compass = FALSE THEN
517.   _PUTIMAGE (Sx% + Eppi_Cover_Pos_X - (X1% * 32), Sy% + Eppi_Cover_Pos_Y - (Y1% * 32)), Layer(4), Layer(1), (34 * 27, 0)-STEP(31, 31)
518.   _PUTIMAGE (32 + Sx% + Eppi_Cover_Pos_X - (X1% * 32), Sy% + Eppi_Cover_Pos_Y - (Y1% * 32)), Layer(4), Layer(1), (34 * 27, 0)-STEP(31, 31)
519.   _PUTIMAGE (Sx% + Eppi_Cover_Pos_X - (X1% * 32), 32 + Sy% + Eppi_Cover_Pos_Y - (Y1% * 32)), Layer(4), Layer(1), (34 * 27, 0)-STEP(31, 31)
520.   _PUTIMAGE (32 + Sx% + Eppi_Cover_Pos_X - (X1% * 32), 32 + Sy% + Eppi_Cover_Pos_Y - (Y1% * 32)), Layer(4), Layer(1), (34 * 27, 0)-STEP(31, 31)
521.  END IF
522.  FOR i%% = 0 TO 2
523.   SubFrame(i%%) = SubFrame(i%%) + 1
524.   IF SubFrame(0) = 5 + Conveyor_Frame_Speed THEN MainFrame(0) = MainFrame(0) + Conveyor_Frame_Speed: SubFrame(0) = 0
525.   IF SubFrame(1) = 16 THEN MainFrame(1) = MainFrame(1) + 1: SubFrame(1) = 0
526.   IF SubFrame(2) = 24 THEN MainFrame(2) = MainFrame(2) + 1: SubFrame(2) = 0
527.  NEXT i%%
528.  IF MainFrame(0) = 8 THEN MainFrame(0) = 0
529.  IF MainFrame(1) = 4 THEN MainFrame(1) = 0
530.  IF MainFrame(2) = 8 THEN MainFrame(2) = 0
531. END SUB
532.  
533. SUB TownMap_Tile_loader (X1%, Y1%, Sx%, Sy%)
534.  FOR x% = -1 TO 20
535.   FOR y% = -1 TO 15
536.    mx% = X1% + x% - 9 '-9 to center on player character
537.    my% = Y1% + y% - 7 '-7 to center(ish) on player character
538.    'town map tiles
539.    _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), Layer(3), Layer(1), (0 + TownMap(P(0).Is_Intown, mx%, my%).Id * 34, 0)-STEP(31, 31)
540.   NEXT
541.  NEXT
542. END SUB
543.  
544. SUB FPS
545.  ' STATIC LastCount%
546.  FPSC% = frame%
547.  frame% = 0
548. END SUB
549.  
550. SUB Place_Alis
551.  IF NOT G.Moving THEN
552.   _PUTIMAGE (290, 210)-STEP(31, 45), Layer(7), Layer(1), (0 + 17 * G.Facing, 120)-STEP(15, 22)
553.  ELSE
554.   _PUTIMAGE (290, 210)-STEP(31, 45), Layer(7), Layer(1), (68 + 51 * G.Facing + AlisAnim(P(0).Fr) * 17, 120)-STEP(15, 22)
555.  END IF
556. END SUB
557.  
558. SUB Location_Checker (Map%%, X%, Y%)
559.  OldX% = X%
560.  OldY% = Y%
561.  OldMap%% = Map%%
562.  IF P(0).Is_Intown > -1 THEN
563.  
564.   IF TownMap(Map%%, X%, Y%).Is_Building THEN
565.    SELECT CASE TownMap(Map%%, X%, Y%).Is_Building
566.     CASE &HFF 'flaged conversations
567.      Build_House_Setting TownMap(Map%%, X%, Y%).Setting
568.      Flagged_Conversations TownMap(Map%%, X%, Y%).Dialogs
569.      Back_Up_Player
570.     CASE &H80 'Enter a Dungeon area
571.     CASE &H40 'shops
572.      ClearLayer Layer(1)
573.      Shop TownMap(Map%%, X%, Y%).Dialogs
574.      Back_Up_Player
575.      Input_OR_Wait 128
576.     CASE &H20 'town Exit
577.      'currently handled with IS_EXIT
578.     CASE &H10 'interactive Conversation
579.      '     Build_House_Setting TownMap(Map%%, X%, Y%).Setting
580.      Create_Dialog_Box 9, 21, 4, 18
581.      TimedPrint 10, 23, "THE DOOR IS LOCKED", 20 '
582.      Input_OR_Wait 128
583.      Back_Up_Player
584.     CASE &H08 'church
585.      ClearLayer Layer(1)
586.      G.Last_Church = P(0).Is_Intown ' visited church so set this as the return point for FLY
587.      Church TownMap(Map%%, X%, Y%).Setting 'carrys the church ID value for look
588.      Back_Up_Player
589.      Input_OR_Wait 128
590.     CASE &H01 'standard dialog
591.      Build_House_Setting TownMap(Map%%, X%, Y%).Setting
592.      Conversations TownMap(Map%%, X%, Y%).Dialogs
593.      Back_Up_Player
594.    END SELECT
595.   END IF
596.   IF TownMap(Map%%, X%, Y%).Is_Exit THEN
597.    P(0).Is_Intown = Exits(TownMap(OldMap%%, OldX%, OldY%).Is_Exit).Map
598.    P(0).Wx = Exits(TownMap(OldMap%%, OldX%, OldY%).Is_Exit).X
599.    P(0).Wy = Exits(TownMap(OldMap%%, OldX%, OldY%).Is_Exit).Y
600.   END IF
601.  
602.  ELSE
603.   IF Map(X%, Y%).Is_Village THEN
604.    IF Map(X%, Y%).Is_Village = 4 THEN
605.     IF Has_Compass THEN 'Can only enter Eppi when you have the compass
606.      P(0).Is_Intown = Enter(Map(OldX%, OldY%).Is_Village).Map
607.      P(0).Wx = Enter(Map(OldX%, OldY%).Is_Village).X
608.      P(0).Wy = Enter(Map(OldX%, OldY%).Is_Village).Y
609.     END IF
610.    ELSE
611.     P(0).Is_Intown = Enter(Map(OldX%, OldY%).Is_Village).Map
612.     P(0).Wx = Enter(Map(OldX%, OldY%).Is_Village).X
613.     P(0).Wy = Enter(Map(OldX%, OldY%).Is_Village).Y
614.    END IF
615.   END IF
616.  END IF
617. END SUB
618.  
619. REM '$include:'PS1_Conversation_subs.bas'
620.  
621. SUB Load_New_Game_Stats
622.  P(0).N = "ALIS"
623.  P(0).Hp = 16
624.  P(0).Mp = 0
625.  P(0).MHp = 16
626.  P(0).MMp = 0
627.  P(0).Wepn = Short_Sword
628.  P(0).Armr = Leather_Armor
629.  P(0).Shld = None
630.  P(0).Attk = 8
631.  P(0).Defn = 8
632.  '---------------
633.  P(1).N = "MYAU"
634.  P(1).Hp = 22
635.  P(1).Mp = 0
636.  P(1).MHp = 22
637.  P(1).MMp = 0
638.  P(1).Wepn = None
639.  P(1).Armr = None
640.  P(1).Shld = None
641.  P(1).Attk = 18
642.  P(1).Defn = 22
643.  '---------------
644.  P(2).N = "ODIN"
645.  P(2).Hp = 42
646.  P(2).Mp = 0
647.  P(2).MHp = 42
648.  P(2).MMp = 0
649.  P(2).Wepn = Iron_Axe
650.  P(2).Armr = Leather_Armor
651.  P(2).Shld = None
652.  P(2).Attk = 13
653.  P(2).Defn = 13
654.  '---------------
655.  P(3).N = "LAIA" 'More feminine than Noah
656.  P(3).Hp = 45
657.  P(3).Mp = 12
658.  P(3).MHp = 45
659.  P(3).MMp = 12
660.  P(3).Wepn = WoodCane
661.  P(3).Armr = White_Mantle
662.  P(3).Shld = None
663.  P(3).Attk = 18
664.  P(3).Defn = 30
665.  '---------------
666.  G.Meseta = 0
667.  G.Party_Size = 0 'start with only Alis
668.  FOR i%% = 0 TO 23
669.   Pack(i%%) = 0
670.  NEXT i%%
671.  FOR i%% = 0 TO 3
672.   P(i%%).Level = 1
673.   P(i%%).Exp = 0
674.   P(i%%).Combat = -1
675.   P(i%%).NonCombat = -1
676.   P(0).Is_Intown = 0 'Town ID for Camineet (-1 if not in a town)
677.   P(i%%).Wx = 33 'Start outside Alis's home
678.   P(i%%).Wy = 13
679.   P(i%%).Tx = 0
680.   P(i%%).Ty = 0
681.   P(i%%).Fr = 0
682.  NEXT i%%
683.  P(3).Combat = 0
684.  P(3).NonCombat = 0
685.  FOR i%% = 0 TO 127
686.   F(i%%) = FALSE
687.  NEXT i%%
688. END SUB
689.  
690. SUB Back_Up_Player
691.  'Move player back to space where they enter building from
692.  G.Moving = FALSE
693.  SELECT CASE G.Facing
694.   CASE UP
695.    P(0).Wy = P(0).Wy + 1
696.   CASE DOWN
697.    P(0).Wy = P(0).Wy - 1
698.   CASE LEFT
699.    P(0).Wx = P(0).Wx + 1
700.   CASE RIGHT
701.    P(0).Wx = P(0).Wx - 1
702.  END SELECT
703.  FOR i%% = 1 TO 3 'make sure whole party is in correct location
704.   P(i%%).Wx = P(0).Wx
705.   P(i%%).Wy = P(0).Wy
706.  NEXT i%%
707.  G.Facing = DOWN
708. END SUB
709.  
710. SUB Place_NPC (Who%%)
711.  _PUTIMAGE (281, 200)-STEP(75, 183), Layer(9), Layer(1), (0 + Who%% * 39, 450)-STEP(37, 92)
712. END SUB
713.  
714. SUB Build_House_Setting (id%%)
715.  ClearLayer Layer(1)
716.  '-----------------Setup screen--------------
717.  'BGI -if bit 7 set then use alt scene layout
718.  _PUTIMAGE (64, 48)-STEP(511, 383), Layer(8), Layer(1), (256 * ABS(_READBIT(id%%, 7)), 192)-STEP(255, 191)
719.  'Character - can be red, green or blue man
720.  Char~%% = _SHL(id%%, 4) 'bump 4 high bits(4-7)
721.  Char~%% = _SHR(Char~%%, 4) 'reset to find what type of NPC
722.  IF Char~%% > 0 THEN Place_NPC Char~%% 'no robo-gaurds in houses
723.  _PUTIMAGE (0, 0), Layer(1), Layer(0)
724.  '---------------------------------------------
725. END SUB
726.  
727. SUB ClearLayer (L&)
728.  old& = _DEST
729.  _DEST L&
730.  CLS ' ,0
731.  _DEST old&
732. END SUB
733.  
734. SUB ClearLayerTrans (L&)
735.  old& = _DEST
736.  _DEST L&
737.  CLS , 0
738.  _DEST old&
739. END SUB
740.  
741. SUB Debugging
742.  IF P(0).Is_Intown > -1 THEN
743.   _PRINTSTRING (640, 45), "ID-" + STR$(TownMap(P(0).Is_Intown, P(0).Wx, P(0).Wy).Id), Layer(0)
744.   _PRINTSTRING (640, 60), "UP-" + STR$(TownMap(P(0).Is_Intown, P(0).Wx, P(0).Wy - 1).Id) + " ", Layer(0)
745.   _PRINTSTRING (640, 75), "DN-" + STR$(TownMap(P(0).Is_Intown, P(0).Wx, P(0).Wy + 1).Id) + " ", Layer(0)
746.   _PRINTSTRING (640, 90), "LT-" + STR$(TownMap(P(0).Is_Intown, P(0).Wx - 1, P(0).Wy).Id) + " ", Layer(0)
747.   _PRINTSTRING (640, 105), "RT-" + STR$(TownMap(P(0).Is_Intown, P(0).Wx + 1, P(0).Wy).Id) + " ", Layer(0)
748.   _PRINTSTRING (640, 120), "XT-" + STR$(TownMap(P(0).Is_Intown, P(0).Wx, P(0).Wy).Is_Exit) + " ", Layer(0)
749.   _PRINTSTRING (640, 135), "TwN-" + STR$(P(0).Is_Intown) + " ", Layer(0)
750.   _PRINTSTRING (640, 150), "bd-&H" + HEX$(TownMap(P(0).Is_Intown, P(0).Wx, P(0).Wy).Is_Building) + " ", Layer(0)
751.  
752.  ELSE
753.   _PRINTSTRING (640, 45), "ID-" + STR$(Map(P(0).Wx, P(0).Wy).Id), Layer(0)
754.   _PRINTSTRING (640, 60), "UP-" + STR$(Map(P(0).Wx, P(0).Wy - 1).Id) + " ", Layer(0)
755.   _PRINTSTRING (640, 75), "DN-" + STR$(Map(P(0).Wx, P(0).Wy + 1).Id) + " ", Layer(0)
756.   _PRINTSTRING (640, 90), "LT-" + STR$(Map(P(0).Wx - 1, P(0).Wy).Id) + " ", Layer(0)
757.   _PRINTSTRING (640, 105), "RT-" + STR$(Map(P(0).Wx + 1, P(0).Wy).Id) + " ", Layer(0)
758.  END IF
759.  _PRINTSTRING (640, 0), "FPS-" + STR$(FPSC%), Layer(0)
760.  _PRINTSTRING (640, 15), "X-" + STR$(P(0).Wx), Layer(0)
761.  _PRINTSTRING (640, 30), "Y-" + STR$(P(0).Wy), Layer(0)
762. END SUB
763.  
764. SUB MFI_Loader (FN$)
765.  DIM Size(128) AS LONG, FOffset(128) AS LONG
766.  OPEN FN$ FOR BINARY AS #1
767.  GET #1, , c~%% 'retrieve number of files
768.  FOR I~%% = 1 TO c~%%
769.   GET #1, , FOffset(I~%%)
770.   GET #1, , Size(I~%%)
771.   FOffset&(I~%%) = FOffset&(I~%%) + 1
772.  NEXT I~%%
773.  
774.  Layer(3) = LoadGFX(FOffset(5), Size(5)) 'townmap tiles
775.  Layer(4) = LoadGFX(FOffset(1), Size(1)) '_LOADIMAGE("gfx\maps\PalmaTiles2x2.bmp", 32) '_NEWIMAGE(640, 480, 32)
776.  Layer(5) = LoadGFX(FOffset(2), Size(2)) '_LOADIMAGE("gfx\maps\conveyoranim.bmp", 32) 'Conveyor
777.  Layer(6) = LoadGFX(FOffset(3), Size(3)) '_LOADIMAGE("gfx\maps\mapanimation.bmp", 32) 'Water, shore, and marsh frames
778.  Layer(7) = LoadGFX(FOffset(4), Size(4)) '_LOADIMAGE("gfx\CharacterSheetC.png", 32) '
779.  Layer(8) = LoadGFX(FOffset(6), Size(6)) 'backgrounds
780.  Layer(9) = LoadGFX(FOffset(7), Size(7)) 'Cutscene_NPCsprites
781.  Layer(10) = LoadGFX(FOffset(8), Size(8)) 'Font
782.  
783.  
784.  LoadData FOffset(9), Size(9)
785.  F1 = FREEFILE
786.  OPEN "temp.dat" FOR BINARY AS #F1
787.  PRINT LOF(F1)
788.  GET #F1, , M()
789.  GET #F1, , I()
790.  GET #F1, , S()
791.  GET #F1, , Pl()
792.  GET #F1, , PSL()
793.  GET #F1, , KeyCodes()
794.  PRINT LOC(F1)
795.  GET #F1, , Lines_of_Dialog%
796.  FOR i% = 0 TO Lines_of_Dialog%
797.   GET #F1, , L~%%
798.   Dialog(i%) = SPACE$(L~%%)
799.   GET #F1, , Dialog(i%)
800.  NEXT i%
801.  FOR i%% = 0 TO 3
802.   GET #F1, , D(i%%)
803.  NEXT i%%
804.  GET #F1, , Encounters()
805.  GET #F1, , DungeonMaster()
806.  GET #F1, , Shops()
807.  GET #F1, , ShopItems()
808.  GET #F1, , ShopCost()
809.  GET #F1, , Chat()
810.  PRINT LOC(F1)
811.  GET #F1, , TownMap()
812.  PRINT LOC(F1)
813.  GET #F1, , Map()
814.  PRINT LOC(F1)
815.  CLOSE #F1
816.  ' END
817.  CLOSE #1
818.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
819. END SUB
820.  
821. SUB LoadData (Foff&, Size&)
822.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
823.  OPEN "temp.dat" FOR BINARY AS #3
824.  dat$ = SPACE$(Size&)
825.  GET #1, Foff&, dat$
826.  PUT #3, , dat$
827.  CLOSE #3
828. END SUB
829.  
830. REM '$include:'MFI_Loader2.bi'
831.  
832. FUNCTION LoadGFX& (Foff&, Size&)
833.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
834.  OPEN "temp.dat" FOR BINARY AS #3
835.  dat$ = SPACE$(Size&)
836.  GET #1, Foff&, dat$
837.  PUT #3, , dat$
838.  CLOSE #3
839.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
840. END FUNCTION
841.  
842. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
843.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
844.  OPEN "temp.dat" FOR BINARY AS #3
845.  dat$ = SPACE$(Size&)
846.  GET #1, Foff&, dat$
847.  PUT #3, , dat$
848.  CLOSE #3
849.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
850. END FUNCTION
851.  
852. FUNCTION LoadSFX& (Foff&, Size&)
853.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
854.  OPEN "temp.dat" FOR BINARY AS #3
855.  dat$ = SPACE$(Size&)
856.  GET #1, Foff&, dat$
857.  PUT #3, , dat$
858.  CLOSE #3
859.  LoadSFX& = _SNDOPEN("temp.dat")
860. END FUNCTION
861.  
862. REM'$include:'PS1_PrintSubs.bas'
863. REM'$include:'PS1_Controls.bas'
864. REM'$include:'PS1_Conversation_testing.bas'
865. SUB PS_Print (X%, Y%, TxT$, L&)
866.  L% = LEN(TxT$)
867.  FOR i%% = 1 TO L%
868.   By%% = 0
869.   IF MID$(TxT$, i%%, 1) = CHR$(34) OR MID$(TxT$, i%%, 1) = CHR$(39) THEN By%% = 10
870.   IF MID$(TxT$, i%%, 1) = CHR$(44) OR MID$(TxT$, i%%, 1) = CHR$(46) THEN By%% = -4
871.   _PUTIMAGE (X% + i%% * 16, Y% - By%%)-STEP(15, 15), Layer(10), L&, (1 + (10 * (ASC(MID$(TxT$, i%%, 1)) - 32)), 1 + G.ColorShift)-STEP(7, 7)
872.  NEXT
873. END SUB
874.  
875. SUB Scroll_Dialog_Box (X%, Y%, H%, W%)
876.  X% = X% * 16 + 32
877.  Y% = Y% * 16 + 16
878.  H% = H% * 16
879.  W% = W% * 16
880.  Scrl%% = 32
881.  temp& = _COPYIMAGE(Layer(0))
882.  FOR I%% = 0 TO Scrl%% STEP 4
883.   _PUTIMAGE (X%, Y%)-STEP(W% - 1, H% + 3), temp&, Layer(0), (X%, Y% + 4)-STEP(W% - 1, H% + 3)
884.   _PUTIMAGE (0, 0), Layer(0), temp&
885.   _LIMIT 60
886.  NEXT I%%
887.  _PUTIMAGE (0, 0), Layer(0), Layer(1)
888.  _FREEIMAGE temp&
889. END SUB
890.  
891. SUB TimedPrint (X%, Y%, Txt$, LPS%)
892.  Speed! = (100 / LPS%) / 100
893.  FOR i%% = 1 TO LEN(Txt$)
894.   By%% = 0
895.   IF MID$(Txt$, i%%, 1) = CHR$(34) OR MID$(Txt$, i%%, 1) = CHR$(39) THEN By%% = 10
896.   IF MID$(Txt$, i%%, 1) = CHR$(44) OR MID$(Txt$, i%%, 1) = CHR$(46) THEN By%% = -4
897.   _PUTIMAGE (16 * X% + i%% * 16, 16 * Y% - By%%)-STEP(15, 15), Layer(10), Layer(1), (1 + (10 * (ASC(MID$(Txt$, i%%, 1)) - 32)), 1)-STEP(7, 7)
898.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
899.   _DELAY Speed!
900.  NEXT i%%
901. END SUB
902.  
903. SUB Create_Dialog_Box (X%, Y%, H%, W%)
904.  Top$ = "a"
905.  Bot$ = "g"
906.  FOR i%% = 1 TO W%
907.   Top$ = Top$ + "b"
908.   Bot$ = Bot$ + "h"
909.  NEXT i%%
910.  Top$ = Top$ + "c"
911.  Bot$ = Bot$ + "i"
912.  sid$ = "d" + SPACE$(W%) + "f"
913.  PS_Print X% * 16, Y% * 16, Top$, Layer(1)
914.  FOR i%% = 1 TO H%
915.   PS_Print X% * 16, (Y% + i%%) * 16, sid$, Layer(1)
916.  NEXT i%%
917.  PS_Print X% * 16, (Y% + i%%) * 16, Bot$, Layer(1)
918. END SUB
919.  
920. FUNCTION AxisPower%% (CJR%%, CJL%%, CJU%%, CJD%%)
921.  CJR%% = _AXIS(C.Joy_Right)
922.  CJL%% = _AXIS(C.Joy_Left)
923.  CJU%% = _AXIS(C.Joy_Up)
924.  CJD%% = _AXIS(C.Joy_Down)
925.  IF CJR%% = C.Joy_Right_Val THEN CJL%% = 0: CJR%% = TRUE ELSE CJR%% = 0
926.  IF CJD%% = C.Joy_Down_Val THEN CJU%% = 0: CJD%% = TRUE ELSE CJD%% = 0
927.  AxisPower = nul%%
928. END FUNCTION
929.  
930. FUNCTION Get_Input%% ()
931.  Result%% = TRUE '-1 for no input
932.  SELECT CASE G.ControlType
933.   CASE TRUE 'Keyboard input
934.    IF _KEYDOWN(ESC_Key) THEN Result%% = ESC
935.    IF _KEYDOWN(C.KBCon_Up) THEN Result%% = UP
936.    IF _KEYDOWN(C.KBCon_Down) THEN Result%% = DOWN
937.    IF _KEYDOWN(C.KBCon_Left) THEN Result%% = LEFT
938.    IF _KEYDOWN(C.KBCon_Right) THEN Result%% = RIGHT
939.    IF _KEYDOWN(C.KBCon_A_Button) THEN Result%% = BUTTON_A: DO: LOOP WHILE _KEYDOWN(C.KBCon_A_Button)
940.    IF _KEYDOWN(C.KBCon_B_Button) THEN Result%% = BUTTON_B: DO: LOOP WHILE _KEYDOWN(C.KBCon_B_Button)
941.  
942.   CASE FALSE 'joystick input
943.    IF C.Control_Pad THEN
944.     'IF NOT G.Flag THEN DO: LOOP WHILE _DEVICEINPUT(C.Control_Pad) 'has to do with moving
945.     DO: LOOP WHILE _DEVICEINPUT(C.Control_Pad)
946.     IF NOT C.BAD_Pad THEN
947.      nul%% = AxisPower(CJR%%, CJL%%, CJU%%, CJD%%) 'read directional axis values
948.      IF CJU%% THEN Result%% = UP
949.      IF CJD%% THEN Result%% = DOWN
950.      IF CJL%% THEN Result%% = LEFT
951.      IF CJR%% THEN Result%% = RIGHT
952.     ELSE
953.      IF _BUTTON(C.Joy_Button_Up) THEN Result%% = UP ': Joy_Lock_Button (C.Joy_Button_Up)
954.      IF _BUTTON(C.Joy_Button_Down) THEN Result%% = DOWN ': Joy_Lock_Button (C.Joy_Button_Down)
955.      IF _BUTTON(C.Joy_Button_Left) THEN Result%% = LEFT ': Joy_Lock_Button (C.Joy_Button_Left)
956.      IF _BUTTON(C.Joy_Button_Right) THEN Result%% = RIGHT ': Joy_Lock_Button (C.Joy_Button_Right)
957.     END IF
958.     IF _BUTTON(C.Joy_A_Button) THEN Result%% = BUTTON_A: Joy_Lock_Button (C.Joy_A_Button)
959.     IF _BUTTON(C.Joy_B_Button) THEN Result%% = BUTTON_B: Joy_Lock_Button (C.Joy_B_Button)
960.    END IF
961.  END SELECT
962.  Get_Input = Result%%
963. END FUNCTION
964.  
965. SUB Get_JoyPads
966.  'load input device details Max:16
967.  G.Device_Count = _DEVICES
968.  IF G.Device_Count > 16 THEN G.Device_Count = 16 'limit total devices to 16
969.  FOR I%% = 1 TO G.Device_Count
970.   DeviceData(I%%).Buttons = _LASTBUTTON(I%%) ' number of buttons on the device
971.   DeviceData(I%%).Axis_p = _LASTAXIS(I%%) 'number of axis on the device
972.  NEXT I%%
973. END SUB
974.  
975. SUB INIT_Controls
976.  'Set Default controls
977.  C.KBCon_Up = Default_Key_Up
978.  C.KBCon_Down = Default_Key_Down
979.  C.KBCon_Left = Default_Key_Left
980.  C.KBCon_Right = Default_Key_Right
981.  C.KBCon_Select = Default_Select_Button
982.  C.KBCon_Start = Default_Start_Button
983.  C.KBCon_A_Button = Default_A_Button
984.  C.KBCon_B_Button = Default_B_Button
985.  C.Joy_Up = -22 'Undefined Joy Pad Controls
986.  C.Joy_Down = -22 'Undefined
987.  C.Joy_Left = -22 'Undefined
988.  C.Joy_Right = -22 'Undefined
989.  C.Joy_Button_Up = -22 'Undefined Joy Pad Controls
990.  C.Joy_Button_Down = -22 'Undefined
991.  C.Joy_Button_Left = -22 'Undefined
992.  C.Joy_Button_Right = -22 'Undefined
993.  C.Joy_Select = -22 'Undefined
994.  C.Joy_Start = -22 'Undefined
995.  C.Joy_A_Button = -22 'Undefined
996.  C.Joy_B_Button = -22 'Undefined
997.  Get_JoyPads 'load posible controller inputs
998.  G.ControlType = TRUE 'keyboard control
999. END SUB
1000.  
1001. SUB Joy_Lock_Button (ID%%)
1002.  ExitFlag%% = FALSE
1003.  DO
1004.   Nul%% = _DEVICEINPUT(C.Control_Pad)
1005.   Nul%% = _BUTTON(ID%%)
1006.   IF Nul%% = FALSE THEN ExitFlag%% = TRUE
1007.  LOOP UNTIL ExitFlag%%
1008. END SUB
1009.  
1010. SUB Joy_Lock_Axis (ID%%)
1011.  ExitFlag%% = FALSE
1012.  IF NOT G.ControlType THEN
1013.   DO
1014.    Nul%% = _DEVICEINPUT(C.Control_Pad)
1015.    Nul%% = _AXIS(ID%%)
1016.    IF Nul%% = FALSE THEN ExitFlag%% = TRUE
1017.   LOOP UNTIL ExitFlag%%
1018.   DO: LOOP WHILE _DEVICEINPUT(C.Control_Pad)
1019.  END IF
1020. END SUB
1021.  
1022. SUB Input_OR_Wait (clicks~%%)
1023.  DO
1024.   pause%% = pause%% + 1
1025.   _LIMIT 60
1026.  LOOP UNTIL pause%% = clicks~%% OR Get_Input = BUTTON_B
1027. END SUB
1028.  
1029. FUNCTION Yes_No_Box%% (X%, Y%)
1030.  Result%% = TRUE
1031.  'make backup of area under window
1032.  _PUTIMAGE (0, 0), Layer(0), Layer(127), (X% * 16, Y% * 16)-STEP(95, 79)
1033.  Create_Dialog_Box X%, Y%, 3, 3
1034.  PS_Print 16 * (X% + 1), 16 * (Y% + 1), "YES", Layer(1)
1035.  PS_Print 16 * (X% + 1), 16 * (Y% + 3), "NO", Layer(1)
1036.  DO
1037.   C_Input%% = Get_Input
1038.   IF C_Input%% = DOWN OR C_Input%% = UP THEN
1039.    IF NOT KeyStop%% THEN
1040.     IF Opt%% THEN Opt%% = 0 ELSE Opt%% = 1
1041.     KeyStop%% = TRUE
1042.    END IF
1043.   ELSE
1044.    KeyStop%% = FALSE
1045.   END IF
1046.   SELECT CASE Opt%%
1047.    CASE 0
1048.     IF Blinkon%% THEN PS_Print 16 * (X%), 16 * (Y% + 1), "k", Layer(1) ELSE PS_Print 16 * (X%), 16 * (Y% + 1), "d", Layer(1)
1049.     PS_Print 16 * X%, 16 * (Y% + 3), "d", Layer(1)
1050.    CASE 1
1051.     PS_Print 16 * X%, 16 * (Y% + 1), "d", Layer(1)
1052.     IF Blinkon%% THEN PS_Print 16 * X%, 16 * (Y% + 3), "k", Layer(1) ELSE PS_Print 16 * X%, 16 * (Y% + 3), "d", Layer(1)
1053.   END SELECT
1054.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
1055.   _LIMIT 60
1056.   blink%% = blink%% + 1
1057.   IF blink%% = 10 THEN Blinkon%% = NOT Blinkon%%: blink%% = 0
1058.   IF C_Input%% = BUTTON_B THEN Result%% = Opt%%: ExitFlag%% = TRUE
1059.  LOOP UNTIL ExitFlag%%
1060.  'scroll backup area back in place
1061.  FOR I%% = 0 TO 80 STEP 8
1062.   _PUTIMAGE (X% * 16, Y% * 16), Layer(127), Layer(0), (0, 0)-STEP(95, I%%)
1063.   _LIMIT 60
1064.  NEXT I%%
1065.  Yes_No_Box = Result%%
1066. END FUNCTION
1067.  
1068. FUNCTION Buy_Sell_Box%% (X%, Y%)
1069.  Result%% = TRUE
1070.  'make backup of area under window
1071.  _PUTIMAGE (0, 0), Layer(0), Layer(127), (X% * 16, Y% * 16)-STEP(111, 95)
1072.  Create_Dialog_Box X%, Y%, 3, 4
1073.  PS_Print 16 * (X% + 1), 16 * (Y% + 1), "BUY", Layer(1)
1074.  PS_Print 16 * (X% + 1), 16 * (Y% + 3), "SELL", Layer(1)
1075.  DO
1076.   C_Input%% = Get_Input
1077.   IF C_Input%% = DOWN OR C_Input%% = UP THEN
1078.    IF NOT KeyStop%% THEN
1079.     IF Opt%% THEN Opt%% = 0 ELSE Opt%% = 1
1080.     KeyStop%% = TRUE
1081.    END IF
1082.   ELSE
1083.    KeyStop%% = FALSE
1084.   END IF
1085.   SELECT CASE Opt%%
1086.    CASE 0
1087.     IF Blinkon%% THEN PS_Print 16 * (X%), 16 * (Y% + 1), "k", Layer(1) ELSE PS_Print 16 * (X%), 16 * (Y% + 1), "d", Layer(1)
1088.     PS_Print 16 * X%, 16 * (Y% + 3), "d", Layer(1)
1089.    CASE 1
1090.     PS_Print 16 * X%, 16 * (Y% + 1), "d", Layer(1)
1091.     IF Blinkon%% THEN PS_Print 16 * X%, 16 * (Y% + 3), "k", Layer(1) ELSE PS_Print 16 * X%, 16 * (Y% + 3), "d", Layer(1)
1092.   END SELECT
1093.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
1094.   _LIMIT 60
1095.   blink%% = blink%% + 1
1096.   IF blink%% = 10 THEN Blinkon%% = NOT Blinkon%%: blink%% = 0
1097.   IF C_Input%% = BUTTON_B THEN ExitFlag%% = TRUE
1098.  LOOP UNTIL ExitFlag%%
1099.  IF Opt%% = 1 THEN Result%% = Opt%% + 1 'return a 2 to trigger the selling menu
1100.  FOR I%% = 0 TO 96 STEP 8
1101.   _PUTIMAGE (X% * 16, Y% * 16), Layer(127), Layer(0), (0, 0)-STEP(111, I%%)
1102.   _LIMIT 60
1103.  NEXT I%%
1104.  Buy_Sell_Box = Result%%
1105. END FUNCTION
1106.  
1107.  
1108. FUNCTION Player_Select%%
1109.  Result%% = 0 'Defualt to Alis
1110.  IF G.Party_Size > 0 THEN
1111.   'setup the selection box for the number of party memebers
1112.   Create_Dialog_Box 5, 12, 1 + G.Party_Size * 2, 4
1113.   FOR i%% = 0 TO G.Party_Size
1114.    PS_Print 16 * 6, 16 * (13 + (i%% * 2)), P(i%%).N, Layer(1)
1115.   NEXT i%%
1116.   tmp& = _COPYIMAGE(Layer(1))
1117.   DO
1118.    SELECT CASE Get_Input
1119.     CASE UP
1120.      Opt%% = Opt%% - 1
1121.      IF Opt%% = -1 THEN Opt%% = G.Party_Size
1122.      DO: LOOP WHILE Get_Input = UP
1123.      _DELAY .005
1124.     CASE DOWN
1125.      Opt%% = Opt%% + 1
1126.      IF Opt%% = G.Party_Size + 1 THEN Opt%% = 0
1127.      DO: LOOP WHILE Get_Input = DOWN
1128.      _DELAY .005
1129.     CASE BUTTON_B
1130.      ExitFlag%% = TRUE
1131.      Result%% = Opt%%
1132.     CASE ESC
1133.      ExitFlag%% = TRUE
1134.    END SELECT
1135.  
1136.    IF blinkon%% THEN PS_Print 16 * 5, 16 * (13 + (Opt%% * 2)), "k", Layer(1) ELSE PS_Print 16 * 5, 16 * (13 + (Opt%% * 2)), "d", Layer(1)
1137.    blink%% = blink%% + 1
1138.    IF blink%% = 8 AND blinkon%% = 0 THEN blinkon%% = -1: blink%% = 0
1139.    IF blink%% = 8 AND blinkon%% = -1 THEN blinkon%% = 0: blink%% = 0
1140.    _PUTIMAGE , Layer(1), Layer(0)
1141.    _PUTIMAGE , tmp&, Layer(1)
1142.    _LIMIT 60
1143.   LOOP UNTIL ExitFlag%%
1144.   _FREEIMAGE tmp&
1145.  ELSE
1146.   'if Party consists of only Alis don't bother!
1147.  END IF
1148.  Player_Select%% = Result%%
1149. END FUNCTION
1150.  
1151.  
1152. SUB Flagged_Conversations (ID%%)
1153.  SELECT CASE ID%%
1154.   CASE 0 'suelo's house
1155.    IF F(0) THEN 'if flag is set then just short message and heal player
1156.     Conversations 2
1157.     Heal_Party
1158.    ELSE 'first dialog with Suelo
1159.     PRINT "convo 1"
1160.     PRINT Chat(0, 0)
1161.     Conversations 1
1162.     F(0) = TRUE
1163.     Heal_Party
1164.    END IF
1165.   CASE 1 'nekise's house
1166.    IF F(1) THEN 'player already recieved Laconian Pot
1167.     Conversations 4
1168.    ELSE 'player recives the Laconian Pot to get Mayu
1169.     Conversations 3
1170.     F(1) = TRUE
1171.     Pack(G.Pack_Count) = Laconian_Pot
1172.     G.Pack_Count = G.Pack_Count + 1
1173.    END IF
1174.   CASE 2 'Camineet Road Guards
1175.    IF In_Pack(RoadPass) THEN
1176.    ELSE
1177.    END IF
1178.  END SELECT
1179. END SUB
1180.  
1181. SUB Conversations (id%)
1182.  Create_Dialog_Box 9, 21, 4, 18
1183.  FOR i%% = 1 TO Chat(id%, 0) STEP 2
1184.   IF Scroll%% THEN
1185.    Scroll_Dialog_Box 9, 21, 4, 18
1186.    TimedPrint 10, 25, Dialog(Chat(id%, i%%)), 20 '
1187.   ELSE
1188.    TimedPrint 10, 23, Dialog(Chat(id%, i%%)), 20 '
1189.   END IF
1190.   IF i%% + 1 < Chat(id%, 0) THEN
1191.    IF Scroll%% THEN Scroll_Dialog_Box 9, 21, 4, 18
1192.    TimedPrint 10, 25, Dialog(Chat(id%, i%% + 1)), 20 '
1193.   ELSEIF (i%% MOD 2) = 1 AND (Chat(id%, 0) MOD 2) = 0 THEN 'two line dialog fix hack
1194.    IF Scroll%% THEN Scroll_Dialog_Box 9, 21, 4, 18
1195.    TimedPrint 10, 25, Dialog(Chat(id%, i%% + 1)), 20 '
1196.   END IF
1197.   Input_OR_Wait 128
1198.   Scroll%% = TRUE
1199.  NEXT i%%
1200. END SUB
1201.  
1202. SUB Interative_Conversations (id%%)
1203.  'conversations requiring YES\NO boxes or other input
1204.  Create_Dialog_Box 9, 21, 4, 18
1205.  FOR i%% = 1 TO Chat(id%, 0) STEP 2
1206.  NEXT i%%
1207. END SUB
1208.  
1209.  
1210. SUB Heal_Party
1211.  FOR I%% = 0 TO G.Party_Size
1212.   P(I%%).Hp = P(I%%).MHp
1213.   P(I%%).Mp = P(I%%).MMp
1214.  NEXT I%%
1215. END SUB
1216.  
1217. FUNCTION In_Pack%% (id%%)
1218.  Result%% = FALSE
1219.  FOR i%% = 0 TO G.Pack_Count - 1
1220.   IF Pack(i%%) = id%% THEN Result%% = TRUE: i%% = G.Pack_Count
1221.  NEXT i%%
1222.  In_Pack = Result%%
1223. END FUNCTION
1224.  
1225. SUB Church (Which%%)
1226.  '------------Setup church screen--------------
1227.  SELECT CASE Which%%
1228.   CASE 0 'town church
1229.    'BGI
1230.    _PUTIMAGE (64, 48)-STEP(511, 383), Layer(8), Layer(1), (0, 1152)-STEP(255, 191)
1231.    'Character
1232.    Place_Shop_NPC 13
1233.    '_PUTIMAGE (281, 200)-STEP(75, 183), NPC&, Temp&, (0 + 13 * 39, 450)-STEP(37, 92)
1234.   CASE 1 'village church
1235.    'BGI
1236.    _PUTIMAGE (64, 48)-STEP(511, 383), Layer(8), Layer(1), (256, 1152)-STEP(255, 191)
1237.    'Character
1238.    _PUTIMAGE (281, 200)-STEP(75, 183), NPC&, Temp&, (0 + 13 * 39, 450)-STEP(37, 92)
1239.  END SELECT
1240.  '---------------------------------------------
1241.  Create_Dialog_Box 9, 21, 4, 18
1242.  TimedPrint 10, 23, Dialog(1452), 20 'this is a church
1243.  TimedPrint 10, 25, Dialog(1453), 20 '
1244.  Input_OR_Wait 128
1245.  Scroll_Dialog_Box 9, 21, 4, 18
1246.  TimedPrint 10, 25, Dialog(1454), 20 'anybody need brought back?
1247.  IF Yes_No_Box(24, 16) = 0 THEN 'need somebody brought back
1248.   DO
1249.    IF G.Party_Size > 0 THEN
1250.     Scroll_Dialog_Box 9, 21, 4, 18
1251.     TimedPrint 10, 25, Dialog(1461), 20 'Who do you want
1252.     Scroll_Dialog_Box 9, 21, 4, 18
1253.     TimedPrint 10, 25, Dialog(1462), 20 'to resurrect
1254.    END IF
1255.    Who%% = Player_Select 'which player
1256.    IF P(Who%%).Status = Dead THEN 'are they really dead?
1257.     Scroll_Dialog_Box 9, 21, 4, 18
1258.     TimedPrint 10, 25, Dialog(1464), 20 'That will require
1259.     Scroll_Dialog_Box 9, 21, 4, 18
1260.     TimedPrint 10, 25, LTRIM$(STR$(P(Who%%).Level * 20)) + Dialog(1465), 20 'to resurrect
1261.     IF NOT Yes_No_Box(24, 16) THEN 'if player will pay
1262.      G.Meseta = G.Meseta - (P(Who%%).Level * 20) 'take fee
1263.      Scroll_Dialog_Box 9, 21, 4, 18
1264.      TimedPrint 10, 25, Dialog(1457), 20 'I will now cast
1265.      Scroll_Dialog_Box 9, 21, 4, 18
1266.      TimedPrint 10, 25, Dialog(1458), 20 'a spell
1267.      Input_OR_Wait 30
1268.      Scroll_Dialog_Box 9, 21, 4, 18
1269.      TimedPrint 10, 25, Dialog(1459), 20 'ahbra
1270.      Scroll_Dialog_Box 9, 21, 4, 18
1271.      TimedPrint 10, 25, Dialog(1460), 20 'cadahbra
1272.      P(Who%%).Hp = P(Who%%).MHp
1273.      P(Who%%).Mp = P(Who%%).MMp
1274.      P(Who%%).Status = Alive
1275.      Input_OR_Wait 30
1276.     END IF
1277.    ELSE 'this person is not dead
1278.     Scroll_Dialog_Box 9, 21, 4, 18
1279.     TimedPrint 10, 25, P(Who%%).N + " " + Dialog(1472), 20 'is alive
1280.    END IF
1281.    Scroll_Dialog_Box 9, 21, 4, 18
1282.    TimedPrint 10, 25, Dialog(1463), 20 'anyone else
1283.    IF Yes_No_Box(24, 16) THEN ExitFlag%% = TRUE
1284.   LOOP UNTIL ExitFlag%%
1285.  ELSE 'just checking stats
1286.  END IF
1287.  Scroll_Dialog_Box 9, 21, 4, 18
1288.  TimedPrint 10, 25, Dialog(1470), 20 'May the gods
1289.  Scroll_Dialog_Box 9, 21, 4, 18
1290.  TimedPrint 10, 25, Dialog(1471), 20 'watch over you.
1291.  Input_OR_Wait 128
1292.  Scroll_Dialog_Box 9, 21, 4, 18
1293.  TimedPrint 10, 25, Dialog(1466), 20 'To Advance to
1294.  Scroll_Dialog_Box 9, 21, 4, 18
1295.  TimedPrint 10, 25, Dialog(1467), 20 'the next level,
1296.  Input_OR_Wait 128
1297.  FOR i%% = 0 TO G.Party_Size
1298.   IF P(i%%).Status = Alive THEN 'only display players who are alive
1299.    IF P(i%%).Level < 30 THEN
1300.     Scroll_Dialog_Box 9, 21, 4, 18
1301.     TimedPrint 10, 25, P(i%%).N + " " + Dialog(1468) + STR$(Pl(i%%, P(i%%).Level + 1).ExpPts - P(i%%).Exp), 20 'needs
1302.     Scroll_Dialog_Box 9, 21, 4, 18
1303.     TimedPrint 10, 25, Dialog(1469), 20 'the next level,
1304.     Input_OR_Wait 128
1305.    ELSE 'player is maxed out
1306.     Scroll_Dialog_Box 9, 21, 4, 18
1307.     TimedPrint 10, 25, P(i%%).N + " " + Dialog(1566), 20 'is strong
1308.     Scroll_Dialog_Box 9, 21, 4, 18
1309.     TimedPrint 10, 25, Dialog(1567), 20 'enough already.
1310.     Input_OR_Wait 128
1311.    END IF
1312.   END IF
1313.  NEXT i%%
1314. END SUB
1315.  
1316. SUB Shop (ID%%)
1317.  '------------Setup shop screen--------------
1318.  'BGI -if bit 7 set then use alt shop layout
1319.  BGI~%% = _SHL(Shops(ID%%).Which, 1) 'bump bit 7 then
1320.  BGI~%% = _SHR(BGI~%%, 5) 'reset to find what type of shop(0-7 only 3 kinds though 0-2)
1321.  _PUTIMAGE (64, 48)-STEP(511, 383), Layer(8), Layer(1), (256 * _READBIT(Shops(ID%%).Which, 7), 384 + (192 * BGI~%%))-STEP(255, 191)
1322.  'Character - can be red, green or blue man
1323.  Char~%% = _SHL(Shops(ID%%).Which, 4) 'bump 4 high bits(4-7)
1324.  Char~%% = _SHR(Char~%%, 4) 'reset to find what type of shop owner
1325.  Place_Shop_NPC Char~%%
1326.  _PUTIMAGE , Layer(1), Layer(0)
1327.  '---------------------------------------------
1328.  Create_Dialog_Box 9, 21, 4, 18
1329.  SELECT CASE BGI~%%
1330.   CASE 2
1331.    TimedPrint 10, 23, Dialog(1408), 20 'this is an armory
1332.    TimedPrint 10, 25, Dialog(1409), 20 'want to buy
1333.    Input_OR_Wait 128
1334.    Scroll_Dialog_Box 9, 21, 4, 18
1335.    TimedPrint 10, 25, Dialog(1410), 20 'something
1336.    Result%% = Yes_No_Box(24, 16)
1337.   CASE 1
1338.    TimedPrint 10, 23, Dialog(1420), 20 'this is a
1339.    TimedPrint 10, 25, Dialog(1421), 20 'First foods shop
1340.    Input_OR_Wait 128
1341.    Scroll_Dialog_Box 9, 21, 4, 18
1342.    TimedPrint 10, 25, Dialog(1422), 20 'like to
1343.    Scroll_Dialog_Box 9, 21, 4, 18
1344.    TimedPrint 10, 25, Dialog(1423), 20 'buy something
1345.    Result%% = Yes_No_Box(24, 16)
1346.   CASE 0
1347.    TimedPrint 10, 23, Dialog(1420), 20 'this is a
1348.    TimedPrint 10, 25, Dialog(1425), 20 'this is second hand
1349.    Input_OR_Wait 128
1350.    Scroll_Dialog_Box 9, 21, 4, 18
1351.    TimedPrint 10, 25, Dialog(1426), 20 'help you
1352.    Result%% = Buy_Sell_Box(9, 16)
1353.  END SELECT
1354.  
1355.  
1356.  IF Result%% = 0 THEN 'wish to buy something? Yes
1357.   DO
1358.    Scroll_Dialog_Box 9, 21, 4, 18
1359.    TimedPrint 10, 25, Dialog(1412), 20 'which do you
1360.    Scroll_Dialog_Box 9, 21, 4, 18
1361.    TimedPrint 10, 25, Dialog(1413), 20 'want to buy
1362.    Display_Meseta_Box 25, 3
1363.    IF Select_Shop_Item(ID%%, Buy%%) <> TRUE THEN
1364.     IF G.Meseta >= ShopCost(ID%%, Buy%%) THEN 'check players on hand cash
1365.      IF G.Pack_Count < Max_Pack_Count THEN 'does player have room to carry more
1366.       Scroll_Dialog_Box 9, 21, 4, 18
1367.       Pack(G.Pack_Count) = ShopItems(ID%%, Buy%%)
1368.       G.Pack_Count = G.Pack_Count + 1
1369.       G.Meseta = G.Meseta - ShopCost(ID%%, Buy%%)
1370.       TimedPrint 10, 25, Dialog(1414), 20 'Thank you
1371.       Scroll_Dialog_Box 9, 21, 4, 18
1372.       TimedPrint 10, 25, Dialog(1415), 20 'anything else
1373.       Display_Meseta_Box 25, 3
1374.       IF Yes_No_Box(24, 16) THEN ExitFlag%% = TRUE ELSE Buy%% = -1
1375.      ELSE 'player has no room
1376.       Scroll_Dialog_Box 9, 21, 4, 18
1377.       TimedPrint 10, 25, Dialog(1416), 20 'dont have
1378.       Scroll_Dialog_Box 9, 21, 4, 18
1379.       TimedPrint 10, 25, Dialog(1417), 20 'the space
1380.       Input_OR_Wait 30
1381.       Msg%% = 2 'display secondary leave message
1382.       ExitFlag%% = TRUE
1383.      END IF
1384.     ELSE 'player doesn't have the cash
1385.      Scroll_Dialog_Box 9, 21, 4, 18
1386.      TimedPrint 10, 25, Dialog(1550), 20 'dont have
1387.      Scroll_Dialog_Box 9, 21, 4, 18
1388.      TimedPrint 10, 25, Dialog(1551), 20 'the money
1389.      Input_OR_Wait 30
1390.      Msg%% = 3 ' alt leave message
1391.      ExitFlag%% = TRUE
1392.     END IF
1393.    ELSE
1394.     ExitFlag%% = TRUE
1395.    END IF
1396.   LOOP UNTIL ExitFlag%% = TRUE
1397.  ELSEIF Result%% = 2 THEN 'sell an item at the second hand store
1398.   DO
1399.    Scroll_Dialog_Box 9, 21, 4, 18
1400.    TimedPrint 10, 25, Dialog(1427), 20 'what do you
1401.    Scroll_Dialog_Box 9, 21, 4, 18
1402.    TimedPrint 10, 25, Dialog(1428), 20 'want to sell?
1403.  
1404.    IF Run_Item_Selection_Menu(ID%%) >= 0 THEN
1405.     Scroll_Dialog_Box 9, 21, 4, 18
1406.     TimedPrint 10, 25, RTRIM$(I(Pack(ID%%)).Nam) + Dialog(1429), 20 'this item
1407.     Scroll_Dialog_Box 9, 21, 4, 18
1408.     TimedPrint 10, 25, Dialog(1430), 20 'to sell....
1409.     Input_OR_Wait 128
1410.     Scroll_Dialog_Box 9, 21, 4, 18
1411.     TimedPrint 10, 25, Dialog(1431) + STR$(I(Pack(ID%%)).Cost \ 2), 20 'how about this
1412.     Scroll_Dialog_Box 9, 21, 4, 18
1413.     TimedPrint 10, 25, Dialog(1432), 20 'much
1414.     IF Yes_No_Box(24, 16) = 0 THEN
1415.      G.Meseta = G.Meseta + I(Pack(ID%%)).Cost \ 2
1416.      Reduce_Pack ID%%
1417.      Scroll_Dialog_Box 9, 21, 4, 18
1418.      TimedPrint 10, 25, Dialog(1414), 20 'Thank you
1419.      Scroll_Dialog_Box 9, 21, 4, 18
1420.      TimedPrint 10, 25, Dialog(1415), 20 'anything else?
1421.      IF Yes_No_Box(24, 16) THEN ExitFlag%% = TRUE
1422.     END IF
1423.  
1424.    ELSE 'player either has nothing to sell or changed mind
1425.     Msg%% = 0
1426.     ExitFlag%% = TRUE
1427.    END IF
1428.   LOOP UNTIL ExitFlag%%
1429.  END IF
1430.  
1431.  Scroll_Dialog_Box 9, 21, 4, 18
1432.  SELECT CASE Msg%%
1433.   CASE 2
1434.    Scroll_Dialog_Box 9, 21, 4, 18
1435.    TimedPrint 10, 25, Dialog(1418), 20 '
1436.    Scroll_Dialog_Box 9, 21, 4, 18
1437.    TimedPrint 10, 25, Dialog(1419), 20 '
1438.   CASE 3
1439.    TimedPrint 10, 25, Dialog(1552), 20 'not enough cash leaving
1440.   CASE ELSE
1441.    TimedPrint 10, 25, Dialog(1411), 20 'normal leaving
1442.  END SELECT
1443. END SUB
1444.  
1445. SUB Display_Meseta_Box (X%%, Y%%)
1446.  Create_Dialog_Box X%%, Y%%, 1, 8
1447.  PS_Print 16 * (X%% + 1), 16 * (Y%% + 1), "MST", Layer(1)
1448.  PS_Print 16 * (X%% + (9 - LEN(LTRIM$(RTRIM$(STR$(G.Meseta)))))), 16 * (Y%% + 1), LTRIM$(STR$(G.Meseta)), Layer(1)
1449. END SUB
1450.  
1451. FUNCTION Select_Shop_Item (ID%%, What%%)
1452.  Result%% = -1 'return this if player cancels
1453.  Create_Dialog_Box 9, 3, 6, 14
1454.  FOR i%% = 0 TO Shops(ID%%).items - 1
1455.   PS_Print 16 * 10, 16 * (5 + 2 * i%%), I(ShopItems(ID%%, i%%)).Nam, Layer(1)
1456.   PS_Print 16 * (10 + 14 - LEN(LTRIM$(RTRIM$(STR$(ShopCost(ID%%, i%%)))))), 16 * (5 + 2 * i%%), LTRIM$(STR$(ShopCost(ID%%, i%%))), Layer(1)
1457.  NEXT i%%
1458.  
1459.  tmp& = _COPYIMAGE(Layer(1))
1460.  DO
1461.   SELECT CASE Get_Input
1462.    CASE UP
1463.     Opt%% = Opt%% - 1
1464.     IF Opt%% = -1 THEN Opt%% = Shops(ID%%).items - 1
1465.     DO: LOOP WHILE Get_Input = UP
1466.    CASE DOWN
1467.     Opt%% = Opt%% + 1
1468.     IF Opt%% = Shops(ID%%).items THEN Opt%% = 0
1469.     DO: LOOP WHILE Get_Input = DOWN
1470.    CASE BUTTON_B
1471.     ExitFlag%% = TRUE
1472.     What%% = Opt%%
1473.     Result%% = Opt%%
1474.    CASE ESC
1475.     ExitFlag%% = TRUE
1476.   END SELECT
1477.  
1478.   IF blinkon%% THEN PS_Print 16 * 9, 16 * (5 + (Opt%% * 2)), "k", Layer(1) ELSE PS_Print 16 * 9, 16 * (5 + (Opt%% * 2)), "d", Layer(1)
1479.  
1480.   blink%% = blink%% + 1
1481.   IF blink%% = 8 AND blinkon%% = 0 THEN blinkon%% = -1: blink%% = 0
1482.   IF blink%% = 8 AND blinkon%% = -1 THEN blinkon%% = 0: blink%% = 0
1483.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
1484.   _PUTIMAGE (0, 0), tmp&, Layer(1)
1485.   _LIMIT 60
1486.  LOOP UNTIL ExitFlag%%
1487.  _FREEIMAGE tmp&
1488.  Select_Shop_Item = Result%%
1489. END FUNCTION
1490.  
1491. SUB Load_Data (F$)
1492.  
1493.  OPEN F$ FOR BINARY AS #1
1494.  GET #1, , M()
1495.  GET #1, , I()
1496.  GET #1, , S()
1497.  GET #1, , Pl()
1498.  GET #1, , PSL()
1499.  GET #1, , KeyCodes()
1500.  PRINT LOC(1)
1501.  GET #1, , Lines_of_Dialog%
1502.  FOR i% = 0 TO Lines_of_Dialog%
1503.   GET #1, , L~%%
1504.   Dialog(i%) = SPACE$(L~%%)
1505.   GET #1, , Dialog(i%)
1506.  NEXT i%
1507.  FOR i%% = 0 TO 3
1508.   GET #1, , D(i%%)
1509.  NEXT i%%
1510.  GET #1, , Encounters()
1511.  GET #1, , DungeonMaster()
1512.  GET #1, , Shops()
1513.  GET #1, , ShopItems()
1514.  GET #1, , ShopCost()
1515.  GET #1, , Chat()
1516.  CLOSE #1
1517.  
1518. END SUB
1519.  
1520. SUB Place_Shop_NPC (Who%%)
1521.  _PUTIMAGE (281, 202)-STEP(75, 101), Layer(9), Layer(1), (0 + Who%% * 39, 450)-STEP(37, 51)
1522. END SUB
1523.  
1524. FUNCTION Run_Item_Selection_Menu%% (ID%%)
1525.  Result%% = -1
1526.  'create a backup of the area under window
1527.  _PUTIMAGE (0, 0), Layer(0), Layer(127), (16 * 26, 16 * 5)-STEP(159, 335)
1528.  IF G.Pack_Count THEN 'only run if player has an Item
1529.   IF G.Pack_Count > 8 THEN
1530.    start%% = 1 'start printing items 1 space lower to allow for the NEXT option
1531.    Create_Dialog_Box 25, 5, 19, 8
1532.    PS_Print 16 * 26, 16 * 8, "NEXT", Layer(1)
1533.    First%% = 0 'start with the first item , incremented witht the NEXT option
1534.    Last%% = 7 'print up to 8(0-7) items per screen
1535.   ELSE
1536.    start%% = 0 'start printing normally due to no NEXT option
1537.    First%% = 0
1538.    Last%% = G.Pack_Count - 1
1539.    Create_Dialog_Box 25, 5, 17, 8
1540.   END IF
1541.   PS_Print 16 * 26, 16 * 6, "MST", Layer(1)
1542.   PS_Print 16 * (34 - LEN(LTRIM$(STR$(G.Meseta)))), 16 * 6, LTRIM$(STR$(G.Meseta)), Layer(1)
1543.   _PUTIMAGE (0, 0), Layer(1), Layer(0) 'move our creation to display
1544.   temp& = _COPYIMAGE(Layer(0)) 'create a temp layer of display to use as a base image
1545.   DO
1546.    SELECT CASE Get_Input
1547.     CASE UP
1548.      Opt%% = Opt%% - 1
1549.      IF Opt%% = -1 THEN Opt%% = Last%% + start%%
1550.      DO: LOOP WHILE Get_Input = UP
1551.      _DELAY .005
1552.     CASE DOWN
1553.      Opt%% = Opt%% + 1
1554.      IF Opt%% = Last%% + start%% + 1 THEN Opt%% = 0
1555.      DO: LOOP WHILE Get_Input = DOWN
1556.      _DELAY .005
1557.     CASE BUTTON_B
1558.      IF start%% THEN 'if start is set then there is a next option that must be checked
1559.       IF Opt%% = 0 THEN
1560.        Offset%% = Offset%% + 8
1561.        IF Offset%% > G.Pack_Count THEN Offset%% = 0
1562.        IF Offset%% = 0 THEN Last%% = 7 ELSE Last%% = G.Pack_Count - Offset%%
1563.        IF Last%% > 7 THEN Last%% = 7
1564.       ELSE
1565.        ExitFlag%% = TRUE
1566.        Result%% = Opt%% + Offset%%
1567.       END IF
1568.      ELSE
1569.       ExitFlag%% = TRUE
1570.       Result%% = Opt%%
1571.      END IF
1572.     CASE ESC
1573.      ExitFlag%% = TRUE
1574.    END SELECT
1575.    IF blinkon%% THEN PS_Print 16 * 25, 16 * (8 + (Opt%% * 2)), "k", Layer(1) ELSE PS_Print 16 * 25, 16 * (8 + (Opt%% * 2)), "d", Layer(1)
1576.    blink%% = blink%% + 1
1577.    IF blink%% = 8 AND blinkon%% = 0 THEN blinkon%% = -1: blink%% = 0
1578.    IF blink%% = 8 AND blinkon%% = -1 THEN blinkon%% = 0: blink%% = 0
1579.    FOR I%% = First%% TO Last%%
1580.     PS_Print 16 * 26, 16 * (8 + (I%% + start%%) * 2), I(Pack(I%% + Offset%%)).Nam, Layer(1)
1581.    NEXT I%%
1582.    _PUTIMAGE (0, 0), Layer(1), Layer(0)
1583.    _PUTIMAGE (0, 0), temp&, Layer(1)
1584.    _LIMIT 60
1585.   LOOP UNTIL ExitFlag%%
1586.   _FREEIMAGE temp&
1587.  ELSE 'Player has no items to use
1588.   start%% = 0
1589.   Create_Dialog_Box 25, 5, 17, 8
1590.   PS_Print 16 * 26, 16 * 6, "MST", Layer(1)
1591.   PS_Print 16 * (34 - LEN(LTRIM$(STR$(G.Meseta)))), 16 * 6, LTRIM$(STR$(G.Meseta)), Layer(1)
1592.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
1593.   DO: _LIMIT (30): LOOP WHILE Get_Input = TRUE
1594.  END IF
1595.  _PUTIMAGE (0, 0), Layer(0), Layer(1)
1596.  ID%% = Result%%
1597.  FOR I% = 0 TO 336 STEP 16
1598.   _PUTIMAGE (26 * 16, 5 * 16), Layer(127), Layer(0), (0, 0)-STEP(159, I%)
1599.   _LIMIT 60
1600.  NEXT I%
1601.  Run_Item_Selection_Menu = Result%%
1602. END FUNCTION
1603.  
1604. SUB Reduce_Pack (id%%)
1605.  FOR i%% = id%% TO G.Pack_Count - 1
1606.   SWAP Pack(i%%), Pack(i%% + 1)
1607.  NEXT i%%
1608.  Pack(G.Pack_Count - 1) = 0
1609.  G.Pack_Count = G.Pack_Count - 1
1610. END SUB
1611.  

I think the numbering on the code box only goes up to 999?!(1 in the thousands place doesn't show in my firefox)

[TempodiBasic]

Hi Cobalt
your radioactive light is coming out!

Cool graphic, (who have made the images? ), bad music, bad sound, smooth movement, fine font for text.

2 feedbacks:

 

 

I got a lot of rest in this Demo world. Good for me.
I like your project and I hope to see news as soon as (ASAP).