My mouse has gone?

coffeebean · Post by **coffeebean** » Sat Aug 16, 2003 10:41 pm

Hi im making a windowed game and just doing some tests to get used to the new commands (Blitzbasic user), I've set up a window and inside the window ive setup a screen to draw on, the problem is that my mouse is invisable, it still works just cant see it.

Heres the code no external media is required just copy'n'paste and hit F5.

Code: Select all

InitKeyboard()
InitSprite()
InitMouse()
Global x
; #####################################################################################################

OpenWindow(0,640,480,640,480,#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , Title$)
  CreateMenu(0, WindowID())
     MenuTitle("Project") 
        MenuItem(1, "Open") 
        MenuBar()
        MenuItem(4, "Close") 

OpenWindowedScreen(WindowID(),5,5,300,200,0,1,1)

; #####################################################################################################

Procedure Quit()

  ExamineKeyboard()
  If KeyboardPushed(#PB_Key_Escape)
    End
  EndIf
  
  Event = WindowEvent()
  If Event = #PB_EventCloseWindow
    End
  EndIf

EndProcedure

; #####################################################################################################

Structure test
  x.w
  y.w
EndStructure

NewList test.test()

; #####################################################################################################

Procedure add()

    AddElement(test())
    test()\x=MouseX()
    test()\y=MouseY()

EndProcedure

Procedure delete()
    If test()\x=MouseX() And test()\y=MouseY()
    DeleteElement(test())
    EndIf

EndProcedure

 AddElement(test())
    test()\x=100
    test()\y=100

; #####################################################################################################

Procedure DrawScreen()

  ClearScreen(0,0,0)
  StartDrawing(ScreenOutput())
    
    ResetList(test())
      ExamineKeyboard()
        If KeyboardPushed(#PB_Key_Right)
          x=x+1
        EndIf
        If KeyboardPushed(#PB_Key_Left)
          x=x-1
        EndIf
       While NextElement(test()) 
           Box(test()\x+x,test()\y+y,32,32,$2141DE)
       Wend 

  FlipBuffers()
  StopDrawing()  

EndProcedure

; #####################################################################################################
; #####################################################################################################
; #####################################################################################################

Repeat

  Quit()
  DrawScreen() 
  
  ExamineMouse()
  If MouseButton(1)
    add()
  EndIf
  If MouseButton(2)
    delete()
  EndIf

forever

; #####################################################################################################
; #####################################################################################################
; #####################################################################################################

coma · Post by **coma** » Sat Aug 16, 2003 11:16 pm

try this :

ShowCursor_(1)
SetCursor_(LoadCursor_(0,#IDC_ARROW))

coffeebean · Post by **coffeebean** » Sat Aug 16, 2003 11:29 pm

Hummm..... nope it bugged on ShowCursor_(1), said its not a function or not avaliable in the demo version. I Didn't find an Cursor commonds in the help text either.

I got the problem tracked down to ExamineMouse() in my main game loop, but without it i cannot do actions on my drawing screen. Hum.

LarsG · Post by **LarsG** » Sat Aug 16, 2003 11:43 pm

@coffeebean:
There are functions that are not listed in the documentation...
and also, there are some limitations to the demoversion, so I'd suggest buying the full version right away..

(at least if you're going to port you two BB games, which I personally look forward too

)

PB is so cheap anyways...

-Lars

coma · Post by **coma** » Sun Aug 17, 2003 12:03 am

there's no Win32 API support in demo version, it's the reason you can't use some functions.

anyway, my method is not very good, cause you can move the cursor outside the window. And in fullscreen mode, the cursor disappear.

so, if someone have any solution...

coffeebean · Post by **coffeebean** » Sun Aug 17, 2003 12:13 am

I want the cursor to move outside of the window (i dont need it stay within the screen), i just want to see the cursor, right now it just invisable.

coffeebean · Post by **coffeebean** » Sun Aug 17, 2003 1:28 am

Hum looks like im life with PB was short lived, From digging round the docs and this fourm i have fond that there is currently no way to catch mouse clicks in a windowed screen.. Oh well, I guess i'll have to go with Blitzplus. I'll be checking back thought from time to time.

Karbon · Post by **Karbon** » Sun Aug 17, 2003 5:17 am

Really? No way to do that?? Hmm. I hope that's not true!

Are you sure you're not running into limitations of the demo version?

LarsG · Post by **LarsG** » Sun Aug 17, 2003 9:30 am

@coffeebean:
Is this what you wanted?
(used Hypervox's game setup, and added mouse-checks)

Code: Select all

;/////////////////////////////////////////////////////
; Blank Games Program....
; (C) Shaun Raven 2003 - Use freely...
;/////////////////////////////////////////////////////
;//////////////////////////////////////////////////////////////
;- Initialisation
;//////////////////////////////////////////////////////////////
;- Window Constants
;
#Window_0 = 0
;- Screen constants
#SCREEN_WIDTH = 640
#SCREEN_HEIGHT = 480
;- Window Title
Title$ = "Blank Program"
; Initialistion code...
; 1. create a window
If OpenWindow(#Window_0, 216, 0, #SCREEN_WIDTH, #SCREEN_HEIGHT,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , Title$)
  If CreateGadgetList(WindowID())
      
  EndIf
EndIf
; 2. Initialise the sprite & keyboard engines
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
  MessageRequester("Error","Can't open DirectX",0)
  End
EndIf
; 3. Create a double buffered screen, assigned to your Window
If OpenWindowedScreen(WindowID(),0,0,#SCREEN_WIDTH, #SCREEN_HEIGHT,0,0,0)
  ;//////////////////////////////////////////////////////////////
  ;- GAME LOOP
  ;//////////////////////////////////////////////////////////////
  Repeat
     ;//////////////////////////////////////////////////////
     ;- Game Logic
     ;//////////////////////////////////////////////////////
     
     ;//////////////////////////////////////////////////////////////
     ;-Transformations
     ;//////////////////////////////////////////////////////////////
     ;-     
     ;///////////////////////////////////////////////////
     ;- Input
     ;///////////////////////////////////////////////////
     
     ;if escape pressed, leave program,
     ExamineKeyboard()
     If KeyboardPushed(#PB_Key_Escape) 
        done = 1
     EndIf
     Event = WindowEvent()
     If Event = #PB_EventCloseWindow
       done = 1
     EndIf
     ;//////////////////////////////////////////////////////////////
     ;- Transform Player
     ;//////////////////////////////////////////////////////////////
     If ExamineMouse()
      mx = MouseX(): my = MouseY()
      If MouseButton(1)
        a = Random(255)
      EndIf
      If MouseButton(2)
        b = Random(255)
      EndIf
      If MouseButton(3)
        c = Random(255)
      EndIf
     EndIf
     ;//////////////////////////////////////////////////////////////
     ;- Rendering      
     ;////////////////////////////////////////////////////////////// 
     ClearScreen(a,b,c)
     If StartDrawing(ScreenOutput())
       ; we draw here
       Plot(mx,my,$ffffff)  
       FlipBuffers()
       StopDrawing()         
     EndIf
     ;//////////////////////////////////////////////////////////////
     ;- Music, sound effects & housekeeping
     ;////////////////////////////////////////////////////////////// 
  Until done = 1
EndIf
;///////////////////////////////////////////////////////
;- Tidy up here if required
;///////////////////////////////////////////////////////
End

coffeebean · Post by **coffeebean** » Sun Aug 17, 2003 1:06 pm

LarG - I can do that no problem but the mouse commands that i need will either only work on gadgets or only work on a screen, not both together.

This brought up on these forums.
viewtopic.php?t=3229&highlight=pbeventtypeleftclick

If you take a look at my Push'em editor you can see that I need to interact with gadgets and also catch click on the screen so i can build the level.

I dont see how having access to the windows API will solve this.

LarsG · Post by **LarsG** » Sun Aug 17, 2003 1:33 pm

Hmmm.. a possibility could be to draw to an image, and display that image using an ImageGadget?!?

Either that, or to make your own (or use someone elses) gadgets/gui..

-Lars

Num3 · Post by **Num3** » Sun Aug 17, 2003 1:59 pm

Why don't you open 2 windows?

One with all the gadgets and another with the game editor zone ?

Something similar to the Visual Editor...