Вниз  Вопросы по MobileBasic
- 6.01.2012 / 17:32
tutox79
  Пользователь

tutox79 
Сейчас: Offline
Немогу найти ошибку . Вроде с книжки списал все правильно ! :gg: 10 cls
20 r%=0
30 x%=50
40 y%=50
50 r%=r%+1
60 setcolor r%,0,0
70 plot x%,y%
80 if r%>255 then r%=0
90 goto 50
- 6.01.2012 / 17:42
Magatino
  Администратор

Magatino 
Сейчас: Offline
tutox79, Какая ошибка?
В коде одну я ошибку нашёл,поменяй местами строки 60 и 80.
- 6.01.2012 / 17:46
BPS
  Супермодератор

BPS 
Сейчас: Offline
tutox79, У тебя сначала идет вывод точки, а потом уже проверка на наличие цвета
Добавь:
  1. 55 IF R%>255 THEN R%=0
А 80 строку удали
- 6.01.2012 / 17:47
Andrey
  Пользователь

Andrey 
Сейчас: Offline
Ошибка из за того что в ргб цветов максимальное количество 255,а условие обнуления красного цвета идет после прибавления 1 к цвету,и когда цвет будет равен 256 будет вылет из приложение и условие не выполнится
- 6.01.2012 / 20:01
boom
  Пользователь

boom 
Сейчас: Offline
люди вот игра как и обещал,но он разрешением 360х320 поэтому если хотите под свой экран нате код.
  1. 9 X%=0:Y%=70
  2. 10 C%=120000
  3. 20 D%=50:E%=20
  4. 30 GELLOAD "banan","banan.gif"
  5. 40 GELLOAD "bl","bl.gif"
  6. 50 GELLOAD "bumaga","bumaga.gif"
  7. 60 GELLOAD "fon","fon.png"
  8. 70 GELLOAD "2","2.gif"
  9. 80 GELLOAD "26","26.gif"
  10. 90 GELLOAD "6","6.gif"
  11. 100 GELLOAD "68","68.gif"
  12. 110 GELLOAD "8","8.gif"
  13. 120 GELLOAD "84","84.gif"
  14. 130 GELLOAD "4","4.gif"
  15. 140 GELLOAD "42","42.gif"
  16. 150 DRAWGEL "fon",0,0
  17. 160 IF RIGHT(0) THEN A%=A%+1:SLEEP 100
  18. 170 IF LEFT(0) THEN A%=A%-1:SLEEP 100
  19. 180 IF A%=1 THEN SPRITEGEL "hero","2"
  20. 190 IF A%=2 THEN SPRITEGEL "hero","26"
  21. 200 IF A%=3 THEN SPRITEGEL "hero","6"
  22. 210 IF A%=4 THEN SPRITEGEL "hero","68"
  23. 220 IF A%=5 THEN SPRITEGEL "hero","8"
  24. 230 IF A%=6 THEN SPRITEGEL "hero","84"
  25. 240 IF A%=7 THEN SPRITEGEL "hero","4"
  26. 250 IF A%=8 THEN SPRITEGEL "hero","42"
  27. 260 IF A%>8 THEN A%=1
  28. 265 IF A%<1 THEN A%=8
  29. 270 SPRITEGEL "banan","banan"
  30. 280 SPRITEGEL "bl","bl"
  31. 290 SPRITEGEL "bumaga","bumaga"
  32. 300 IF UP(0) AND A%=1 THEN Y%=Y%-1
  33. 310 IF UP(0) AND A%=2 THEN X%=X%+1:Y%=Y%-1
  34. 320 IF UP(0) AND A%=3 THEN X%=X%+1
  35. 330 IF UP(0) AND A%=4 THEN X%=X%+1:Y%=Y%+1
  36. 340 IF UP(0) AND A%=5 THEN Y%=Y%+1
  37. 350 IF UP(0) AND A%=6 THEN X%=X%-1:Y%=Y%+1
  38. 360 IF UP(0) AND A%=7 THEN X%=X%-1
  39. 370 IF UP(0) AND A%=8 THEN X%=X%-1:Y%=Y%-1
  40. 420 SPRITEMOVE "banan",D%,E%
  41. 430 SPRITEMOVE "bl",F%,G%
  42. 440 SPRITEMOVE "bumaga",H%,I%
  43. 445 SPRITEMOVE "hero",X%,Y%
  44. 450 IF SPRITEHIT("banan","hero") THEN U%=U%+1
  45. 460 IF SPRITEHIT("banan","hero") THEN D%=150+MOD(RND(0),300)
  46. 470 IF SPRITEHIT("banan","hero") THEN E%=140+MOD(RND(0),280)
  47. 480 IF SPRITEHIT("bl","hero") THEN U%=U%+1
  48. 490 IF SPRITEHIT("bl","hero") THEN F%=150+MOD(RND(0),300)
  49. 500 IF SPRITEHIT("bl","hero") THEN G%=140+MOD(RND(0),280)
  50. 510 IF SPRITEHIT("bumaga","hero") THEN U%=U%+1
  51. 520 IF SPRITEHIT("bumaga","hero") THEN H%=150+MOD(RND(0),300)
  52. 530 IF SPRITEHIT("bumaga","hero") THEN I%=140+MOD(RND(0),280)
  53. 540 C%=C%-1
  54. 550 IF C%=0 THEN GOTO 2000
  55. 590 IF X%<0 THEN X%=X%+1
  56. 600 IF X%>300 THEN X%=X%-1
  57. 610 IF Y%<0 THEN Y%=Y%+1
  58. 680 IF Y%>290 THEN Y%=Y%-1
  59. 690 SLEEP 1
  60. 700 GOTO 160



Прикрепленные файлы:
cleaner.jar (175.38 кб.) Скачано 125 раз
- 6.01.2012 / 20:05
boom
  Пользователь

boom 
Сейчас: Offline
а рисунки ищите,хахаха или разберите игру и измените там код.угадай откуда это сообщение!
Спорим что я все съем?хахаха она не знает что я сижу на иешнем телефоне :-D :-D
- 6.01.2012 / 20:06
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
boom, а какой вопрос-то?
- 6.01.2012 / 23:02
boom
  Пользователь

boom 
Сейчас: Offline
люди решил игру создать типа этого,игра улет советую всем есть даже на ps2,прохождение возможно на два игрока вот видео
Http://m.youtube.com/watch?gl=...le&v=-U__zn9D7V4
Я буду делать простую драку вначале двое-на-двое,потом уже сделать оружия (палки,помойки и.т.д).Вообщем кому не лень нарисовать помойки в профиль или дубинки тогда пишите,а если и людей сможете с рисовать тогда вообще улет будет.
Внимание героев рисовать в профиль это вид как в игре дьябло.Размер около ширина 30 высота 60 желательно не большие и желательно прямоугольные.Если что писать в лч или на мыло [email protected]
- 6.01.2012 / 23:03
BPS
  Супермодератор

BPS 
Сейчас: Offline
boom (06.01.2012/19:05)
а рисунки ищите,хахаха или разберите игру и измените там код.угадай откуда это сообщение!Спорим что я все съем?хахаха она не знает что я сижу на иешнем телефоне :-D :-D
Ты Богдан?
- 6.01.2012 / 23:04
JUST_IF
  Пользователь

JUST_IF 
Сейчас: Offline
Ахтунг waplo вернулся со своими бредовыми идеями!
Ты еще свой симс не сделал ;)
Наверх  Всего сообщений: 9538
Фильтровать сообщения
Поиск по теме
Файлы топика (270)