Guest User

Untitled

a guest
Jun 22nd, 2019
158
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Activity_Create(FirstTime As Boolean)
  2. 'If File.Exists(File.DirInternal,"splash2") = False Then
  3.     Activity.LoadLayout("splash")
  4.     AfterFirstTime
  5. '   Else
  6.     '   Activity.LoadLayout("bog")
  7.     '   End If
  8.     font = Typeface.LoadFromAssets("lalezar-regular2.ttf")
  9. color
  10.     T.Initialize("timer2",3000)
  11.     t2.Initialize("timer3",3000)
  12.     Sgreen.Initialize(LoadBitmap(File.DirAssets,"Blueshit.png"))
  13.     SRed.Initialize(LoadBitmap(File.DirAssets,"Red Snack.png"))
  14.     If File.Exists(File.DirInternal,"splash2") = False Then
  15.         t2.Enabled = True
  16.         MyFuckingSnack(snack,"بعد از 3 بار جواب اشتباه ،  جواب چیستان به شما نمایش داده میشه","Snack2",Sgreen,font,True,"")
  17.     End If
  18.     If File.Exists(File.DirInternal,"splash2") = True Then
  19.         t2.Enabled = True
  20.         Else
  21.             t2.Enabled = False
  22.     End If
  23.    
  24. End Sub
RAW Paste Data