Показать сообщение отдельно
Старый 03.10.2006, 02:40   #4
HolyDel
 
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
Re: Несколько вопросов по стратегии

У меня так:

If MouseDown(1)
If isStart
srx1#=px
srz1#=pz
sry1#=py
isStart=0

Else
srx2#=px
srz2#=pz
CameraProject cam,srx1,sry1,srz1
scrPx=ProjectedX()
scrPy=ProjectedY()+(1-fullview)*32
CameraProject cam,px,py,pz
scrPx2=ProjectedX()
scrPy2=ProjectedY()+(1-fullview)*32

minx#=min(scrPx,scrPx2)
maxx#=max(scrPx,scrPx2)
minz#=min(scrPy,scrPy2)
maxz#=max(scrPy,scrPy2)

Rect minx,minz,maxx-minx,maxz-minz,0
Text 10,100,scrPx
Text 10,120,scrPy
Text 10,140,scrPx2
Text 10,160,scrPy2

minx#=min(srx1,srx2)
maxx#=max(srx1,srx2)
minz#=min(srz1,srz2)
maxz#=max(srz1,srz2)

For i=1 To ttu(myteam)
ent=un(myteam,i,0)
If EntityX(ent)>minx And EntityZ(ent)>minz And EntityX(ent)<maxx And EntityZ(ent)<maxz Then un(myteam,i,4)=1 Else un(myteam,i,4)=0
Next

EndIf
Else

If isstart=0 ;

EndIf

isStart=1
EndIf

Кстати про что стратежка?
(Offline)
 
Ответить с цитированием