|

eMail Me
Note: You must add uk to the end of the address, it's to help prevent spam.
|
                             
Elite
Firebird , 1985
|
 |
Action Replay Code:
POKE 14013,173 - Missiles
POKE 9699,x - x Number of Missiles
POKE 9648,18 - Keep status clean
POKE 9664,151 - Frount Millitary Laser
POKE 9665,15 - Rear Pulse Laser
POKE 9666,143 - Left Beam Laser
POKE 9667,50 - Right Mining Laser
POKE 9661,255 - 255 Fuel
POKE 9670,255 - Cargo Hold 255 Tonnes
POKE 9688,255 - Escape Pod
POKE 9689,255 - Fuel Scoop
POKE 9690,255 - ECM System
POKE 9691,255 - Energy Bomb
POKE 9692,255 - Energy Unit
POKE 9693,255 - Docking Computer
POKE 9694,255 - hyperspace Unit
POKE 9672,x - x Number Textiles
POKE 9671,x - x Number Food
POKE 9673,x - x Number Radioactives
POKE 9687,x - x Number Alien Items
Listing Cheat:
1 rem elite
2 rem select cheats
3 rem cassette & disk -v1- commodore format
10 if x=1 then 14
11 dim h$(17)
12 poke 53280,0 : poke 53281,0
13 goto 55
14 gosub 45: gosub 52
15 gosub 42 : print: print chr$(153) "equipment" chr$(158) : print
16 for i=0 to 6
17 print g$(i) "y/n?";
18 get a$ : if a$<>"n" and a$<> "y" then 18
19 print a$
20 if a$="n" then poke 9688+i,0 : next
21 poke 9688+i,g(i) : next
22 gosub 47
23 if c then 15
24 gosub 42
25 print: print chr$(153)"cargo" chr$(158): print
26 for i=0 to 17
27 print h$(i)+"(0-255)"; : input c
28 if c<0 or c>255 then print chr$(145)chr$(145):goto 27
29 poke 9670+i,c : next
30 print "200000000.0 credits (y/n)";
31 gosub 48 : if c then 33
32 poke 9657,119 : poke 9658,53 : poke 9659,148 : poke 9660,0
33 print "all military lasers?";
34 gosub 48 : if c then 36
35 poke 9664,151 : poke 9665,151 : poke 9666,151 : poke 9667,151
36 gosub 47: if c then 24
37 print chr$(147) "press return to save new position"
38 get a$ : if a$<>chr$(13) then 38
39 print: print"saving"n$ : sys 8192
40 sys 57812 "@:"+n$,dn,1 : poke 193,176 :poke 194,37 : poke 174,253 : poke 175,37
41 sys 62957 : print chr$(5) chr$(147) n$ "updated" : end
42 print chr$(5):print chr$(147)
43 print tab(11) "-the elite cheat-"
44 return
45 for i=8192 to 8229 : read a : poke i,a
46 next : return
47 print : print chr$(155) "all ok?";
48 get a$: if a$<>"n" and a$<>"y" then 48
49 print a$
50 if a$="n" then c=1 : return
51 c=0 : return
52 for i=0 to 6: read g$(i),g(i) : next
53 for i=0 to 17 : read h$(i) : next
54 return
55 print chr$(156)chr$(147) "insert disk or tape holding position": print
56 print chr$(153) "press 1 for tape, 8 for disk"
57 get a$: if a$="" then 57
58 dn=val(a$): print : input "filename";n$
59 x=1 : print: print"loading "n$ : load n$,dn,1
60 data 162,73,24,138,125,175,37,93,176,37,202,208,247,141,252,37,162,73,24
61 data 138,134,187,69,187,106,125,175,37,93,176,37,202,208,242,141,251,37,96
62 data escape pod,255,fuel scoops,255,ecm,255,energy bomb,127,energy unit,1
63 data docking computer,255,galactic hyperspace,255
64 data missiles,food,textiles,radioactives,slave,liquors/wines,luxuries
65 data narcotics,computers,machinery,alloys,firearms,furs,minerals,gold
66 data platinum,gemstones,alien items
Download PRG...
|
1 rem elite (firebird)
2 rem infinite shields, fuel and less energy loss by waz
3 rem cassette -v1- commodore format
4 for x=512 to 618:read y:c=c+y:poke x,y:next
5 if c<>12756 then print "data error":end
6 poke 157,128:sys 512
7 data 032,044,247,056,169,016,141,062
8 data 003,169,017,141,064,003,032,108
9 data 245,169,032,141,068,017,169,057
10 data 141,069,017,169,002,141,070,017
11 data 162,255,189,193,016,157,193,002
12 data 202,208,247,162,033,189,159,016
13 data 157,159,002,202,208,247,076,120
14 data 003,072,206,032,208,032,069,002
15 data 104,044,013,220,096,169,080,141
16 data 052,029,169,002,141,053,029,096
17 data 169,234,141,225,115,141,226,115
18 data 141,227,115,169,255,141,232,123
19 data 141,250,123,169,173,141,100,123
20 data 076,111,136
Download PRG...
|
1 rem elite (firebird)
2 rem infinite shields,fuel,less energy loss
3 rem cassette -v1- commodore format
4 rem codemasters multihack listing
5 rem (c) warren pilkington/cf 1994
6 for x=512 to 580: read y:c=c+y: poke x,y:next
7 if c<> 7483 then print "data error":end
8 read y: if y=-1 then poke 157,128:sys 512
9 poke x,y: x=x+1: goto 8
10 data 032,044,247,056,169,016,141,062
11 data 003,169,017,141,064,003,032,108
12 data 245,169,032,141,068,017,169,057
13 data 141,069,017,169,002,141,070,017
14 data 162,255,189,193,016,157,193,002
15 data 202,208,247,162,033,189,159,016
16 data 157,159,002,202,208,247,076,120
17 data 003,072,206,032,208,032,069,002
18 data 104,044,013,220,096
19 rem --------------------------------
20 data 169,080,141,052,029,169,002,141
21 data 053,029,096,169,234,141,225,115
22 data 141,226,115,141,227,115,169,255
23 data 141,232,123,141,250,123,169,173
24 data 141,100,123,076,111,136,-1
Download PRG...
|
|