Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 5
  • 1
  • 2
  • 3
  • 4
  • 5
  • »
Модератор форума: ADMIN, Nextik  
проект Танчики
KIRДата: Четверг, 05.02.2009, 14:10 | Сообщение # 1
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
Помогите
 
KIRДата: Четверг, 05.02.2009, 14:13 | Сообщение # 2
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
А можно ли сделать танчики для мобилы с врагами со стенами и с возможностью игы по Bluetooth
 
adminДата: Четверг, 05.02.2009, 19:45 | Сообщение # 3
Admin
Группа: Администраторы
Сообщений: 244
Награды: 2
Репутация: « 594 »
Статус: Offline
мона все. Для начала рекомендую прочитать эту статью
пункт пятый. Вот еще статья:
форум.создаем танШики
Ты начинай с легкоко, заканчивая сложным.
Так спрашивай все по очереди, что хошь узнать
 
12121Дата: Четверг, 05.02.2009, 19:46 | Сообщение # 4
Программист
Группа: Проверенные
Сообщений: 357
Награды: 4
Репутация: « 290 »
Статус: Offline
Наверно можно. Тем более что либы уже есть кажется на все случаи жизни
 
adminДата: Четверг, 05.02.2009, 19:54 | Сообщение # 5
Admin
Группа: Администраторы
Сообщений: 244
Награды: 2
Репутация: « 594 »
Статус: Offline
Да. LIb_game. Вот в инете нашел парень написал простой код:
Code
имЪхо для мидлетов посерьезнее надо всетки юзать J2ME...

ЗЫ решыл еще выложыть сорцы:
ресурсы:  
my0.png - мой самолетик, в движении налево
my1.png - мой самолетик - прямой
my2.png - мой самолетик, в движении направо
Enemy.png - самолетик врага
Bullets.png- патроны  
boom.png - взрыв
music1.mid - фоновая музычка
(все ресурсы можно извлечь из файла SkyWars.jar, для чего открыть его в WinRare)
Код

program SkyWars;
var
dx, dir, i:integer;
sX, sY, key:integer;
myX, myY:integer;
myPlane : array [0..2] of image;
enPlane, Shot, Boom : image;
isShot:boolean;
ShotX, ShotY, ShotSpeed:integer;
enX, enY, enSpeed:integer;
kiled, level :integer;

begin
   dx:=4;
   kiled:=0;
   level:=1;
   ShotSpeed:=6;
   isShot:=False;
     sX:=getWidth;
     sY:=getHeight;
     enY:=0;
   enX:=random(sX-24);
   enSpeed:=2;
     myX:=trunc(sX/2)-12;
     myY:=sY-24;
     for i:=0 to 2 do myPlane[i]:=LoadImage('/my'+chr(48+i)+'.png');  
     enPlane:=LoadImage('/Enemy.png');
     Shot:=LoadImage('/Bullets.png');
     Boom:=LoadImage('/boom.png');
     SetColor(255, 255, 255);
   FillRect(0, 0, sX, sY);
   if not openPlayer('/music1.mid', 'audio/midi') then halt;
   if not SetPlayerCount(-1) then halt;
   if not startPlayer then halt;
   repeat
     FillRect(sx-72, 3, sX, 24);
     setColor(0, 0, 255);
     setFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_MEDIUM );
     drawText('Убито:' + kiled, sX-72, 3);
     drawText('Уровень:' + level, sX-72, 16);
     repaint;
     SetColor(255, 255, 255);
     key := GetKeyPressed;
     //прорисовка и управление моим самолетом
     FillRect(myX, myY, 24,24);
     dir:=1;
     if key = KE_KEY6 then
     begin
       dir:=2;
       myX:=myX+dx;
       end else
         if key=KE_KEY4 then
         begin
           dir:=0;
           myX:=myX-dx;
         end else
           if (key=KE_KEY5) And Not(isShot) then
           begin
             isShot:=true;
             ShotX:=myX;
             ShotY:=myY-7;    
           end;
      if myX<0 then myX:=0;
      if myX>sX-12 then myX:=sX-24;
      DrawImage(myPlane[dir], myX, myY);
      //обработка выстрелов.
      if isShot then
      begin
         FillRect(ShotX, ShotY, 24,7);
         ShotY:=ShotY-ShotSpeed;
         if ShotY<=0 then  
            isShot:=False
          else   
            if (((ShotX+24>=enX) AND (ShotX+24<=enX+24)) OR ((enX<=ShotX) AND (ShotX<enX+24))) AND (ShotY<=enY+24) then   
              begin
                isShot:=False;
                DrawImage(Boom, enX-4, enY);
                repaint;
                delay(100);
                FillRect(ShotX, ShotY, 24,7);
                FillRect(enX-4, enY, 32,35);
                enY:=0;
                enX:=random(sX-24);  
                kiled:=kiled+1;
                if (kiled=10) or (kiled=20) or (kiled=30) or (kiled=40) or (kiled=50) then  //крива-крива... а и пофиг... <img src="http://s21.ucoz.net/sm/24/wacko.gif" border="0" align="absmiddle" alt="wacko">
                 begin
                  level:=level+1;
                  enSpeed:=enSpeed+1;
                 end;
              end
              else
                DrawImage(Shot, ShotX, ShotY);
             
      end;
      //прорисовка врага
      FillRect(enX, enY, 24,24);  
      if (enY>=(sY-24)) then
      begin
         enY:=0;
         enX:=random(sX-24);   
      end
      else
         enY:=enY+enSpeed;
      DrawImage(enPlane, enX, enY);
      repaint;   
   until GetKeyClicked = KE_KEY0;
   stopPlayer;
