Colossus |
03.11.2010 22:02 |
Ответ: Xors3D
Сквиди, у меня нет твоей аськи!!! угадывать не надо
вот смотри код:
Код:
Include "Data\Include\xors3d.bb"
Include "Data\Include\particle.bb"
Include "Data\Include\text.bb"
Include "Data\Include\functional.bb"
Include "Data\Include\Menu.bb"
;=========================================
xCreateLog()
;=========================================
xSetAntiAliasType 1
xGraphics3D 1024,768,32,0,0
xAmbientLight 255,255,255
xSetBuffer xBackBuffer()
xHidePointer
xSetTextureFiltering TF_ANISOTROPICX16
xSetAntiAliasType xGetMaxAntiAlias()
;=========================================
pxCreateWorld (1,"{Z5e>`188i3c\]44dU18]T7c]d64el28")
pxSetGravity 0,-9.8,0
;=========================================
Global FPS = CreateTimer(60)
Global Camera% = xCreateCamera()
xCameraRange Camera%,0.01,1000000
xCameraClsColor Camera%,100,100,100
Global Pivot% = xCreatePivot()
Global Cursor% = xLoadAnimImage("Data\Menu\Cursor.bmp",32,32,0,11)
xScaleImage Cursor%,0.7,0.7
xMidHandle Cursor%
xMaskImage Cursor%,0,0,0
Light% = xCreateLight(2)
xPositionEntity Light%,0,100,0
;=========================================
Global BGimage% = xLoadImage("Data\Menu\MenuBG.jpg")
Global PlayA = xLoadImage("Data\Menu\Play.bmp")
xImageAlpha PlayA,0.5
Global PlayB = xLoadImage("Data\Menu\PlayB.bmp")
xImageAlpha PlayB,0.5
Global LoadA = xLoadImage("Data\Menu\Load.bmp")
xImageAlpha LoadA,0.5
Global LoadB = xLoadImage("Data\Menu\LoadB.bmp")
xImageAlpha LoadB,0.5
Global SaveA = xLoadImage("Data\Menu\Save.bmp")
xImageAlpha SaveA,0.5
Global SaveB = xLoadImage("Data\Menu\SaveB.bmp")
xImageAlpha SaveB,0.5
Global SetupA = xLoadImage("Data\Menu\Setup.bmp")
xImageAlpha SetupA,0.5
Global SetupB = xLoadImage("Data\Menu\SetupB.bmp")
xImageAlpha SetupB,0.5
Global ExitA = xLoadImage("Data\Menu\Exit.bmp")
xImageAlpha ExitA,0.5
Global ExitB = xLoadImage("Data\Menu\ExitB.bmp")
xImageAlpha ExitB,0.5
;=========================================
xCreateTPCamera(0,0,0)
;=========================================
Global BCMuzzle% = xLoadSprite("Data\World\Sprite\BCMuzzle.bmp",3+4+256)
xSpriteViewMode BCMuzzle%,2
xEntityFX BCMuzzle%,16+1
xHideEntity BCMuzzle%
;=========================================
Sky = xLoadMesh("Data\World\Model\Sky\Skybox_evening.b3d")
xScaleEntity Sky,10,10,10
;=========================================
CameraLock = 1
;=========================================
While Not xKeyHit(KEY_ESCAPE)
WaitTimer(FPS)
pxRenderPhysic(30,0)
;=========================================
If xKeyHit(57) Then CameraLock = 1 - CameraLock
;=========================================
If xMouseHit(1) And CameraLock = 0 Then xCreateMuzzle()
;=========================================
If CameraLock = 0 Then
xUpdateTPCamera()
xUpdateMuzzle()
EndIf
;=========================================
If xMillisecs() > tmrSparks + 100 Then
tmrSparks=xMillisecs()
frmSparks=( frmSparks + 1 ) Mod 11
End If
;=========================================
xUpdateWorld
xRenderWorld
;=========================================
If CameraLock = 1 Then
xDrawMainMenu()
xDrawImage Cursor%,xMouseX(),xMouseY(),frmSparks
EndIf
xText 20,20,"FPS : " + xGetFPS()
xText 20,40,"Mx :" + xMouseX()
xText 20,60,"My :" + xMouseY()
;=========================================
xFlip()
Wend
End
;=========================================
может я тут чем то накосячил?
|