PureBoard

Code: Alles auswählen

UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
  MessageRequester("Error", "Can't open the sprite system", 0)
  End
EndIf

If InitSprite3D() = 0
  MessageRequester("Error", "Sprite3D system can't be initialized correctly", 0)
  End
EndIf

    PlayerX = 0
    PlayerY = 0
    

If OpenWindow(0, 0, 0, 700, 500, "Turoks Engine", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  If OpenWindowedScreen(WindowID(0), 0, 0, 700, 500, 0, 0, 0)
 
   
  Else
    MessageRequester("Error", "Can't open windowed screen!", 0)
    End
  EndIf

EndIf
   
Repeat

  Repeat

    Event = WindowEvent()
   
    Select Event
      Case #PB_Event_CloseWindow
        Quit = 1
    EndSelect
   
  Until Event = 0
 
  ExamineKeyboard()
  ExamineMouse()
  Delay(10)
    ; ------------------------------------------------
    If KeyboardPushed(#PB_Key_W)
    PlayerY = PlayerY - 1
    EndIf
    ; ------------------------------------------------
    If KeyboardPushed(#PB_Key_S)
    PlayerY = PlayerY + 1 
    EndIf
    ; ------------------------------------------------
    If KeyboardPushed(#PB_Key_A)
    PlayerX = PlayerX - 1
    EndIf
    ; ------------------------------------------------
    If KeyboardPushed(#PB_Key_D)
    PlayerX = PlayerX + 1
    EndIf
    
    ; ------------------------------------------------
    ClearScreen(RGB(0,0,0))
    ; ------------------------------------------------
    ; Person
    If person$ = ""
    person$ = "player.png"
    EndIf
    If Start3D()
    LoadSprite(0, person$, #PB_Sprite_Texture)
    
    CreateSprite3D(0, 0)
    
    MauX = MouseX() : MauY = MouseY()
     
    b.f = 3.14159265/180 
    al.f = ATan((playery-MauY)/(playerx-MauX))/b
    If MauX-Playerx < 0 : al = al + 180 : EndIf
    If MauX-Playerx = 0 :
    If (MauY-Playery)<0 : al = -90 : EndIf
    If (MauY-Playery)>0 : al = 90 : EndIf
    EndIf
  
    RotateSprite3D(0, al, 1)
    
    DisplaySprite3D(0, PlayerX, PlayerY)
    
    Stop3D()
    EndIf
    
    SetWindowTitle(0, "Spieler Position: " +  " X: " + StrF(PlayerX) +  "      " + " Y: " + StrF(PlayerY)) 
    
    PPosX=PlayerX
    PPosY=PlayerY
    ; ------------------------------------------------
   
  FlipBuffers()

Until  Quit Or KeyboardPushed(#PB_Key_Escape) 

Code: Alles auswählen

  ShowCursor_(1)