Показать сообщение отдельно
Старый 09.12.2007, 18:03   #3
Horror
Бывалый
 
Регистрация: 09.09.2006
Сообщений: 656
Написано 54 полезных сообщений
(для 110 пользователей)
Re: Проверка попадания в бота.

чета не понял у тебя боты это перменые?
жуть)
попробуй с типами

простой пример:

Type TBot
field ent ;модель бота
filed hp ; колво жизни
end type

;создаем 10 ботов в случайных позициях:
for i=1 to 10
bt.TBot=new TBot
bt\ent=createcube()
bt\hp=100 ;вначаеле у бото 100 единиц здоровия
entitypickmode bt\ent,2 ;чтобы можно было пикать по ботам
positionentity bt\hp,rnd(-10,10),0,rnd(-10,10)
next


главный цикл:
pick=camerapick(cam,mousex(),mousey())
;перебираем всех ботов
for bt.TBot=each TBot
;если кликнул на мыш и наведена мыш на бота то отнимаем у бота 10 хп
if mousehit(1) and pick=bt\ent then bt\hp=bt\hp-10
;если жизни меньше(равно 0) то уничтожаем бота
if bt\hp<=0 then freeentity bt\ent : delete bt
next


это простой пример и не оч оптимезированный
ну вроде понятный!
ПС писал прям на форуме мог наврать...
(Offline)
 
Ответить с цитированием