« previous next »
Pages: [1]   Go Down

Author Topic: Help with a Compliation error  (Read 3464 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Help with a Compliation error
« on: June 07, 2021, 02:09:19 pm »
Can anybody see what I am doing wrong to get this error? this is with 1.5 (3043116) (and 1.4)
"In file included from qbx.cpp:2216:
..\\temp\\main.txt: In function 'void QBMAIN(void*)':
..\\temp\\main.txt:599:101: error: lvalue required as unary '&' operand
 sub_put( 1 ,NULL,byte_element((uint64)(&(qbs_new_fixed(&((uint8*)(__ARRAY_STRING5_D[0]))[(0)*5],5,1))),(5*(__ARRAY_STRING5_D[2]&1)*__ARRAY_STRING5_D[5])-(5*(0)),byte_element_45),0);
                                                                                                     ^
compilation terminated due to -Wfatal-errors.
"

heres the code, and the TXT file it accesses below
it errors out when I try to save the array D() in the line: PUT #1, , D()
remark that line out and it works fine.
Code: QB64: [Select]
  1. TYPE Monsters
  2.  Nam AS STRING * 8 '     Monster name
  3.  Hp AS _UNSIGNED _BYTE ' Health
  4.  MHp AS _UNSIGNED _BYTE ' Health
  5.  Atp AS _UNSIGNED _BYTE ' Attack Power
  6.  Dfp AS _UNSIGNED _BYTE ' Defence Power
  7.  Exp AS _UNSIGNED _BYTE ' Experiance
  8.  Mes AS _UNSIGNED _BYTE ' Meseta(gold)
  9.  Num AS _BYTE '           How many show up
  10.  Flee AS _UNSIGNED _BYTE 'Difficulty in running away (0-255 where 0 is bad)
  11.  Trap AS _BYTE '          is their treasure trapped (0-255 where 0 is good)
  12.  Kind AS _UNSIGNED _BYTE 'Kind of trap(arrow or blast)
  13.  Drop AS _BYTE '          Item Dropped if any
  14.  Odds AS _UNSIGNED _BYTE 'How likey to drop item (0-255 where 0 is no drop)
  15.  Talk AS _BYTE '          can talk to normally
  16.  Chat AS _BYTE '          can talk to magically
  17.  Rope AS _BYTE '          can use rope against
  18.  Prot AS _BYTE '          can use protect against
  19.  Myst AS _BYTE '          mystery???
  20.  Special AS _BYTE '       special attack(rope,cure,fire,ect)
  22.  
  23. TYPE Items
  24.  Nam AS STRING * 8
  25.  Pwr AS _BYTE
  26.  Cost AS INTEGER
  27.  Alis AS _BYTE
  28.  Myau AS _BYTE
  29.  Odin AS _BYTE
  30.  Noah AS _BYTE
  31.  CanSell AS _BYTE
  32.  CanDrop AS _BYTE
  33.  Is_Type AS _BYTE
  35.  
  36. TYPE PlayerLeveling
  37.  HitPts AS _UNSIGNED _BYTE
  38.  AttVal AS _UNSIGNED _BYTE
  39.  DefVal AS _UNSIGNED _BYTE
  40.  MagPts AS _UNSIGNED _BYTE
  42.  Combat AS LONG
  43.  NonCbt AS LONG
  45.  
  46. TYPE WorldTiles
  48.  Is_Walkable AS _BYTE
  49.  Is_Animated AS _BYTE
  50.  Encounter_Group AS _BYTE 'what types of creature encounters possible
  51.  Is_Village AS _BYTE
  52.  Is_Cave AS _BYTE 'Covers all Cave-like locations
  53.  Display_Layer AS _BYTE '
  55.  
  56. TYPE TownTiles
  58.  Is_Walkable AS _BYTE
  59.  Is_Animated AS _BYTE
  60.  Is_NPC_Location AS _BYTE 'where the NPCs stand
  61.  Is_Building AS _BYTE 'covers shops and houses
  62.  Is_Exit AS _BYTE
  64.  
  65. TYPE Spells
  66.  Nam AS STRING * 4
  67.  Cost AS _BYTE
  69.  
  70. TYPE KeyCodeData
  71.  Nam AS STRING * 8
  72.  Value AS LONG
  74.  
  75. TYPE PlayerSpellList
  76.  link AS _BYTE
  78.  
  79.  
  80. DIM SHARED M(74) AS Monsters, Pl(3, 30) AS PlayerLeveling, I(64) AS Items
  81. DIM SHARED S(18) AS Spells, PSL(3, 1, 4) AS PlayerSpellList
  82. DIM SHARED Line$(1500), D(3) AS STRING * 5
  83. DIM SHARED KeyCodes(134) AS KeyCodeData
  84. DIM SHARED TownMap(9, 54, 39) AS TownTiles '_UNSIGNED _BYTE
  85. DIM SHARED Map(128, 96) AS WorldTiles '_UNSIGNED _BYTE
  86.  
  87. ' _KEYHIT Keyboard Codes
  88. '
  89. 'Esc  F1    F2    F3    F4    F5    F6    F7    F8    F9    F10   F11   F12   Sys  ScL Pause
  90. ' 27 15104 15360 15616 15872 16128 16384 16640 16896 17152 17408 34048 34304 +316 +302 +019
  91. '`~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp   Ins   Hme   PUp   NumL   /     *    -
  92. '126 33  64  35  36  37  94  38  42  40  41 95 43   8   20992 18176 18688  +300  47    42   45
  93. ' 96 49  50  51  52  53  54  55  56  57  48 45 61
  94. 'Tab Q   W   E   R   T   Y   U   I   O   P  [{  ]}  \|   Del   End   PDn   7Hme  8/?   9PU   +
  95. ' 9  81  87  69  82  84  89  85  73  79  80 123 125 124 21248 20224 20736 18176 18432 18688 43
  96. '   113 119 101 114 116 121 117 105 111 112  91  93  92                    55    56    57
  97. 'CapL   A   S   D   F   G   H   J   K   L   ;:  '" Enter                   4/?-   5    6/-?
  98. '+301  65  83  68  70  71  72  74  75  76   58  34  13                    19200 19456 19712  E
  99. '      97 115 100 102 103 104 106 107 108   59  39                    52    53    54   n
  100. 'Shift   Z   X   C   V   B   N   M   ,<  .>  /?    Shift       ?           1End  2/?   3PD   t
  101. '+304    90  88  67  86  66  78  77  60  62  63    +303      18432        20224 20480 20736  e
  102. '       122 120  99 118  98 110 109  44  46  47                             49    50    51   r
  103. 'Ctrl   Win  Alt     Spacebar      Alt  Win  Menu  Ctrl   ?-    ?   -?      0Ins       .Del
  104. '+306  +311 +308        32        +307 +312 +319   +305 19200 20480 19712   20992     21248  13
  105. '                                                                            48         46
  106. '
  107. '     Lower value = LCase/NumLock On __________________ + = add 100000
  108.  
  109. KeyCodesData:
  110. DATA "ESC",27,"F1",15104,"F2",15360,"F3",15616,"F4",15872,"F5",16128,"F6",16384,"F7",16640,"F8",16896
  111. DATA "F9",17152,"F10",17408,"F11",34048,"F12",34304,"PrntScrn",100316,"ScrlLock",100302,"Pause",100019
  112. DATA "`",96,"1",49,"2",50,"3",51,"4",52,"5",53,"6",54,"7",55,"8",56,"9",57,"0",48,"-",45,"=",61,"BackSpce",8
  113. DATA "Insert",20992,"Home",18176,"PgUp",18688,"NumLock",100300,"/",47,"*",42,"~",126,"!",33,"@",64,"#",35
  114. DATA "$",36,"%",37,"^",94,"&",38,"*",42,"(",40,")",41,"_",95,"+",43,"TAB",9,"Q",81,"W",87,"E",69,"R",82
  115. DATA "T",84,"Y",89,"U",85,"I",73,"O",79,"P",80,"[",91,"]",93,"\",92,"A",65,"S",83,"D",68,"F",70,"G",71
  116. DATA "H",72,"J",74,"K",75,"L",76,";",59,"'",39,"Enter",13,"L-Shift",100304,"Z",90,"X",88,"C",67,"V",86
  117. DATA "B",66,"N",78,"M",77,",",44,".",46,"R-Shift",100303,"L-Ctrl",100306,"L-Win",100311,"L-Alt",100308
  118. DATA "SpaceBar",32,"R-Alt",100307,"R-Win",100312,"Menu",100319,"R-Ctrl",100305,"q",113,"w",119,"e",101,"r",114
  119. DATA "t",116,"y",121,"u",117,"i",105,"o",111,"p",112,"{",123,"}",125,"|",124,"Del",21248,"End",20224,"PgDn",20736
  120. DATA "a",97,"s",115,"d",100,"f",102,"g",103,"h",104,"j",106,"k",107,"l",108,":",58,"z",122,"x",120,"c",99
  121. DATA "v",118,"b",98,"n",110,"m",109,"<",60,">",62,"?",63,"UP-Arrow",18432,"Lt-Arrow",19200,"Dn-Arrow",20480,"Rt-Arrow",19712
  122.  
  123. MonsterData:
  124. '     NAME      hp  Mhp att def xp  mes #  Run Trp kd dp od tk ct rp pr ms sp
  125. DATA "        ",0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7
  126. DATA "SWORM   ",8,8,13,9,3,2,8,255,12,1,0,0,0,0,-1,-1,-1,0
  127. DATA "GR.SLIME",18,18,18,13,8,4,6,204,12,1,0,0,0,0,-1,-1,0,0
  128. DATA "WING EYE",11,11,12,10,6,2,6,127,15,1,0,0,0,0,-1,-1,-1,0
  129. DATA "MANEATER",16,16,12,10,13,3,5,255,15,1,0,0,0,0,-1,-1,0,0
  130. DATA "SCORPION",12,12,14,12,13,4,4,204,15,2,0,0,0,0,-1,-1,-1,0
  131. DATA "G.SCORPI",20,20,20,17,11,5,4,127,15,1,0,0,0,0,-1,-1,-1,0
  132. DATA "BL.SLIME",40,40,26,20,19,5,6,153,15,1,0,0,0,0,-1,-1,0,2
  133. DATA "N.FARMER",38,38,37,37,8,5,5,178,0,0,36,1,-1,-1,-1,-1,0,0
  134. DATA "OWL BEAR",18,18,22,18,12,5,4,153,12,1,0,0,0,0,-1,-1,-1,0
  135. DATA "DEADTREE",23,23,23,25,21,4,3,204,40,1,0,0,0,0,-1,-1,0,0
  136. DATA "SCORPIUS",22,22,25,20,27,8,5,102,15,1,0,0,0,0,-1,-1,-1,1
  137. DATA "E.FARMER",42,42,27,40,30,9,5,204,15,1,0,0,-1,-1,-1,-1,0,0
  138. DATA "GIANTFLY",25,25,30,21,32,7,4,102,15,1,0,0,0,0,-1,-1,-1,4
  139. DATA "CRAWLER ",40,40,31,32,30,9,3,127,15,1,0,0,0,0,-1,-1,0,0
  140. DATA "BARBRIAN",54,54,35,50,89,10,8,76,20,1,36,1,-1,-1,-1,-1,0,0
  141. DATA "GOLDLENS",28,28,36,35,24,9,4,127,15,1,0,0,0,0,-1,-1,-1,0
  142. DATA "RD.SLIME",29,29,37,25,31,11,3,153,15,1,0,0,0,0,-1,-1,0,1
  143. DATA "WERE BAT",50,50,37,35,63,11,4,127,15,1,0,0,0,0,-1,-1,-1,3
  144. DATA "BIG CLUB",46,46,40,36,40,9,2,204,15,1,0,0,0,0,-1,-1,0,0
  145. DATA "FISHMAN ",42,42,42,40,42,11,5,153,15,1,0,0,0,0,-1,-1,0,0
  146. DATA "EVILDEAD",30,30,43,36,8,14,3,229,12,1,0,0,0,0,-1,-1,0,0
  147. DATA "TARANTUL",50,50,50,43,51,10,2,153,38,1,0,0,0,-1,-1,-1,0,1
  148. DATA "MANTICOR",60,60,53,44,49,15,3,153,15,1,0,0,0,-1,0,-1,-1,4
  149. DATA "SKELETON",53,53,58,41,25,13,5,204,15,1,0,0,0,0,-1,-1,0,0
  150. DATA "ANT LION",66,66,59,52,7,8,1,178,12,1,0,0,0,0,-1,-1,0,1
  151. DATA "MARMAN  ",58,58,67,50,43,14,6,127,15,1,0,0,0,0,-1,-1,0,0
  152. DATA "DEZORIAN",76,76,77,63,105,18,5,127,12,1,0,0,-1,-1,-1,-1,0,0
  153. DATA "LEECH   ",70,70,67,47,47,15,4,165,12,1,0,0,0,0,-1,-1,0,3
  154. DATA "VAMPIRE ",67,67,68,46,71,15,2,204,12,1,39,1,0,0,-1,-1,-1,0
  155. DATA "ELEPHANT",86,86,62,48,38,17,5,204,12,1,0,0,0,0,-1,0,0,0
  156. DATA "GHOUL   ",68,68,64,47,26,16,3,178,12,1,0,0,0,0,-1,-1,0,0
  157. DATA "SHELFISH",62,62,77,52,46,16,3,229,20,1,0,0,0,0,-1,-1,0,0
  158. DATA "EXECUTER",62,62,73,50,63,12,3,102,53,1,0,0,0,0,-1,-1,0,0
  159. DATA "WIGHT   ",50,50,64,48,40,18,3,178,12,1,0,0,0,0,-1,-1,0,1
  160. DATA "SKULL-EN",57,57,75,53,37,18,3,178,12,1,0,0,0,0,-1,-1,0,0
  161. DATA "AMMONITE",90,90,88,60,71,19,2,153,63,1,0,0,0,0,-1,-1,0,0
  162. DATA "SPHINX  ",78,78,80,65,58,21,4,204,12,1,39,1,0,-1,0,-1,-1,0
  163. DATA "SERPENT ",80,80,100,66,96,23,1,178,15,1,0,0,0,0,-1,-1,-1,0
  164. DATA "SANDWORM",82,82,107,63,129,20,3,153,15,1,0,0,0,0,-1,-1,0,0
  165. DATA "LICH    ",60,60,84,62,33,22,2,204,12,1,0,0,0,0,-1,-1,0,1
  166. DATA "OCTOPUS ",90,90,85,68,64,20,1,191,12,1,0,0,0,0,-1,-1,0,0
  167. DATA "STALKER ",79,79,90,75,87,22,4,229,15,1,0,0,0,0,-1,-1,0,0
  168. DATA "EVILHEAD",86,86,118,77,136,20,3,127,15,1,0,0,-1,-1,-1,-1,0,0
  169. DATA "ZOMBIE  ",87,87,108,58,27,20,4,153,15,1,0,0,0,0,-1,-1,0,0
  170. DATA "BATALION",100,100,112,64,59,21,3,204,12,1,0,0,0,0,-1,-1,0,0
  171. DATA "ROBOTCOP",110,110,135,90,156,25,1,102,15,1,0,0,0,0,0,0,0,0
  172. DATA "SORCERER",110,110,121,74,120,26,2,204,51,1,0,0,0,0,-1,-1,0,4
  173. DATA "NESSIE  ",93,93,126,77,101,28,2,204,12,1,0,0,0,0,-1,-1,-1,0
  174. DATA "TARZIMAL",125,125,120,100,0,0,1,0,12,1,0,0,0,0,0,-1,0,4
  175. DATA "GOLEM   ",140,140,121,96,150,24,2,178,12,1,0,0,0,0,-1,0,0,0
  176. DATA "ANDROCOP",120,120,145,89,123,29,2,127,12,1,0,0,0,0,0,0,0,0
  177. DATA "TENTACLE",118,118,118,87,98,27,1,178,12,1,0,0,0,0,-1,-1,0,0
  178. DATA "GIANT   ",120,120,122,88,119,30,2,127,12,1,0,0,0,0,-1,0,0,0
  179. DATA "WYVERN  ",110,110,123,84,125,26,1,127,12,1,0,0,0,0,-1,-1,-1,0
  180. DATA "REAPER  ",185,185,135,102,254,30,1,204,51,1,0,0,0,0,-1,0,0,3
  181. DATA "MAGICIAN",138,138,145,90,187,32,1,127,12,1,0,0,0,0,-1,-1,0,5
  182. DATA "HORSEMAN",130,130,126,89,148,30,2,89,0,0,39,1,0,-1,0,0,0,4
  183. DATA "FROSTMAN",140,140,138,98,128,36,1,191,20,1,0,0,0,0,0,-1,0,0
  184. DATA "AMUNDSEN",133,133,140,98,120,32,1,178,12,1,0,0,0,0,0,-1,0,0
  185. DATA "RD.DRAGN",175,175,160,105,193,65,1,127,15,1,0,0,0,-1,0,-1,-1,0
  186. DATA "GR.DRAGN",160,160,145,95,176,53,1,153,12,1,0,0,0,-1,0,-1,-1,0
  187. DATA "SHADOW  ",165,165,172,104,0,60,1,127,12,1,0,0,0,0,-1,-1,0,0
  188. DATA "MAMMOTH ",180,180,154,100,125,40,5,178,15,1,0,0,0,0,-1,0,0,0
  189. DATA "CENTAUR ",190,190,155,100,133,31,1,127,40,1,0,0,0,-1,0,0,0,1
  190. DATA "MARAUDER",135,135,134,88,173,30,1,178,15,1,0,0,0,0,-1,0,0,5
  191. DATA "TITAN   ",190,190,146,97,138,32,2,127,33,1,0,0,0,0,-1,0,0,0
  192. DATA "MEDUSA  ",200,200,166,103,194,50,1,153,0,0,39,1,0,0,-1,0,0,6
  193. DATA "WT.DRAGN",200,200,180,104,234,75,1,153,15,1,0,0,0,-1,0,0,-1,0
  194. DATA "BL.DRAGN",210,210,155,90,178,88,1,153,12,1,0,0,0,-1,0,0,-1,0
  195. DATA "GD.DRAGN",170,170,200,98,0,100,1,0,0,0,0,0,0,0,0,0,-1,2
  196. DATA "DR.MAD  ",233,233,180,85,140,25,1,102,0,0,0,0,0,0,-1,-1,0,0
  197. DATA "LASSIC  ",238,238,230,180,0,0,1,0,0,0,0,0,0,0,0,0,0,7
  198. DATA "DARKFALZ",255,255,255,150,0,0,2,30,0,0,0,0,0,0,0,0,0,0
  199. DATA "SACCUBUS",255,255,150,250,0,10,1,0,0,0,0,0,0,0,0,0,0,1
  200.  
  201. PlayerLevelData:
  202. DATA 16,8,8,0,0,0,0
  203. DATA 20,10,11,0,0,0,20
  204. DATA 25,12,15,0,0,0,50
  205. DATA 34,14,20,4,1,1,100
  206. DATA 45,15,24,6,2,1,230
  207. DATA 54,18,27,8,3,1,330
  208. DATA 66,21,30,10,3,1,450
  209. DATA 76,23,33,12,3,1,600
  210. DATA 81,24,40,13,3,1,800
  211. DATA 93,25,51,14,3,1,1050
  212. DATA 99,27,60,15,3,1,1300
  213. DATA 111,30,64,16,4,1,1700
  214. DATA 123,31,68,18,4,1,2200
  215. DATA 132,34,75,20,5,1,2800
  216. DATA 140,36,80,22,5,1,3500
  217. DATA 153,38,85,22,5,2,4100
  218. DATA 159,40,90,24,5,2,5000
  219. DATA 166,41,96,24,5,2,6000
  220. DATA 173,43,100,25,5,2,7200
  221. DATA 182,44,107,25,5,2,8500
  222. DATA 187,46,110,26,5,2,10000
  223. DATA 192,48,112,26,5,2,12000
  224. DATA 200,49,113,27,5,2,14500
  225. DATA 204,50,114,28,5,2,17500
  226. DATA 208,51,115,29,5,2,23000
  227. DATA 210,52,119,29,5,2,30000
  228. DATA 212,53,117,30,5,2,38000
  229. DATA 214,54,118,30,5,2,45000
  230. DATA 216,55,119,32,5,2,52000
  231. DATA 218,56,120,32,5,2,63000
  232.  
  233. DATA 22,18,22,0,0,0,0
  234. DATA 30,21,26,0,0,0,50
  235. DATA 38,25,31,0,0,0,120
  236. DATA 42,28,34,0,0,0,220
  237. DATA 44,31,38,0,0,0,350
  238. DATA 54,35,41,12,1,1,680
  239. DATA 60,39,45,15,1,1,950
  240. DATA 64,42,53,17,1,1,1150
  241. DATA 70,45,55,19,2,1,1400
  242. DATA 78,48,60,21,2,1,1700
  243. DATA 84,50,63,22,2,1,2100
  244. DATA 90,51,68,23,3,1,2600
  245. DATA 116,52,71,25,3,1,3200
  246. DATA 118,56,74,27,3,1,3900
  247. DATA 121,59,80,30,3,2,4500
  248. DATA 132,61,85,34,3,2,5200
  249. DATA 142,63,89,36,3,3,6100
  250. DATA 150,67,95,38,3,3,7000
  251. DATA 155,70,100,40,3,3,8200
  252. DATA 162,73,102,44,4,3,9500
  253. DATA 175,76,104,46,4,3,10500
  254. DATA 183,77,106,47,4,3,13000
  255. DATA 193,79,108,48,4,3,15000
  256. DATA 202,80,112,49,4,3,18000
  257. DATA 208,81,113,50,4,3,22000
  258. DATA 210,82,114,51,4,3,30000
  259. DATA 211,83,115,52,4,3,36000
  260. DATA 212,84,116,53,4,3,42000
  261. DATA 213,85,117,54,4,3,50000
  262. DATA 214,86,118,55,4,3,60000
  263. DATA 42,13,13,0,0,0,0
  264. DATA 47,15,15,0,0,0,80
  265. DATA 52,17,17,0,0,0,160
  266. DATA 57,18,19,0,0,0,250
  267. DATA 60,19,21,0,0,0,350
  268. DATA 63,20,23,0,0,0,480
  269. DATA 67,21,25,0,0,0,630
  270. DATA 75,23,27,0,0,0,850
  271. DATA 82,24,29,0,0,0,1100
  272. DATA 94,25,31,0,0,0,1400
  273. DATA 100,26,34,0,0,0,1800
  274. DATA 107,27,37,0,0,0,2300
  275. DATA 116,28,40,0,0,0,3000
  276. DATA 129,30,43,0,0,0,3800
  277. DATA 131,31,45,0,0,0,4100
  278. DATA 135,32,47,0,0,0,5000
  279. DATA 140,33,49,0,0,0,6000
  280. DATA 147,35,53,0,0,0,7400
  281. DATA 150,36,56,0,0,0,9000
  282. DATA 156,37,61,0,0,0,10500
  283. DATA 162,38,65,0,0,0,12000
  284. DATA 169,39,66,0,0,0,13500
  285. DATA 175,40,67,0,0,0,15500
  286. DATA 179,41,68,0,0,0,17500
  287. DATA 187,42,69,0,0,0,20000
  288. DATA 188,43,70,0,0,0,28000
  289. DATA 189,44,71,0,0,0,35000
  290. DATA 190,45,72,0,0,0,41000
  291. DATA 191,46,73,0,0,0,50000
  292. DATA 192,47,74,0,0,0,60000
  293. DATA 45,18,30,12,1,1,0
  294. DATA 49,22,36,18,1,1,70
  295. DATA 54,23,41,22,1,1,150
  296. DATA 57,26,47,25,1,1,250
  297. DATA 61,29,53,28,1,1,380
  298. DATA 65,30,60,32,1,2,520
  299. DATA 71,32,65,36,1,2,700
  300. DATA 79,34,71,36,2,3,800
  301. DATA 83,36,75,41,2,3,900
  302. DATA 89,38,82,43,2,3,1100
  303. DATA 95,40,85,46,2,3,1400
  304. DATA 101,41,88,48,3,3,1900
  305. DATA 107,43,92,49,3,3,2500
  306. DATA 112,45,96,50,4,3,3300
  307. DATA 118,47,99,52,4,3,4200
  308. DATA 124,48,100,54,4,3,5300
  309. DATA 131,50,103,58,4,4,6500
  310. DATA 137,53,106,62,5,4,8800
  311. DATA 143,57,108,66,5,4,10000
  312. DATA 155,60,110,70,5,5,12000
  313. DATA 161,62,112,72,5,5,14000
  314. DATA 168,64,115,75,5,5,15800
  315. DATA 172,66,116,76,5,5,18000
  316. DATA 186,68,117,77,5,5,19500
  317. DATA 190,70,118,78,5,5,21000
  318. DATA 191,71,119,79,5,5,25000
  319. DATA 192,72,120,80,5,5,30000
  320. DATA 193,73,121,81,5,5,38000
  321. DATA 194,74,122,82,5,5,45000
  322. DATA 195,75,123,83,5,5,50000
  323.  
  324. ItemData:
  325. '    NAME       PWR COST  Al  MY  OD  NO  SEL DRP TYP
  326. DATA "        ",0,0,-1,-1,-1,-1,0,0,0
  327. DATA "WOODCANE",3,25,-1,0,-1,-1,-1,-1,1
  328. DATA "SHT. SWD",4,40,-1,0,-1,-1,-1,-1,1
  329. DATA "IRN. SWD",12,75,-1,0,-1,0,-1,-1,1
  330. DATA "WAND    ",10,1200,0,0,0,-1,-1,-1,1
  331. DATA "IRN.FANG",10,700,0,-1,0,0,-1,-1,1
  332. DATA "IRN. AXE",10,64,0,0,-1,0,-1,-1,1
  333. DATA "TIT. SWD",21,320,-1,0,-1,0,-1,-1,1
  334. DATA "CRC. SWD",31,1120,-1,0,-1,0,-1,-1,1
  335. DATA "NEEDLGUN",18,400,0,0,-1,0,-1,-1,1
  336. DATA "SIL.FANG",30,1620,0,-1,0,0,-1,-1,1
  337. DATA "HEAT.GUN",30,1540,0,0,-1,0,-1,-1,1
  338. DATA "LGT.SABR",46,2980,-1,0,-1,0,-1,-1,1
  339. DATA "LASR.GUN",50,4120,0,0,-1,0,-1,-1,1
  340. DATA "LAC. SWD",60,0,-1,0,-1,0,0,-1,1
  341. DATA "LAC. AXE",80,0,0,0,-1,0,0,-1,1
  342. DATA "LTH.ARMR",5,28,-1,0,-1,0,-1,-1,2
  343. DATA "WHT.MANT",5,78,0,0,0,-1,-1,-1,2
  344. DATA "LGT.SUIT",15,290,-1,0,-1,0,-1,-1,2
  345. DATA "IRN.ARMR",20,84,0,0,-1,0,-1,-1,2
  346. DATA "THCK.FUR",30,630,0,0,-1,0,-1,-1,2
  347. DATA "ZIR.ARMR",30,1000,-1,0,-1,0,-1,-1,2
  348. DATA "DMD.ARMR",60,15000,-1,0,-1,0,-1,-1,2
  349. DATA "LAC.ARMR",80,0,0,0,-1,0,0,-1,2
  350. DATA "FRD.MANT",40,0,0,0,0,-1,0,-1,2
  351. DATA "LTH. SLD",3,30,-1,0,-1,0,-1,-1,3
  352. DATA "BRNZ.SLD",8,310,0,0,-1,0,-1,-1,3
  353. DATA "IRN. SLD",15,520,-1,0,-1,0,-1,-1,3
  354. DATA "CRC. SLD",23,1400,-1,0,-1,0,-1,-1,3
  355. DATA "GLOVE   ",40,3300,0,-1,0,0,-1,-1,3
  356. DATA "LASR.SLD",30,4800,-1,0,-1,-1,-1,-1,3
  357. DATA "MIRR.SLD",40,0,0,0,-1,0,-1,-1,3
  358. DATA "LAC. SLD",50,0,-1,0,-1,0,0,-1,3
  359. DATA "LANDROVR",0,5200,-1,-1,-1,-1,0,0,4
  360. DATA "HOVRCRFT",0,0,-1,-1,-1,-1,0,0,4
  361. DATA "ICE DIGR",0,12000,-1,-1,-1,-1,0,0,4
  362. DATA "COLA    ",10,10,-1,-1,-1,-1,-1,-1,5
  363. DATA "BURGER  ",40,40,-1,-1,-1,-1,-1,-1,5
  364. DATA "FLUTE   ",0,320,-1,-1,-1,-1,-1,-1,0
  365. DATA "FLASH   ",0,20,-1,-1,-1,-1,-1,-1,0
  366. DATA "ESCAPER ",0,10,-1,-1,-1,-1,-1,-1,0
  367. DATA "TRANSER ",0,48,-1,-1,-1,-1,-1,-1,0
  368. DATA "MAGC HAT",0,20,-1,-1,-1,-1,-1,-1,0
  369. DATA "ALSULIN ",0,0,-1,-1,-1,-1,0,0,4
  370. DATA "POLYMTRL",0,0,-1,-1,-1,-1,-1,-1,4
  371. DATA "DUGN KEY",0,0,-1,-1,-1,-1,0,-1,0
  372. DATA "SPHERE  ",0,30,-1,-1,-1,-1,-1,-1,0
  373. DATA "TORCH   ",0,0,-1,-1,-1,-1,0,0,0
  374. DATA "PRISM   ",0,0,-1,-1,-1,-1,0,0,0
  375. DATA "NUTS    ",0,0,-1,-1,-1,-1,0,0,0
  376. DATA "HAPSBY  ",0,0,-1,-1,-1,-1,0,0,0
  377. DATA "ROADPASS",0,200,-1,-1,-1,-1,0,0,0
  378. DATA "PASSPORT",0,100,-1,-1,-1,-1,-1,-1,0
  379. DATA "COMPASS ",0,0,-1,-1,-1,-1,0,0,4
  380. DATA "CAKE    ",0,1000,-1,-1,-1,-1,-1,-1,4
  381. DATA "LETTER  ",0,0,-1,-1,-1,-1,0,0,4
  382. DATA "LAC. POT",0,0,-1,-1,-1,-1,0,0,4
  383. DATA "MAG.LAMP",0,1400,-1,-1,-1,-1,-1,-1,0
  384. DATA "AMBR EYE",0,0,-1,-1,-1,-1,0,0,0
  385. DATA "GAS. SLD",0,1000,-1,-1,-1,-1,-1,0,4
  386. DATA "CRYSTAL ",0,0,-1,-1,-1,-1,0,-1,0
  387. DATA "M SYSTEM",0,0,-1,-1,-1,-1,0,0,0
  388. DATA "MRCL KEY",0,0,-1,-1,-1,-1,0,-1,0
  389. DATA "ZILLION ",0,0,-1,-1,-1,-1,0,0,0
  390. DATA "SECRETS ",0,200,-1,-1,-1,-1,0,0,0
  391.  
  392. SpellData:
  393. DATA "    ",0
  394. DATA "BYE",2
  395. DATA "CHAT",2
  396. DATA "CURE",6
  397. DATA "EXIT",4
  398. DATA "FIRE",4
  399. DATA "FLY",8
  400. DATA "HEAL",2
  401. DATA "HELP",10
  402. DATA "OPEN",4
  403. DATA "PROT",10
  404. DATA "RISE",12
  405. DATA "ROPE",4
  406. DATA "TELE",4
  407. DATA "TERR",4
  408. DATA "THUN",16: '25 - 40pts damage to all enemies
  409. DATA "TRAP",3
  410. DATA "WALL",10
  411. DATA "WIND",12
  412.  
  413.  
  414. AlisNonCombat:
  415. DATA 7,6,0,0,0
  416. AlisCombat:
  417. DATA 7,1,2,5,12
  418. MyauNonCombat:
  419. DATA 3,16,4,0,0
  420. MyauCombat:
  421. DATA 3,14,17,8,0
  422. OdinNonCombat:
  423. DATA 0,0,0,0,0
  424. OdinCombat:
  425. DATA 0,0,0,0,0
  426. NoahNonCombat:
  427. DATA 3,4,9,11,0
  428. NoahCombat:
  429. DATA 5,13,18,10,15
  430.  
  431. '-----------------End of Data area-----------------
  432. '-----------------Load from file area--------------
  433. OPEN "dialog_fixed.txt" FOR BINARY AS #1
  435.  LINE INPUT #1, Line$(i%)
  436.  Line$(i%) = RTRIM$(LTRIM$(Line$(i%)))
  437.  i% = i% + 1
  439. Linecount% = i% - 1
  440. PRINT Linecount%
  442. '-----------------Load data into arrays------------
  443. RESTORE KeyCodesData
  444. FOR i~%% = 0 TO 133
  445.  READ KeyCodes(i~%%).Nam, KeyCodes(i~%%).Value
  446. NEXT i~%%
  447.  
  448. RESTORE MonsterData
  449. FOR i%% = 0 TO 74
  450.  READ M(i%%).Nam, M(i%%).Hp, M(i%%).MHp, M(i%%).Atp, M(i%%).Dfp, M(i%%).Exp, M(i%%).Mes, M(i%%).Num, M(i%%).Flee
  451.  READ M(i%%).Trap, M(i%%).Kind, M(i%%).Drop, M(i%%).Odds, M(i%%).Talk, M(i%%).Chat, M(i%%).Rope, M(i%%).Prot, M(i%%).Myst
  452.  READ M(i%%).Special
  453. NEXT i%%
  454.  
  455. RESTORE PlayerLevelData
  456. FOR j%% = 0 TO 3
  457.  FOR i%% = 1 TO 30
  458.   READ Pl(j%%, i%%).HitPts, Pl(j%%, i%%).AttVal, Pl(j%%, i%%).DefVal, Pl(j%%, i%%).MagPts, Pl(j%%, i%%).Combat, Pl(j%%, i%%).NonCbt, Pl(j%%, i%%).ExpPts
  459.  NEXT i%%
  460. NEXT j%%
  461.  
  462. RESTORE ItemData
  463. FOR i%% = 0 TO 64
  464.  READ I(i%%).Nam, I(i%%).Pwr, I(i%%).Cost, I(i%%).Alis, I(i%%).Myau, I(i%%).Odin, I(i%%).Noah, I(i%%).CanSell, I(i%%).CanDrop, I(i%%).Is_Type
  465. NEXT i%%
  466.  
  467. RESTORE SpellData
  468. FOR i%% = 0 TO 18
  469.  READ S(i%%).Nam, S(i%%).Cost
  470. NEXT i%%
  471.  
  472. RESTORE AlisNonCombat
  473. FOR i%% = 0 TO 4
  474.  READ PSL(0, 0, i%%).link
  475. NEXT i%%
  476. RESTORE AlisCombat
  477. FOR i%% = 0 TO 4
  478.  READ PSL(0, 1, i%%).link
  479. NEXT i%%
  480. RESTORE MyauNonCombat
  481. FOR i%% = 0 TO 4
  482.  READ PSL(1, 0, i%%).link
  483. NEXT i%%
  484. RESTORE MyauCombat
  485. FOR i%% = 0 TO 4
  486.  READ PSL(1, 1, i%%).link
  487. NEXT i%%
  488. RESTORE OdinNonCombat
  489. FOR i%% = 0 TO 4
  490.  READ PSL(2, 0, i%%).link
  491. NEXT i%%
  492. RESTORE OdinCombat
  493. FOR i%% = 0 TO 4
  494.  READ PSL(2, 1, i%%).link
  495. NEXT i%%
  496. RESTORE NoahNonCombat
  497. FOR i%% = 0 TO 4
  498.  READ PSL(3, 0, i%%).link
  499. NEXT i%%
  500. RESTORE NoahCombat
  501. FOR i%% = 0 TO 4
  502.  READ PSL(3, 1, i%%).link
  503. NEXT i%%
  504. D(0) = "NORTH"
  505. D(1) = "EAST "
  506. D(2) = "WEST "
  507. D(3) = "SOUTH"
  508.  
  509. OPEN "TempData.Dat" FOR BINARY AS #1
  510. PUT #1, , M()
  511. PUT #1, , I()
  512. PUT #1, , S()
  513. PUT #1, , Pl()
  514. PUT #1, , PSL()
  515. PUT #1, , KeyCodes()
  517. PUT #1, , Linecount%
  518. FOR i% = 0 TO Linecount%
  519.  L%% = LEN(Line$(i%))
  520.  PUT #1, , L%% 'length of line
  521.  PUT #1, , Line$(i%) 'line of dialog
  522. NEXT i%
  523. PUT #1, , D()
Logged
Granted after becoming radioactive I only have a half-life!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Help with a Compliation error
« Reply #1 on: June 07, 2021, 07:43:25 pm »
Hi Cobalt
I can confirm to have the same experience.
Ok  but say me: for what reason do you use LOC(1) twice in this your code?
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Help with a Compliation error
« Reply #2 on: June 07, 2021, 09:33:14 pm »
Quote from: TempodiBasic on June 07, 2021, 07:43:25 pm
Hi Cobalt
I can confirm to have the same experience.
Ok  but say me: for what reason do you use LOC(1) twice in this your code?

@SpriggsySpriggs let me know (over on Discord) that this issue has come up before so I don't think anybody is doing anything about it at the moment. I don't want to side track from Phantasy Star right now so I'm not going to. And by the time I am done I will probably forget about the issue.

As for the LOC(1), I was having some errors reading the data back so I was just checking where certain data was starting in the output.

I just left those there in case I had problems in the future. Once every thing is working I will probably remove them or at least REM them out.
Logged
Granted after becoming radioactive I only have a half-life!

Offline NOVARSEG

  • Forum Resident
  • Posts: 509
    • View Profile
Re: Help with a Compliation error
« Reply #3 on: June 08, 2021, 12:41:42 am »
@ Cobalt

Got the same error with DIM D(3) AS STRING * 5

but no error with   DIM D(3) AS INTEGER

 bug in QB64?

Code: QB64: [Select]
  1. OPEN "test.txt" FOR BINARY AS #1
  2.  
  4.  
  5. D(0) = 0
  6. D(1) = 1
  7. D(2) = 2
  8. D(3) = 3
  9.  
  11. PUT #1, , D()
  12.  
  13. SEEK #1, 1
  14.  
  15. GET #1, , E()
  16.  
  17. PRINT E(0)
  18. PRINT E(1)
  19. PRINT E(2)
  20. PRINT E(3)
  21.  





Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Help with a Compliation error
« Reply #4 on: June 08, 2021, 02:05:29 am »
I posted on this before.  It’s a bug in QB64.  You can’t use PUT/GET with whole string arrays, unless you want to manually go in and edit your translated code yourself.

Simple workaround:

DIM a(3) AS STRING

FOR i = 0 TO 3
    PUT #1, , a(i)
NEXT

Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Help with a Compliation error
« Reply #5 on: June 08, 2021, 04:27:55 am »
@Cobalt
Quote
As for the LOC(1), I was having some errors reading the data back so I was just checking where certain data was starting in the output.
very interesting backtrack tecnique!
Thanks to share
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Help with a Compliation error
« Reply #6 on: June 08, 2021, 05:08:40 am »
Another work around
Code: QB64: [Select]
  1. s$ = "NORTHEAST WEST SOUTH"
  2. someplace = 100
  3.  
  4. ' the store
  5. Open "TempData.Dat" For Binary As #1
  6. Put #1, someplace, s$
  8.  
  9. Dim r As String * 20
  10. ' the retrieve
  11. Open "TempData.Dat" For Binary As #1
  12. Get #1, someplace, r
  14.  
  15. ' the unpack
  16. Dim D(3) As String * 5
  17. For i = 0 To 3
  18.     D(i) = Mid$(r, i * 5 + 1, 5)
  19.     Print D(i)
  21.  

Maybe more work?
« Last Edit: June 08, 2021, 05:15:14 am by bplus »
Logged
Pages: [1]   Go Up
« previous next »