Monkey 2

Forum Replies Created

Viewing 15 posts - 31 through 45 (of 272 total)

← 1 2 3 4 … 19 →

Author

Posts

January 30, 2018 at 7:44 am in reply to: Get to Da Choppa! #13345

therevills

Participant

Get to Da Choppa! Won second place in the Syntax Bomb’s Retro Code a game competition

(Thanks to Adam for the little 2nd place image)

Attachments:

2nd_gtdc.png

January 28, 2018 at 1:18 am in reply to: Platformer Example #13299

therevills

Participant

Nice little example Amon

It runs too fast on my PC, so I needed to add a timer to slow it down.

Namespace plattyapp


#Import "<std>"
#Import "<mojo>"

#Import "assets/dave.png"
#Import "assets/cubes.png"
#Import "assets/level1.txt"

Using std..
Using mojo..

Class Platty Extends Window

	Global LevelData:String[]
	Global LevelArray:Int[,]
	
	Field imgDave:Image[]
	Field floorTiles2:Image[]
	
	Field cDave:Dave
	Field timer:Timer	' ADDED TIMER!
	
	Method New( title:String="Platty",width:Int=512, height:Int=960, flags:WindowFlags=Null )

		Super.New( title,width,height,flags )
		Local sr:Stream
		imgDave = LoadSpriteSheet("asset::dave.png", 27, 64, 64, True, 1)
		floorTiles2 = LoadSpriteSheet("asset::cubes.png", 7, 64, 64)		
		
		For Local xi:Int = 0 Until 27
			imgDave[xi].Handle = New Vec2f(0.5,0)
		Next
		LevelArray = New Int[ 8,12 ]
		LevelData = New String[1]
		sr = Stream.Open("asset::level1.txt", "r")
		LevelData[0] = sr.ReadString()
		Local tempx:Int = -1
		Local tempy:Int = 0
		For Local xi:Int = 0 To LevelData[0].Length
			tempx += 1
			If tempx > 7
				tempx 	= 0
				tempy 	+=1
				If tempy > 11 Then Exit
			Endif
			LevelArray[ tempx,tempy ] = Int(LevelData[0].Mid(xi, 1))

		Next		

		For Local x:Int = 0 Until 8
			For Local y:Int = 0 Until 12				
				If LevelArray[ x,y ] = 2
					Local xi:Int = GetX(x)
					Local yi:Int = GetY(y)
					If Not cDave Then cDave = New Dave( imgDave , xi, 640, 5, 1 )	 	
				Endif
			Next
		Next
		LevelData 	= New String[50]
		
		timer = New Timer(60, OnUpdate)	' NEW TIMER RUNNING AT 60FPS
	End
	
	Method OnUpdate() ' MOVED LOGIC TO ONUPDATE
 		If cDave <> Null
	 		For Local d:Dave = Eachin Dave.dList
		 		d.Update()
		 	Next
	 	Endif 
	End
	
	Method OnRender( canvas:Canvas ) Override
	
		App.RequestRender()
		canvas.Clear(Color.Black)
	 	For Local x:Int = 0 Until 8
		 	For Local y:Int = 0 Until 12
			 	If LevelArray[ x,y ] = 1
			 		canvas.DrawImage(floorTiles2[6], x * 64, y * 64)
			 	Endif
			Next
		Next
		
 		If cDave <> Null
	 		For Local d:Dave = Eachin Dave.dList
		 		d.Draw(canvas)
		 	Next
	 	Endif	
	End
	
End

Function Main()

	New AppInstance
	
	New Platty
	
	App.Run()
End

