DrawToWorld ON,ON,ON 'draw text to world coordinates
'assign a custom mouse pointer
cursor=LoadImage("Media\cursor.bmp")
ShowMouse cursor
guy1=LoadObject("Media\guy.bmp")
guy2=LoadObject("Media\guy.bmp")
guy3=LoadObject("Media\guy.bmp")
PositionObject guy2, -100,0
PositionObject guy3,100,0
'make them pickable (by ball)
ObjectPickable guy1,2
ObjectPickable guy2,2
ObjectPickable guy3,2
'give guy1 some properties
ObjectInteger guy1,100
ObjectFloat guy1,PI
ObjectString guy1,"friend"
'give guy2 some properties
ObjectInteger guy2,50
ObjectFloat guy2,45.6
ObjectString guy2,"enemy"
'give guy3 some properties
ObjectInteger guy3,25
ObjectFloat guy3, -0.5
ObjectString guy3,"neutral"
ClsColor cbwhite
Color cbblack
'- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
'THE GAME ITSELF
Repeat
CameraPick MouseX(),MouseY()
e=PickedObject()
If e Then
'if picking resulted an object, print its properties
CenterText ObjectX(e),ObjectY(e) -70,ObjectInteger(e)
CenterText ObjectX(e),ObjectY(e) -60,ObjectFloat(e)
CenterText ObjectX(e),ObjectY(e) -50,ObjectString(e)
EndIf
DrawScreen
Until KeyHit(1) 'esc
|
|