The QBasic / QB64 Discussion Forum      Other Subforums, Links and Downloads
 
 

 Return to Index  

something tripod??http://www.toptown.com/search/redirect.php?f=http://dmoz.org/Computers/P

April 27 2012 at 11:09 AM
Anonymous  (no login)


Response to not tessted...

 
http://www.toptown.com/search/redirect.php?


sure that not work perhaps the mean of that throttel as language on elektronik




DQBcloseFLI DQBsizeP
DQBsetClipBox DQBfPut DQBsPut NewWidth NewHeight DQBrPut
Angle Zoom DQBxPut DQBmPut Flip% DQBhPut DQBtPut BitMode
DQBputOver BackSeg BackOff DQBsetCollideMethod Method~
DQBcollide Seg1 Off1 Seg2s Off2 DQBcollideOnLayer SpriteSeg SpriteOff DQBsetBit Value7 BIT 
DQBresetBit
DQBreadBit' DQBtoggleBit@ DQBshiftLeft nBits
DQBshiftRight@ DQBsetCol
ColorIndex Red Green,
Blue@ DQBgetCol
DQBfindCol
DQBfindPalCol@ DQBsetPal@ DQBgetPal@ DQBfadeIn=@
DQBfadeStepIn@ DQBfadeTo @
DQBfadeStepToG@ DQBpalOffG@DQBprintk Text@ DQBprints@ Style DQBlenY@DQBsetBIOSfonth
DQBloadFont`@
DQBsetFont Font@DQBsetTextStyle@DQBsetTextBackCol0
@DQBsetTextSpacingY
Spacing@DQBsetFontTexture3 TextSeg TextOff DQBdir Mask(
Attributes8 DQBdriveG
DQBpath DQBnumDrives
DQBsetDrive
Driver DQBfilterBoxQ
DQBbPut|
DQBcreateBMap
DQBloadBMap
DQBsaveBMap
DQBsetBMap ForeColK BackCol
NewCol
DQBgetBMap@DQBinstallKeyboardV@DQBremoveKeyboard DQBkey ScanCode%
DQBreadKeyJ@
DQBwaitKey}
DQBascg
ShiftFlag} DQBinkey DQBjoyDetected
JoyNum DQBjoyX DQBjoyY
DQBjoyMoveP
DQBjoyFire
Button
DQBpollJoy
DQBresetJoy.
DQBsetJoySens Sens DQBmouseDetected
DQBmouseX] DQBmouseY
DQBmouseLB
DQBmouseRBq
DQBsetMousePos
DQBmouseShow` DQBmouseHidet DQBsetMouseRange DQBsetMouseShape
hotX hotY Shape
DQBsetMouseSpeed
HorSpeed VerSpeed[

DQBresetMouse
DQBinstallSB Channelsw
Freq
BaseAddr
IRQu DMA4
DQBloadSound
Slotp
DQBloadRawSound Offset4 Length
DQBinUse
Voice
DQBplaySound
SoundNumV DQBsetVoiceVol_
NewVol

DQBpauseSound6
DQBresumeSound
DQBstopVoice

DQBremoveSB<
DQBsetVolume
Volume
DQBtri& x3 y3%
DQBbtriB
DQBgtri
c1
c2
c3N
DQBbgtri
DQBttrik
u1e
v1 u2w v2 u3h
v3

TextureSeg

TextureOff%
DQBbttri
DQBsetTextureSize Sizek FALSE TRUE
VIDEOe B0
B1  B2 B3
B4 B5
B6- B7Q
B8
B9 BSV BMP1
PCX; HORt VERB BOX PIXEL~
BIT.AND` BIT.OR BIT.XOR
CENTERED
NONET SOLID BOLD=
ITALIC
UNDERLINED BLENDED
TEXTURED
ATTRIB
ATTRIB.Rv
ATTRIB.Ho ATTRIB.S ATTRIB.L ATTRIB.D
ATTRIB.A
KEYANY
KEYESC KEYENTER1 KEYSPACE KEYUP
KEYDOWN\
KEYLEFT< KEYRIGHTn
UPl DOWN LEFT RIGHT
JOY1 JOY29 GAMEPADN BUTA! BUTB
BUTC
BUTD AUTO ONCED LOOPED enfA NMALLOCg init init.getsprites sprites_ i{@game@ game.getkeys ship
 ship.py finishM@
game.plotship py shi black px Ship.px THN spd`
init.values& ship.spd envp env.background? KEYes
ship.shooting shooting@
game.shoot dqb shootx shooty4 shoty en
shootspeedG GameSpeedss ac acte ssshootx sho whil. F dqbwairt t shotspd GATTLING% @env.draw&starsS posx xp3 init.l1' regenstar starspdh alieM face dir,army@
init.spawn@
game.plotarmy asdfU@
InitImageData2
ImageArrayT adfg initpalettedatax PaletteArray ships FileNo Ints@ IntCount n colour  stars0  sars backs alishipsE plt blank5x5B
blank32x32O blank5 weaps blank16x9
game.chkblast E ND) blasts" blast@
game.spawn active CAINJ enemies@
game.chkali enem@game.alienshootm sxg syalienst env.draw2 game.plotship2
game.eraset@env.menu logos prez@ pre.title: sys.Menu0 sysI inc= wid lenght num po" thenpox debkeyY bi init.newgame@
init.Create chasis composel@ init.compose facesV palet@ game.explode
 dqbcircle THENDQBsetBIOSfont player@ score energy% hits# avrg$ pilotU plas player. player.score{ ship.y player.px
