Сообщение от St_AnGer
Покажите пожалуйста кто нибудь про какой код он говорит... Заинтриговали, а найти никак не могу. У меня просто в голове не укладывается как можно писать на Сях сложные конструкции, и не понять условие на грёбаном бейсике.
|
Держи
Type Entity
Field Mesh
Field Name$
Field HP
End Type
Graphics3D 800,600,32,2
camera = CreateCamera()
For i = 1 To 10
Bot.Entity = New Entity
Bot\HP = 100
Bot\Name$ = Handle(Bot)
Bot\Mesh = CreateCube()
NameEntity Bot\Mesh, Bot\Name$
PositionEntity Bot\Mesh, Rnd(-50,50), Rnd(-50,50), 50
NameEntity Bot\Mesh,Bot\Name$+Chr(34)+"Bot"+Chr(34)
EntityPickMode Bot\Mesh,3
Next
old.entity=Null
Repeat
RenderWorld()
If MouseDown(1)
ent=CameraPick(camera,MouseX(),MouseY())
If ent<>0 Then
old = set.entity
set=FindEntity(ent)
Text 10, 10 , EntityName(ent) + " HP = " + set\HP
If MouseHit(2)
set\HP = set\HP - 10
EndIf
End If
End If
Flip()
Until (KeyHit(1))
End
Function FindEntity.entity(ent)
name=EntityName(ent)
Return Object.entity(name)
End Function
Можешь ему не объяснять, он не вкурит это.
