Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > Visual Basic

Ответ
 
Опции темы
Старый 19.12.2010, 16:25   #1
Drago56
AnyKey`щик
 
Регистрация: 16.12.2010
Сообщений: 6
Написано одно полезное сообщение
(для 8 участников)
Хищник и жертва

Помогите дописать задачу хищник и жертва!хищники у меня гоняются за жертвой но не как не может съесть ей.Помогите дописать задачу!
Dim i, p1, e, m, p2, n, l, j, why(3), u, b As Integer
Private Sub Timer1_Timer()
xx = 0
yy = 0

For i = 0 To 3
n = Round(Rnd(1) * 7)
Select Case n
Case 0
xx = 55
Case 1
xx = -55
Case 2
yy = 55
Case 3
yy = -55
Case 4
xx = 55
yy = 55
Case 5
xx = 55
yy = -55
Case 6
xx = -55
yy = -55
Case 7
xx = -55
yy = 55
End Select

p1 = Label1(i).Left + xx
p2 = Label1(i).Top + yy
If (p1 >= 0) And (p1 <= 10000) And (p2 > 0) And (p2 < 6700) Then
Label1(i).Left = Label1(i).Left + xx
Label1(i).Top = Label1(i).Top + yy
End If
Next i
End Sub

Private Sub Timer2_Timer()
xx = 0
yy = 0

For e = 4 To 5
n = Round(Rnd(1) * 7)
Select Case n
Case 0
xx = 55
Case 1
xx = -55
Case 2
yy = 55
Case 3
yy = -55
Case 4
xx = 55
yy = 55
Case 5
xx = 55
yy = -55
Case 6
xx = -55
yy = -55
Case 7
xx = -55
yy = 55
End Select

p3 = Label2(e).Left + xx
p4 = Label2(e).Top + yy
If (p3 >= 0) And (p3 <= 10000) And (p4 > 0) And (p4 < 6700) Then
Label2(e).Left = Label2(e).Left + xx
Label2(e).Top = Label2(e).Top + yy
End If
Next e
End Sub

Private Sub Timer3_Timer()

For i = 4 To 5

If p2 < Label2(i).Top Then
Label2(i).Top = Label2(i).Top - 200
End If

If p2 > Label2(i).Top Then
Label2(i).Top = Label2(i).Top + 200
End If

If p1 < Label2(i).Left Then
Label2(i).Left = Label2(i).Left - 200
End If

If p1 > Label2(i).Left Then
Label2(i).Left = Label2(i).Left + 200
End If

For u = 0 To 3

If Label2(i).Left = Label1(u).Left Then
If Label2(i).Top = Label1(u).Top Then
Label1(u).Visible = False
End If
End If
Next u

Next i
End Sub
(Offline)
 
Ответить с цитированием
Старый 19.12.2010, 16:54   #2
pax
Unity/C# кодер
 
Аватар для pax
 
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,494
Написано 2,952 полезных сообщений
(для 5,214 пользователей)
Ответ: Хищник и жертва

К сожалению у нас на VB6 сейчас практически никто не пишет. Плюс без проекта это тяжело. Код хотя бы прокомментируй где что и зачем сейчас.
__________________
Blitz3d to Unity Wiki
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
ABTOMAT (19.12.2010)
Старый 19.12.2010, 18:33   #3
ABTOMAT
Ференька
 
Аватар для ABTOMAT
 
Регистрация: 25.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,306
Написано 5,154 полезных сообщений
(для 14,891 пользователей)
Ответ: Хищник и жертва

Пожалуйста, сделай отступы. Невозможно читать.
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**

* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена

(Offline)
 
Ответить с цитированием
Старый 19.12.2010, 20:44   #4
Drago56
AnyKey`щик
 
Регистрация: 16.12.2010
Сообщений: 6
Написано одно полезное сообщение
(для 8 участников)
Ответ: Хищник и жертва

Ладно!Спасибо кто хотел помочь!Уже не надо(
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 12:12.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com