player.energy1 xr yr gat per} eva abr Sshi Shspd Svspd Sreg Sgat sweap Schain sdf sys.Menu2 bbyeu
player.chasis
player.gatJ player.pilot9 ENDSELECT7 backagain gatlQ cuchi` velo cepcion evasion asorcion verb1 an  overallm good pilot. verb2^ hehehe/ escudo hvelo regenera vvelok repeti selecyt/
player.spd
player.per&
player.eva
player.abr
player.Sshi? player.ShspdD player.Svspd|
player.Sreg(
player.SgatG player.sweap
player.Schain
 arma cadena@
game.gameover
player.hits endEND dudesrocks9@env.fore] blank8x8 
DQBfadestep In
DQBfadeinstep
fadestepinQ sto path_@ pre.introt@ sys.fade2
init.intro@pre.GauntletIntro rank thing shots player.shots+@
pre.GoodBye
dqbwaitkete messes ekse3 msgcnt= explicit@ game.msgs msgmiss game.msg@game.chkupgrade0 which much abrd{ msggat  msgspd[ msgperr msgevaq msgabr~ msgactive msgga msgcont msgabs6 game.alienai#@game.alienmove_ ai stateQ KEYspac KEYctrl
KEYleftctrl KEYlctrle weapon
ship.weaponL
player.chani chan_@
init.Pilot@ init.Ship@
init.Weapon
player.weaponlilstarst env. fore cdelc.
dqbshowfps selec verb
activeenemies res archiei
archie.fnt rate lilsta rsg tim enviro+ back1" back2I env.back1Z env.back2 menuYenvirom envirom.fore:
envirom.back1
envirom.back2@init.NewHistory@pre.IntroHistory init.charachterH@
init.level@
init.Level1 starsq lstarsq stonesq lsarsq
init.pilot1 Game1 game.gameover1G ship.ammo ammo
game1.shoot@ env.menu1# game1.gameover gaD me
me.chkblast
 level% d c4scene scene.c1 scene.c2~ scene.c3x scene.c4 lys%
game1.chkcs
init.ship1 s1 scene.s1 s2 scene.s2r environ environ.foreR
game1.getkeys; game1.getkeysI ifEND%
sys.dialog s w5 dqbpr w2F w3  c  @
pre.Brief1@
sys.Maneuver1! outtahere@
sys.Dialog2
sys.dialog1 ct co6 DQBprinth6 DQBprintf DQBfprint s3 scene.s3s THENscene THENscene.s1 s4 special scene.s4{ game1.chkspecialsspecials' c4on inteer
scene.c4on specialsh v scene.c5 c5 s5S
scene.c5on c5onv@
sys.Maneuver2_ game1.complete
$ maxen scene.maxene maxene~ modeN
player.mode&@
pre.scene1 divine
player.divinen@
game.divine game1.divine dqbclear be at Moon sang1$ sang2j s10 Condensed Ice Balls fgx wide hsqrd vsqr lng. p
 xpo ypo jobG id3! birth
 textureA dqbsetfontstyleP
dqbsetstyle dqbsetprintstyle re re.title syscolorx @ sys.color5
sys.color1 planes* weps
init.color< i2nit"
i2nit.color pre.color piturek!
THENDQBput quien! sus%! sus.coloro"
dqbfellipse{
dqbellipsef mes THENmes THEN1211c@ sys.InAndOut sys.inandoutDQBprint
player.ammou! THENspecialsN THENship
THENship.pym$
THENship.pxH ypos[ jc" k xpos0 @
sys.Script< param posyB val# m mnameV! t1 t2& t3 t4# t5" o1# o2 o3& o4! o5s @ sys.Briefe pilots!
pilots.szsg# l[" cont$ check thenCASEI"
THENbackagainb! rt
'
whichfinish#@sys.initthings! sq! lsq! stq @
init.Gauntlet!@init.NewGauntlet piloto+" nave" shotspeedD!
initthings "@
game.complete "@init.ClearVarsv" scene.s5@$ onmsg# THENct" InitImageDatapath(# scene.curene" curene! lstarq! envirom.starsq! envirom.lstarsq# envirom.stonesq"
sus.finish"@
sys.Finishv# enespd"@ init.Cuts" cutd$ screens>"@game.setspecial$ mission # THENscene.c4on" time portrait$ who~"cutsI$ pant" CUTchn" scrno(%cutchain# light done# MaxChain6$ EnemyGat&
init.Eeaponm%
pre.Dcene1# game1.maneuver# maneuver<# nexy scrnH#
init.thingsY#@game.chkspecials @gauntlet'$@
game.maneuver#@
game.chkcsb%@
game.chkobj#
enviro.spd# envir# envir.spd
envirom.spdV$
alienst.act$@
init.Continue$ sys.inp:% byrefu& bufF% DQBinput back$ ly$
sys.finishg F $ game.setspecials0%@
init.Macros% macros debug @ sys.macro$@
sys.macros% macro}$ sys.curchain$ sys.currentchain$ curr dd& thengameY% thengame.setspecial @sys.Comp D% passI& game.chk% game.chks&@game.chkspecial% init.compseEND%
init.compse seen% isseen ifplayer ifplayer.isseen visto& player0~%
player0.visto' player.vistoR&@
game.inter!& inter 2 & interx% gauge%
interactive% interactive.active  interactive.wide& interactive.spd
interactive.x4& interactive.dir interactive.power powera&
gauge.power& interactive.pass& position interactive.position&
sys.randoms& min max sys.rands 
RESTART fopr resp leave @
pre.options lang nit nit.Ship R D  &  D  & &  &   D  %  D  $  D $     D  }$ D  V$  "  #   D I$  V  D '$    D  #  D  # V       D  g#  D  H#   D  D     directqb.bi'  
L-    DIRECTQB.BI  6 Include file for the DirectQB library version 1.5  3 by Angelo Mottola - Enhanced Creations 1998-991     M This file contains constants and function declarations used by the library-  3 Always include this file into your own programs!a     J Include file created on 01-03-2003 by the DirectQB Library Manager v1.1  ; Run DQBMAN again to modify your DirectQB module settingsr     J Detailed informations on how to use the library can be found into the  * DIRECTQB.DOC file; read it carefully!  
L-      "         Procedures from MAIN.OBJ:  D  `  k  x    D     D     D     D     D $         D    
        D      D  -    D < O    D  X  h  w    D   O    D       D       D      D        Procedures from DRAW.OBJ:  D    h  w    D    O          D   O        D *   O   
          D * '  O      5  ;      D * A  O   
          D * K  O   
          D  V  O          D  b  O  o  u    D * {  O   
          D      D      D 0   O   
            D $   O               Procedures from PALETTE.OBJ:  D  Q  ^  l  s  |    D    ^  l  s  |    D   l  s  |    D     l  s  |    D       D       D       D       D    l  s  |    D    l  s  |    D         Procedures from FONT.OBJ:  D $   O            D * '  O          4    D =     D  G    D Y     D h  v    D ~  4    D       D       D            Procedures from KEYBOARD.OBJ:  D      D      D 
    D     D % 
    D  3
  =    D  J      Library constants:Y  # d


t
d
  # g
g
g
g
g
  # g
g g  g g    # g k   # d w g  g g   # g g g   # dx 
d 
e %
e9 1
  # eH =
eP F
eK Q
eM \
  # d h
d n
d v
d
~
D  .    ?  D N     D      D $   _  d  r  x     D  !   D  S   D       D     D     D     D *               D *   
  "  )  3  :   D  D!   D     D  i   D "     D    D      D k     D    D  "   D  0   D     D  =   D 6     D      D ~     D     D  _   D  7   D     D  :   D     D     D     D        D    D  _   D 3!     D  (#   D  Y#   D     D  <#  D  +"  >"  "  #   D     D    D    D     D         D     D  p  D E     D     D     D  N   D  !  V # e d%pnd nd 
# d 4e "d " # d @$  CONST path$ = "\dqb\andcher\". # m .\ / " EnemyGat = VELOCIDAD DE DISPARO,  MaxChain=NO DE DISPAROSc "  "    "    S    "     8"  ["    c" 
 o"|    | -   | -   | -   @ lt     !   "   t `  M   u    _        
  X  M   _    u            
             
      
 ` e  _    u              # 
     
     
  

 
  
 x   s      z          
  
  
  
  
  
     
  
 D   Y% 
  8  q 
  
  
        
  
 @ %  S                    I&    $    u& 
  }de  `     }de  `   ]  }de  `     } 

e

3
=
G
Q  }:
 
.
5  }J
;
"  }f d d) "   v"  }~ d "   " ; DIM SHARED macros(1 TO 5, 1 TO 6, 1 TO 10) AS STRING * 10-  }dddddd)  +   6$  } t




b!
"  }"dd) `   g  }>de       }Xde  `     }x e
1



&  }d
" `   A  } 
  }

