Last person to post wins!!
Viewing forum thread.
Back to Fun and Games.
Back to Forum List.
Deleted User
(IP Logged)
(IP Logged)
17:32 Sun 26 Jan 14 (GMT) [Link]
rem Resolution
SetVirtualResolution (400 ,600)
Global Dim Rain 100
Global Clock#
Global BarClock#
Global Mult
Global WaterCount
Global ManRight
Global ManLeft
rem See if this is PC or not and if not PC, speed up directionx for touch devices
Mult = 4
If GetKeyboardExists() > 1
Mult = 2
EndIf
SetPhysicsGravity(15, 500 )
BackGround = CreateSprite(LoadImage("background.png"))
Bar = CreateSprite(LoadImage("bar.png"))
SetSpritePosition(Bar,0,590)
SetSpriteShape(Bar,3)
SetSpritePhysicsOn(Bar, 3)
Splash = CreateSprite(LoadImage("boom.png"))
SetSpriteScale(Splash,0.5,0.5)
SetSpriteVisible(Splash,0)
ManRight = LoadImage("manright.png")
ManLeft = LoadImage("manleft.png")
Man = CreateSprite(ManRight)
rem SetSpritePhysicsOn( Man, 3)
SetSpritePosition(Man,200,350)
WaterCount = 0
Clock# = GetMilliseconds()
SetVirtualResolution (400 ,600)
Global Dim Rain 100
Global Clock#
Global BarClock#
Global Mult
Global WaterCount
Global ManRight
Global ManLeft
rem See if this is PC or not and if not PC, speed up directionx for touch devices
Mult = 4
If GetKeyboardExists() > 1
Mult = 2
EndIf
SetPhysicsGravity(15, 500 )
BackGround = CreateSprite(LoadImage("background.png"))
Bar = CreateSprite(LoadImage("bar.png"))
SetSpritePosition(Bar,0,590)
SetSpriteShape(Bar,3)
SetSpritePhysicsOn(Bar, 3)
Splash = CreateSprite(LoadImage("boom.png"))
SetSpriteScale(Splash,0.5,0.5)
SetSpriteVisible(Splash,0)
ManRight = LoadImage("manright.png")
ManLeft = LoadImage("manleft.png")
Man = CreateSprite(ManRight)
rem SetSpritePhysicsOn( Man, 3)
SetSpritePosition(Man,200,350)
WaterCount = 0
Clock# = GetMilliseconds()
19:04 Sun 26 Jan 14 (GMT) [Link]
Couldn't have put it better myself
rem Resolution
SetVirtualResolution (400 ,600)
Global Dim Rain 100
Global Clock#
Global BarClock#
Global Mult
Global WaterCount
Global ManRight
Global ManLeft
rem See if this is PC or not and if not PC, speed up directionx for touch devices
Mult = 4
If GetKeyboardExists() > 1
Mult = 2
EndIf
SetPhysicsGravity(15, 500 )
BackGround = CreateSprite(LoadImage("background.png"))
Bar = CreateSprite(LoadImage("bar.png"))
SetSpritePosition(Bar,0,590)
SetSpriteShape(Bar,3)
SetSpritePhysicsOn(Bar, 3)
Splash = CreateSprite(LoadImage("boom.png"))
SetSpriteScale(Splash,0.5,0.5)
SetSpriteVisible(Splash,0)
ManRight = LoadImage("manright.png")
ManLeft = LoadImage("manleft.png")
Man = CreateSprite(ManRight)
rem SetSpritePhysicsOn( Man, 3)
SetSpritePosition(Man,200,350)
WaterCount = 0
Clock# = GetMilliseconds()
SetVirtualResolution (400 ,600)
Global Dim Rain 100
Global Clock#
Global BarClock#
Global Mult
Global WaterCount
Global ManRight
Global ManLeft
rem See if this is PC or not and if not PC, speed up directionx for touch devices
Mult = 4
If GetKeyboardExists() > 1
Mult = 2
EndIf
SetPhysicsGravity(15, 500 )
BackGround = CreateSprite(LoadImage("background.png"))
Bar = CreateSprite(LoadImage("bar.png"))
SetSpritePosition(Bar,0,590)
SetSpriteShape(Bar,3)
SetSpritePhysicsOn(Bar, 3)
Splash = CreateSprite(LoadImage("boom.png"))
SetSpriteScale(Splash,0.5,0.5)
SetSpriteVisible(Splash,0)
ManRight = LoadImage("manright.png")
ManLeft = LoadImage("manleft.png")
Man = CreateSprite(ManRight)
rem SetSpritePhysicsOn( Man, 3)
SetSpritePosition(Man,200,350)
WaterCount = 0
Clock# = GetMilliseconds()
Couldn't have put it better myself
Deleted User
(IP Logged)
(IP Logged)
20:21 Sun 26 Jan 14 (GMT) [Link]
I would have put the whole of the mobile app game code.... but just thought a taster was good enough
Oh and this is the last post, so I guess I win
Oh and this is the last post, so I guess I win
Deleted User
(IP Logged)
(IP Logged)
22:19 Sun 26 Jan 14 (GMT) [Link]
Admin, cap this thread and let me be the last to post and I promise not to bore with more code snippets
Unable to post | |
---|---|
Reason: | You must log in before you can post |
Last person to post wins!!
Back to Top of this Page
Back to Fun and Games.
Back to Forum List.