Class Dave 
	Global dList:List<Dave>
	Global timer:Int 	= Millisecs()
	Global frame:Int 	= 1
	
	Field x:Float
	Field y:Float
	Field sp:Float
	Field direction:Int
	Field image:Image[]
	
	Field canJump:Int = 1
	Field isJumping:Int = 0
	Field jumpHeight:Float = 10
	Field isFalling:Int = 1
	Field gravity:Float = 0.45
	
	
	Method New ( img:Image[], xl:Float, yl:Float, speed:Float, direc:Int)
		If dList = Null Then dList = New List<Dave>
		Self.x 		= xl
		Self.y 		= yl
		Self.direction 	= direc
		Self.image 	= img
		Self.sp 	= speed
		dList.Add(Self)
	End
	
	Method Update()

		If Keyboard.KeyHit(Key.Space) And canJump = 1
			'direction = 3
			'frame = 12
			isJumping = 1
			canJump = 0
		Endif
		
		If isJumping = 1
			y = y - jumpHeight
			jumpHeight = jumpHeight - gravity

			If jumpHeight <= 0
				isFalling = 1
				isJumping = 0
				jumpHeight = 12
			Endif
		Endif

		If isFalling = 1
			
			y += jumpHeight
			jumpHeight = jumpHeight + gravity
			If Platty.LevelArray[ x / 64, y / 64 + 1] = 1
				If ( y Mod 64 ) < jumpHeight * 2
					y = y - ( y Mod 64 )
					isFalling = 0
					canJump = 1
					jumpHeight = 12
					
				Endif
			Endif
		Endif				
		
		If isFalling = 0 And isJumping = 0
			If Platty.LevelArray[x / 64, y / 64 + 1] <> 1
				isFalling = 1
			Endif	
		Endif
		If x >= 64 + 32
			If Keyboard.KeyDown(Key.Left) And Not Keyboard.KeyDown(Key.Right)
				x -= sp
				If Keyboard.KeyHit(Key.Left)
					direction 	= 0
					timer 	= Millisecs()
					frame 	= 6
				Endif
				If Millisecs() > timer + 40
					frame	+=1
					If frame 	= 10 Then frame = 6
					timer 	= Millisecs()
				Endif 
			Endif
		Endif
		
		If x <= 512 - 96
			If Keyboard.KeyDown(Key.Right) And Not Keyboard.KeyDown(Key.Left) 
				x += sp
				If Keyboard.KeyHit(Key.Right)
					direction 	= 1
					timer 	= Millisecs()
					frame 	= 6
				Endif
				If Millisecs() > timer + 40
					frame	+=1
					If frame 	= 10 Then frame = 6
					timer 	= Millisecs()
				Endif			
			Endif
		Endif
	End
	
	Method Draw(canvas:Canvas)
		If direction = 0
			canvas.DrawImage(image[frame], x, y, Null, -1, 1)
		Elseif direction = 1
			canvas.DrawImage(image[frame], x, y, Null, 1, 1)
		Endif
	End
	
End Class 


Function GetX:Float(x:Float)	
	Return x * 64
End Function

Function GetY:Float(y:Float)
	Return y * 64
End Function 



Function LoadSpriteSheet:Image[] ( path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0 )
 
	Local atlasTexture := Texture.Load( path, Null )
	Assert( atlasTexture, " ~n ~nGameGraphics: Image " + path + " not found.~n ~n" )
 
	Local imgs := New Image[ numFrames ]
	Local atlasImg := New Image( atlasTexture )
	'If Not filter Then atlasImg.TextureFilter = TextureFilter.Nearest
 
	Local paddedWidth:= cellWidth + ( padding * 2 )
	Local paddedHeight:= cellHeight + ( padding * 2 )
	Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth
 
	For Local i:= 0 Until numFrames
	Local col := i Mod columns
	Local x := ( col * paddedWidth ) + padding + border
	Local y := ( ( i / columns ) * paddedHeight ) + padding + border
	imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) )
	imgs[i].Scale = New Vec2f( preScale, preScale )
	Next
 
	atlasImg = Null
	Return imgs
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

Namespace plattyapp

#Import "<std>"

#Import "<mojo>"

#Import "assets/dave.png"

#Import "assets/cubes.png"

#Import "assets/level1.txt"

Using std..

Using mojo..

Class Platty Extends Window

Global LevelData:String[]

Global LevelArray:Int[,]

Field imgDave:Image[]

Field floorTiles2:Image[]

Field cDave:Dave

Field timer:Timer ' ADDED TIMER!

Method New( title:String="Platty",width:Int=512, height:Int=960, flags:WindowFlags=Null )

Super.New( title,width,height,flags )

Local sr:Stream

imgDave = LoadSpriteSheet("asset::dave.png", 27, 64, 64, True, 1)

floorTiles2 = LoadSpriteSheet("asset::cubes.png", 7, 64, 64)

For Local xi:Int = 0 Until 27

imgDave[xi].Handle = New Vec2f(0.5,0)

LevelArray = New Int[ 8,12 ]

LevelData = New String[1]

sr = Stream.Open("asset::level1.txt", "r")

LevelData[0] = sr.ReadString()

Local tempx:Int = -1

Local tempy:Int = 0

For Local xi:Int = 0 To LevelData[0].Length

tempx += 1

If tempx > 7

tempx = 0

tempy +=1