x

&  }| 
  } %
% 
- sd  s m Initializing DQB!" dd  ` t 6 d; m DQB Initialization error....  m- You got to do something to put EMS to work..."  m/ Read helpme.txt for assistance, for further aid" m visit http://szdev.tripod.com.  m Cya! F  m qc  8 N d; m DQB has been succesfully loaded. F  m qc j R se
 8   pp2566  dd  #  dd  x  dd    dd    dd    dd    dd    dd    dd    dd    dd    dd  
/m
imgs\text.szg"  #8  .
/m imgs\ships.szg  x8  .
/m imgs\backs.szg  8  .
/m imgs\alships.szg  8  .
/m imgs\weaps.szg  8  .
/m imgs\logos.szg  8  .
/m imgs\weapmen.szg  8  .
/m imgs\faces.szg  8  .
/m imgs\dudes.szg  8  .
/m
imgs\mess.szg"  8  .
/m
imgs\port.szg"  8  .
/m imgs\planes.szg"  8  .
]
/m res\rainbow.szp" 
[
8    ---- & d8  
8  ~
/m res\archie.fnt   Ya  8 G dm( Boooing! Font Loading Error.... mail SZ!ddd%8   

n8  % 8 ! P 8 
pre.intro
m English" & 8  8 !  h `  game.getkeys 8  v  !  
=
  a | 
1 _d_] x
1 _
 d`nd `nw
 d`nd `nw
1 _ P
F
  a 
1 _e c]
1 _
 d`nd `n 
 d`nd `n 
1 _ P
\
  a L 
1 ue c] H
1 u
 d`nd `n 
 d`nd `n 
1 u P
Q
  a  
1 ud_] 
1 u
 d`nd `nw
 d`nd `nw
1 u P e   a r e
 swnd `e
 wnd ` nd_a 4 e
 swnd `e
 wnd ` n  I @ d  P 

oda n d  

 c
odz j
1 #d_
  A Mda V 
 d^] 
1 #dw
1 # d
  A M 
1 _e 
  A _ 
1 ud) 
  A u 
1 d] :d
  A I Jd!
  A  d o P
d   y ` P P e?   a ^ e
 s e2
  ec
 z ec
  ec
  e2
  e2
  ec
  e
  e
  dm CHEAT!
k ed e 8   

n8  % P e   a  e n8   dm PAUSE"
k ed e 8   

n8  % P

  a  8 ! P Q   B 7 
game.plotship 8N  v  N   d
1 u
1 _d  x]d  x[8   Q     
game.shoot 8$  v    
d
 V z 
  A Mda p (
1 t Z (d; d ; d
; <
d!
1 d pnwnoda P
  A d 
  A  <P <
  A u
  A  
  A u (d; d; d; d; d!; d%; <
  A u
  A  
  A u (R (d
  A u
  A _d  ]
1 dwneJ pd   [8   (
  A u
  A _  a  <d
  A M (P (
  A ue@_a l <
 d 
  <d
  A M <d
  A u (P P e  Q      env.draw 8  v    
. t , d; 
d
. V z 
   u
   w
. w
   u 
   ueJca d
   u
   _d  ]d  [8   P 
   ue xca p e@Ce p& d 
   u Ce p&d 
   _ Cdp&d
n
4 
    P e  R
. t  d; 
d
. V  
  ] u
  ] w
. w
  ] u 
  ] ueJca 8 d
  ] u
  ] _d%8   P 
  ] udca  e@Ce p& d 
  ] u Ce p&d 
  ] _ Cd
p&d n
4 
  ]  P e  R Q   !  
init.spawn 8L  v    
d
 V F 
8  E e  Q     
game.plotarmy 8  v    
d
 !V 
   _e^ca (d
   u
   _d  ]
   dwnepd   [8   P e  Q  
 
InitImageData 8
  v  .    ?  &DYNAMIC
m qa  


/dwnd ` 
  d
  ? d  ?]
d I

 d
  ?
d
V  0
 0

  ?
f  P Q     
game.chkblast8N  X       
d
 !V d 

   u_

   ue ca Z 

   _d%w_

   _e ca V
 
    
 
   u
   _8  
8  E
 d 
 
 d 
  d  P P e  Q     
