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
Кстати про что стратежка?
|