If tempy > 11 Then Exit

Endif

LevelArray[ tempx,tempy ] = Int(LevelData[0].Mid(xi, 1))

For Local x:Int = 0 Until 8

For Local y:Int = 0 Until 12

If LevelArray[ x,y ] = 2

Local xi:Int = GetX(x)

Local yi:Int = GetY(y)

If Not cDave Then cDave = New Dave( imgDave , xi, 640, 5, 1 )

Endif

LevelData = New String[50]

timer = New Timer(60, OnUpdate) ' NEW TIMER RUNNING AT 60FPS

End

Method OnUpdate() ' MOVED LOGIC TO ONUPDATE

If cDave <> Null

For Local d:Dave = Eachin Dave.dList

d.Update()

Endif

End

Method OnRender( canvas:Canvas ) Override

App.RequestRender()

canvas.Clear(Color.Black)

For Local x:Int = 0 Until 8

For Local y:Int = 0 Until 12

If LevelArray[ x,y ] = 1

canvas.DrawImage(floorTiles2[6], x * 64, y * 64)

Endif

If cDave <> Null

For Local d:Dave = Eachin Dave.dList

d.Draw(canvas)

Endif

End

Function Main()

New AppInstance

New Platty

App.Run()

End

Class Dave

Global dList:List<Dave>

Global timer:Int = Millisecs()

Global frame:Int = 1

Field x:Float

Field y:Float

Field sp:Float

Field direction:Int

Field image:Image[]

Field canJump:Int = 1

Field isJumping:Int = 0

Field jumpHeight:Float = 10

Field isFalling:Int = 1

Field gravity:Float = 0.45

Method New ( img:Image[], xl:Float, yl:Float, speed:Float, direc:Int)

If dList = Null Then dList = New List<Dave>

Self.x = xl

Self.y = yl

Self.direction = direc

Self.image = img

Self.sp = speed

dList.Add(Self)

End

Method Update()

If Keyboard.KeyHit(Key.Space) And canJump = 1

'direction = 3

'frame = 12

isJumping = 1

canJump = 0

Endif

If isJumping = 1

y = y - jumpHeight

jumpHeight = jumpHeight - gravity

If jumpHeight <= 0

isFalling = 1

isJumping = 0

jumpHeight = 12

Endif

If isFalling = 1

y += jumpHeight

jumpHeight = jumpHeight + gravity

If Platty.LevelArray[ x / 64, y / 64 + 1] = 1

If ( y Mod 64 ) < jumpHeight * 2

y = y - ( y Mod 64 )

isFalling = 0

canJump = 1

jumpHeight = 12

Endif

If isFalling = 0 And isJumping = 0

If Platty.LevelArray[x / 64, y / 64 + 1] <> 1

isFalling = 1

Endif

If x >= 64 + 32

If Keyboard.KeyDown(Key.Left) And Not Keyboard.KeyDown(Key.Right)

x -= sp

If Keyboard.KeyHit(Key.Left)

direction = 0

timer = Millisecs()

frame = 6

Endif

If Millisecs() > timer + 40

frame +=1

If frame = 10 Then frame = 6

timer = Millisecs()

Endif

If x <= 512 - 96

If Keyboard.KeyDown(Key.Right) And Not Keyboard.KeyDown(Key.Left)

x += sp

If Keyboard.KeyHit(Key.Right)

direction = 1

timer = Millisecs()

frame = 6

Endif

If Millisecs() > timer + 40

frame +=1

If frame = 10 Then frame = 6

timer = Millisecs()

Endif

End

Method Draw(canvas:Canvas)

If direction = 0

canvas.DrawImage(image[frame], x, y, Null, -1, 1)

Elseif direction = 1

canvas.DrawImage(image[frame], x, y, Null, 1, 1)

Endif

End

End Class

Function GetX:Float(x:Float)

Return x * 64

End Function

Function GetY:Float(y:Float)

Return y * 64

End Function

Function LoadSpriteSheet:Image[] ( path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0 )

Local atlasTexture := Texture.Load( path, Null )

Assert( atlasTexture, " ~n ~nGameGraphics: Image " + path + " not found.~n ~n" )

Local imgs := New Image[ numFrames ]

Local atlasImg := New Image( atlasTexture )

'If Not filter Then atlasImg.TextureFilter = TextureFilter.Nearest

Local paddedWidth:= cellWidth + ( padding * 2 )

Local paddedHeight:= cellHeight + ( padding * 2 )

Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth

