This repository has been archived by the owner on Jan 1, 2022. It is now read-only.
/
camerafx.monkey
84 lines (60 loc) · 2.02 KB
/
camerafx.monkey
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Strict
Import flixel
Import flixel.flxtext.driver.angelfont
Function Main:Int()
New CameraFX()
Return 0
End Function
Class CameraFX Extends FlxGame
Method New()
Super.New(640, 480, CameraFXState.ClassObject)
End Method
Method OnContentInit:Void()
Local minSize:Int = FlxAssetsManager.GetFont(FlxText.SYSTEM_FONT).MinSize
Local maxSize:Int = FlxAssetsManager.GetFont(FlxText.SYSTEM_FONT).MaxSize
Local angelSystemFont:FlxFont = FlxAssetsManager.AddFont("system", FlxText.DRIVER_ANGELFONT)
For Local i:Int = minSize To maxSize
angelSystemFont.SetPath(i, "fonts/"+FlxText.SYSTEM_FONT+"/angelfont/"+i+".txt")
Next
End Method
End Class
Class CameraFXStateClass Implements FlxClass
Method CreateInstance:FlxBasic()
Return New CameraFXState()
End Method
Method InstanceOf:Bool(object:FlxBasic)
Return (CameraFXState(object) <> Null)
End Method
End Class
Class CameraFXState Extends FlxState
Global ClassObject:FlxClass = new CameraFXStateClass()
Method Create:Void()
Local manual:FlxText = New FlxText(10, 10, 620, "- Press S to shake", New FlxTextAngelFontDriver())
manual.SetFormat(FlxText.SYSTEM_FONT, 16, FlxG.WHITE, FlxText.ALIGN_LEFT)
Add(manual)
manual = New FlxText(10, 40, 620, "- Press L to flash", New FlxTextAngelFontDriver())
manual.SetFormat(FlxText.SYSTEM_FONT, 16, FlxG.WHITE, FlxText.ALIGN_LEFT)
Add(manual)
manual = New FlxText(10, 70, 620, "- Press F to fade", New FlxTextAngelFontDriver())
manual.SetFormat(FlxText.SYSTEM_FONT, 16, FlxG.WHITE, FlxText.ALIGN_LEFT)
Add(manual)
manual = New FlxText(10, 100, 620, "- Press SPACE to stopFX", New FlxTextAngelFontDriver())
manual.SetFormat(FlxText.SYSTEM_FONT, 16, FlxG.WHITE, FlxText.ALIGN_LEFT)
Add(manual)
End Method
Method Update:Void()
If (KeyHit(KEY_S)) Then
FlxG.Shake()
End If
If (KeyHit(KEY_L)) Then
FlxG.Flash()
End If
If (KeyHit(KEY_F)) Then
FlxG.Fade()
End If
If (KeyHit(KEY_SPACE)) Then
FlxG.camera.StopFX()
End If
Super.Update()
End Method
End Class