Prosty PING-PONG - Turbo Basic XL

Kilka dni temu przyjechał do mnie ze Lwowa kolega, z resztą też atarowiec. Podczas jego wizyty napisałem w Turbo Basicu XL prostego PING-PONGA dla dwóch graczy. Dwie paletki sterowanie za pomoca joysticka plus piłka w postaci jednego pikselka. A jak ktos nie odbije to przeciwnik zyskuje punkt. Gra nie jest tak zaawansowana jak np. EPI_PONG, czy "Gra o flaszke" napisane i pokazane podcas party w Koceranach w 2003, ale też sprawia niezłą frajdę. Tak więc życzę Ci drogi internauto miłego grania!

5 DIM Y(1):P1=0:P2=0 10 GRAPHICS 5:Y(0)=19:Y(1)=19:XP=39:YP=19:T=1:L=1:COLOR 3:PLOT XP,YP
20 COLOR 1:PLOT 1,Y(0):DRAWTO 1,Y(0)+4:COLOR 2:PLOT 78,Y(1):DRAWTO 78,Y(1)+4:POKE 752,1:? :? ,;" ";P1,P2
25 X=1:J=0:GOSUB 35:GOSUB 50
30 X=78:J=1:GOSUB 35:GOSUB 50:GOTO 25
35 S=(STICK(J)=13 AND Y(J)<35)-(STICK(J)=14 AND Y(J)>0)
40 IF S<>0 THEN COLOR 0:PLOT X,Y(J)+(S=-1)*4:COLOR J+1: Y(J)=Y(J)+S:PLOT X,Y(J):DRAWTO X,Y(J)+4
45 RETURN
50 IF XP=0 THEN P2=P2+1:GOTO 10
55 IF XP=79 THEN P1=P1+1:GOTO 10
60 COLOR 0:PLOT XP,YP:IF YP=0 OR YP=3 THEN T=-T
65 LOCATE XP-1,YP,Z:IF Z<>0 THEN L=-L
70 LOCATE XP+1,YP,Z:IF Z<>0 THEN L=-L
75 YP=YP+T:XP=XP+L:COLOR 3:PLOT XP,YP:PAUSE 9:RETURN

PS: Program ruszy również w zwykłym Atari Basicu. Wystarczy tylko zamienić PAUSE 9 w lini 75 na FOR I=1 TO 90:NEXT I.

<< Wstecz

Komentarze

Ten materiał nie został jeszcze skomentowany. Możesz być pierwszy :)

Dodaj komentarz