Растягивающаяся рамка с проверкой на выбор объекта

[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

[WaReZ_MEN]

mike1983 спасибо огромное, но в 2д пространсте это никогда и не боло проблемои Если хочеш могу расказать как это сделать в 3д

[axel186]

На счёт 3д мне интересно =)

[Valet]

да, нужно 3д... впрочем где-то в журнале это было...

[HolyDel]

элементарно процируем все ентити и дальще как в 2д.
CameraProject в руки.

[WaReZ_MEN]

HolyDel ну вот опять опередил

[mike1983]

Да... , 3d эт хорошо, но я пока не берусь за такие проекты , очень уж геморно там с текстурами возиться и с анимацией(я имею в виду трех-мерных объектов, сделанных в 3D редакторе).

[WaReZ_MEN]

mike1983 ни че будет и на твоеи улице праздник

[mike1983]

WaReZ_MEN здорово сказано

[Bazalt]

вот еще шот редактора карт, если что могу в чем то помочь! только не сильно сложном! сам делаю... рпг
[IMG][/IMG]