gtasase Пользователь Сейчас: Offline
Имя: Влад Откуда: Карадарас Регистрация: 05.12.2011
| Не работает вот 1 GOSUB 190 2 X2%=0:Y2%=120:J%=55:X3%=0:Y3%=0 10 FILLRECT 0,0,5,5 30 GELGRAB "p",0,0,5,5 40 DRAWLINE 0,120,200,120 50 SPRITEGEL "p","p" 60 SPRITEGEL "v","p" 70 SETCOLOR 255,255,255:FILLRECT 0,0,6,6 80 Y1%=Y1%+1 90 IF Y1%>208 THEN Y1%=0:X1%=88+MOD(RND(0),88) 91 Y3%=Y3%+6 92 IF Y3%>208 THEN Y3%=0:X3%=88+MOD(RND(0),88) 100 SPRITEMOVE "v",X1%,Y1% 110 IF LEFT(0) THEN X%=X%-1 111 IF GAMEA(0) THEN X2%=X2%-1 113 IF GAMEB(0) THEN X2%=X2%+1 120 IF RIGHT(0) THEN X%=X%+1 130 IF UP(0) THEN Y%=Y%-1 140 IF DOWN(0) THEN Y%=Y%+1 150 SLEEP 2 160 IF Y%<120 THEN Y%=120 161 GOSUB 201 170 SPRITEMOVE "p",X%,Y% 171 SPRITEMOVE "pu",X2%,Y2% 172 SPRITEMOVE "pu1",X3%,Y3% 180 GOTO 80 190 G%=100 191 SETCOLOR 0,255,0:FILLRECT 1,5,15,1:GELGRAB "pu",1,5,15,1:SPRITEGEL "pu","pu":CLS 192 SETCOLOR 255,0,0:FILLRECT 0,0,5,4:GELGRAB "pu1",0,0,5,4:SPRITEGEL "pu1","pu1":CLS 200 RETURN 201 IF SPRITEHIT("v","p") THEN G%=G%-1 202 PRINT G% 203 IF G%<0 THEN END 206 IF X%>176 THEN X%=0 207 IF X%<0 THEN X%=176 208 IF Y%>208 THEN Y%=208 209 IF Y2%<0 THEN Y2%=120 210 IF FIRE(0)=0 THEN Y2%=120 211 IF SPRITEHIT("pu","v") THEN J%=J%-1:Y2%=0 212 IF SPRITEHIT("pu1","v") THEN J%=J%-6:Y3%=0 213 DRAWSTRING STR$(J%),50,0 250 RETURN
|