« previous next »
Pages: [1]   Go Down

Author Topic: Program Source code causing lag in the QB64 IDE  (Read 3325 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
Program Source code causing lag in the QB64 IDE
« on: January 28, 2019, 11:51:40 pm »
Getting an odd lag effect while working on my source code. I pulled up the QB64 source and the lag did not happen, and  the QB64 source is a lot bigger than my program. Unless there is something in my code that is causing some kind of slow loop under the hood. although I have had a couple IDE crashes while working on this code too.

its not a lag with the syntax checking, its a lag when navigating the code with the arrow keys or PGUP\PGDN keys.
if I hold them down to move through the code then release the key the IDE keeps scrolling the code to catch up.

Code: QB64: [Select]
  1. '$include: 'saveimage.bi'
  2. TYPE MapSquare
  3.  Terrain AS _BYTE '     tile id
  4.  Playerseen AS _BYTE '  has player seen area?(for minimap)
  5.  IsScepter AS _BYTE '   Scepters hiding place?
  6.  IsTreasure AS _BYTE '  is there treasure on map square?
  7.  IsArmy AS _BYTE '      is there an army on map square?(fight)
  8.  IsArtifact AS _BYTE '  is there an artifact on map square?
  9.  IsBand AS _BYTE '      is there a roaming band of creatures on map square?(hire)
  10.  IsPlayer AS _BYTE '    is the player on map square? on horse, boat, or wing
  11.  IsBoat AS _BYTE '      is the boat located on map square?
  12.  IsTown AS _BYTE '      is there a town on map square? value indicates which town
  13.  IsCastle AS _BYTE '    is there a castle on map square(entrance)? value indicates which castle
  14.  IsSign AS _BYTE '      is there a road sign on map square? value indicates which sign data
  15.  IsDwelling AS _BYTE '  which type 1-plains, 2-forest, 3-hills, 4-dungeons
  16.  IsBridge AS _BYTE '    has player used Bridge spell? which direction 1-horz 2-vert
  17.  IsBlock AS _BYTE '     does this square block armies? (3 blocks around Maximus castle)
  18.  Units AS _BYTE '       which type of unit 1-25 (peasants to dragons)
  19.  Population AS INTEGER 'how many left to hire
  21.  
  22. TYPE Player_Data
  23.  Class AS _BYTE
  24.  Promotion AS _BYTE
  25.  Leadership AS _UNSIGNED INTEGER '  affects maximum number of units player can control
  26.  Control_Bonus AS _UNSIGNED INTEGER 'the Raise control spell affects this value
  27.  Commission AS INTEGER '            castles add 250
  28.  Gold AS LONG '
  29.  SpellPower AS _BYTE '              power of cast spells
  30.  MaxSpells AS _BYTE '               total # of spells player can purchase(finding in chests can go beyond)
  31.  VilliansCaught AS _BYTE '
  32.  Artifacts AS _BYTE '               number of artifacts found 250*difficulty
  33.  Castles AS _BYTE '                 number of castle garrisoned 500*difficulty
  34.  Deaths AS _UNSIGNED INTEGER '      followers killed, reduces score
  35.  Score AS _UNSIGNED INTEGER '       sum of artifacts found+villians caught- followers killed
  36.  Maps_Aquired AS _BYTE
  37.  Maps_Full AS _BYTE '               has player found map orb showing all map area
  38.  Artifacts_Aquired AS _UNSIGNED _BYTE
  39.  Puzzle_Peices AS LONG '            Which peices have been uncovered
  40.  Magic_Learned AS _BYTE '           Does player have magic ability yet?
  41.  Seige_Bought AS _BYTE '            Has player purchased seige weapons yet?
  42.  Current_Contract AS _BYTE '        Who is the player looking for?
  43.  Facing AS _BYTE '                  Last way player was moving Left or Right
  44.  MapXPos AS INTEGER '               Players X Pixel location on map
  45.  MapYpos AS INTEGER '               Players Y Pixel location on map
  46.  Current_Land AS _BYTE '            Which land is player exploring?
  47.  Travel_Mode AS _BYTE '             Player on land, water, or air(horse, boat, dragon)
  49.  
  50. TYPE GameData
  51.  Days AS INTEGER
  52.  TimeStop AS _UNSIGNED INTEGER
  53.  GameTimer AS LONG
  54.  Level AS _BYTE
  55.  Window_Animation AS _BYTE
  56.  In_Combat AS _BYTE '         Is the player in combat? stops time
  57.  In_Menu AS _BYTE '           Does player have menu up? stops time
  58.  Last_Cast AS _BYTE '         last spell cast by player
  59.  HDR_Text AS STRING * 38 '    text for window header
  60.  Scepter_X AS _BYTE '         Scepters X location
  61.  Scepter_Y AS _BYTE '         Scepters Y location
  62.  Scepter_Land AS _BYTE '      Which Land the Scepter is in.
  64.  
  65. TYPE StatData
  66.  Leadership AS INTEGER
  67.  Commission AS INTEGER
  68.  SpellPower AS _BYTE
  69.  MaxSpells AS _BYTE
  72.  
  73. TYPE Standing_Army
  74.  Unit AS _BYTE
  77.  
  78. TYPE Unit_Data
  79.  Unit_Name AS STRING * 12 '
  80.  HitPts AS _UNSIGNED _BYTE '
  81.  AttackLo AS _BYTE '         Lower end damage
  82.  AttackHi AS _BYTE '         Higher end damage
  83.  Shoot AS _BYTE '            Does the creature have ranged attacks?(1{arrows},2{fireball},3{lightning},4{boulders})
  84.  ShootLo AS _BYTE '          Lower end damage
  85.  ShootHi AS _BYTE '          upper end damage
  86.  Movement AS _BYTE '         How many spaces may creature move in one turn?(1,2,3,4,99{fly})
  87.  Cost AS INTEGER '           How much to hire
  88.  ShotCount AS _BYTE '        How many times can creature use its ranged attacks?
  89.  Grouping AS _BYTE '         Morale grouping value(1,2,3,4,5)
  90.  Skill_Level AS _BYTE '      Skill Level determines damage ratio
  92.  
  93. TYPE ContractData
  94.  Villain AS STRING * 24 '      Villains name
  95.  Alias AS STRING * 24 '        Villains Alias if one
  96.  Bounty AS _UNSIGNED INTEGER ' How Much Villan is worth
  97.  LastSeen AS _BYTE '           Continent villain was last seen on
  98.  Castle AS _BYTE '             Castle Villain is held up in
  99.  Is_Known AS _BYTE '           Triggered if player knows which castle villain is located
  100.  Description AS STRING * 130
  101.  Crimes AS STRING * 146
  102.  Caught AS _BYTE
  104.  
  105. TYPE TownData
  106.  The_Name AS STRING * 12
  107.  Unit AS _BYTE ' displays which Unit type
  108.  Spell AS _BYTE ' Selling which spell
  109.  Castle AS _BYTE 'Has Information on which castle
  110.  GateX AS _BYTE ' where player locates with Town Gate spell
  111.  GateY AS _BYTE ' where player locates with Town Gate spell
  112.  Land AS _BYTE '  used with gate spell
  113.  MapX AS _BYTE '  where in map X
  114.  MapY AS _BYTE '  where in map Y
  115.  Visited AS _BYTE 'has player been here?
  117.  
  118. TYPE Spell_Data
  119.  Spell_Name AS STRING * 14
  120.  Cost AS INTEGER
  122.  
  123. TYPE Control_Keys
  124.  Up_Key AS LONG
  125.  Down_Key AS LONG
  126.  Left_Key AS LONG
  127.  Right_Key AS LONG
  128.  A_Button AS LONG
  129.  B_Button AS LONG
  130.  C_Button AS LONG
  131.  Start_Button AS LONG
  133.  
  134. TYPE Signs
  135.  SignText AS STRING * 64 'What the sign says.
  136.  MapXLoc AS _BYTE
  137.  MapYLoc AS _BYTE
  138.  Land AS _BYTE '
  140.  
  141. SCREEN _NEWIMAGE(640, 480, 32)
  142. CONST TRUE = -1, FALSE = NOT TRUE, LEFT = 0, RIGHT = 1, CENTER = 2
  143. CONST KNIGHT = 0, PALADIN = 1, SORCERESS = 2, BARBARIAN = 3
  144. CONST EASY = 1, NORM = 2, HARD = 3, IMPOSSIBLE = 4
  145. CONST MAIN = 1, SAVE = 2, LOAD = 4, HORZ = 1, VERT = 2
  146. CONST CONTINENTIA = 1, FORESTRIA = 2: ARCHIPELIA = 3: SAHARIA = 4
  147. CONST MASTERESC = 27, TOWN = 5, CASTLE = 6
  148.  
  149. DIM SHARED Maps(-1 TO 65, -1 TO 65, 4) AS MapSquare 'all 4 land maps terrain data
  150. DIM SHARED Land(-1 TO 65, -1 TO 65) AS MapSquare 'current land map data
  151. DIM SHARED Layer(16) AS LONG, P AS Player_Data, G AS GameData
  152. DIM SHARED Title(3, 3) AS STRING, Names(3) AS STRING, PX.Army(5) AS Standing_Army
  153. DIM SHARED PX.Spells(16) AS _BYTE, Control AS Control_Keys
  154. DIM SHARED Stats(3, 3) AS StatData, Units(25) AS Unit_Data, Villains(17) AS ContractData
  155. DIM SHARED Lands(4) AS STRING, Castles(27) AS TownData, Towns(27) AS TownData
  156. DIM SHARED BackGround_Color(4) AS _UNSIGNED LONG, Spells(16) AS Spell_Data
  157. DIM SHARED Puzzle(4, 4) AS _BYTE, Sign(70) AS Signs
  158.  
  159. G.GameTimer = _FREETIMER
  160. ON TIMER(G.GameTimer, .125) ClockTick
  161. MapTerrain:
  162. DATA " #ó$ %(&$ %.&#$&##$ %'& ##$ %.& #%'( )&*+,( ),*+%,+%%,(* -%+ %#,(* -,+& #$'./ 0$12))3/ 0*12 )'32 )#* -&45-6778 -#9:;<=> #$'.?9:;-4001@? -*. @#/001 @#/005 -)+&#A8--BCDEF> #$'.?BCD-678412 )$*-(*--.@@/5--4001? -$6 7(G##A8 -%6G #$'.? -$>#A84 0$1?-.2))3/05 -&.?-677G #+$,6 7#8> #%'.? -#6G##A 7$845-4 0$5 -%68-45-+ %#& #*A7G ##'+& #$'.?-(*>#$%%& ##A78 -)677GA8 -'+ %&& #)A7G #$'.?-.?+%,(*+& #$A 7(8+& ##A 7$8 -)+ %#& #,'.?-.2 )#32*> #-A8+& #'A8--( )#* -%+& #+'.?-401/ 0#5> #$$ %%& ##A7G##$ %$&A7840012 )#*--+& ##$& #%'.? -#.?-677G ##$,-9:;-+& #$$&#'9:;-+%&A7784 0#12*--+ %#,+& #$'.2)*-.?6G #%$,--BCD--+& ##'+%,BCD -#+%&#A 7#8412* -#<H=6G #$'401?-.?+& #$$, -)+&##A8 -(<=+ %$&A8412*--EIJ> #%A78.?-.2*> #$A 7+G ##'-< H$=-KLH= -#+&A8412*--KJ+& #&'.?-41?+& #3'-KM N#F-ENIJ-<H=+&A8412*-KL=> #&'.?--.2*>##$%%& #'$&#$%%,-KJ -'KJ-EIJ-+&A841?-EIJ> #&'.2*-.@?+%%,--+%%&$&##'+%, -$KJ-< H%OJ--KL=-+&A8.?--KJ> #&'.@?-.@2* -(+,+%%, -$<HHOJ-KM N#IPLHHOPJ-->#'.?--KJ> #%$,.@?-41@2*-QR-QR -(<HHOMNNF-KJ9:;KM N%F67G$,.?--KJ> #%'(3/5--4005-ST-ST< H'OPMNF -$KJBCDKJ -&>#$,-.?--EF> #$$,./5 -(< H$OPM N'F -&KJ -#KL H$=6G$,--.? -$> #$'(3? -#()*<HHO P#MNNF -.KL=-<OPPMNNF>$,-()3?<H=-> #$'.@2 )#3/5KM N%F -$< H,OPJ-KMNNF677G'--4005ENF-> #$'4 0&5<OJ -'<HHOM N-F-EF677G$%%, -*> #$'< H'OPJ-< H%OMNNF -'6 7)G#$%, -$(*<=-<H=-> #$'KM N(F-KM N%F -#6 7&G#$ %), -$()3?EF-ENF6G #$'KJ -*EF -#6 7%G$ %',-()*-( )(3@/5 -&> #%'KL H#=<HH= -#6 7#G$ %%,( )(3/5-401@/001 @#?--<H=--+& #$'E N$FENNF--6G#$%%,( )%3/ 0(5QUUR405--.@/05--ENF677G #$A86778--9:;-->##'())3/ 0%5-QURQ U$VWWXRQR--41? -#6 7#G #('>#$,--BCD-->##'4 0#5Q U&VWXV W#YZ[WWXV\QR-45-67G##$& #(AG#A78 -&>##' -%]Y[WY Z#[WWVWW\-] W$\STQR--> ##$,+& #'$& ##A8 -%>##'( )#*STS[\9:;SZ[ W#XUV W$XUR]\-->#$%,<=+& #%$,+%%&#A78 -#+&#'40012)*QV\BCD68] W+YT]\-6G#'<=KL=+& #$'<HH=> ##A7867G#' -#401?]W\ -#+,S[WWV W#Y W#XR]\->#$,KLOPL=> #$'ENNF+ %$&AG ##'--9:;.?SZX U$RQV W$YZ[ W#YTST->#'<OM N#F> #$A78 -'+ %#&#'--BCD.2)*]WY[WXVWYZ[W\-]WY[\QUR->#'KPJ9:;6G #&'-( )#* -%>#A8 -$.@@?SZT] W$XUVWXUVYTSTS[\->#'EIJBCD+& #&'-./01? -%+%&A 7#84012))*S[ W#Y W&XRQR-ST->#A8KJ--<=> #$$%,-.?-.2 )#* -#+ %#&A8-40012*S Z#[YZ[ W$\]\ -$+&#'EF-<OJ> #$' -#.?-./001? -'>#A 7#8412))*-STQVWWYZTST-QR-->#A8--ENF> #$'-()3?-.?--.? -'+ %$&'-40012))*S Z#TQR -#ST-->##A 7$8> #$'-./05-.2*-.2)*678 -'>A78--40012))*--ST -'+ %#& ##AG #$'-.? -#.@?-401?+&' -$<=-+%&' -%40012 )#*--(*-(*-(*-+%& #''-.2)*-.@? -#.2*+,--<HOJ-<=>'--<= -$4 0$5--45-45-45 -#>#$& #$'-./05-412)*-.@2))*-KMNF-KJ>'--KLHH= -#< H#= -(<H=-+%,> #$'(3? -$4005-4 0#1?-KJ -#KJ>A8-ENIPL H#OMNIJ--<=-<=-ENF -#6G #$'41?-(* -*.?-EF-<HOJ+&' -#ENIPMNIJ-KJ--EF-EF -%67G #%A8.?-.2)*-( )$*-.2)*--ENNF->A778--ENF-KJ-EF -#6 7(G #('.?-4005-4 0#1?-./05 -'+%%&A78 -$EF -&>##$& #,$,.?--9; -#9;-.2)3? -,+%&A78 -%<=677G##'+%%&$%%& #%'-.2*-BD -#BD-./005--( )'* -#+%&A78 -#KJ>##$&$, -#+,<=> #%A8./5-9;9:;9;-45 -%. @#/0012)*-<=+%&A778EF>#$,+, -&KJ+& #%'45--BDBCDBD -%())3/005--4005-EF--+%%&A77G$,-<=-9:;-<OJ6G #%A8--<=9;-9;<=--()3 @#? -.9:;> ##$,<HOJ-BCD-ENF> #%$%A8-EFBD-BDEF--4001@@2 )** -#BCD>#$%,<OMNF -&67G #%'->' -+68--4 0,12)* -$>$,<HMNF--678686G #''->A78-678 -%>' -$6 7$8 -%4005-686GA8ENF6786G$,>AG #(A7G##A7G#A 7%GA 7$G #$A 7*GAG##A 7#G#AG#A7G #¿"
  163. DATA " #e$& #$$ %*& #&$ %%&#$ %)&$ %*& #'$%,+ %$, -*+ %&, -%+%, -)+, -*+& #&' -%()*-(* -#()* -*()* -%( )%* -$())* -&> #&'-(*--405-.?--(3@?--(*--( )#3@2)* -#./ 0#1?-())3/05 -#(*-+& #$$,-.2* -%.?-(3/05-(32*-4001 @$2)*-.?9:;.2)3/005 -$(3?--> #$'--412 )%3?-.@? -#.@@? -$./001/05-.?BCD4 0#5 -&(3@?--> #$' -#.@/ 0%5-.@2 )#3@@2 )$3?--.? -#.? -)( )$3/05--> #$A8--.@? -'./ 0+1@?--.2 )#32 ))3 @%? -$> #%A8-41?-())*-(3?6 7)8412*-./ 0,1/ 0%1? -#6G #&'--.?-4012)3/5>$ %'&A8405-456 7*8.? -%.? -#> #''--.? -#.@@/56G'( )%*+&A 7&G$ %(&'.2 )#*-.?--6G #&$,--.? -#./056G#'./ 0#12*+& #%$%,( )&*>'./001?-.?--+& #%$,-()32)*-.?67G$%,.? -#412*+&##$%,()3 @&?>'.?--.?-.2*--+& #$'--./001?-.?>#$,()3? -$.@2*>#$,()3/ 0#1/005>'.?--.?-.@? -#> #$'--.?--.?-.?+%,(3/05-(*-401?>#A841@? -#.?-67G'.?-(3?-405 -#> #$'--45--.?-.? -#.@? -#.? -#.?+&#A841? -#.?->##'.?-.@? -'> #$' -%(3?-.2 )#3/5 -#.?-()32*+&#A8.?-()3?-+%%,.?-412* -#<H=> #$' -#()3/5-./ 0$5 -#(3?-40012*+&#'.?-4012 )%3?--412*--ENF> #$'-()3@/5--.? -&()3@? -$.@2*+&'.? -#401 @%2*--.@2* -$> #$'-. @#?--(3?-())*-41@@2)*--.@/56G'.2)* -#4 0%12*-4012* -#> #$'-.@@/5--.@?-401?--./ 0#5-(3/56G$,./12)* -'405 -#.@2*-6G #$'-./05 -#.@? -#.?--.?-9:;-./56G$,(3?4012 )%* -'401?-> #%'-45 -#()3@2 )#3?--.?-BCD-.?6G#'(3/5--4 0%12* -(.?-> #%' -$()3/01@@/005--.? -%.?>$%,.@? -)412 )#* -$45-> #%' -$.@@5-./05 -$(32)*-()3?>'()3@2 )'*--401@@2* -&> #%'--()3@?--45 -#())3/005-401?>'./ 0)12* -#./012)*-(*6G #%A8-.@@/5 -%()3@/05 -&45>'45 -&9:;412)*-45-401?-.?> #''-41/5 -#())3/005 -*>A8 -'BCD-401? -&45-45> #''--45 -#(3@@/5 -'( )$*+&'())* -'68.2 )#* -'> #'A8 -%(3@@/5--<=--()3/0012*>'.@@2))* -$+,401@@?-(* -#6G$& #&A8 -#(3@/05--<OJ--.@/5--405>'4001@@2)* -&41@?-45--6G$,> #''--(3/05 -#<OMF-(3/5 -&>' -#4 0#12)* -#6841? -$6G$,-> #''-(3/5 -#<HOMF--./5 -#<=-->'<H= -$41@2*--+,-.2* -#>#'--> #''-.@? -#<OPMF--(3? -#<OJ-->'ENF -%4012* -$.@2*-->$,--> #''-./5 -#KMNF--(3/5--<OMF-->' -#Q U#R--41? -$4005-->' -#> #%$%,-45 -#<OJ -$405--<OMF -#>'<=-]YZ[\ -#45<H=-<HH=-->A8--> #$$, -&<HOPL= -'<OPJ -#6G'KJ-]\-]\--<HHOPJ-KPPJ-->#A78> #$'--< H$O P$L H'OMNF-67G#'EF-]XUV\-<OMNNIJ-KPPL=-+%&#AG #$'-<OM N)IPPM N$F -#> ##A8--S Z#T<OMF--EF-ENNIJ -#+%& #%'-KPJ -)KPMF -&67G #$A8 -%<OPJ -)KLH= -#> #%'-KPJ-< H%=-KMF -#6 7#G #'A8 -#<OMNF-<HH=-<=-KPPL=--+& #$'-KPJ-KPMNNIJ-KJ9:;->$%&##$ %#&##A8--KPJ -#KPPJ-KJ-ENIPJ-<=> #$'-EIJ-EIJ--EF-KJBCD->'->#$,9:;> ##A8-KPLH=-ENNF-KJ -#KPJ-EF> #$'--KJ--KJ -%KJ -$>'->#'-BCD+& ##'-ENIPJ -&KJ-<HOMF--6G #$'--KL=-KL H%OL H#=>A7G#' -%> ##' -#EIL H&OJ-KPPJ677G #%'--EIJ-E N*IJ+& ##A 7%G ##'(*--KM N'F-EIPJ> #(' -#KJ -,KJ-+&#$%%& #&$,45--KJ -*KPJ+& #''(*-KJ-<HH=-<=-<=-KJ-6G#'--> #$$%, -$<OL H(=-KPL=+%& #%'45-KJ-KPMF-KJ-KJ-EF6G##A77G ##$, -%<OMNIM N%IJ-KPPLH=+& #$' -#KLHOMF--KLHOJ-67G##$ %',< H%OMF-KJ -%KJ-E N#IL=> #$'-<HOMNIJ--<PPMNF6G#$%%,< H'OM N%F--EF-<H=-EF -%KPJ> #$'-ENNF-KLHHOMNF67G$%,<HHOPM N&F -+KPJ -$<=-<OPJ> #$' -&KM N#F67G#$,<HOM N#F -(<HH= -#<HHOPLH=-<OJ-KPPJ> #$'-())*-EF6 7#G$%%,<OPMF -%< H&OPPL=--E N$IPJ-KPLHOMNF> #$A84005677G#$%%,<=-ENNF--< H#O P#M N%IL= -#9:;KPJ-EIPPMF-6G #%A 7$G$ %#,<HHOJ -&<O P$MNNF6 7#8EIL=--BCDKPJ--ENNF--> #($ %#,< H#O P#LHH=-<HOM N$F677G ##A8EIL= -#<OMF -'6G #%$%%, -#<O P(MNF-ENNF -%> #&$,-EIL H#OMF -(> #&' -&E N)F -(6 7#G #&' -#E N%F -#6 7%G #&A 79G #*A 7-G #Ω"
  164.  
  165. BackgroundColors:
  166. DATA 4282417216,4282400896,4286595136,4286611584
  167. Lands:
  168. DATA "Continentia","Forestria","Archipelia","Saharia"
  169. Names:
  170. DATA "Sir Crimsaun","Lord Palmer","Tynnestra","Mad Moham"
  171. Titles:
  172. DATA "Knight","General","Marshal","Lord"
  173. DATA "Paladin","Crusader","Avenger","Champion"
  174. DATA "Sorceress","Magcian","Mage","Archmage"
  175. DATA "Barbarian","Chieftain","Warlord","Overlord"
  176. Advancement:
  177. DATA 100,2,1,1000,7500,100,3,1,1000,0,300,4,1,2000,0,500,5,2,4000,0
  178. DATA 80,3,1,1000,10000,80,4,2,1000,0,240,5,2,2000,0,400,6,2,4000,0
  179. DATA 60,5,2,3000,10000,60,8,3,1000,0,180,10,5,1000,0,300,12,5,1000,0
  180. DATA 100,2,1,2000,7500,100,2,1,2000,0,300,3,1,2000,0,500,3,1,2000,0
  181. Units:
  182. '    name     ,hp ,AtkL,AtkH'Sht,SL,Mv,Cost,Shts,Grp,ShtL,ShtH
  183. DATA Peasant,1,1,1,0,1,1,10,0,1,0,0
  184. DATA Sprite,1,1,2,0,1,99,10,0,3,0,0
  185. DATA Militia,2,1,2,0,2,2,50,0,1,0,0
  186. DATA Wolf,3,1,3,0,2,3,40,0,4,0,0
  187. DATA Skeleton,3,1,2,0,2,2,40,0,5,0,0
  188. DATA Zombie,5,2,2,0,2,1,50,0,5,0,0
  189. DATA Gnome,5,1,3,0,2,1,60,0,3,0,0
  190. DATA Orc,5,2,3,1,2,2,75,6,4,1,2
  191. DATA Archer,10,1,2,1,2,2,250,12,2,1,3
  192. DATA Elf,10,1,2,1,3,3,200,24,3,2,4
  193. DATA Pikeman,10,2,4,0,3,2,300,0,2,0,0
  194. DATA Nomad,15,2,4,0,3,2,300,0,3,0,0
  195. DATA Dwarf,20,2,4,0,3,1,300,0,3,0,0
  196. DATA Ghost,10,3,4,0,4,3,400,0,5,0,0
  197. DATA Knight,35,6,10,0,5,1,1000,0,2,0,0
  198. DATA Ogre,40,3,5,0,4,1,750,0,4,0,0
  199. DATA Barbarian,40,1,6,0,4,3,750,0,3,0,0
  200. DATA Troll,50,2,5,0,4,1,1000,0,4,0,0
  201. DATA Calvery,20,3,5,0,4,4,800,0,2,0,0
  202. DATA Druid,25,2,3,1,5,2,750,3,3,10,10
  203. DATA Archmage,25,2,3,1,5,99,1200,2,3,25,25
  204. DATA Vampire,30,3,6,0,5,99,1500,0,5,0,0
  205. DATA Giant,60,10,20,1,5,3,2000,6,3,5,10
  206. DATA Deamon,50,5,7,0,6,99,3000,0,5,0,0
  207. DATA Dragon,200,25,50,0,6,99,5000,0,4,0,0
  208.  
  209. Contract_Data:
  210. DATA "Murray the Miser","None",5000,1
  211. DATA "Threadbare clothes, bald patch with hair combed to cover it, incessant cough."
  212. DATA "Murray is wanted for various petty crimes as well as for treason.  He allowed a group of pirates to enter the castle and free criminals."
  213.  
  214. DATA "Hack the Rogue","The Spitter",6000,1
  215. DATA "Bushy ebon beard stained with tobacco juice, numerous battle scars, brash, arrogant behavior."
  216. DATA "Along with many minor infractions, Hack is wanted for conspiracy against the Crown and grave-robbing."
  217.  
  218. DATA "Princess Aimola","Lady Deceit",7000,1
  219. DATA "Excessive use of make-up to hide aging features, ever-present lace handkerchief."
  220. DATA "The Princess violated her status as a visiting dignitary by encouraging a murder and joining the conspiracy against the Crown."
  221.  
  222. DATA "Baron Johnno Makahl","Johnno",8000,1
  223. DATA "Expensive and gaudy clothes, overweight, and a scruffy beard."
  224. DATA "Johnno is wanted for various crimes against the Kingdom, including leading a direct assualt against the Crown and conspiracy."
  225.  
  226. DATA "Dread Pirate Rob","Terror of the Sea",9000,1
  227. DATA "Pencil thin moustache and elegantly trimmed beard never without a rapier."
  228. DATA "Rob is wanted for piracy as well as conspiracy and for breaking out five traitors sentenced to death in the Royal Dungeons."
  229.  
  230. DATA "Caneghor the Mystic","The Majestic Sage",10000,1
  231. DATA "Voluminous robes, bald head, magic symbols engraved on body, levitating ability."
  232. DATA "Caneghor is wanted for grave robbing, conspiracy against the Crown, and plundering the Royal Library."
  233.  
  234. DATA "Sir Moradon the Cruel","None",12000,2
  235. DATA "Always wearing armor and concealed weapons, has two prominent front teeth and an unkept beard."
  236. DATA "Sir Moradon, an emissary from another land, is wanted for joining a conspiracy to topple the kingdom."
  237.  
  238. DATA "Prince Barrowpine","The Elf Lord",14000,2
  239. DATA "Pointed ears, sharp elfin features, pale blue eyes with no whites, glimmering enchanted coin."
  240. DATA "The prince is one of the leaders of the conspiracy against the Crown, he also traffics stolen artifacts."
  241.  
  242. DATA "Bargash Eyesore","Old One Eye",16000,2
  243. DATA "Single eye centered in middle of forehead, over ten feet tall, only hair on body is in beard."
  244. DATA "Bargash is wanted for conspiracy against the Crown and for leading an outright attack against the King."
  245.  
  246. DATA "Rinaldus Drybone","The Death Lord",18000,2
  247. DATA "Rinaldus is a magically animated skeleton, an undead, he is easily identifiable by the ancient crown he wears."
  248. DATA "Rinaldus is wanted for conspiracy against the Crown and leading a rebellion on the continent of Saharia."
  249.  
  250. DATA "Ragface","None",20000,3
  251. DATA "Ragface is an undead, he is covered from head to foot in moldering green strips of cloth. A rotting smell follows him."
  252. DATA "Conspiracy against the Crown and leading an insurrection in Saharia."
  253.  
  254. DATA "Mahk Bellowspeak","Bruiser",25000,3
  255. DATA "Bright orange body hair on a fluorescent green body, a tendency to shout for no apparent reason."
  256. DATA "Mahk is wanted for the conspiracy against the Crown, leading a jail break, and for piracy on the open seas."
  257.  
  258. DATA "Auric Whiteskin","The Barbarian",30000,3
  259. DATA "Auric is heavily muscled and wears a protective skin made from the hides of baby lambs."
  260. DATA "Auric is wanted for conspiracy and for leading the rebellion of the continent Saharia."
  261.  
  262. DATA "Czar Nickolai the Mad","The Mad Czar",35000,3
  263. DATA "The Czar has eyes which change color constantly, also a sulphuric smell emanates from his body."
  264. DATA "The Czar is wanted for conspiracy against the Crown, violating diplomatic status, and murder."
  265.  
  266. DATA "Magus Deathspell","None",40000,4
  267. DATA "Pupil-less eyes, flowing white beard, always wears crimson robes and a matching skull cap."
  268. DATA "Magus is wanted for conspiracy against the Crown and for practicing forbidden magics."
  269.  
  270. DATA "Urthrax Killspite","The Demon King",45000,4
  271. DATA "Green, scaly skin, glowing red eyes, horns protruding from sides of head, over 7 feet tall."
  272. DATA "Urthrax is wanted for conspiracy against the Crown."
  273.  
  274. DATA "Arech Dragonbreath","Mastermind",50000,4
  275. DATA "Arech is an immense dragon with a green body and blue wings, he breathes fire."
  276. DATA "Arech is wanted for leading the conspiracy against the Crown, arranging jailbreaks, formenting rebellion, stealing the Sceptre of Order."
  277.  
  278. CastleData:
  279. DATA "Azram       ",30,26,1,30,27
  280. DATA "Basefit     ",47,05,2,47,6
  281. DATA "Cancomar    ",36,48,1,36,49
  282. DATA "Duvock      ",30,17,2,30,18
  283. DATA "Endryx      ",11,45,3,11,46
  284. DATA "Faxis       ",22,48,1,22,49
  285. DATA "Goobare     ",41,35,3,41,36
  286. DATA "Hyppus      ",43,26,3,43,27
  287. DATA "Irok        ",11,29,1,11,30
  288. DATA "Jhan        ",41,33,2,41,34
  289. DATA "Kookamunga  ",57,57,1,57,58
  290. DATA "Lorsche     ",52,56,3,52,57
  291. DATA "Mooseweigh  ",25,38,2,25,39
  292. DATA "Nilslag     ",22,23,1,22,24
  293. DATA "Ophiraund   ",06,56,1,6,57
  294. DATA "Portalis    ",58,22,1,58,23
  295. DATA "Quinderwitch",42,55,2,42,56
  296. DATA "Rythacon    ",54,05,1,54,6
  297. DATA "Spockana    ",17,38,4,17,39
  298. DATA "Tylitch     ",09,17,3,9,18
  299. DATA "Uzare       ",41,11,4,41,12
  300. DATA "Vutar       ",40,04,1,40,5
  301. DATA "Wankelforte ",40,40,1,40,41
  302. DATA "Xelox       ",45,05,3,45,6
  303. DATA "Yeneverre   ",19,18,2,19,19
  304. DATA "Zyzzarzaz   ",46,42,4,46,43
  305. TownData:
  306. DATA "Anomaly       ",0,0,04,35,23,2,34,23
  307. DATA "Bayside       ",0,0,15,48,58,1,41,58
  308. DATA "Centrapf      ",0,0,08,09,38,3,9,39
  309. DATA "Dark Corner   ",0,0,17,58,59,2,58,60
  310. DATA "Elan's Landing",0,0,13,03,36,2,3,37
  311. DATA "Fjord         ",0,0,23,47,35,1,46,35
  312. DATA "Grimwold      ",0,0,19,09,59,4,9,60
  313. DATA "Hunterville   ",0,1,22,12,04,1,12,3
  314. DATA "Isla Vista    ",0,0,18,56,05,1,57,5
  315. DATA "Japper        ",0,0,24,13,08,3,13,7
  316. DATA "Kings Haven   ",0,0,14,16,21,1,17,21
  317. DATA "Lake Veiw     ",0,0,06,16,44,1,17,44
  318. DATA "Midland       ",0,0,10,57,33,2,58,33
  319. DATA "Nyre          ",0,0,16,50,14,1,50,13
  320. DATA "Overthere     ",0,0,12,57,56,3,57,57
  321. DATA "Paths end     ",0,0,03,38,49,1,38,50
  322. DATA "Quiln Point   ",0,0,09,13,27,1,14,27
  323. DATA "Riverton      ",0,0,01,29,11,1,29,12
  324. DATA "Simpleton     ",0,0,07,12,60,3,13,60
  325. DATA "Topshore      ",0,0,05,05,49,3,5,50
  326. DATA "Underfoot     ",0,0,02,57,04,2,58,4
  327. DATA "Vengance      ",0,0,21,06,03,4,7,3
  328. DATA "woods end     ",0,0,25,03,09,2,3,8
  329. DATA "Xoctan        ",0,0,11,51,29,1,51,28
  330. DATA "Yakonia       ",0,0,20,50,08,3,49,8
  331. DATA "Zaezoizu      ",0,0,26,58,47,4,58,48
  332. SpellData:
  333. DATA "Bridge",100,"Time Stop",200,"Find Villain",1000,"Castle Gate",1000,"Town Gate",500,"Instant Army",1000,"Raise Control",500
  334. DATA "Close",2000,"Teleport",500,"FireBall",1500,"Lightning",500,"Freeze",300,"Resurrect",5000,"Turn Undead",2000
  335. PuzzleData:
  336. DATA 7,22,2,18,4,20,30,25,28,23,0,27,33,31,6,17,32,29,26,21,1,24,5,19,3
  337. SignData:
  338. DATA "Rent a boat and sail the seas. Explore the easy way!",14,3,1
  339. DATA "Treasure Island",3,3,1
  340. DATA "Aurange is north",5,6,1
  341. DATA "The Secptre will never be fonud!",3,9,1
  342. DATA "King's Tresure Garden",12,10,1
  343. DATA "There are two artifacts per continent.",15,10,1
  344. DATA "Pond of Peril",20,16,1
  345. DATA "Peasant Way",25,11,1
  346. DATA "Six villains rule Continentia.",38,3,1
  347. DATA "It takes time to cross the desert.",45,16,1
  348. DATA "Wonder Woods",40,12,1
  349. DATA "Dead End",32,18,1
  350. DATA "Irok guards the north",10,28,1
  351. DATA "A-maze-ing Forest",15,33,1
  352. DATA "All maps are found in chests",58,33,1
  353. DATA "Bridge Port",51,38,1
  354. DATA "Hidden Grove",34,39,1
  355. DATA "Secret Pass",9,41,1
  356. DATA "Pirate's Cove",7,55,1
  357. DATA "Isle of Death",24,49,1
  358. DATA "Boon Docks",43,59,1
  359. DATA "Welcome to Kookamunga!",55,59,1
  360.  
  361. DATA "Wood's End is south.",3,15,2
  362. DATA "Time is on our side.",42,3,2
  363. DATA "Passage to Basefit.",52,3,2
  364. DATA "The end is near.",57,11,2
  365. DATA "Peasants are fodder!",59,22,2
  366. DATA "Remember, whereever you go there you are.",60,28,2
  367. DATA "Undead are everywhere!",41,15,2
  368. DATA "The ogres are back... and they're hungry!",27,14,2
  369. DATA "Treasure at the river's end.",22,14,2
  370. DATA "Monster Way",18,26,2
  371. DATA "There is one town for each castle.",42,27,2
  372. DATA "No Trespassing!",37,35,2
  373. DATA "You'll never find the Sceptre here!",39,39,2
  374. DATA "Crossroads",22,34,2
  375. DATA "Forestria maze entrance!",7,32,2
  376. DATA "Beware the moors!",6,37,2
  377. DATA "Wrong Way!",16,58,2
  378. DATA "Don't go any farther!",22,49,2
  379. DATA "Stay on the road!",64,48,2
  380. DATA "Your Quest is doomed!",56,39,2
  381. DATA "Four villains rule Forestria",55,60,2
  382.  
  383. DATA "Welcome to Archipelia!",10,60,3
  384. DATA "The islands hide treasures.",3,56,3
  385. DATA "Four villains rule here.",11,50,3
  386. DATA "There are five islands here.",9,33,3
  387. DATA "Swamplands",6,16,3
  388. DATA "There's no turning back!",28,6,3
  389. DATA "Pirate's Treasure Trove",25,22,3
  390. DATA "Pirates have no mercy!",29,28,3
  391. DATA "Corak was here!",37,22,3
  392. DATA "The dead live!",40,28,3
  393. DATA "Thieves will be eaten!",53,24,3
  394. DATA "Pool of Prosperity",41,43,3
  395. DATA "Maximus will DIE!",34,39,3
  396. DATA "Time is on our side!",31,56,3
  397. DATA "Down with the King!",51,35,3
  398.  
  399. DATA "Your army will perish here!",40,11,4
  400. DATA "Three villains rule Saharia.",52,9,4
  401. DATA "Oasis",39,18,4
  402. DATA "Wading Pool",14,30,4
  403. DATA "There is no escaping the prophecy!",18,38,4
  404. DATA "Time is running out!",17,46,4
  405. DATA "this place is a nightmare!",11,59,4
  406. DATA "Treasure Trough",25,47,4
  407. DATA "Treasure Zone",35,50,4
  408. DATA "Rest Stop",43,49,4
  409. DATA "Volcano Guardian",47,42,4
  410. DATA "Oasis of Plenty",46,33,4
  411.  
  412. '------------------Layer loader------------------
  413. Layer(0) = _DISPLAY
  414. Layer(1) = _NEWIMAGE(640, 480, 32)
  415. Layer(2) = _LOADIMAGE("Windows.bmp", 32)
  416. Layer(3) = _LOADIMAGE("MapTiles.bmp", 32)
  417. Layer(4) = _LOADIMAGE("BackGrounds.bmp", 32)
  418. Layer(5) = _LOADIMAGE("Units.bmp", 32)
  419. Layer(6) = _NEWIMAGE(500, 400, 32) 'map predraw
  420. Layer(8) = _NEWIMAGE(640, 480, 32) 'background color layer
  421. Layer(9) = _NEWIMAGE(640, 480, 32) 'temp layer
  422. Layer(13) = _NEWIMAGE(6720, 5600, 32) 'Continentia
  423. Layer(14) = _NEWIMAGE(6720, 5600, 32) 'Forestria
  424. Layer(15) = _NEWIMAGE(6720, 5600, 32) 'Archipelia
  425. Layer(16) = _NEWIMAGE(6720, 5600, 32) 'Saharia
  426.  
  427. _CLEARCOLOR _RGB32(0, 0, 0), Layer(2)
  428. _CLEARCOLOR _RGB32(76, 76, 140), Layer(2)
  429. _CLEARCOLOR _RGB32(0, 0, 0), Layer(5)
  430. '------------------------------------------------
  431. Load_Data
  432. '---------------starting stats-------------------
  433. G.Days = 900
  434. G.TimeStop = 0
  435. G.Level = EASY
  436. P.Class = KNIGHT
  437. P.Promotion = 0
  438. P.Maps_Aquired = 1
  439. P.Artifacts_Aquired = 0
  440. P.Puzzle_Peices = 2 ^ 25 - 1
  441. P.Magic_Learned = FALSE
  442. P.Seige_Bought = FALSE
  443. P.Current_Contract = 0
  444. P.MapXPos = 48 * 11
  445. P.MapYpos = 40 * 5
  446. P.Current_Land = CONTINENTIA
  447. '------------------------------------------------
  448. '--------------Basic Controls--------------------
  449. Control.Up_Key = 18432
  450. Control.Down_Key = 20480
  451. Control.Left_Key = 19200
  452. Control.Right_Key = 19712
  453. Control.Start_Button = 13 'enter
  454. Control.A_Button = 97 '    a
  455. Control.B_Button = 115 '   s
  456. Control.C_Button = 100 '   d
  457.  
  458. PX.Spells(1) = 5
  459. PX.Spells(3) = 5
  460. PX.Spells(5) = 5
  461. PX.Spells(7) = 5
  462. PX.Army(0).Unit = 3
  463. PX.Army(0).Count = 20
  464. PX.Army(1).Unit = 9
  465. PX.Army(1).Count = 2
  466. PX.Army(2).Unit = 11
  467. PX.Army(2).Count = 2
  468. PX.Army(3).Unit = 19
  469. PX.Army(3).Count = 2
  470. PX.Army(4).Unit = 4
  471. PX.Army(4).Count = 2
  472.  
  473. G.HDR_Text = Names(P.Class) + " the " + Title(P.Class, P.Promotion)
  474.  
  475. Add_Player_Advancement 'players first advnacement from Nobody to hero set base values
  476. Place_Extras
  477. Set_BackGround_Color
  478.  
  479. G.Scepter_Land = CONTINENTIA
  480. Hide_Scepter G.Scepter_Land
  481. Swap_Map P.Current_Land, LOAD
  482. Build_Map 13
  483.  
  484. 'Swap_Map FORESTRIA, LOAD
  485. 'Build_Map 14
  486.  
  487.  
  488.  
  489.  
  490. 'Build_Map 13
  491. G.In_Combat = FALSE
  492. 'TIMER(G.GameTimer) ON
  493. 'DO
  494. Build_Main_Window
  495. Build_Map_View
  496. Draw_Player
  497. Build_Dismiss_Window
  498. 'Build_Menu_Window
  499. _PUTIMAGE , Layer(1), Layer(0)
  500. '_DELAY .01
  501. 'LOOP UNTIL INKEY$ = CHR$(27)
  502. 'TIMER(G.GameTimer) OFF
  503. 'DumpMap
  504. 'SaveBMP "Continentia.bmp", Layer(13), 0, 0, 6719, 5599
  505.  
  506. SUB Build_Stat_Window
  507.  _PUTIMAGE (0, 15)-STEP(639, 447), Layer(8), Layer(1), (0, 15)-STEP(639, 447)
  508.  _PUTIMAGE (0, 15)-STEP(639, 447), Layer(2), Layer(1), (0, 0)-STEP(319, 223)
  509.  SELECT CASE P.Class
  510.   CASE KNIGHT '96,104
  511.    _PUTIMAGE (16, 63)-STEP(191, 207), Layer(2), Layer(1), (464, 224)-STEP(95, 103)
  512.   CASE PALADIN
  513.    _PUTIMAGE (16, 63)-STEP(191, 207), Layer(2), Layer(1), (560, 224)-STEP(95, 103)
  514.   CASE SORCERESS
  515.    _PUTIMAGE (16, 63)-STEP(191, 207), Layer(2), Layer(1), (464, 328)-STEP(95, 103)
  516.   CASE BARBARIAN
  517.    _PUTIMAGE (16, 63)-STEP(191, 207), Layer(2), Layer(1), (560, 328)-STEP(95, 103)
  519.  FOR i%% = 0 TO 3
  520.   _PUTIMAGE (16 + i%% * 96, 271)-STEP(95, 175), Layer(2), Layer(1), (256, 416)-STEP(47, 87)
  521.  NEXT i%%
  522.  _PUTIMAGE (400, 271)-STEP(111, 175), Layer(2), Layer(1), (512, 472)-STEP(55, 87)
  523.  _PUTIMAGE (512, 271)-STEP(111, 175), Layer(2), Layer(1), (512, 472)-STEP(55, 87)
  524.  IF P.Maps_Aquired AND 1 THEN _PUTIMAGE (412, 287)-STEP(87, 63), Layer(2), Layer(1), (256, 504)-STEP(43, 31)
  525.  IF P.Maps_Aquired AND 2 THEN _PUTIMAGE (412, 367)-STEP(87, 63), Layer(2), Layer(1), (256, 536)-STEP(43, 31)
  526.  IF P.Maps_Aquired AND 4 THEN _PUTIMAGE (524, 287)-STEP(87, 63), Layer(2), Layer(1), (256, 568)-STEP(43, 31)
  527.  IF P.Maps_Aquired AND 8 THEN _PUTIMAGE (524, 367)-STEP(87, 63), Layer(2), Layer(1), (256, 600)-STEP(43, 31)
  528.  IF P.Artifacts_Aquired AND 1 THEN _PUTIMAGE (28, 287)-STEP(71, 63), Layer(2), Layer(1), (656, 224)-STEP(35, 31)
  529.  IF P.Artifacts_Aquired AND 2 THEN _PUTIMAGE (28, 367)-STEP(71, 63), Layer(2), Layer(1), (656, 256)-STEP(35, 31)
  530.  IF P.Artifacts_Aquired AND 4 THEN _PUTIMAGE (124, 287)-STEP(71, 63), Layer(2), Layer(1), (692, 224)-STEP(35, 31)
  531.  IF P.Artifacts_Aquired AND 8 THEN _PUTIMAGE (124, 367)-STEP(71, 63), Layer(2), Layer(1), (692, 256)-STEP(35, 31)
  532.  IF P.Artifacts_Aquired AND 16 THEN _PUTIMAGE (220, 287)-STEP(71, 63), Layer(2), Layer(1), (656, 288)-STEP(35, 31)
  533.  IF P.Artifacts_Aquired AND 32 THEN _PUTIMAGE (220, 367)-STEP(71, 63), Layer(2), Layer(1), (656, 320)-STEP(35, 31)
  534.  IF P.Artifacts_Aquired AND 64 THEN _PUTIMAGE (316, 287)-STEP(71, 63), Layer(2), Layer(1), (692, 288)-STEP(35, 31)
  535.  IF P.Artifacts_Aquired AND 128 THEN _PUTIMAGE (316, 367)-STEP(71, 63), Layer(2), Layer(1), (692, 320)-STEP(35, 31)
  536.  
  537.  Window_Header
  538.  
  539.  KB_Print 210, 79, Names(P.Class) + " the " + Title(P.Class, P.Promotion), 0, LEFT
  540.  
  541.  KB_Print 210, 111, "Leadership", 0, LEFT
  542.  KB_Print 210, 127, "Commission/Week", 0, LEFT
  543.  KB_Print 210, 143, "Gold", 0, LEFT
  544.  KB_Print 210, 159, "Spell Power", 0, LEFT
  545.  KB_Print 210, 175, "Max # of Spells ", 0, LEFT
  546.  KB_Print 210, 191, "Villians caught", 0, LEFT
  547.  KB_Print 210, 207, "Artifacts found", 0, LEFT
  548.  KB_Print 210, 223, "Castles garrisoned", 0, LEFT
  549.  KB_Print 210, 239, "Followers killed", 0, LEFT
  550.  KB_Print 210, 255, "Current score", 0, LEFT
  551.  
  552.  KB_Print 600, 111, STR$(P.Leadership), 0, RIGHT
  553.  KB_Print 600, 127, STR$(P.Commission), 0, RIGHT
  554.  KB_Print 600, 143, STR$(P.Gold), 0, RIGHT
  555.  KB_Print 600, 159, STR$(P.SpellPower), 0, RIGHT
  556.  KB_Print 600, 175, STR$(P.MaxSpells), 0, RIGHT
  557.  KB_Print 600, 191, STR$(P.VilliansCaught), 0, RIGHT
  558.  KB_Print 600, 207, STR$(P.Artifacts), 0, RIGHT
  559.  KB_Print 600, 223, STR$(P.Castles), 0, RIGHT
  560.  KB_Print 600, 239, STR$(P.Deaths), 0, RIGHT
  561.  KB_Print 600, 255, STR$(P.Score), 0, RIGHT
  562.  _PUTIMAGE , Layer(1), Layer(0)
  563.  DO: _DELAY .01: LOOP UNTIL _KEYHIT = Control.B_Button
  565.  
  566. SUB Window_Header
  567.  KB_Print 2, 31, G.HDR_Text, 0, LEFT
  568.  IF INSTR(RTRIM$(G.HDR_Text), Names(P.Class)) THEN
  569.   IF G.TimeStop THEN
  570.    KB_Print 398, 31, "TimeStop:", 0, LEFT
  571.    KB_Print 606, 31, STR$(G.TimeStop), 0, RIGHT
  572.   ELSE
  573.    KB_Print 398, 31, "Days Left:", 0, LEFT
  574.    KB_Print 606, 31, STR$(G.Days), 0, RIGHT
  575.   END IF
  578.  
  579. SUB KB_Print (x%, y%, Txt$, Null%%, Aline%%)
  580.  Xo% = 0: Yo% = 672 'sheet offsets
  581.  Mx%% = LEN(Txt$)
  582.  IF Aline%% = RIGHT THEN Ax% = LEN(Txt$) * 16: x% = x% - Ax%
  583.  IF Aline%% = CENTER THEN Ax% = LEN(Txt$) * 8: x% = x% - Ax%
  584.  FOR i~%% = 1 TO Mx%%
  585.   So% = (ASC(MID$(Txt$, i~%%, 1)) - 31) * 8
  586.   _PUTIMAGE (x% + (i~%% * 16), y%)-STEP(15, 15), Layer(2), Layer(1), (Xo% + So%, Yo%)-STEP(7, 7)
  587.  NEXT i~%%
  589.  
  590. SUB KB_Print_Wrap (X%, Y%, txt$, MaxX%)
  591.  DIM Lines(10) AS STRING
  592.  'max number of characters with Wrap max of MaxX%%
  593.  IF MaxX% THEN SMx%% = INT(MaxX% / 16) ELSE SMx%% = LEN(txt$)
  594.  LOCATE 1, 1: PRINT SMx%%; MaxX%;
  595.  Finished%% = FALSE
  596.  DO
  597.   Mx%% = SMx%% 'restore Mx to Starting Mx(Mx= Max X length in pixels)
  598.   IF MID$(txt$, Mx%%, 1) = " " THEN
  599.    ' text is nice enough to land on a space
  600.    '   PRINT "lined up?"; MID$(txt$, Mx%%, 7): END
  601.    j%% = j%% + 1
  602.    Lines(j%%) = LEFT$(txt$, Mx%%)
  603.    txt$ = MID$(txt$, Mx%% + 1)
  604.   ELSE
  605.    ' back track to find first space
  606.    Found%% = FALSE
  607.    DO
  608.     IF MID$(txt$, Mx%%, 1) = " " THEN Found%% = TRUE ELSE Mx%% = Mx%% - 1
  609.    LOOP UNTIL Found%%
  610.    j%% = j%% + 1 'set to next line
  611.    Lines(j%%) = MID$(txt$, 1, Mx%%)
  612.    txt$ = MID$(txt$, Mx%% + 1) 'reduce string length
  613.   END IF
  614.   IF RTRIM$(txt$) = "" THEN Finished%% = TRUE
  615.  LOOP UNTIL Finished%%
  616.  
  617.  'print wraped lines
  618.  FOR I%% = 1 TO j%%
  619.   KB_Print X%, Y%, Lines(I%%), 0, LEFT
  620.   Y% = Y% + 16
  621.  NEXT I%%
  623.  
  624. SUB ClockTick
  625.  STATIC CurrentCount~%%, AnimationCount~%%
  626.  
  627.  AnimationCount~%% = AnimationCount~%% + 1
  628.  
  629.  IF (NOT G.In_Menu) AND (NOT G.In_Combat) THEN 'time pauses when in a menu window or combat
  630.   CurrentCount~%% = CurrentCount~%% + 1
  631.   IF G.TimeStop THEN
  632.    IF CurrentCount~%% > 3 THEN G.TimeStop = G.TimeStop - 1: CurrentCount~%% = 0
  633.   ELSE
  634.    IF CurrentCount~%% > 127 THEN G.Days = G.Days - 1: CurrentCount~%% = 0
  635.   END IF
  637.  
  638.  IF AnimationCount~%% > 0 THEN G.Window_Animation = G.Window_Animation + 1: AnimationCount~%% = 0
  639.  IF G.Window_Animation > 3 THEN G.Window_Animation = 0
  641.  
  642. SUB Add_Player_Advancement
  643.  P.Leadership = P.Leadership + Stats(P.Class, P.Promotion).Leadership
  644.  P.Commission = P.Commission + Stats(P.Class, P.Promotion).Commission
  645.  P.SpellPower = P.SpellPower + Stats(P.Class, P.Promotion).SpellPower
  646.  P.MaxSpells = P.MaxSpells + Stats(P.Class, P.Promotion).MaxSpells
  647.  P.Gold = P.Gold + Stats(P.Class, P.Promotion).Gold 'just for starting gold at moment
  649.  
  650. SUB Build_Main_Window
  651.  _PUTIMAGE , Layer(8), Layer(1)
  652.  _PUTIMAGE (0, 15)-STEP(639, 447), Layer(2), Layer(1), (0, 0)-STEP(319, 223)
  653.  Window_Header
  654.  _PUTIMAGE (496, 47)-STEP(143, 415), Layer(2), Layer(1), (728, 192)-STEP(71, 207)
  655.  _PUTIMAGE (524, 63)-STEP(87, 63), Layer(4), Layer(1), (240, 704)-STEP(43, 31)
  656.  _PUTIMAGE (524, 143)-STEP(87, 63), Layer(4), Layer(1), (372, 672)-STEP(43, 31)
  657.  _PUTIMAGE (524, 223)-STEP(87, 63), Layer(4), Layer(1), (328, 672)-STEP(43, 31)
  658.  _PUTIMAGE (524, 303)-STEP(87, 63), Layer(4), Layer(1), (240, 672)-STEP(43, 31)
  659.  _PUTIMAGE (524, 383)-STEP(87, 63), Layer(4), Layer(1), (284, 672)-STEP(43, 31)
  660.  Draw_Coins
  661.  Cover_Puzzle
  662.  Magic_Animation
  663.  Seige_Animation
  664.  Contract_Animation MAIN
  666.  
  667. SUB Draw_Coins
  668.  Gp~% = P.Gold \ 10000
  669.  Sp%% = (P.Gold \ 1000) MOD 10
  670.  Cp%% = (P.Gold \ 100) MOD 10
  671.  IF Gp~% > 10 THEN Gp~% = 10: Sp%% = 10: Cp%% = 10 'over 100k gold all stacks full!
  672.  FOR i%% = 1 TO 10
  673.   IF i%% <= Gp~% THEN _PUTIMAGE (530, 431 - 4 * i%%)-STEP(15, 9), Layer(2), Layer(1), (364, 219)-STEP(7, 4)
  674.   IF i%% <= Sp%% THEN _PUTIMAGE (560, 431 - 4 * i%%)-STEP(15, 9), Layer(2), Layer(1), (372, 219)-STEP(7, 4)
  675.   IF i%% <= Cp%% THEN _PUTIMAGE (592, 431 - 4 * i%%)-STEP(15, 9), Layer(2), Layer(1), (380, 219)-STEP(7, 4)
  676.  NEXT i%%
  678.  
  679. SUB Cover_Puzzle
  680.  FOR i%% = 0 TO 24
  681.   IF P.Puzzle_Peices AND (2 ^ i%%) THEN _PUTIMAGE (528 + x%%, 305 + y%%)-STEP(15, 11), Layer(2), Layer(1), (356, 218)-STEP(7, 5)
  682.   x%% = x%% + 16
  683.   IF x%% = 80 THEN x%% = 0: y%% = y%% + 12
  684.  NEXT i%%
  686.  
  687. SUB Magic_Animation
  688.  IF P.Magic_Learned THEN
  689.   _PUTIMAGE (524, 223)-STEP(87, 63), Layer(4), Layer(1), (240 + (44 * G.Window_Animation), 576)-STEP(43, 31) 'magic power frames
  692.  
  693. SUB Seige_Animation
  694.  IF P.Seige_Bought THEN
  695.   _PUTIMAGE (524, 143)-STEP(87, 63), Layer(4), Layer(1), (240 + (44 * G.Window_Animation), 544)-STEP(43, 31) 'magic power frames
  698.  
  699. SUB Contract_Animation (Loca%%)
  700.  IF Loca%% = MAIN THEN Xo% = 524: Yo% = 63 ELSE Xo% = 211: Yo% = 91
  701.  IF P.Current_Contract THEN
  702.   y% = 32 * (P.Current_Contract - 1)
  703.   _PUTIMAGE (Xo%, Yo%)-STEP(87, 63), Layer(4), Layer(1), (240 + (44 * G.Window_Animation), 0 + y%)-STEP(43, 31) 'magic power frames
  706.  
  707. SUB Build_Army_Window
  708.  _PUTIMAGE (0, 15)-STEP(639, 447), Layer(8), Layer(1), (0, 15)-STEP(639, 447)
  709.  _PUTIMAGE (0, 15)-STEP(639, 447), Layer(2), Layer(1), (0, 0)-STEP(319, 223)
  710.  Window_Header
  711.  
  712.  FOR i%% = 0 TO 4
  713.   _PUTIMAGE (0, 51 + i%% * 80)-STEP(639, 91), Layer(2), Layer(1), (300, 600)-STEP(319, 45)
  714.   IF PX.Army(i%%).Unit THEN Unit_Data i%%, i%%
  715.  NEXT i%%
  716.  _PUTIMAGE , Layer(1), Layer(9)
  717.  DO
  718.   FOR i%% = 0 TO 4
  719.    IF PX.Army(i%%).Unit THEN Unit_Animation 24, 63 + i%% * 80, PX.Army(i%%).Unit
  720.   NEXT i%%
  721.   _PUTIMAGE , Layer(1), Layer(0)
  722.   _PUTIMAGE , Layer(9), Layer(1)
  723.   _DELAY .025
  724.  
  725.  LOOP UNTIL _KEYHIT = Control.B_Button
  727.  
  728. SUB Unit_Animation (x%, y%, Unit%%)
  729.  _PUTIMAGE (x%, y%)-STEP(87, 63), Layer(5), Layer(1), (0 + (48 * G.Window_Animation), 0 + (Unit%% - 1) * 32)-STEP(47, 31)
  731.  
  732. SUB Unit_Data (Unit%%, Slot%%)
  733.  y% = 80 * Slot%%
  734.  ID%% = PX.Army(Unit%%).Unit
  735.  a$ = Units(ID%%).Unit_Name
  736.  IF PX.Army(Unit%%).Count > 1 THEN
  737.   IF RIGHT$(RTRIM$(a$), 1) = "f" THEN a$ = LEFT$(a$, LEN(RTRIM$(a$)) - 1) + "ves" ELSE a$ = RTRIM$(a$) + "s"
  739.  b~% = PX.Army(Unit%%).Count
  740.  IF b~% > 1000 THEN b$ = Special_K_Value(b~%) ELSE b$ = LTRIM$(STR$(b~%))
  741.  a$ = b$ + " " + a$
  742.  IF Units(ID%%).Movement = 99 THEN M$ = " Fly" ELSE M$ = STR$(Units(ID%%).Movement)
  743.  KB_Print 112, y% + 80, a$, 0, LEFT
  744.  KB_Print 112, y% + 96, "SL:" + STR$(Units(ID%%).Skill_Level) + "  MV:" + M$, 0, LEFT
  745.  KB_Print 112, y% + 112, "Morale: " + Units_Morale(Unit%%), 0, LEFT
  746.  KB_Print 358, y% + 80, "HitPts: " + Units_HP(Unit%%), 0, LEFT
  747.  KB_Print 358, y% + 96, "Damage: " + Units_Attack(Unit%%), 0, LEFT
  748.  KB_Print 358, y% + 112, "G-Cost: " + Units_Cost(Unit%%), 0, LEFT
  750.  
  751. FUNCTION Units_Morale$ (Unit%%)
  752.  DIM Rack(5) AS _BYTE
  753.  IF Units(PX.Army(Unit%%).Unit).Grouping = 1 THEN a%% = 0: b%% = 0: c%% = 0: d%% = -1: e%% = -1
  754.  IF Units(PX.Army(Unit%%).Unit).Grouping = 2 THEN a%% = 0: b%% = 0: c%% = 0: d%% = 0: e%% = -1
  755.  IF Units(PX.Army(Unit%%).Unit).Grouping = 3 THEN a%% = 0: b%% = 0: c%% = 1: d%% = -1: e%% = -1
  756.  IF Units(PX.Army(Unit%%).Unit).Grouping = 4 THEN a%% = 0: b%% = 0: c%% = 0: d%% = 1: e%% = 0
  757.  IF Units(PX.Army(Unit%%).Unit).Grouping = 5 THEN a%% = 0: b%% = 0: c%% = 0: d%% = 0: e%% = 0
  758.  Total%% = 0
  759.  FOR i%% = 1 TO 5
  760.   IF i%% <> Unit%% THEN
  761.    SELECT CASE Units(PX.Army(i%%).Unit).Grouping
  762.     CASE 1
  763.      Total%% = Total%% + a%%
  764.     CASE 2
  765.      Total%% = Total%% + b%%
  766.     CASE 3
  767.      Total%% = Total%% + c%%
  768.     CASE 4
  769.      Total%% = Total%% + d%%
  770.     CASE 5
  771.      Total%% = Total%% + e%%
  772.    END SELECT
  773.   END IF
  774.  NEXT i%%
  775.  IF Total%% = 0 THEN Result$ = "Norm"
  776.  IF Total%% < 0 THEN Result$ = "Low"
  777.  IF Total%% > 0 THEN Result$ = "High"
  778.  Units_Morale = Result$
  780.  
  781. FUNCTION Units_HP$ (unit%%)
  782.  Result~% = Units(PX.Army(unit%%).Unit).HitPts * PX.Army(unit%%).Count
  783.  IF Result~% > 1000 THEN Result$ = Special_K_Value(Result~%) ELSE Result$ = LTRIM$(STR$(Result~%))
  784.  Units_HP = Result$
  786.  
  787. FUNCTION Units_Attack$ (unit%%)
  788.  lo~% = Units(PX.Army(unit%%).Unit).AttackLo * PX.Army(unit%%).Count
  789.  hi~% = Units(PX.Army(unit%%).Unit).AttackHi * PX.Army(unit%%).Count
  790.  IF lo~% > 1000 THEN lo$ = Special_K_Value(lo~%) ELSE lo$ = LTRIM$(STR$(lo~%))
  791.  IF hi~% > 1000 THEN hi$ = Special_K_Value(hi~%) ELSE hi$ = LTRIM$(STR$(hi~%))
  792.  Result$ = lo$ + "-" + hi$
  793.  Units_Attack = Result$
  795.  
  796. FUNCTION Units_Cost$ (unit%%)
  797.  Result~% = (Units(PX.Army(unit%%).Unit).Cost * PX.Army(unit%%).Count) \ 10
  798.  IF Result~% >= 10000 THEN Result$ = Special_K_Value(Result~%) ELSE Result$ = LTRIM$(STR$(Result~%))
  799.  Units_Cost = Result$
  801.  
  802. FUNCTION Special_K_Value$ (Value~%)
  803.  Result$ = LTRIM$(STR$(INT(Value~% \ 1000)))
  804.  Result$ = Result$ + "K"
  805.  Special_K_Value = Result$
  807.  
  808. SUB Build_Contract_Window
  809.  _PUTIMAGE (16, 63)-STEP(479, 383), Layer(8), Layer(1), (16, 63)-STEP(479, 383)
  810.  _PUTIMAGE (16, 63)-STEP(479, 383), Layer(2), Layer(1), (560, 0)-STEP(239, 191)
  811.  IF P.Current_Contract THEN
  812.   Contract_Animation 0
  813.   KB_Print 16, 175, "Name: " + Villains(P.Current_Contract).Villain, 0, LEFT
  814.   KB_Print 16, 191, "Alias: " + Villains(P.Current_Contract).Alias, 0, LEFT
  815.   KB_Print 16, 207, "Reward: " + Contract_Reward(Villains(P.Current_Contract).Bounty), 0, LEFT
  816.   KB_Print 16, 223, "Last Seen: " + Lands(Villains(P.Current_Contract).LastSeen), 0, LEFT
  817.   KB_Print 16, 239, "Castle: " + Castles(Villains(P.Current_Contract).Is_Known).The_Name, 0, LEFT
  818.   KB_Print 16, 255, "Distinguishing Features: ", 0, LEFT
  819.   y% = 272 'allows for different lenths of discriptions cause the routine changes the value
  820.   KB_Print_Wrap 48, y%, Villains(P.Current_Contract).Description, 432
  821.   KB_Print 16, y%, "Crimes: ", 0, LEFT
  822.  
  823.   KB_Print_Wrap 48, y%, "      " + Villains(P.Current_Contract).Crimes, 432
  824.  
  826.   KB_Print 79, 239, "You have no contract.", 0, LEFT
  828.  _PUTIMAGE , Layer(1), Layer(9)
  829.  DO
  830.   _PUTIMAGE , Layer(1), Layer(9)
  831.   Contract_Animation 0
  832.   _PUTIMAGE , Layer(1), Layer(0)
  833.   _DELAY .01
  834.  LOOP UNTIL _KEYHIT = Control.B_Button
  835.  
  837.  
  838. FUNCTION Contract_Reward$ (value~%)
  839.  temp$ = LTRIM$(STR$(value~%))
  840.  Result$ = LEFT$(temp$, LEN(temp$) - 3) + "," + RIGHT$(temp$, 3) + " Gold"
  841.  Contract_Reward = Result$
  843.  
  844. SUB Build_MiniMap_Window
  845.  _PUTIMAGE (90, 80)-STEP(319, 351), Layer(8), Layer(1), (90, 80)-STEP(319, 351)
  846.  _PUTIMAGE (90, 80)-STEP(319, 351), Layer(2), Layer(1), (304, 224)-STEP(159, 175)
  847.  KB_Print 90, 400, "X=   Position Y=", 0, LEFT
  848.  X%% = P.MapXPos / 48
  849.  Y%% = P.MapYpos / 40
  850.  IF X%% >= 0 THEN X$ = LTRIM$(STR$(X%%)) ELSE X$ = "**"
  851.  IF Y%% >= 0 THEN Y$ = LTRIM$(STR$(Y%%)) ELSE Y$ = "**"
  852.  KB_Print 122, 400, X$, 0, LEFT
  853.  KB_Print 378, 400, Y$, 0, RIGHT
  854.  KB_Print 240, 96, Lands(P.Current_Land), 0, CENTER
  855.  Draw_MiniMap_Terrain
  856.  Draw_Minimap_Objects
  857.  _PUTIMAGE , Layer(1), Layer(9)
  858.  DO
  859.   _PUTIMAGE , Layer(9), Layer(1)
  860.   Draw_Minimap_Player
  861.   _PUTIMAGE , Layer(1), Layer(0)
  862.   _DELAY .025
  863.  LOOP UNTIL _KEYHIT = Control.B_Button
  865.  
  866. SUB Draw_MiniMap_Terrain
  867.  _DEST Layer(1)
  868.  LINE (122, 128)-STEP(255, 255), _RGB32(0, 32, 128), BF
  869.  FOR y%% = 0 TO 63
  870.   FOR x%% = 0 TO 63
  871.    SELECT CASE Land(x%%, y%%).Terrain
  872.     CASE 0 'water
  873.     CASE 1 TO 4, 8, 9, 19, 20, 21, 27, 30, 36 'shore
  874.      LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(32, 96, 192), BF
  875.     CASE 10 'grass land
  876.      LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(32, 160, 0), BF
  877.     CASE 5, 6, 7, 11 TO 18, 28, 29 'mountain
  878.      LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(128, 64, 0), BF
  879.     CASE 22 TO 24, 31 TO 33 'castle
  880.      LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(224, 224, 224), BF
  881.     CASE 25, 26, 34, 35, 37 TO 45 'forest
  882.      LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(0, 96, 0), BF
  883.     CASE 46 TO 58 'desert
  884.      LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(224, 224, 0), BF
  885.    END SELECT
  886.   NEXT x%%
  887.  NEXT y%%
  888.  _DEST Layer(0)
  890.  
  891. SUB Draw_Minimap_Objects
  892.  'sign posts, towns, treasures, armys, dwellings, artifacts
  893.  FOR y%% = 0 TO 63
  894.   FOR x%% = 0 TO 63
  895.    test%% = Land(x%%, y%%).IsTreasure OR Land(x%%, y%%).IsArmy OR Land(x%%, y%%).IsArtifact OR Land(x%%, y%%).IsBand
  896.    test%% = test%% OR Land(x%%, y%%).IsTown OR Land(x%%, y%%).IsSign OR Land(x%%, y%%).IsBlock
  897.    IF test%% THEN
  898.     LINE (122 + x%% * 4, 128 + y%% * 4)-STEP(3, 3), _RGB32(224, 0, 0), BF
  899.    END IF
  900.   NEXT x%%
  901.  NEXT y%%
  903.  
  904. SUB Draw_Minimap_Player
  905.  _DEST Layer(1)
  906.  X%% = P.MapXPos / 48
  907.  Y%% = 63 - P.MapYpos / 40
  908.  f~%% = G.Window_Animation * 48
  909.  LINE (122 + X%% * 4, 128 + Y%% * 4)-STEP(3, 3), _RGB32(255 - f~%%, 255 - f~%%, 255 - f~%%), BF
  910.  _DEST Layer(0)
  912.  
  913. SUB Set_BackGround_Color
  914.  _DEST Layer(8)
  915.  LINE (0, 16)-(639, 448), BackGround_Color(G.Level), BF
  916.  _DEST Layer(0)
  918.  
  919. SUB Swap_Map (ID%%, Action%%)
  920.  FOR Y%% = 0 TO 63
  921.   FOR X%% = 0 TO 63
  922.    IF Action%% = SAVE THEN Maps(X%%, Y%%, ID%%).Terrain = Land(X%%, Y%%).Terrain
  923.    IF Action%% = LOAD THEN Land(X%%, Y%%) = Maps(X%%, Y%%, ID%%)
  924.   NEXT X%%
  925.  NEXT Y%%
  927.  
  928. SUB Build_Map_View
  929.  X%% = P.MapXPos / 48
  930.  Y%% = 63 - P.MapYpos / 40
  931.  sy%% = Y%% - 2
  932.  sx%% = X%% - 2
  933.  IF sy%% < 0 THEN sy%% = 0
  934.  IF sx%% < 0 THEN sx%% = 0
  935.  _PUTIMAGE (16, 63)-STEP(479, 383), Layer(13), Layer(1), (288 + 96 * sx%%, 224 + 80 * sy%%)-STEP(479, 383)
  937.  
  938. SUB Build_Map (ID%%)
  939.  _DEST Layer(ID%%)
  940.  LINE (0, 0)-(6720, 5600), _RGB32(4, 164, 164), BF
  941.  _DEST Layer(0)
  942.  FOR y%% = 0 TO 63
  943.   FOR x%% = 0 TO 63
  944.    ix%% = Land(x%%, y%%).Terrain MOD 13
  945.    IF Land(x%%, y%%).Terrain > 12 THEN iy%% = Land(x%%, y%%).Terrain \ 13 ELSE iy%% = 0
  946.    _PUTIMAGE (288 + x%% * 96, 240 + y%% * 80)-STEP(95, 79), Layer(3), Layer(ID%%), (0 + 48 * ix%%, 0 + 40 * iy%%)-STEP(47, 39)
  947.    Add_Map_Extras x%%, y%%
  948.   NEXT x%%
  949.  NEXT y%%
  951.  
  952. SUB Draw_Player
  953.  _PUTIMAGE (210, 224)-STEP(87, 63), Layer(5), Layer(1), (0 + G.Window_Animation * 44, 800 + P.Travel_Mode * 32)-STEP(43, 31)
  955.  
  956. SUB Place_Extras
  957.  FOR i%% = 1 TO 26
  958.   Maps(Towns(i%%).MapX, Towns(i%%).MapY, Towns(i%%).Land).IsTown = i%%
  959.  NEXT i%%
  961.  
  962. SUB Add_Map_Extras (X%%, Y%%)
  963.  IF Land(X%%, Y%%).IsTown THEN _PUTIMAGE (288 + X%% * 96, 240 + Y%% * 80)-STEP(95, 79), Layer(3), Layer(13), (480, 160)-STEP(47, 39)
  964.  IF Land(X%%, Y%%).IsSign THEN _PUTIMAGE (288 + X%% * 96, 240 + Y%% * 80)-STEP(95, 79), Layer(3), Layer(13), (432, 160)-STEP(47, 39)
  965.  IF Land(X%%, Y%%).IsBridge THEN _PUTIMAGE (288 + X%% * 96, 240 + Y%% * 80)-STEP(95, 79), Layer(3), Layer(13), (336 + Land(X%%, Y%%).IsBridge * 48, 160)-STEP(47, 39)
  967.  
  968. SUB Build_Spell_Window
  969.  
  970.  FOR i%% = 1 TO 7
  971.   IF Last_Cast = 0 AND PX.Spells(i%%) <> 0 THEN Last_Cast = i%%
  972.   ASPC%% = ASPC%% + PX.Spells(i%%)
  973.   CSPC%% = CSPC%% + PX.Spells(7 + i%%)
  974.  NEXT i%%
  975.  
  976.  _PUTIMAGE (90, 80)-STEP(319, 351), Layer(2), Layer(1), (304, 224)-STEP(159, 175)
  977.  _PUTIMAGE (100, 74)-STEP(299, 347), Layer(8), Layer(1), (0, 0)-STEP(299, 347)
  978.  KB_Print 90, 98, "Adventuring Spells", 0, LEFT
  979.  KB_Print 122, 276, "Combat Spells", 0, LEFT
  980.  FOR i%% = 1 TO 7
  981.   KB_Print 154, 114 + i%% * 16, LTRIM$(STR$(PX.Spells(i%%))), 0, RIGHT
  982.   KB_Print 170, 114 + i%% * 16, Spells(i%%).Spell_Name, 0, LEFT
  983.   KB_Print 154, 290 + i%% * 16, LTRIM$(STR$(PX.Spells(7 + i%%))), 0, RIGHT
  984.   KB_Print 170, 290 + i%% * 16, Spells(7 + i%%).Spell_Name, 0, LEFT
  985.  NEXT i%%
  986.  
  987.  IF G.In_Combat THEN
  988.   IF CSPC%% = 0 THEN
  989.    _PUTIMAGE (16, 29)-STEP(608, 17), Layer(8), Layer(1), (0, 16)-STEP(608, 17)
  990.    KB_Print 2, 31, "You have no Combat Spell to cast!", 0, LEFT
  991.   ELSE
  992.    Spell_Selection
  993.   END IF
  995.   IF ASPC%% = 0 THEN
  996.    _PUTIMAGE (16, 29)-STEP(608, 17), Layer(8), Layer(1), (0, 16)-STEP(608, 17)
  997.    KB_Print 2, 31, "You have no Adventuring Spell to cast!", 0, LEFT
  998.   ELSE
  999.    Spell_Selection
  1000.   END IF
  1003.  
  1004. SUB Display_Selection_Arrow (X%, Y%)
  1005.  _PUTIMAGE (X%, Y%)-STEP(23, 15), Layer(2), Layer(1), (388 + G.Window_Animation * 12, 216)-STEP(11, 7)
  1007.  
  1008. SUB Spell_Selection
  1009.  STATIC Last_Combat AS _BYTE, Last_Adventure AS _BYTE
  1010.  IF PX.Spells(Last_Combat) = 0 THEN Last_Combat = 0
  1011.  IF PX.Spells(Last_Adventure) = 0 THEN Last_Adventure = 0
  1012.  
  1013.  FOR i%% = 1 TO 7
  1014.   IF Last_Combat = 0 AND PX.Spells(7 + i%%) <> 0 THEN Last_Combat = 7 + i%%
  1015.   IF Last_Adventure = 0 AND PX.Spells(i%%) <> 0 THEN Last_Adventure = i%%
  1016.  NEXT i%%
  1017.  _PUTIMAGE , Layer(1), Layer(9) 'save screen so we don't have to constantly recreate it.
  1018.  
  1019.  IF G.In_Combat THEN Selection%% = Last_Combat ELSE Selection%% = Last_Adventure
  1020.  
  1021.  DO
  1022.   KBD& = _KEYHIT
  1023.   SELECT CASE KBD&
  1024.    CASE Control.Up_Key
  1025.     good%% = FALSE
  1026.     Selection%% = Selection%% - 1
  1027.     DO
  1028.      'find next available spell
  1029.      IF G.In_Combat AND Selection%% = 7 THEN Selection%% = 14
  1030.      IF NOT G.In_Combat AND Selection%% = 0 THEN Selection%% = 7
  1031.      IF PX.Spells(Selection%%) THEN good%% = TRUE ELSE Selection%% = Selection%% - 1
  1032.     LOOP UNTIL good%%
  1033.    CASE Control.Down_Key
  1034.     good%% = FALSE
  1035.     Selection%% = Selection%% + 1
  1036.     DO
  1037.      'find next available spell
  1038.      IF G.In_Combat AND Selection%% = 15 THEN Selection%% = 8
  1039.      IF NOT G.In_Combat AND Selection%% = 8 THEN Selection%% = 1
  1040.      IF PX.Spells(Selection%%) THEN good%% = TRUE ELSE Selection%% = Selection%% + 1
  1041.     LOOP UNTIL good%%
  1042.    CASE Control.A_Button
  1043.     IF G.In_Combat THEN Last_Combat = Selection%% ELSE Last_Adventure = Selection%%
  1044.     exitflag%% = TRUE
  1045.     PX.Spells(Selection%%) = PX.Spells(Selection%%) - 1
  1046.     Cast_Spells Selection%%
  1047.    CASE Control.B_Button
  1048.     exitflag%% = TRUE
  1049.    CASE MASTERESC
  1050.     exitflag%% = TRUE
  1052.   _PUTIMAGE , Layer(9), Layer(1)
  1053.   IF G.In_Combat THEN
  1054.    Display_Selection_Arrow 112, 288 + (16 * (Selection%% - 7)) 'in combat
  1055.   ELSE
  1056.    Display_Selection_Arrow 112, 114 + (16 * Selection%%) 'adventuring
  1057.   END IF
  1058.   _PUTIMAGE , Layer(1), Layer(0)
  1059.   LOCATE 1, 1: PRINT Selection%%
  1060.   _DELAY .025
  1061.  LOOP UNTIL exitflag%%
  1063.  
  1064. SUB Cast_Spells (Spell%%)
  1065.  SELECT CASE Spell%%
  1066.   CASE 1 'bridge spell
  1067.   CASE 2 'TimeStop Spell
  1068.    G.TimeStop = G.TimeStop + (10 * P.SpellPower)
  1069.   CASE 3 'Find Villain
  1070.    Villains(P.Current_Contract).Is_Known = Villains(P.Current_Contract).Castle
  1071.   CASE 4 'castle gate
  1072.    FOR i%% = 1 TO 26
  1073.     v%% = v%% + ABS(Castles(i%%).Visited) 'has player been to any castles?
  1074.    NEXT i%%
  1075.    IF v%% = 0 THEN G.HDR_Text = "  You have not been to any castles!": Window_Header
  1076.    IF v%% THEN Build_Gate_Window CASTLE
  1077.   CASE 5 'town gate
  1078.    FOR i%% = 1 TO 26
  1079.     v%% = v%% + ABS(Towns(i%%).Visited) 'has player been to any towns?
  1080.    NEXT i%%
  1081.    IF v%% = 0 THEN G.HDR_Text = "   You have not been to any towns!": Window_Header
  1082.    IF v%% THEN Build_Gate_Window TOWN
  1083.   CASE 6 'Instant Army
  1084.   CASE 7 'Raise control
  1085.    P.Control_Bonus = P.Control_Bonus + 100 * P.SpellPower
  1086.    IF P.Control_Bonus + P.Leadership > 65535 THEN P.Control_Bonus = 65535 - P.Leadership
  1089.  
  1090. SUB Build_Gate_Window (Spell%%)
  1091.  Build_Main_Window
  1092.  _PUTIMAGE (15, 63)-STEP(479, 383), Layer(2), Layer(1), (560, 0)-STEP(239, 191)
  1093.  IF Spell%% = TOWN THEN a$ = "Towns" ELSE a$ = "Castles"
  1094.  KB_Print 48, 96, a$ + " you have been to", 0, LEFT
  1095.  KB_Print 80, 384, "Revisit which " + a$, 0, LEFT
  1096.  FOR i%% = 1 TO 13
  1097.   IF Spell%% = TOWN AND Towns(i%%).Visited THEN
  1098.    KB_Print 48, 128 + i%% * 16, Towns(i%%).The_Name, 0, LEFT
  1099.    KB_Print 272, 128 + i%% * 16, Towns(13 + i%%).The_Name, 0, LEFT
  1100.   END IF
  1101.   IF Spell%% = CASTLE AND Castles(i%%).Visited THEN
  1102.    KB_Print 48, 128 + i%% * 16, Castles(i%%).The_Name, 0, LEFT
  1103.    KB_Print 272, 128 + i%% * 16, Castles(13 + i%%).The_Name, 0, LEFT
  1104.   END IF
  1105.  NEXT i%%
  1107.  
  1108. SUB Gate_Selection
  1109.  _PUTIMAGE , Layer(1), Layer(9) 'save screen so we don't have to constantly recreate it.
  1110.  
  1111.  IF G.In_Combat THEN Selection%% = Last_Combat ELSE Selection%% = Last_Adventure
  1112.  
  1113.  DO
  1114.   KBD& = _KEYHIT
  1115.   SELECT CASE KBD&
  1116.    CASE Control.Up_Key
  1117.     good%% = FALSE
  1118.     Selection%% = Selection%% - 1
  1119.     DO
  1120.      'find next available town or castle
  1121.      IF Selection%% < 1 THEN Selection%% = 26
  1122.      IF Towns(Selection%%).Visited THEN good%% = TRUE ELSE Selection%% = Selection%% + 1
  1123.     LOOP UNTIL good%%
  1124.    CASE Control.Down_Key
  1125.     good%% = FALSE
  1126.     Selection%% = Selection%% + 1
  1127.     DO
  1128.      'find next available town or castle
  1129.      IF Selection%% > 26 THEN Selection%% = 1
  1130.      IF Towns(Selection%%).Visited THEN good%% = TRUE ELSE Selection%% = Selection%% + 1
  1131.     LOOP UNTIL good%%
  1132.    CASE Control.A_Button
  1133.     exitflag%% = TRUE
  1134.    CASE Control.B_Button
  1135.     exitflag%% = TRUE
  1136.    CASE MASTERESC
  1137.     exitflag%% = TRUE
  1139.  
  1140.   _PUTIMAGE , Layer(9), Layer(1)
  1141.   IF Selection%% < 13 THEN x%% = 16: y%% = Selection%% ELSE x%% = 250: y%% = Selection%% - 13
  1142.   Display_Selection_Arrow x%%, 128 + (16 * y%%) 'adventuring
  1143.  
  1144.   _PUTIMAGE , Layer(1), Layer(0)
  1145.   _DELAY .025
  1146.  LOOP UNTIL exitflag%%
  1148.  
  1149. SUB Build_Puzzle_Window
  1150.  
  1151.  X%% = G.Scepter_X ' / 48
  1152.  Y%% = G.Scepter_Y ' / 40
  1153.  Land%% = 13 + G.Scepter_Land
  1154.  sy%% = Y%% - 2
  1155.  sx%% = X%% - 2
  1156.  IF sy%% < 0 THEN sy%% = 0
  1157.  IF sx%% < 0 THEN sx%% = 0
  1158.  _PUTIMAGE (16, 64)-STEP(479, 383), Layer(13), Layer(1), (288 + 96 * sx%%, 224 + 80 * sy%%)-STEP(479, 383)
  1159.  
  1160.  _PUTIMAGE (16, 63)-STEP(239, 383), Layer(2), Layer(1), (0, 416)-STEP(119, 191)
  1161.  _PUTIMAGE (494, 63)-STEP(-239, 383), Layer(2), Layer(1), (0, 416)-STEP(119, 191)
  1162.  _PUTIMAGE , Layer(1), Layer(9)
  1163.  xo% = 36: yo% = 95
  1164.  DO
  1165.   _PUTIMAGE , Layer(9), Layer(1)
  1166.   FOR Y%% = 0 TO 4
  1167.    FOR X%% = 0 TO 4
  1168.     IF Puzzle(X%%, Y%%) > 16 THEN
  1169.      y% = 32 * (Puzzle(X%%, Y%%) - 17)
  1170.      IF NOT Villains(Puzzle(X%%, Y%%) - 17).Caught THEN
  1171.       _PUTIMAGE (xo% + X%% * 88, yo% + Y%% * 64)-STEP(87, 63), Layer(4), Layer(1), (240 + (44 * G.Window_Animation), 0 + y%)-STEP(43, 31) 'magic power frames
  1172.      END IF
  1173.     ELSE
  1174.      IF Puzzle(X%%, Y%%) >= 4 THEN y% = 32 * 20: XA%% = Puzzle(X%%, Y%%) - 4 ELSE y% = 32 * 19: XA%% = Puzzle(X%%, Y%%)
  1175.      IF (P.Artifacts_Aquired AND 2 ^ Puzzle(X%%, Y%%)) = FALSE THEN
  1176.       _PUTIMAGE (xo% + X%% * 88, yo% + Y%% * 64)-STEP(87, 63), Layer(4), Layer(1), (240 + (44 * XA%%), 0 + y%)-STEP(43, 31) 'magic power frames
  1177.      END IF
  1178.     END IF
  1179.    NEXT X%%
  1180.   NEXT Y%%
  1181.   _PUTIMAGE , Layer(1), Layer(0)
  1182.   _DELAY .025
  1183.  
  1184.  LOOP UNTIL _KEYHIT = Control.B_Button
  1187.  
  1188. SUB Hide_Scepter (Land%%)
  1189.  good%% = FALSE
  1190.  DO
  1191.   x%% = INT(RND * 59) + 3
  1192.   y%% = INT(RND * 59) + 3
  1193.   IF Maps(x%%, y%%, Land%%).Terrain = 10 THEN good%% = TRUE
  1194.  LOOP UNTIL good%%
  1195.  G.Scepter_X = x%%
  1196.  G.Scepter_Y = y%%
  1197.  Maps(x%%, y%%, Land%%).IsScepter = TRUE
  1199.  
  1200. SUB Load_Data
  1201.  '-----------------Data loader--------------------
  1202.  RESTORE SignData
  1203.  FOR i%% = 1 TO 70
  1204.   READ Sign(i%%).SignText
  1205.   READ Sign(i%%).MapXLoc
  1206.   READ Sign(i%%).MapYLoc
  1207.   READ Sign(i%%).Land
  1208.  NEXT i%%
  1209.  
  1210.  RESTORE MapTerrain
  1211.  READ Map1$
  1212.  Map01% = DecodeMaps(Map1$)
  1213.  Swap_Map CONTINENTIA, SAVE
  1214.  READ Map1$
  1215.  Map02% = DecodeMaps(Map1$)
  1216.  Swap_Map FORESTRIA, SAVE
  1217.  
  1218.  RESTORE Lands
  1219.  FOR i%% = 1 TO 4
  1220.   READ Lands(i%%)
  1221.  NEXT i%%
  1222.  
  1223.  RESTORE Names
  1224.  FOR i%% = 0 TO 3
  1225.   READ Names(i%%)
  1226.  NEXT i%%
  1227.  RESTORE Titles
  1228.  FOR i%% = 0 TO 3
  1229.   FOR j%% = 0 TO 3
  1230.    READ Title(i%%, j%%)
  1231.   NEXT j%%
  1232.  NEXT i%%
  1233.  RESTORE Advancement
  1234.  FOR i%% = 0 TO 3
  1235.   FOR j%% = 0 TO 3
  1236.    READ Stats(i%%, j%%).Leadership
  1237.    READ Stats(i%%, j%%).MaxSpells
  1238.    READ Stats(i%%, j%%).SpellPower
  1239.    READ Stats(i%%, j%%).Commission
  1240.    READ Stats(i%%, j%%).Gold
  1241.   NEXT j%%
  1242.  NEXT i%%
  1243.  RESTORE Units
  1244.  FOR i%% = 1 TO 25
  1245.   READ Units(i%%).Unit_Name
  1246.   READ Units(i%%).HitPts
  1247.   READ Units(i%%).AttackLo
  1248.   READ Units(i%%).AttackHi
  1249.   READ Units(i%%).Shoot
  1250.   READ Units(i%%).Skill_Level
  1251.   READ Units(i%%).Movement
  1252.   READ Units(i%%).Cost
  1253.   READ Units(i%%).Shoot
  1254.   READ Units(i%%).Grouping
  1255.   READ Units(i%%).ShootLo
  1256.   READ Units(i%%).ShootHi
  1257.  NEXT i%%
  1258.  RESTORE Contract_Data
  1259.  FOR i%% = 1 TO 17
  1260.   READ Villains(i%%).Villain
  1261.   READ Villains(i%%).Alias
  1262.   READ Villains(i%%).Bounty
  1263.   READ Villains(i%%).LastSeen
  1264.   READ Villains(i%%).Description
  1265.   READ Villains(i%%).Crimes
  1266.   Villains(i%%).Is_Known = FALSE
  1267.  NEXT i%%
  1268.  RESTORE CastleData
  1269.  FOR i%% = 1 TO 26
  1270.   READ Castles(i%%).The_Name
  1271.   READ Castles(i%%).GateX
  1272.   READ Castles(i%%).GateY
  1273.   READ Castles(i%%).Land
  1274.   READ Castles(i%%).MapX
  1275.   READ Castles(i%%).MapY
  1276.   Castles(i%%).MapY = 63 - Castles(i%%).MapY 'correct Y value for bottom start
  1277.  NEXT i%%
  1278.  Castles(0).The_Name = "Unknown"
  1279.  RESTORE TownData
  1280.  FOR i%% = 1 TO 26
  1281.   READ Towns(i%%).The_Name
  1282.   READ Towns(i%%).Unit
  1283.   READ Towns(i%%).Spell
  1284.   READ Towns(i%%).Castle
  1285.   READ Towns(i%%).GateX
  1286.   READ Towns(i%%).GateY
  1287.   READ Towns(i%%).Land
  1288.   READ Towns(i%%).MapX
  1289.   READ Towns(i%%).MapY
  1290.   Towns(i%%).MapY = 63 - Towns(i%%).MapY 'correct Y value for bottom start
  1291.  NEXT i%%
  1292.  RESTORE BackgroundColors
  1293.  FOR i%% = 1 TO 4
  1294.   READ BackGround_Color(i%%)
  1295.  NEXT i%%
  1296.  RESTORE SpellData
  1297.  FOR i%% = 1 TO 14
  1298.   READ Spells(i%%).Spell_Name
  1299.   READ Spells(i%%).Cost
  1300.  NEXT i%%
  1301.  RESTORE PuzzleData
  1302.  FOR y%% = 0 TO 4
  1303.   FOR x%% = 0 TO 4
  1304.    READ Puzzle(x%%, y%%)
  1305.   NEXT x%%
  1306.  NEXT y%%
  1307.  '------------------------------------------------
  1309.  
  1310. SUB Build_Menu_Window
  1311.  STATIC Last_Choice AS _BYTE
  1312.  G.In_Menu = TRUE
  1313.  '304,472  208,128
  1314.  _PUTIMAGE (48, 127)-STEP(415, 255), Layer(8), Layer(1), (48, 160)-STEP(415, 255)
  1315.  _PUTIMAGE (48, 127)-STEP(415, 255), Layer(2), Layer(1), (304, 472)-STEP(207, 127)
  1316.  _PUTIMAGE , Layer(1), Layer(9)
  1317.  Selection%% = Last_Choice
  1318.  IF Selection%% = 0 THEN Selection%% = 1
  1319.  DO
  1320.   KBD& = _KEYHIT
  1321.   SELECT CASE KBD&
  1322.    CASE Control.Up_Key
  1323.     Selection%% = Selection%% - 1
  1324.     IF Selection%% <= 0 THEN Selection%% = 12 'correction for the gap in choices
  1325.     IF Selection%% = 11 THEN Selection%% = 10 'correction for the gap in choices
  1326.    CASE Control.Down_Key
  1327.     Selection%% = Selection%% + 1
  1328.     IF Selection%% >= 13 THEN Selection%% = 1
  1329.    CASE Control.A_Button
  1330.     Last_Choice = Selection%%
  1331.     RunIt%% = TRUE
  1332.     exitflag%% = TRUE
  1333.    CASE Control.B_Button
  1334.     exitflag%% = TRUE
  1335.    CASE MASTERESC
  1336.     exitflag%% = TRUE
  1338.   _PUTIMAGE , Layer(9), Layer(1)
  1339.   IF Selection%% = 11 THEN Selection%% = 12 'correction for the gap in choices
  1340.   Display_Selection_Arrow 69, 140 + (16 * Selection%%) 'adventuring
  1341.   _PUTIMAGE , Layer(1), Layer(0)
  1342.   LOCATE 1, 1: PRINT Selection%%
  1343.   _DELAY .025
  1344.  LOOP UNTIL exitflag%%
  1345.  IF RunIt%% THEN Run_Menu_Choice Selection%%
  1347.  
  1348. SUB Run_Menu_Choice (Opt%%)
  1350.  Build_Main_Window
  1351.  Build_Map_View
  1352.  Draw_Player
  1353.  SELECT CASE Opt%%
  1354.   CASE 1 'view army
  1355.    Build_Army_Window
  1356.   CASE 2 'view stats
  1357.    Build_Stat_Window
  1358.   CASE 3 'view mini map
  1359.    Build_MiniMap_Window
  1360.   CASE 4 'use spells
  1361.    Build_Spell_Window
  1362.   CASE 5 'view contract info
  1363.    Build_Contract_Window
  1364.   CASE 6 'wait till end of week
  1365.   CASE 7 'look at puzzle
  1366.    Build_Puzzle_Window
  1367.   CASE 8 'search area
  1368.   CASE 9 'dismiss army
  1369.   CASE 10 'game options
  1370.   CASE 12 'save game
  1372.  G.In_Menu = TRUE
  1375.  
  1376. SUB Build_Dismiss_Window
  1377.  _PUTIMAGE (16, 300)-STEP(479, 147), Layer(8), Layer(1), (16, 300)-STEP(479, 147)
  1378.  _PUTIMAGE (16, 300)-STEP(479, 147), Layer(2), Layer(1), (320, 0)-STEP(239, 73)
  1379.  KB_Print 80, 316, "Dismiss which army?", 0, LEFT
  1380.  _PUTIMAGE , Layer(1), Layer(9)
  1381.  Selection%% = 0
  1382.  DO
  1383.   KBD& = _KEYHIT
  1384.   SELECT CASE KBD&
  1385.    CASE Control.Up_Key
  1386.     Selection%% = Selection%% - 1
  1387.     IF Selection%% <= -1 THEN Selection%% = 0
  1388.    CASE Control.Down_Key
  1389.     Selection%% = Selection%% + 1
  1390.     IF Selection%% >= 4 THEN Selection%% = Selection%% - 1
  1391.     IF PX.Army(Selection%%).Unit = 0 THEN Selection%% = Selection%% - 1
  1392.    CASE Control.A_Button
  1393.     IF Selection%% = 0 THEN 'check and make sure player has more than one army
  1394.      IF PX.Army(1).Unit = 0 THEN 'player is trying to dismiss last army
  1395.       _PUTIMAGE , Layer(9), Layer(1)
  1396.       _PUTIMAGE (16, 31)-STEP(606, 15), Layer(8), Layer(1), (16, 31)-STEP(606, 15)
  1397.       KB_Print 2, 31, "  You man not dismiss your last army!", 0, LEFT
  1398.       _PUTIMAGE , Layer(1), Layer(9)
  1399.      ELSE
  1400.       Dismiss_Army Selection%%
  1401.      END IF
  1402.     ELSE 'if player isn't dismissing army 0 then they have more than one.
  1403.      Dismiss_Army Selection%%
  1404.      Selection%% = Selection%% - 1 'bump the arrow up one space
  1405.     END IF
  1406.    CASE Control.B_Button
  1407.     exitflag%% = TRUE
  1408.    CASE MASTERESC
  1409.     exitflag%% = TRUE
  1411.   _PUTIMAGE , Layer(9), Layer(1)
  1412.   FOR i%% = 0 TO 4
  1413.    IF PX.Army(i%%).Unit THEN KB_Print 272, 348 + i%% * 16, Units(PX.Army(i%%).Unit).Unit_Name, 0, CENTER
  1414.   NEXT i%%
  1415.   Display_Selection_Arrow 164, 346 + (16 * Selection%%)
  1416.   _PUTIMAGE , Layer(1), Layer(0)
  1417.  LOOP UNTIL exitflag%%
  1419.  
  1420. SUB Dismiss_Army (Unit%%)
  1421.  FOR i%% = Unit%% TO 3
  1422.   SWAP PX.Army(i%%), PX.Army(i%% + 1)
  1423.  NEXT i%%
  1424.  PX.Army(i%%).Unit = 0
  1425.  PX.Army(i%%).Count = 0
  1427.  
  1428.  
  1429.  
  1430. SUB DumpMap
  1431.  OPEN "debug.txt" FOR OUTPUT AS #1
  1432.  FOR y%% = 0 TO 63
  1433.   FOR x%% = 0 TO 63
  1434.    PRINT #1, Maps(x%%, y%%, 1).Terrain;
  1435.   NEXT x%%
  1436.   PRINT #1,
  1437.  NEXT y%%
  1440. '$include:'MapDecode.bi'
  1441. '$include: 'saveimage.bm'
  1442.  
  1443.  

there is the source, with the 3 include files down below and the zlib.dll.(the 2 saveimage files are from Steve's image saving code and they require the dll)

can somebody else load this code and see if there is any lag when trying to navigate the code. It usually takes some coding before it starts to happen, so you may need to add some 'stuff' to the bottom to cause it to start or navigate the code a few times. haven't isolated just when it 'starts' to happen yet. I just start noticing that it slows down while scrolling the longer lines of code and speeding up in areas with shorter lines.

Restarting the IDE seems to reset what ever is slowing down, for a bit anyway.

Going to try and see if I can figure out just what I have to consistently do to get it to slowdown.
Logged
Granted after becoming radioactive I only have a half-life!

FellippeHeitor

  • Guest
Re: Program Source code causing lag in the QB64 IDE
« Reply #1 on: January 29, 2019, 12:48:36 am »
Slow IDE when editing towards the end of a long source file is a known issue.

Heads up: unrelated to syntax highlighting, as previously believed (by me at least).

Likely related to the way the IDE keeps it all in a single string in memory.

Possible solution: not agreed upon yet.
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Program Source code causing lag in the QB64 IDE
« Reply #2 on: January 29, 2019, 01:06:35 am »
That's only 1400+ lines of code. I've put 80,000+ in previous IDE versions with some lag, but not overly annoying. I've been working on programs with 2,000 to 3,000 lines of code quite recently, with no lag.

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Program Source code causing lag in the QB64 IDE
« Reply #3 on: January 29, 2019, 10:48:30 am »
Quote from: Pete on January 29, 2019, 01:06:35 am
That's only 1400+ lines of code. I've put 80,000+ in previous IDE versions with some lag, but not overly annoying. I've been working on programs with 2,000 to 3,000 lines of code quite recently, with no lag.

Pete

Yeah the QB64.bas is a lot more lines too, and a lot larger to boot. even my Tetris clone was bigger. seems to be the more DATA lines I add the faster it starts to slow down and the worse it gets.  Just makes me kinda feel like the problem might be the way DATA lines are handled.(I imagine that has already been looked into though) Been having issues with the IDE ever since I added the two encoded map data lines, 3200+, and 3600+  character data strings, and the more I add it seems to compound the issue but it may just be coincidence.  eventually all the data will be stored in a file package, probably with the images. which will dump several hundred lines of code out of the program, since I wont need all the READ lines. I can just GET it right into the arrays at that point. Keeping the DATA lines until I know for sure I wont need to adjust them anymore.
I have 2 more maps to encode and add as data, will see what happen then.

I know I can always resort to solely using my goto text\hex editor for the main bulk, But I kind of like using the IDE some times.
Logged
Granted after becoming radioactive I only have a half-life!

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Program Source code causing lag in the QB64 IDE
« Reply #4 on: January 30, 2019, 10:46:59 am »
In my experience, sometimes the IDE will get a bit faster if the added DATA lines have a smaller length (for example, only 300 characters per row)
Logged
Pages: [1]   Go Up
« previous next »