61
Projects / Re: Screen Shot Topic...
« on: 2005-12-31, 03:16:04 PM »
Once I finish the 3rd level, I'll submit a demo, but I probably won't have the whole game completed for a while.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
I like the detail in your game, Gwal.
If ProjectObj.GamePlayer.InvQuantityOwned(7) <= 1
toIf ProjectObj.GamePlayer.InvQuantityOwned(7) <= 1 Then
This made perfect sense to me. However, changing these two lines still hasn't fixed the problem, and I'm not sure what to do now. Right now the game goes into slomo fine, but then it won't stop. Sorry if I sound annoying, but although I've been using gamedev for a while, I don't know too much about scripting.
Sub Player_OnControllerMove(OldActions, NewActions)
If (Not OldActions) And NewActions And ACTION_BUTTON3 Then DoFireButton5
End Sub
'slow motion'
Sub DoFireButton5()
If ProjectObj.GamePlayer.InvQuantityOwned(7) <= 1 Then Exit Sub
If ProjectObj.GamePlayer.InvQuantityOwned(7) > 1 Then
ProjectObj.GamePlayer.FrameRateLimit = 30
ProjectObj.GamePlayer.rMap.SpriteTemplates("player").MoveSpeed = 5
LoseSloMo
ProjectObj.GamePlayer.FrameRateLimit = 60
ProjectObj.GamePlayer.rMap.SpriteTemplates("player").MoveSpeed = 3
End If
End Sub
Sub LoseSloMo
ProjectObj.GamePlayer.InvQuantityOwned(7) = ProjectObj.GamePlayer.InvQuantityOwned(7) - 1
If ProjectObj.GamePlayer.InvQuantityOwned(7) <= 1 Then Exit Sub
If ProjectObj.GamePlayer.InvQuantityOwned(7) > 1 Then
LoseSloMo
End If
End Sub
HostObj.SinkObjectEvents ProjectObj.GamePlayer, "Player"
HostObj.ConnectEventsNow()
ProjectObj.GamePlayer.Play 16