For Local i:= 0 Until numFrames

Local col := i Mod columns

Local x := ( col * paddedWidth ) + padding + border

Local y := ( ( i / columns ) * paddedHeight ) + padding + border

imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) )

imgs[i].Scale = New Vec2f( preScale, preScale )

atlasImg = Null

Return imgs

End

And by doing so you can see a little bug which sometimes makes “Dave” float upwards…

January 26, 2018 at 10:31 pm in reply to: Is Ogg Vorbis supported on all platforms? #13275

therevills

Participant

On a similar note, according to the docs the file for PlayMusic MUST be ogg!

January 26, 2018 at 10:28 pm in reply to: How do I get the size of an array in megabytes? #13274

therevills

Participant

Very nice Cocon, didnt know you could do that in MX2!

Does it work with an array of objects? I’ll have to check it out!

Also Amon, why did you want to know this?

January 26, 2018 at 6:37 am in reply to: How do I get the size of an array in megabytes? #13250

therevills

Participant

It’ll depend on the objects stored in the array…

January 26, 2018 at 12:30 am in reply to: What you guys coding? #13247

therevills

Participant

Recently finished “Get to Da Choppa!”:

https://therevillsgames.itch.io/get-to-da-choppa

Get to Da Choppa!

Now I need to go and do some boring stuff!

January 26, 2018 at 12:29 am in reply to: Get to Da Choppa! #13246

therevills

Participant

Thanks guys!

Sorry Ethernaut, the Mac hasnt been updated to the latest OS so can’t compile Monkey2 on it

January 26, 2018 at 12:27 am in reply to: One way platform collision? #13245

therevills

Participant

Basically dont check for any collisions when moving upwards should do it…

January 26, 2018 at 12:24 am in reply to: Loops: For…End is Allowed? #13244

therevills

Participant

Since I’m a Java developer I like the option of using “End” as in Java you just use braces { }:

Java:

if (x == 10) {
  y = 20;
}

if (x == 10) {

y = 20;

}

Monkey2:

If x = 10
  y = 20
End

If x = 10

y = 20

End

Java:

for (Item s : mystack) {
  System.out.println(s);
}

for (Item s : mystack) {

System.out.println(s);

}

Monkey2:

For Local s := Eachin mystack
  Print s
End

For Local s := Eachin mystack

Print s

End

January 24, 2018 at 8:36 am in reply to: [ DIDDY2 ] Virtual Resolutions #13200

therevills

Participant

What about for an animated strip of images or an atlas image?

Similar code really, the LoadAtlas method signture:

Method LoadAtlas:Void(fileName:String, format:Int = SPARROW_ATLAS, setMidHandle:Bool = True)

So something like this:

AssetBank.LoadAtlas("chopper.xml", AssetBank.SPARROW_ATLAS, False)

January 20, 2018 at 11:40 pm in reply to: 2018 January FFS JAM! Calling All MX2 Users! #13131

therevills

Participant

Submitted my entry too!

https://therevillsgames.itch.io/get-to-da-choppa

January 20, 2018 at 11:37 pm in reply to: [ DIDDY2 ] Virtual Resolutions #13129

therevills

Participant

Diddy2 does autoload images with the handle set to the middle of the image. You can set the parameter to false if you dont want this:

background = AssetBank.LoadImage(level.backgroundFile + ".png", False)

January 20, 2018 at 11:07 pm in reply to: Website refresh #13125

therevills

Participant

Thanks for the logos and icons!

I did a lo-fi version yesterday for my game and it’s not too different!

Attachments:

monkey2logo.png

January 20, 2018 at 12:35 am in reply to: Website refresh #13049

therevills

Participant

Almost…I am 93% sure it will be, just need a few more days to decide for sure

Well the deadline for my game is today, so 93% will have to do

~~Also could we get an alternative colour logo which will look good on a dark background?~~

Edit: Just spotted the red monkey here:
http://monkeycoder.co.nz/wp-content/uploads/2018/01/slider_monkey.gif
Now just need the text in that colour too.

January 19, 2018 at 8:09 am in reply to: [ DIDDY2 ] Virtual Resolutions #13019

therevills

Participant

I dont think so, Diddy2 is just using the Monkey2 Virtual Resolution. Could you post an example?

Author

Posts

Viewing 15 posts - 31 through 45 (of 272 total)

← 1 2 3 4 … 19 →

therevills

Forum Replies Created

Attachments:

Attachments:

Archives

Recent Replies

What is this?