Растягивающаяся рамка с проверкой на выбор объекта
Если кто-то решил занятся программированием 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
|