game.spawn 8^  v E     Ce@p&d 
   u 
   ue 
   u Ce p&d 
   _ d

      INT(RND * 3) + 1 Cdp&d

 " 
    d
    e@
    d
    ed
    Cd p&d 
    C
 p&d 
    Q   

game.chkali 8D  v  p  
 Y%a @
d
 !V : 

"oda 0 
   ue@ca ,
   _e 
1 __
   _e 
1 _e ca ( 
   Mda $ d
   M 
   u
   u 
   _e 
   _ P P P P e  P Q       game.alienshoot 8*  v    
d
 !V N 
   Mda D 
   u
&wd 
   u d
   u
   _d  ]deJ pd   [8   
   ue xca d
   M e@
   u P 
   u
1 u_
   u
1 ue ca @
   _
1 __
   _
1 _e ca < Ced p&d n
 _a  d
   M 
1 u
1 _8   
 Ce p&e nwC
 d `np&n 
 d
` 
  
 ed _] Bed
  
 dca  
 t h d? 
 Dd_a  8 _
 Ddw
 D I  8  P d; 8  R P I 8 d  d e d 3 d = d G d Q d  d  d  d e P P P P e  Q   +
  env.menu 8*  v     dde d  ]d  [8   de< e d  ]e  [8   de e d  ]e  [8   dee d  ]e  [8   d
 Qed e e 8   d
 Qm %" e e e 8   dm Beta Versione d)e 8   Q  
  pre.title 8  v     ddd8   d8  

es d)d  ]e  [8   d 8  
&t | m English"; dm The Return of Chaos"
k eF e 8   d8   dm History Mode
k eZ d%8   dm
Arcade Mode"
k ed d%8   dm Continue
k en d%8   dm Options"
k ex d%8   dm Quit
k e d%8   d
8   dm# ArcherFire, Designed and Programmed"
k e d%8   dm by SZ, v1. 0. 0 01/2003"
k e d%8   m Espanol"; dm El Regreso del Caos"
k eF e 8   d8   dm
Modo Historia"
k eZ d%8   dm
Modo Arcade"
k ed d%8   dm Continuar"
k en d%8   dm Opciones
k ex d%8   dm Salir"
k e d%8   d
8   dm! ArcherFire, Disenado y Programado"
k e d%8   dm por SZ, v1. 0. 0 01/2003
k e d%8   R d 8  
8   eZ eX e d)d
:  t T d; d8  k d ; 8  d
; 8 # d; 8 & d; 8  8 ! N R

n8  % Q   3 *   sys.Menu8  X *   
  "  )  3  :   d

"d n 


)d n 
"d 
)d e 8  ' d : F 
%
  a 
:  d T P 
=
  a  
:d_a  d

"d n 


:dwn
)pn 
)d n 
"d 
)d e 8  '
:dw : d

"d n 


:dwn
)pn 
)d n 
"d 
)d e 8  ' d)n8   P P 
F
  a  
:
3ca  d

"d n 


:dwn
)pn 
)d n 
"d 
)d e 8  '
:d  : d

"d n 


:dwn
)pn 
)d n 
"d 
)d e 8  ' d)n8   P P 

  a  8 ! P
Tdd Q     
init.Create 8H  v  i   8 " 8 0 8 = 8  Q      init.compose 8  v     d8   dddd  x]
x  x[8   dddd  ]
  [8   ddde e d  x]d  x[8   d8   Q      game.explode 8  v    g  m   ddde?e e 8  K
dd)V 


ge 
me 
d 
e 8  ' e  dn8  
de V 


ge 
me 
d 
d%8  ' e  dn8    DQBboxf 0, 0, 0, 319, 199, 0 Q  
 
game.gameover 8  v     d8  
/m res\archie.fnt   Y] X 8 G
 t n d; e? dd8   d8   
 d] d
  
 d] d
  
  V 
