Man, PB is awesome!
I have run into some bugs (may be video card related...see my DisplaySprite3D garbage thread)
ANYWAY, download the demo below and let me know if it runs smooth (the scrolling is slow...but it should be smooth).
Left/right to move. Also, scroll to the end and you will see Kraid. Mouse up/down to move him.
What do you think of the lava and steam effect?
-cb
DOWNLOAD HERE --> cb.signaldev.com/lava.zip
Check out my scrolling demo!
Perfect on my system..
-Mitchell
Check out kBilling for all your billing software needs!
http://www.k-billing.com
Code Signing / Authenticode Certificates (Get rid of those Unknown Publisher warnings!)
http://codesigning.ksoftware.net
Check out kBilling for all your billing software needs!
http://www.k-billing.com
Code Signing / Authenticode Certificates (Get rid of those Unknown Publisher warnings!)
http://codesigning.ksoftware.net
comment out the joystick info on mine ...
Commented out the joystick info on mine and we were rocking and rolling... V nice 

new_bitmapimage... have you been grabbing from another program? 

( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
( The path to enlightenment and the PureBasic Survival Guide right here... )
-
- PureBasic Expert
- Posts: 2812
- Joined: Fri Apr 25, 2003 4:51 pm
- Location: Portugal, Lisbon
- Contact:
If no joytsick or sound are present you must not call the functions associated to them. Keep in mind many people do not have joysticks and some PC's don't have sound cards...
Just use:
Just use:
Code: Select all
If initjoystick()
Joy=true
else
Joy=false
endif
If initsound()
Sound=true
else
Sound=false
endif
more game here...
If joy=true
do joystick things
endif
If sound=true
do souns things
endif
@Num3:
No If...Else...Endif needed for the init commands.
BTW:
Would be nice if InitJoystick() returns the number of available
joysticks in the system.
All joystick-commands should get a "joystick-number" param then...
No If...Else...Endif needed for the init commands.
Code: Select all
Joystick = InitJoystick()
Sound = InitSound()
If Joystick
; do joystick things
EndIf
If Sound
; do sound things
EndIf
Would be nice if InitJoystick() returns the number of available
joysticks in the system.
All joystick-commands should get a "joystick-number" param then...