end.
 
adminДата: Пятница, 06.02.2009, 14:14 | Сообщение # 6
Admin
Группа: Администраторы
Сообщений: 244
Награды: 2
Репутация: « 594 »
Статус: Offline
Надо бы мне написать статью по созданию стрелялок для начинающих
 
KIRДата: Пятница, 06.02.2009, 15:01 | Сообщение # 7
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
Согласен надо smile
 
KIRДата: Пятница, 06.02.2009, 15:04 | Сообщение # 8
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
А где Файл с игрой SkyWars
 
KIRДата: Пятница, 06.02.2009, 15:04 | Сообщение # 9
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
Согласен надо smile
 
adminДата: Пятница, 06.02.2009, 15:11 | Сообщение # 10
Admin
Группа: Администраторы
Сообщений: 244
Награды: 2
Репутация: « 594 »
Статус: Offline
На одном из форумов этот парень выложил код и ссылку на игру, но ссылка устарела. Замени на свои изображения, чтоб проверить как это работает. Или если влом делать картинки, просто везде его изображения замени на иконку- icon.png,просто, чтоб просмотреть
 
adminДата: Пятница, 06.02.2009, 15:15 | Сообщение # 11
Admin
Группа: Администраторы
Сообщений: 244
Награды: 2
Репутация: « 594 »
Статус: Offline
Попробую завтра, чуток изменить этот пример и выложу тода может быть
 
KIRДата: Пятница, 06.02.2009, 15:16 | Сообщение # 12
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
Вот на шел игру танчики Batle City Из неё много ресурсов вытянуть можно!
Прикрепления: battle_city.jar (106.1 Kb)
 
KIRДата: Вторник, 10.02.2009, 13:48 | Сообщение # 13
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
У меня вопрос почему мою статью не добавили?
 
KIRДата: Вторник, 10.02.2009, 13:49 | Сообщение # 14
Начальный
Группа: Проверенные
Сообщений: 50
Награды: 0
Репутация: « 1 »
Статус: Offline
sad sad sad cry cry cry sad sad
 
programmerДата: Вторник, 10.02.2009, 14:59 | Сообщение # 15
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
Quote (KIR)
У меня вопрос почему мою статью не добавили?

Дак надо ссылку на первоисточник ставить и автора указывать.лично я ничего не трогал тока посмотрел статью пустьадмин решает публиковать или нет
http://www.mobi.ru/Article....mer.htm
Источник
Автор: Касимов Роман
 
  • Страница 1 из 5
  • 1
  • 2
  • 3
  • 4
  • 5
  • »
Поиск: