Author Topic: #CPCRetroDev 2018 - Amstrad CPC Game Creation Contest new for 2018!  (Read 5100 times)

0 Members and 1 Guest are viewing this topic.

Online XeNoMoRPH

  • CPC6128
  • ****
  • Posts: 194
  • Country: es
  • Liked: 351
Awesome @Nich ... maybe  ....  can you make loader + pokes of this game too : Legend of Steel - TOD Studios ?
Thx in advance  :D

Online Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 14.693
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 2768
Should we open a Peeks&Pokes section? :D

Offline Nich

  • Supporter
  • 6128 Plus
  • *
  • Posts: 614
  • Country: gb
  • CPC Game Reviews webmaster
    • CPC Game Reviews
  • Liked: 433
Awesome @Nich ... maybe  ....  can you make loader + pokes of this game too : Legend of Steel - TOD Studios ?
Thx in advance  :D

I certainly can:

Code: [Select]
1 ' Legend of Steel pokes
2 ' by Nich
3 '
10 MODE 1:CALL &BC02
20 INPUT"Infinite energy (Y/N)? ",e$
30 e$=UPPER$(e$)
40 IF INSTR("YN",e$)=0 THEN 20
50 INPUT"Infinite keys (Y/N)? ",k$
60 k$=UPPER$(k$)
70 IF INSTR("YN",k$)=0 THEN 50
80 MODE 0:BORDER 0:FOR i=0 TO 15
90 READ c:INK i,c:NEXT
100 LOAD"legend.scr",&C000
110 MEMORY &15FF
120 LOAD"legend.bin",&1600
130 MODE 0:INK 15,0
140 a=&BF00
150 READ h$
160 IF h$="END" THEN 190
170 POKE a,VAL("&"+h$)
180 a=a+1:GOTO 150
190 IF e$="Y" THEN POKE &BF0C,&C9
200 IF k$="Y" THEN POKE &BF11,&C9
210 CALL &BF00
220 DATA 0,1,7,3,4,6,9,11
230 DATA 12,13,15,16,18,24,25,26
240 DATA 21,00,16,11,00,01,01,a6
250 DATA 7e,ed,b0,3e,dd,32,4a,74
260 DATA 3e,3d,32,d0,73,c3,94,6a
270 DATA END

Online XeNoMoRPH

  • CPC6128
  • ****
  • Posts: 194
  • Country: es
  • Liked: 351
Should we open a Peeks&Pokes section? :D
totally agree ;D ;D

Offline skylas

  • CPC464
  • **
  • Posts: 47
  • Country: gr
  • Liked: 76
Here you are:

Operation Alexandra


Code: [Select]
1 ' Operation Alexandra pokes
2 ' by Nich
3 '
10 MODE 0
20 OPENOUT"d":MEMORY &964:CLOSEOUT
30 LOAD"disc.bin"
40 a=&BF00
50 POKE &1363,0:POKE &1364,&BF
60 READ h$
70 IF h$="END" THEN CALL &965
80 POKE a,VAL("&"+h$)
90 a=a+1:GOTO 60
100 DATA 3e,c9,32,9a,ba,cd,79,ba
110 ' Infinite health
120 DATA 3e,21,32,60,14
130 ' Don't delete the line below!
140 DATA c3,40,00,END
Does anyone know how i use this?I wrote this code on same dsk and saved it (poke.bas)Then i <run"poke>,  but this leads to a restart of emulator after the intro (when decrunching)
I havent used poke in  anything yet, thats why i am asking.

Edit: sorry guys, no problems, i had made a silly mistake in copying code, many thx for poke!

Online XeNoMoRPH

  • CPC6128
  • ****
  • Posts: 194
  • Country: es
  • Liked: 351

Online Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 14.693
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 2768
"This month, on our cover disk: a fine collection of pokes for all the newest games!"