[mike1983]

Если кто-то решил занятся программированием RTS как я , этот код будет полезен, суть проста,растягиваем рамку с помощью мыши , если объект попадает в рамку значит он выбран.

Global X0,Y0,Objx,Objy,UnitVibran
Global MsgText$
Graphics 1024,768

SetBuffer BackBuffer()

Objx=100
Objy=100


While Not KeyHit(1)
Cls
If MouseHit(1)=1 Then
x0=MouseX()
y0=MouseY()

End If

If MouseDown(1)=1 Then

Line x0,y0,MouseX(),y0
Line MouseX(),y0,MouseX(),MouseY()
Line x0,MouseY(),MouseX(),MouseY()
Line x0,y0,x0,MouseY()

If Objx>=x0 And Objx<=MouseX() Then
If Objy>=y0 And Objy<=MouseY() Then UnitVibran=1
If Objy<=y0 And Objy>=MouseY() Then UnitVibran=1
Else UnitVibran=0
End If

If Objx<=x0 And Objx>=MouseX() Then
If Objy>=y0 And Objy<=MouseY() Then UnitVibran=1
If Objy<=y0 And Objy>=MouseY() Then UnitVibran=1

End If




End If

If MouseHit(2)=1 Then
UnitVibran=0

End If

If UnitVibran=1 Then MsgText="Objekt vibran"
If UnitVibran=0 Then MsgText="Objekt ne vibran"

Text Objx,Objy,"Object",1,1

Text 50,10,MsgText,0,0


Flip
Wend