Flixel for Monkey

For Local ty:Int = 0 Until ty < starMap.heightInTiles 
Next
ty=ty+1

For Local tx:Int = 0 Until tx < starMap.widthInTiles
Next
tx=tx+1

For Local ty:Int = 0 Until ty < starMap.heightInTiles
	For Local tx:Int = 0 Until tx < starMap.widthInTiles
		If(starMap.GetTile(tx, ty) = 1) Then
			stars.Add(New Star(tx, ty))
		End If
	Next
Next

Method Star:Void(X:Int, Y:Int)
	LoadGraphic(Assets.STARPNG, True)
	Super.Update(X * 16, Y * 16, starPNG)			
	solid = True
End Method

Method New(x:Int, y:Int)
	Super.New(x * 16, y * 16, Assets.STARPNG)
	Solid = True
End Method

Import flixel
Import src.flxpixel

Import reflection

#REFLECTION_FILTER="src*"
#TEXT_FILES="*.txt|*.xml|*.json|*.csv"

Function Main()		
	New FlxPixel()
End Function

Import reflection

Global MyGlobal:=123

Function Main()

'Get GlobalInfo for MyGlobal 
    Local g:=GetGlobal( "MyGlobal" )

'Read and unbox value of MyGlobal
    Local n1:=UnboxInt( g.GetValue() )

'Print it...
    Print "n1="+n1

'Box and write value of MyGlobal
    g.SetValue( BoxInt( n1*2 ) )

'Read, unbox and dump...
    Local n2:=UnboxInt( g.GetValue() )
    Print "n2="+n2
End

Translating test
/Users/usr/Desktop/test/MonkeyPro60/bin/trans_macos -target=html5 -run /Users/usr/Desktop/test/test.monkey

TRANS monkey compiler V1.36
Parsing...
Semanting...
Monkey Runtime Error : reflection module not found!

{{~~(null)~~}}

Strict

Import flixel

#REFLECTION_FILTER="flixel*|main*"

Function Main:Int()
	New Tween()
	Return 0
End Function

Class Tween Extends FlxGame
	
	Method New()
		Super.New(640, 480, GetClass("TweenState"), 1, 60, 60)
	End Method

End Class

Class TweenState Extends FlxState
	
	Method Create:Void()
		Local sprite:FlxSprite = (New FlxSprite(10, 10)).MakeGraphic(100, 100)
		Add(sprite)
		
		Local properties:StringMap<Float> = New StringMap<Float>()
		properties.Insert("x", FlxG.Width - sprite.width - 10)
		properties.Insert("y", FlxG.Height - sprite.height - 10)
		properties.Insert("angle", 360)
		
		FlxG.Tween(sprite, properties, 1, FlxTween.TOANDFRO, Null, Ease.SineInOut).Start()
	End Method

End Class

Class Player Extends FlxSprite Implements FlxAnimationListener

	Method New(x:Float, y:Float)
		Super.New(x, y)
		AddAnimationCallback(Self)
	End Method
	
	Method OnAnimationFrame:Void(animName:String, frame:Int, index:Int)
		'Your animation handling
	End Method

End Class

			If (FlxG.Keys.Left) or (FlxG.Joystick(0).Pressed(JOY_LEFT)) Then
				Facing = FlxObject.LEFT
				acceleration.x -= drag.x
				
			ElseIf(FlxG.Keys.Right) or (FlxG.Joystick(0).Pressed(JOY_RIGHT)) Then
				Facing = FlxObject.RIGHT
				acceleration.x += drag.x
			End If

Class PlayState Extends FlxState Implements FlxOverlapNotifyListener

	'Called whenever the player touches a coin
	Method OnOverlapNotify:Void(Coin:FlxObject, Player:FlxObject)
	
		Coin.Kill()
		score.Text = "SCORE: " + (coins.CountDead() * 100)
		if (coins.CountLiving() = 0)
		
			status.Text = "Find the exit."
			exitt.exists = true
		End
	End

	Method Update:Void()

		'Player movement and controls
		player.acceleration.x = 0
		if (FlxG.Keys.Left)
			player.acceleration.x = -player.maxVelocity.x * 4
		elseif(FlxG.Keys.Right)
			player.acceleration.x = player.maxVelocity.x * 4
		elseif(FlxG.Keys.JustPressed(KEY_SPACE) And player.IsTouching(FlxObject.FLOOR))
			player.velocity.y = -player.maxVelocity.y / 2
		EndIf
	
		'Updates all the objects appropriately
		super.Update()
		
		'Check if player collected a coin or coins this frame
		FlxG.overlap(coins, player, Self)
	End Method

End Class

'Simple guide how to convert your code for compatibility with v1.0a4

Import flixel

Import flixel.flxtext.driver.angelfont

'Now your main file MUST begin with #REFLECTION_FILTER
'IMPORTANT! You should replace your_app* by your app filter. I recommend to save your source files in src folder. In this case filter 
'will be just #REFLECTION_FILTER="src*|flixel.flx*|flixel.plugin*"
#REFLECTION_FILTER="your_app*|flixel.flx*|flixel.plugin*"

Function Main()
	New HelloWorld()
	Return 0
End Function

Class HelloWorld Extends FlxGame

	Method New()
		'Earlier you had to use state's ClassObject
		'
		'Super.New(640, 480, HelloWorldState.ClassObject)

		'Now it is just state's ClassInfo. 
		Super.New(640, 480, GetClass("HelloWorldState"))
	End Method

	Method OnContentInit:Void()
		'Earlier you had to use the following code for init another text driver
		'
		'FlxTextAngelFontDriver.Init()
		'FlxText.SetDefaultDriver(AngelfontTextDriver)

		'Now you should use the following
		FlxTextAngelFontDriver.Init()
		FlxText.SetDefaultDriver(ClassInfo(FlxTextAngelFontDriver.ClassObject))

		'Or

		FlxText.SetDefaultDriver(GetClass("FlxTextAngelFontDriver"))

		'A little bit ugly, but I'll improve this in next release
	End Method

End Class

Class HelloWorldState Extends FlxState

	'Now the use ClassObject is not required
	'
	'Global ClassObject:FlxClass = new HelloWorldStateClass()

	'If you want to use ClassObject in your app, you just need to declare it as an Object.	
	'Flixel for Monkey automatically initializes this variable when app will be started
	'Before using this variable you must upcast it to ClassInfo. For example, FlxGroup.Recycle(ClassInfo(FlxSound.ClassObject))
	Global ClassObject:Object

	Method Create:Void()        
		Local helloWorld:FlxText = New FlxText(10, 10, 620, "Hello World!") 
		helloWorld.SetFormat(FlxText.SYSTEM_FONT, 16, FlxG.WHITE, FlxText.ALIGN_CENTER) 
		Add(helloWorld)
	End Method

	'Now there is no need to override GetClass method of the FlxState class
	'
	'Method GetClass:FlxCalss()
	'	Return ClassObject
	'End Method

End Class

#Rem

Ugly FlxClass now has been removed. Just remove it from your code

Class HelloWorldStateClass Implements FlxClass

    'Creates new instance of an object
    Method CreateInstance:Object()
        Return New HelloWorldState()
    End Method

    'checks that the scanned object belongs to a class
    Method InstanceOf:Bool(object:Object)
        Return (HelloWorldState(object) <> Null)
    End Method

End Class
#End

'You can find more in updated bananas

Local zoomCam:FlxZoomCamera = New FlxZoomCamera(0,0,100,100);
zoomCam.SetBounds(0, 0, level.width, level.height);
zoomCam.targetZoom = 2.0
zoomCam.Follow(player,FlxCamera.STYLE_PLATFORMER)
		
FlxG.ResetCameras(zoomCam)

' ZoomCamera: A FlxCamera that centers its zoom on the target that it follows 
' Flixel version: 2.5
' 
' @link http://www.kwarp.com
' @author greglieberman
' @email greg@...
''

Class FlxZoomCamera Extends FlxCamera

	
	''
	' Tell the camera to LERP here eventually
	''
	Field targetZoom:Float
	
	''
	' This number is pretty arbitrary, make sure it's greater than zero!
	''
	Field zoomSpeed:Float = 25
	
	''
	' Determines how far to "look ahead" when the target is near the edge of the camera's bounds
	' 0 = no effect, 1 = huge effect
	''
	Field zoomMargin:Float = 0.25
	
	
	Method New(x:Int, y:Int, width:Int, height:Int, zoom:Float=0)
	
		Super.New(x,y,width,height,zoom)
		
		targetZoom = 1	
		
	End
	
	Method Update:Void()
	
		Super.Update()
		
		' update camera zoom
		Zoom += (targetZoom - Zoom) / 2 * (FlxG.Elapsed) * zoomSpeed
		
		' if we are zooming in, align the camera (x, y)
		If(target And _zoom <> 1)
			alignCamera()
		Elseif
			X = 0
			Y = 0
		Endif
	End
	
	
	''
	' Align the camera x and y to center on the target 
	' that it's following when zoomed in
	' 
	' This took many guesses! 
	''
	Method alignCamera:Void()
	
		
		' target position in screen space
		Local targetScreenX:Float = target.x - scroll.x
		Local targetScreenY:Float = target.y - scroll.y
		
		' center on the target, until the camera bumps up to its bounds
		' then gradually favor the edge of the screen based on zoomMargin
		Local ratioMinX:Float = (targetScreenX / (Width/2) ) - 1 - zoomMargin
		Local ratioMinY:Float = (targetScreenY / (Height/2)) - 1 - zoomMargin
		Local ratioMaxX:Float = ((-Width + targetScreenX) / (Width/2) ) + 1 + zoomMargin
		Local ratioMaxY:Float = ((-Height + targetScreenY) / (Height/2)) + 1 + zoomMargin
		
		' offsets are numbers between [-1, 1]
		Local offsetX:Float = Clamp(ratioMinX, -1.0, 0.0) + Clamp(ratioMaxX, 0.0, 1.0)
		Local offsetY:Float = Clamp(ratioMinY, -1.0, 0.0) + Clamp(ratioMaxY, 0.0, 1.0)
		
		' offset the screen in any direction, based on zoom level
		' Example: a zoom of 2 offsets it half the screen at most
		X = -(Width  / 2) * (offsetX) * (_zoom - 1) 			
		Y = -(Height / 2) * (offsetY) * (_zoom - 1)
		
	End
	
End

Local zoomCam:FlxZoomCamera = New FlxZoomCamera();
		FlxG.ResetCameras( zoomCam );
		zoomCam.targetZoom = 2;

Class PlayState Extends FlxState

	Field left:FlxSprite
	
	Field right:FlxSprite
	
	Field touchPos:FlxPoint
	
	Method Create:Void()
		left = New FlxSprite(20, FlxG.Height - 50)
		Add(left)
		
		right = New FlxSprite(FlxG.Width - left.width - 20, FlxG.Height - 50)
		Add(right)
		
		touchPos = New FlxPoint()
	End Method
	
	Method Update:Void()
		If FlxG.Touch().Pressed() Then
			FlxG.Touch().GetScreenPosition(FlxG.Camera, touchPos)
		
			If left.OverlapsPoint(touchPos, True) Then
				FlxG.Log("move left")
			
			ElseIf right.OverlapsPoint(touchPos, True) Then
				FlxG.Log("move right")
			
			End If
			
		End If
	End Method

End Class

Method Shoot:Void()
   GetMidpoint(_heplerPoint)
 Bullet(_bullets.Recycle(ClassInfo(Bullet.ClassObject))).Shoot(_heplerPoint, _aim)
End

If (FlxG.Touch().JustPressed())
   _player.Shoot()
EndIf

Player(_player).Shoot();