gv.Initialize("gv")
Activity.AddView(gv, 0, 0, 100%x, 100%y)
AcSf.Initialize("AcSf", True)
Activity.AddView(AcSf, 0, 0, 100%x, 100%y)
gv.BitmapsData.Add(fondo)
gv.BitmapsData.Add(background)
gv.BitmapsData.Add(puntuacion)
For i=0 To 2
gv.BitmapsData.Add(Mtimedraw(i))
Next
gv.BitmapsData.Add(fondowhite)
For i=0 To 4
gv.BitmapsData.Add(Mscoredraw(i))
Next
gv.BitmapsData.Add(tittle)
gv.BitmapsData.Add(number3)
' bitmaps
For i=0 To 1
For j=0 To 1
gv.BitmapsData.Add(M22draw(i,j))
gv.BitmapsData.Add(M22drawb(i,j))
Next
Next
For i=0 To 2
For j=0 To 2
gv.BitmapsData.Add(M33draw(i,j))
gv.BitmapsData.Add(M33drawb(i,j))
Next
Next
For i=0 To 3
For j=0 To 3
gv.BitmapsData.Add(M44draw(i,j))
gv.BitmapsData.Add(M44drawb(i,j))
Next
Next
For i=0 To 2
gv.BitmapsData.Add(lifes(i))
Next
gv.BitmapsData.Add(checkdraw)
gv.BitmapsData.Add(levelicon)
gv.BitmapsData.Add(recordicon)
For i=0 To 4
gv.BitmapsData.Add(Msumadraw(i))
Next
For i=0 To 4
gv.BitmapsData.Add(Mtimeaddraw(i))
Next
If gv.IsHardwareAccelerated = False Then
Msgbox("Hardware acceleration is not supported!!!", "")
End If
Activity.LoadLayout("game31")
playagain=0
x=Activity.Width/100.0
y=Activity.Height/100.0
ho=(Activity.Height-50.0+104.0*x*2.0)*0.32
If (language="EN") Then
a=0.18
puntuacion.Bitmap=IU.LoadScaledBitmap(File.DirAssets,"score_330x110.png",330*a*x,110*a*x,True)
ImageView3.Bitmap=LoadBitmapSample(File.DirAssets,"start_410x150.png",Activity.Width,Activity.Height)
ImageView6.Bitmap=LoadBitmapSample(File.DirAssets,"Pausepanel_620x590.png",Activity.Width,Activity.Height)
a=0.16
tittle.Bitmap= IU.LoadScaledBitmap(File.DirAssets,"theyareequal_320x40.png",320*a*x,40*a*x,True)
fondowhite.Bitmap=IU.LoadScaledBitmap(File.DirAssets,"gameoverpanele_620x590.png",620*x*0.155,590*x*0.155,True)
End If
If (language="ES") Then
a=0.18
puntuacion.Bitmap=IU.LoadScaledBitmap(File.DirAssets,"puntuacion_330x110.png",330*a*x,110*a*x,True)
ImageView3.Bitmap=LoadBitmapSample(File.DirAssets,"empezar_410x150.png",Activity.Width,Activity.Height)
ImageView6.Bitmap=LoadBitmapSample(File.DirAssets,"Pausapanel_620x590.png",Activity.Width,Activity.Height)
a=0.16
tittle.Bitmap= IU.LoadScaledBitmap(File.DirAssets,"soniguales_320x40.png",320*a*x,40*a*x,True)
fondowhite.Bitmap=IU.LoadScaledBitmap(File.DirAssets,"gameoverpanels_620x590.png",620*x*0.155,590*x*0.155,True)
End If
......