V eca 4 (m Rookie t (m% Well... that's not really good man..." | P 
V e^
V e:ca  (m Pilot" t (m Good, but you can do it better." | P 
V e:^
V eaca  (m Veteran" t (m) Well done, now go for the next challenge!" | P 
V ea^
V f@ ca l (m Legionary" t (m, Now you're good enough to protect your king! | P 
V f@ ^a  (m Rocker t (m% Haha!, isn't it good to be an expert?" | P dm Your Gauntlet Quest is Over...
k e e 8   dm
You Scored "
 Q m pts. 
k e( d%8   dm and advanced to level"
 e`nd Q 
k e2 d%8   dm That gives you the rank of "
t 
k e< d%8   d
|
k eF d%8   dm Average:
 
 &Q m pts. 
k eP d%8   dm Final Stats:
k ed d%8   dm
Gattling:
 sQ 
k ex d%8   dm Speed: "
 Q 
k e d%8   dm Perception:
 zQ 
k e d%8   dm Evade: "
 Q 
k e d%8   dm Absorb:
 Q 
k e d%8   : dde? 8   d8   dm Game Over...
k e e 8   R dm Press ESC to continue...
k e e 8  
8  

n8  % sys.Finish  END. d8   d8   8  Q   < :   env.fore 8  v    
. qt , d; 
d
. V  
   u
   w
. w
   u 
   ueTca d
   u
   _d  ]
     [8   P 
   ue xca  e@Ce p& d 
   u Ce p&d 
   _ Cdp&d n
4 
    Cd
p&d t  d; e
    d ; e
    d
; eA
    R P e  R Q      pre.intro 8V  v  7   ddd8  

e eP d  ]e  [8   8 D dm Proudly Presents
k ed e 8   8 D dm' The mankind has lived in relative peace"
k e e 8   dm$ for 2000 years, humans have mastered
k e e 8   dm, the sciences of space and time, centuries of
k e( e 8   dm) peace and joy have lightened the path for"
k e2 e 8   dm humans to conquer the wisdom..."
k e< e 8   dm* The mankind has grown from a single planet
k eF e 8   dm+ civilization to a hundred systems empire..."
k eP e 8   dm The Terran Empire...
k eZ e 8   dm) peace and joy have lightened the path for"
k ed e 8   8 D en8  

es eP d  ]e  [8   dm The Return of Chaos"
k e e 8   8 D Q     sys.fade2 8T  v  D  
8   e n8   ddd8   d8   Q      pre.GauntletIntro 8.  v  _   ddd8   d8   dm
GAUNTLET MODE"
k eF e 8   dm Fight to the death and strive"
k eZ d%8   dm! to become a legend in the sector!"
k ed d%8   dm Level 1.... Get Ready!!!
k ex e 8  
8  

n8  % ddd8   Q    
pre.GoodBye 8  v     ddd8   d8  
&t @ m English"; dm Now leaving ArcherFire
k e e 8   d 8   dm ArcherFire, 2003
k eP d%8   d 8   dm Designed and Programmed by
k eZ d%8   dm Santiago Zapata - SZDev"
k ed d%8   dm visit http://szdev.tripod.com"
k en d%8   d
8   dm This game is freeware, please"
k e d%8   dm mail me with a comment to:
k e d%8   dm ragnar300@hotmail.com...
k e d%8   dm Cya!
k e d%8   m Espanol"; dm Saliendo de ArcherFire
k e e 8   d 8   dm ArcherFire, 2003
k eP d%8   d 8   dm Disenado y Programado por"
k eZ d%8   dm Santiago Zapata - SZDev"
k ed d%8   dm visita http://szdev.tripod.com
k en d%8   d
8   dm! Este juego es freeware, por favor"
k e d%8   dm mandame un comentario a:
k e d%8   dm ragnar300@hotmail.com...
k e d%8   dm Suerte!"
k e d%8   R
8  

8  % Q   #   game.msgs 8J  v    
eda B 
e2 a z (d  d e (d 3 d = d G d Q d  d  P 
d   
d] d 5 
3d] e 5 
=d] e 5 
Gd] e 5 
Qd] e 5 
d]
e 5 d
1 u
1 _dwd  ]
5  [8   P Q       game.chkupgrade 8x  v    
 eoda  
 !d 
 ! 
 d 
  
 !8  E 
 !d wt d
; d
. q d; 
1 d 
1  d; 
1 d 
1  R 
 ed 
  P
 eod
 dqa  Cdp&d   Cd p&d  # d  d e d 3 d = d G d Q d  d  
t  d; (
 s
# 
 s (d 3 d ; (
 
# 
  (d = d
; (
 z
# 
 z (d G d; (
 
# 
  (d Q d; (
 
# 
  (d  R 
 ed 
  d e d  P Q   -   game.alienmove 8  v    
d
 !V  
   t J d; 
   u
   w
   u d ; 
   u
   w
   u 
   t d;
   _d 
   _ d;
   _dw
   _ R 
   _d)c] hd
    
   _e _] d
    R 
   ue xca  
8  E P  e  Q     
init.Pilot 8n  v  "   F d $ ddd8   d8  

es d)d  ]e  [8  
&t t m English"; dm Choose your pilot"
k eF e 8   m Espanol"; dm Elije tu piloto"
k eF e 8   R de eZ d  ]depd   [8   dek eZ d  ]depd   [8   de eZ d  ]d epd   [8   de e d  ]d
epd   [8   dek e d  ]depd   [8   de e d  ]depd   [8   de e d  ]d!epd   [8   de e d  ]depd   [8   dek e d  ]depd   [8  
8   ei eY e$ e$ d
d
  
  
- ddd8   d8  
&t p m English"; 
/m
pilots.szs d  m Espanol"; 
/m
epilots.szs" d  R d x F d
 
 m &"] 
x d  x
x
 c  d
s

z


l







 d  d
8  
&t  m English"; dm
PILOT FILE
k d)e 8   de e d  ]
dwnepd   [8   dm Yes"
k e d%8   dm No
k e d%8   d8   dm Name:
 e< e e 8   dm Job: "

 e< e( d%8   dm Birthplace:
 e< e2 d%8   d
ld)eF d%8   d
d)eP d%8   dm Speed:eP ed d%8   dm
Perception:"eP en d%8   dm Gattling:"eP ex d%8   dm Evade:eP e d%8   dm Absorb:"eP e d%8   m Espanol"; dm ARCHIVO DEL PILOTO
k d)e 8   de e d  ]
dwnepd   [8   dm Si
k e d%8   dm No
k e d%8   d8   dm Nombre:
 e< e e 8   dm
Ocupacion: "

 e< e( d%8   dm Nacimiento:
 e< e2 d%8   d
ld)eF d%8   d
d)eP d%8   dm
Velocidad:eP ed d%8   dm
Percepcion:"eP en d%8   dm Disparo:eP ex d%8   dm Evasion:eP e d%8   dm
Absorcion:eP e d%8   R (d 8   (d
Qe ed d%8   (d
zQe en d%8   (d
sQe ex d%8   (d
Qe e d%8   (d
Qe e d%8   (de ei d  ]
  [8  
8   ex e eP d)d
:  d ] d $
$dd 
s
 s

 
z
 z

 

  Q   c c  init.Ship 8X  v  0   F d $ ddd8   d8   

es d)d  ]e  [8   
&t t m English"; dm Choose your Ship
k eF e 8   m Espanol"; dm
Elije tu nave"
k eF e 8   R de_ eZ d  ]depd   [8   de eZ d  ]depd   [8   de_ e d  ]d epd   [8   de e d  ]d
epd   [8   
8   eZ eU eF e2 d d   
 x   
- ddd8   d8   
&t t m English"; 
/m ships.szs" d  m Espanol"; 
/m
eships.szs d  R d x F d
 
 m &"] 
x d  x 
x
 xc  d





l



x d  d
8   
&t  m English"; dm Ship File"
k e e 8   dm Yes"
k e d%8   dm No
k e d%8   d8   dm Horizontal Speed:"ed eZ d%8   dm Vertical Speed:"ed ed d%8   dm
Shield Force:"ed en d%8   dm Shield Regen R.:ed ex d%8   dm Repetition Rate:ed e d%8   m Espanol"; dm Archivo de la Nave
k e e 8   dm Si
k e d%8   dm No
k e d%8   d8   dm Velocidad Horizontal:"ed eZ d%8   dm Velocidad Vertical:"ed ed d%8   dm Fuerza del Escudo:ed en d%8   dm Tasa de Regeneracion:"ed ex d%8   dm Tasa de Repeticion:"ed e d%8   R d 8   d
e e< e 8   d
lei e< d%8   d
ei eF d%8   d
Qe eZ d%8   d
Qe ed d%8   d
Qe en d%8   d
Qe ex d%8   d
Qe e d%8   de eZ d  ]
  [8   
8   ex e eP d)d
:  d ] d $
$dd 

 

 

 

 

  ddd8   Q   O O 
init.Weapon 8  v  =   F d $ ddd8   d8  

es d)d  ]e  [8   dm Choose your Technology
k eF e 8   den en d  ]de.pd   [8   de en d  ]d e.pd   [8   den e d  ]de.pd   [8   @ DQBput 0, 165, 140, VARSEG(weps(1)), VARPTR(weps(0 * 302 + 1))
8   en eX e- e0 d d   
  
- ddd8   d8   d
8  
&t  m English"; dm Weapon Technology File
k e e 8   dm Yes"
k e d%8   dm No
k e d%8  
 t  d; m. Explosive Missiles Propelled by gas, they have l m been used by Terrans for ages.  m Hi-Speed Missiles"  d
1  d
  d ; m1 This Weapon shots lit gases that melt away almost" l m+ everything, prefered by expert mercenaries."  m
Fire Shots  d
1  d
  d
; m/ These devices are able to transform any kind of" l m- gas into solid projectiles, called Ice Balls."  m Condensed Ice Balls.  d
1  d
  d; m1 Play History Mode to unlock this Secret Weapon..." l m Boo...  m ???"  d)
1  d
  d; m+ These Heavy Weapons are very effective, but" l m they can be very dangerous too."  m
Explosives  d)
1  d
  R m Espanol"; dm Archivo de Tecnologia Militar"
k e e 8   dm Si
k e d%8   dm No
k e d%8  
 t  d; m/ Misiles Explosivos impulsados por gas, han sido" l m usados por los Terrans por anos.  m Misiles de Alta Velocidad"  d
1  d
  d ; m+ Este arma dispara tiros de gas caliente que" l m) derriten todo, preferida por mercenarios.  m Tiros de Fuego  d
1  d
  d
; m. Estos dispositivos transforman cualquier clase l m/ de gas en proyectiles solidos, llamados hielos."  m Hielo Condensado."  d
1  d
  d; m3 Juega en Modo de Historia para escoger esta arma..." l m Boo...  m ???"  d)
1  d
  d; m+ These Heavy Weapons are very effective, but" l m they can be very dangerous too."  m
Explosives  d)
1  d
  R R d 8   d
e e< e 8   d8   d
le eF d%8   d
e eP d%8  
8  
 d] 
d $ ex e eP d)d
:  t L
 d; d ; d $ R
$dd  ddd8   Q   x b   init.NewHistory 8(  v k     8 D!
8  ~
8  6
8  '$
8  "
8  
/m res\digits.fnt   Y] 8 G ddd8  
 da  8  
8   F  8 
dd  I  
8   P d  F  8  b * Q       pre.IntroHistory 8^  v ~    
t . d; d
.  d)
.  d
.  d
.  d8  
. 
. d8   ddd8   d8   d8  
8   F d8   
&t m English"; 
eca z dm. There was a time when universe was balanced...e e e 8   
e cM  dm1 But when life appeared, battle for power did too."e e< e 8   
ecM h dm0 Seeking power, some races took forbidden powers.e eP e 8  
e@cM  d 8   dm" Dark powers, that should not be...e ed e 8   P m Espanol"; 
eca h dm' En un tiempo el universo era balance..."e e e 8   
e cM  dm1 Pero con la vida, aparecio la pelea por el poder."e e< e 8   
ecM V dm/ Buscando poder, algunas razas llamaron fuerzas."e eP e 8  
e@cM  d 8   dm) Fuerzas oscuras... que no deben existir.."e ed e 8   P R 8  dn8   d

8  X 
d   

  a . (8 ! P 
1
  a N (e  P
ecd d  R Q   7 6 
init.Level1 8  v     

  d
 Y% d x
/m
mission.szs" d  F d
 
 m &"]
x d  x
x
c f d
!
!
1 
 
 
 D d
1 #
1 u
1 _
. q
. 
.  d
. 
. 
.  d
 
 !
&
 "
ddV  d
  " "
  " " e  d   Pilott
/m
pilots.szs d  d x F d
 
 m &"] 8
x d  x
x
!c
 d
 s
 
 z
 
 
l







 d 
/m ships.szs" d  d x F d
 
 m &"] 
x d  x
x
!c  d
 
 
 
 
 
l



x d 
. 
. 
. 8   8  8  d
 D Q   -   env.menu1 8  v  :   dde d  ]d  [8   de< e d  ]e  [8   de e d  ]e  [8   dee d  ]e  [8   d
1 #Qed e e 8   d
 Qm %" e e e 8  
@$a  dm
Enemies down:"
 Q e e e 8   dm
DEBIG INFO:"e d)e 8   dm LYS:
Q m t" 
Q e e e 8   dm Screens:
"Q e e( e 8   dm LYS, Act, Donee e2 e 8   dd  " "Qd  " SQ d  " "Q e e< e 8   dd   " "Qd   " SQ d   " "Q e eF e 8   dd
  " "Qd
  " SQ d
  " "Q e eP e 8   dd  " "Qd  " SQ d  " "Q e eZ e 8   dd  " "Qd  " SQ d  " "Q e ed e 8   d $ d  " Sd] d $ d   " Sd] d $ d
  " Sd] d
$ d  " Sd] d $ d  " Sd] d $ d
$
"d d  6$e en e 8   d
$
"d d   6$e ex e 8   d
$
"d d
  6$e e e 8   d
$
"d d  6$e e e 8   d
$
"d d  6$e e e 8   d
$
"d d  6$e e e 8   P Q   #  
pre.Brief1 8  v      ddd8   d8   d8  
&t P m English"; 
/m brief.szs" d  m Espanol"; 
/m
ebrief.szs d  R
n8  N  d 
8  
1
n8  % Q   

sys.Maneuver1 8  v     d8   8    Stars  8 N   Ship 8   Foreground
&t x m English"; 
e2 _
eca ^ m# What kind of artifact should it be?" V m$ My father doesn't call me too often, T m I has to be really strange..." ~ m Juran"
V
T
~d8   P 
eX_
e ca  m+ What's this!!! Lot's of Alien Ships ahead!!" V m Heck! What will I do now!" T m ~ m Juran"
V
T
~d8   P m Espanol"; 
e2 _
eca  m Que clase de artefacto sera? V m" Mi padre no me llama muy seguido, T m tiene que ser en verdad extrano! ~ m Juran"
V
T
~d8   P 
eX_
e ca  m( Que es esto!!! Naves Aliens me atacan!!! V m Rayos! Que voy a hacer!" T m ~ m Juran"
V
T
~d8   P R dn8   d

8  X
d  

  a  8 ! P
ea  d  P Q   . . 
sys.Dialog2 8  v $   _  d  r  x     
ec q] t ddd)d  ]
nepd   [8   d 8   d
_e( d)e 8   d8   d
de( e d%8   d
re( e d%8   d
xe( e( d%8   Q  

sys.Maneuver2 8|  v     d8   8  8 N 8  8  8  8 $ 8  dn8   d

8  X 
e2 _
e ca 
1 _ed _]
1 _dw
1 _ 
1 _ed c]
1 _d 
1 _ P 
e _
e^ca ( 
1 ud 
1 u P 
d   

  a V (8 ! P 
ea t d  P Q     
pre.scene1 8:  v 6     d8  
/m \res\archie.fnt"   Y V
&t r m English"; 
/m
scripts.szs" d  m Espanol"; 
/m escripts.szs d  R d x F d
 
 d,m &"] &
x d  x
x
c 8  d 
8   Q   
 sys.Menu28  X *  u  _           d
u
_
u
 
_
 e 8  A d  d  F 
%
  a 
dwn
pn
   d T P 
=
  a  
d_a  d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A
dw  d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A d)n8   P P 
F
  a & 

ca " d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A
d   d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A d)n8   P P 
Q
  a \ 
d_a X d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A
dw  d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A d)n8   P P 
\
  a  

ca  d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A
d   d
u
dwn
pn 
_
dwn
pn 
u
dwn
pn 
 
_
dwn
pn 
 e 8  A d)n8   P P 

  a  8 ! P
Tdd z Q   1   sys.color 8T  v      d  #]
dwne" pd   #[8   Q     sys.InAndOut 8X  v  S  
8   ddd8   e? e? e? 8   d8   Q     
sys.Script 8n  v     F  d
[ 
[ d,m %"d 
d
[ ZV  d)  ddd8   d8   d8   
8   F  d
d 
dd,m %"d 
d
dZV  (F  d
 
 d,m %"d (d
4
 (
 Z (
4t 4 (d; <e2  (d ; <d)  (R (
dxq] dd
d  ]
epd   [8   (
d
V R <F  d
_ 
_d,m %"d  <
4d
d] d 8   <d
_

e 8   <
d)   <d8   (e  (F 
J &
&m d X (
&Ym Q"] [ & e  e   & Q  b "  sys.Brief 8  v N    
d
V d
 d
 d
 d
 d
 d
$ d
* d
0 d
6 d
< d
B d
H e  d
8   d
 e e e 8   dm Press Space.e e e 8   d 8   d
 e< e e 8   dm
Objetives:e en e 8   d8   d
 e e2 d%8   d
 e e< d%8   d
 e eF d%8   d
$ e eP d%8   d
* e eZ d%8   d
0 e ex e 8   d
6 e e e 8   d
< e e e 8   d
B e e e 8   d
H e e e 8   Q   %   sys.initthings 8  v      
d
V Ce@p&d 
   u Ce p&d 
   _ Cdp&d
n
4 
    e 
d
V < Ce@p&d 
  ] u Ce p&d 
  ] _ Cd
p&d n
4 
  ]  e 
d
V P Ce@p&eA 
   u Ce p&d 
   _ Cdp&d n
4 
    Cd
p&d t  d; e
    d ; e
    d
; eA
    R e  Q     
init.Gauntlet 8  v    d
 ! d)
.  d)
.  d

.  d

4 
1  d!
4  & e
1 u eP
1 _ ed
  d
  d%
  d
  d
. q d
.  d
.  d
 Y%
. 
. 
. 8   Q       init.NewGauntlet 8  v    8 i 8  8 _ 8  d
1 #
/m res\digits.fnt   Y] 8 G  F 
(d]
d   
e ba (
8   I (d ( P 8 <#
(dd F 8 <# b Q       init.ClearVars 8\  v  D!   d ; d " d "
ddV  
ddV (m

  v"  (m

  v"  (m

  v"  (m

  v" o" (ec

  v" c" e  d
  " " d
  " S e  
ddV t 
ddV h 
dd)V \ m


  6$ e  e  e 
dd)V  d
   M e 
d
 V  d
  A M e x
  A u e x
  A _ e  $ d  d e d 3 d = d G d Q d  d  d
  d  d  d  Q   -   game.setspecial 8F  v  +"  >"  "  #  
"
#8  V$ Q      init.Cuts 8  v "     d x
&t 6 m English"; 
/m cuts.szs d  m Espanol"; 
/m ecuts.szs" d  R F d
 
 m &"]
x d  x
x
c
ddV  d
  " " 
d
  " "V  (d

  v" ["

  v" c"

  v" o" (d

  v"  (d

  v"  (d

  v"  e  e  d  Q     
sys.Finish 84  v  !   8  8 N Q       gauntlet 8:  v  <# 
Get Keys 8 !
Alien AI 8 p 8   Erase old things d8    Draw new thingss 8    Stars  8   Weapons  8 
 Alien Weaps  8 
 Alien Ships  8 N   Ship 8   Foreground 8   Mensajitos 8    Menu  IF t MOD 2 = 0 THENN
DQBwait (1)n d

8  X  Checks 8   Regens
d  
e
 wne pod
 ed c] 
 d 
 
e'] 0d  Q   $    game 8V  v     Erase old things d8  
Get Keys 8 !
Alien AI 8 p 8   Draw new thingss 8    Stars  8   Weapons  8 
 Alien Weaps  8 
 Alien Ships  8 N   Ship 8   Foreground 8   Mensajitos 8 :   Menu  Checks 8 Y# 8 $ 8 g# 8 % 8 H#
DQBwait (1)n d

8  X  Regenn
d  
e
 wne pod
 ed c] 
 d 
 
ea L d  
d   d  P Q   %

game.complete 8  v 3!     ddd8   d8   d8  
&t T m English"; 
/m comp.szs d  m Espanol"; 
/m ecomp.szs" d  R
n8  $ d 
8  
1
n8  %
 d 8  k Q     
game.divine 8n  v  _   ddd8   d8   d8  
 d

 zpn 
  e? e? e? 8   dm) ... Your time hasn't come yet warrior ..."e( e2 e 8   8 S dm( ... I'll grant you life again... but ...e2 eF e 8   8 S dm) ... You should now go back and Fight! ..."e< eZ e 8   8 S
8   Q     
game.maneuver 8r  v  H#  
"d a j d  d  F 8  
dd : 
 8  3! P Q    
game.chkcs 82  v  Y#  
ddV z 

  " "
  " "d] p d
  " S d b! e  ec 
ddV 
  " Sda  

"d   v"  V 

"d   v"  T 

"d   v"  ~ 

"d   v" o" d 

"d   v" c"  
d   
e ] p
"d  " d  
"
  " "a  d  d
  " S d
  " " d b! d " P 
e od ] 
 

"d 8  +" P e 
b!] 8
d
V
T
~
8   Q    
game.chkobj 8h  v  g#  
 t , d ; 
 e( ] f d
 d  e)
  R Q    
init.Continue 8D  v  #   d8  
V e2 e2  # V  Q       sys.inp8(  X  # V        m # F ( DO: buf$ = CHR$(DQBasc(DQBreadKey, 0))  : LOOP WHILE buf$ = ""
d)eP V  
  a  (
d  3  V (
#
V  # (d
#

d8   (d!8   P e 
V m "qd @
# # Q     
init.Macros 8B  v '$     d x
/m
macros.szs d  F d
 
 m &"] x
x d  x
x
c J
ddV : d
V 
ddV . (d
V (
V dBZ _ (
d
_V " ,d
$ ,
$+


  6$ (e  e  e  d   Q     
sys.macros 8b  v  V$  "  #   
dd)V d 
"
#
  6$8  I$ e   Q      sys.macro 8
  v I$  V    DQBprint 0, a$, 100, 150, 15
V d,t V m chenf"; 
V dBZ
. q m chcue"; 
V dBZ
 ! m spawn"; 
V dBZn8  E m ifsps"; 
;
V dd3Z] "
V dBZ ; m setma"; 
V dBZ " m setsp"; 
V dBZ ; m inspa"; 8  m chspd"; 
V dBZ
.  m chlys"; 
V dBZ  m setcd"; 
V dBZ
V dd3Z  " " m setca"; 
V dBZ
V dd3Z  " S m chtim"; 
V dBZ  R Q       sys.currentchain8  X  }$  Q       sys.Comp 8  v $    
d
V d
 d
 d
 d
 d
 d
$ d
$ e  d
8   d
 e e e 8   dm Press Space.e e e 8   d 8   d
 e< e e 8   d8   d
 e e2 d%8   d
 e e< d%8   d
 e eF d%8   d
$ e eP d%8   dm Password "
$ e ex e 8   Q       game.chkspecial 8  v  $  
;t ( d; 
dd)V Ced p&xd 
  g u Ce p&d 
  g _ e  d ; d ; 
dd)V  
dod]
  g d 
  g  
  g u
  g  
  g u 
  g udx_] d
  g u
  g _d  ]
1 dwneJ pd   [8   
  g u
  g _  a $ Ce p&xd 
  g u Ce p&d 
  g _ d
  g  P 
  g ue@_a  Ce p&xd 
  g u Ce p&d 
  g _ d
  g  P e  d
; ddde e d8  K ddde e d  x]d  x[8   d
 Y% d ; d
% S e
%  d
%  d
%  e
%  k ?
% $ e
% I& e
% u& d; dm Stealth Device power "
% I&Q e ed e 8   d
1 u
1 _e( e(
d)o8  ' d; 8  d
 Y% d ; d; d
% S d
%  e
%  d!
% $ d ; R Q   6 
game.inter 0d  v  %  
% Sa  dd)e e"e d%8   d
% u&
% d nwe
% u&
% d n e d%8  A d
% e d)d)
e o8  ' 
% 
% 
% pn 
%  
% e c
% e,_u] 
% dxp
%  
%
  a 
% 
% u&
% d nw_
% 
% u&
% d n cna  
% I&e Cdp& d 
% I& I  
% I&d w
% I& P P Ced p&d neK _]

% I&
% $w
% I& 
% I&e_] *e
% I& 
% I&dc] Nd
% S d ; 
ed od] ex e   &
% u& P Q     
sys.randoms0`  X  & &  &   F C
&p&d  V 
V
&cd ( 
V & Q     
pre.options 0  v  &   F ddd8   d8   d8  

es d)d  ]e  [8   d 8  
&t m English"; dm The Return of Chaos"
k eF e 8   d8   dm OPTIONS"
k eZ d%8   dm
Language:
& 
k en d%8   dm Sound: No"
k ex d%8   dm Return to Title"
k e d%8   d
8   dm# ArcherFire, Designed and Programmed"
k e d%8   dm by SZ, v1. 0. 0 01/2003"
k e d%8   m Espanol"; dm El Regreso del Caos"
k eF e 8   d8   dm OPCIONES
k eZ d%8   dm
Lenguaje:
& 
k en d%8   dm
Sonido: No
k ex d%8   dm Volver al Titulo
k e d%8   d
8   dm! ArcherFire, Disenado y Programado"
k e d%8   dm por SZ, v1. 0. 0 01/2003
k e d%8   R d 8  
8   eK el e d)d

:  t  d; 
&m English"] 6m Espanol" & d
; 8  R

n8  % b  Q   * 

 
 Respond to this message   
Response TitleAuthor and Date
??yes about madness....to qbasic (View Thread)Anonymous on Apr 27
 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement  

Newbies usually go to www.qbasic.com and click on The QBasic Forum
Forum regulars have their own ways, which include The QBasic Community Forums