Share My Creation Flappy Marshmallow

Flappy Marshmallow - FREE NO ADS

Be careful not to burn the marshmallow...
Have fun

Link: https://play.google.com/store/apps/details?id=www.sagitalfm.net

many thanx to andymc for his search code

 

[Douglas Farias]

realy thx @ilan12041981

 

[ilan]

hi douglas

here is the code, you will need the animation lib from erel

'Activity module
Sub Process_Globals
Dim t1 As Timer
End Sub

Sub Globals

Dim img As ImageView
Dim a1 As Animation
Dim x As Int
Dim y As Int
  
End Sub



Sub Activity_Create(FirstTime As Boolean)
  
    If FirstTime = True Then
    img.Initialize ("img")
    img.Bitmap = LoadBitmap(File.DirAssets , "pro1.png")
    img.Gravity = Gravity.FILL
  
    Activity.Color = Colors.White
  
    If Activity.Width < 400dip Then
        y = (Activity.Height / 2) - 38dip
        x = (Activity.Width / 2) - 100dip
        Activity.AddView (img, x,y, 200dip ,76dip )
    Else
        y = (Activity.Height / 2) - 75dip
        x = (Activity.Width / 2) - 200dip
        Activity.AddView (img, x,y, 400dip ,150dip )
    End If
  
    a1.InitializeAlpha("",0,1)
    a1.start(img)
    a1.Duration = 800
    a1.RepeatCount = 0
  
    t1.Initialize ("t1", 800)
    t1.Enabled = True

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event

If KeyCode = KeyCodes.KEYCODE_BACK Then                                  
    Return True                                                        
Else
    Return False
End If
  
End Sub

Sub t1_tick
t1.Enabled = False
StartActivity(menu)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
Activity.Finish
End Sub

 

[Douglas Farias]

thx man when i go to home i go test ty *-*