Hallo,
möchte in Basic eine Bewegung von 2 Männchen mit Sprites realisieren.
Die Sprites habe ich erstellt und habe jetzt Probleme bei der Abfolge der Sprites.
Aufgabe:
- 2 Männchen laufen zur gleichen Zeit über den Bildschirm.
- Ein Männchen läuft von Links nach Rechts und ein Männchen läuft von rechts
- Jedes Männchen hat einen Karate Kick mit dem Bein.
Frage:
- Wie erstellt man einen Loop indem bei Sprites sich bewegen und dabei das Sprites wechseln.
- Die Schleife sollte das Hauptprogramm nicht blockiert wird.
Entschuldigt für den Quellcode. Bin noch Anfänger. ![]()
Wer kann mir helfen? Freue mich auf eure Antworten.
Code
1000 PRINT CHR$(147)
2000 V=53248
5000 POKE 53264,0 5100 POKE 53265, PEEK(53265) OR 64
5200 POKE 53281, 0: REM SPIELBRETT FARBE
5300 POKE 53280, 8: REM RAHMENFARBE
5350 POKE 53285, 2: REM MULTICOLOR 1
5400 POKE 53286, 6: REM MULTICOLOR 2
5500 POKE 53287, 1
5510 POKE 53288, 7
5600 POKE 53276, 255: REM MULTICOLOR ANSCHALTEN FUER ALLE
6000 POKE 53269, 255: REM SPRITES AN 0-7 6010 POKE 53277, 0 : REM groesse
6020 POKE 53271, 0 : REM groesse
6100 FOR X=0TO62:READB:POKE8192+X,B:NEXT : REM 128
6200 FOR X=0TO62:READB:POKE8256+X,B:NEXT : REM 129
6300 FOR X=0TO62:READB:POKE8320+X,B:NEXT : REM 130
6400 FOR X=0TO62:READB:POKE8384+X,B:NEXT : REM 131
6500 FOR X=0TO62:READB:POKE8448+X,B:NEXT : REM 132
6600 FOR X=0TO62:READB:POKE8512+X,B:NEXT : REM 133
6700 FOR X=0TO62:READB:POKE8576+X,B:NEXT : REM 134
6800 FOR X=0TO62:READB:POKE8640+X,B:NEXT : REM 135
6810 FOR X=0TO62:READB:POKE8704+X,B:NEXT : REM 136
6820 FOR X=0TO62:READB:POKE8768+X,B:NEXT : REM 137
7000 PS = 132: CS=132 : PX=160:PY=160 : CX=8:CY=60
7100 POKE 2040,PS : POKE 2041,CS
7500 IF PX<=8 THEN PX=250
7510 IF CX>=250 THEN CX=8
7600 POKE V,PX : POKE V+1,PY
7610 POKE V+2,CX : POKE V+3,CY
8000 PS=129:POKE 2040,PS:POKE V,PX : POKE V+1,PY:FORI=0TO60:NEXTI
8010 PS=130:POKE 2040,PS:POKE V,PX : POKE V+1,PY:FORI=0TO20:NEXTI
8020 PS=131:POKE 2040,PS:POKE V,PX : POKE V+1,PY:FORI=0TO60:NEXTI
8025 CX=CX+2:CS=133:POKE 2041,CS:POKE V+2,CX : POKE V+3,CY:FORI=0TO60:NEXTI
8030 CX=CX+2:CS=134:POKE 2041,CS:POKE V+2,CX : POKE V+3,CY:FORI=0TO20:NEXTI
8040 CX=CX+2:CS=132:POKE 2041,CS:POKE V+2,CX : POKE V+3,CY:FORI=0TO60:NEXTI
8060 GOTO 7500 20000 REM
20010 DATA 0,40,0
20020 DATA 0,170,0
20030 DATA 0,106,0
20040 DATA 0,90,0
20050 DATA 0,150,0
20060 DATA 1,90,0
20070 DATA 0,88,0
20080 DATA 0,88,0
20090 DATA 0,16,0
20100 DATA 0,252,0
20110 DATA 3,255,0
20120 DATA 3,255,0
20130 DATA 1,253,0
20140 DATA 1,253,0
20150 DATA 1,253,0
20160 DATA 0,168,0
20170 DATA 0,168,0
20180 DATA 0,168,0
20190 DATA 0,136,0
20200 DATA 2,136,0
20210 DATA 1,68,0
20230 REM
20240 DATA 0,0,0
20250 DATA 0,40,0
20260 DATA 0,170,0
20270 DATA 0,106,0
20280 DATA 0,150,0
20290 DATA 1,90,0
20300 DATA 0,90,0
20310 DATA 0,88,0
20320 DATA 0,16,0
20330 DATA 31,255,0
20340 DATA 31,255,0
20350 DATA 0,253,0
20360 DATA 0,253,0
20370 DATA 0,253,0
20380 DATA 0,252,0
20390 DATA 2,168,0
20400 DATA 2,8,0
20410 DATA 2,8,0
20420 DATA 2,8,0
20430 DATA 5,8,0
20440 DATA 0,20,0
20460 REM
20470 DATA 0,0,0
20480 DATA 0,40,0
20490 DATA 0,170,0
20500 DATA 0,106,0
20510 DATA 0,154,0
20520 DATA 1,86,0
20530 DATA 0,90,0
20540 DATA 0,88,0
20550 DATA 0,16,0
20560 DATA 0,252,0
20570 DATA 31,255,0
20580 DATA 31,255,192
20590 DATA 0,252,192
20600 DATA 0,252,64
20610 DATA 0,252,0
20620 DATA 0,168,0
20630 DATA 2,168,0
20640 DATA 18,170,0
20650 DATA 18,138,144
20660 DATA 26,2,144
20670 DATA 26,0,16
20690 REM
20700 DATA 0,2,128
20710 DATA 0,10,160
20720 DATA 0,6,160
20730 DATA 0,9,96
20740 DATA 64,21,160
20750 DATA 64,5,160
20760 DATA 64,5,128
20770 DATA 96,1,0
20780 DATA 104,15,192
20790 DATA 106,15,192
20800 DATA 106,143,192
20810 DATA 10,173,192
20820 DATA 2,173,192
20830 DATA 0,175,192
20840 DATA 0,42,128
20850 DATA 0,10,128
20860 DATA 0,2,128
20870 DATA 0,2,128
20880 DATA 0,0,128
20890 DATA 0,0,128
20900 DATA 0,0,80
20920 REM
20930 DATA 0,40,0
20940 DATA 0,170,0
20950 DATA 0,169,0
20960 DATA 0,165,0
20970 DATA 0,150,0
20980 DATA 0,165,64
20990 DATA 0,37,0
21000 DATA 0,37,0
21010 DATA 0,4,0
21020 DATA 0,63,0
21030 DATA 0,255,192
21040 DATA 0,255,192
21050 DATA 0,127,64
21060 DATA 0,127,64
21070 DATA 0,127,64
21080 DATA 0,42,0
21090 DATA 0,42,0
21100 DATA 0,42,0
21110 DATA 0,34,0
21120 DATA 0,34,128
21130 DATA 0,17,64
21150 REM
21160 DATA 0,0,0
21170 DATA 0,40,0
21180 DATA 0,170,0
21190 DATA 0,169,0
21200 DATA 0,150,0
21210 DATA 0,165,64
21220 DATA 0,165,0
21230 DATA 0,37,0
21240 DATA 0,4,0
21250 DATA 0,255,244
21260 DATA 0,255,244
21270 DATA 0,127,0
21280 DATA 0,127,0
21290 DATA 0,127,0
21300 DATA 0,63,0
21310 DATA 0,42,128
21320 DATA 0,32,128
21330 DATA 0,32,128
21340 DATA 0,32,128
21350 DATA 0,32,80
21360 DATA 0,20,0
21380 REM
21390 DATA 0,0,0
21400 DATA 0,40,0
21410 DATA 0,170,0
21420 DATA 0,169,0
21430 DATA 0,166,0
21440 DATA 0,149,64
21450 DATA 0,165,0
21460 DATA 0,37,0
21470 DATA 0,4,0
21480 DATA 0,63,0
21490 DATA 0,255,244
21500 DATA 3,255,244
21510 DATA 3,63,0
21520 DATA 1,63,0
21530 DATA 0,63,0
21540 DATA 0,42,0
21550 DATA 0,42,128
21560 DATA 0,170,132
21570 DATA 6,162,132
21580 DATA 6,128,164
21590 DATA 4,0,164
21610 REM
21620 DATA 0,2,128
21630 DATA 0,10,160
21640 DATA 0,6,160
21650 DATA 0,9,96
21660 DATA 64,21,160
21670 DATA 64,5,160
21680 DATA 64,5,128
21690 DATA 96,1,0
21700 DATA 104,15,192
21710 DATA 106,15,192
21720 DATA 106,143,192
21730 DATA 10,173,192
21740 DATA 2,173,192
21750 DATA 0,175,192
21760 DATA 0,42,128
21770 DATA 0,10,128
21780 DATA 0,2,128
21790 DATA 0,2,128
21800 DATA 0,0,128
21810 DATA 0,0,128
21820 DATA 0,0,80
21840 REM
21850 DATA 0,0,0
21860 DATA 0,0,0
21870 DATA 0,0,0
21880 DATA 0,0,0
21890 DATA 0,0,0
21900 DATA 0,0,0
21910 DATA 0,0,0
21920 DATA 0,128,0
21930 DATA 0,32,0
21940 DATA 1,8,0
21950 DATA 1,249,64
21960 DATA 1,8,0
21970 DATA 0,32,0
21980 DATA 0,128,0
21990 DATA 0,0,0
22000 DATA 0,0,0
22010 DATA 0,0,0
22020 DATA 0,0,0
22030 DATA 0,0,0
22040 DATA 0,0,0
22050 DATA 0,0,0
22070 REM
22080 DATA 0,0,0
22090 DATA 0,0,0
22100 DATA 0,0,0
22110 DATA 0,0,0
22120 DATA 0,0,0
22130 DATA 0,0,0
22140 DATA 0,0,0
22150 DATA 0,2,0
22160 DATA 0,8,0
22170 DATA 0,32,64
22180 DATA 1,111,64
22190 DATA 0,32,64
22200 DATA 0,8,0
22210 DATA 0,2,0
22220 DATA 0,0,0
22230 DATA 0,0,0
22240 DATA 0,0,0
22250 DATA 0,0,0
22260 DATA 0,0,0
22270 DATA 0,0,0
22280 DATA 0,0,0
Alles anzeigen