Monkey 2

Forum Replies Created

Viewing 15 posts - 46 through 60 (of 272 total)

← 1 … 3 4 5 … 19 →

Author

Posts

January 19, 2018 at 8:07 am in reply to: Website refresh #13018

therevills

Participant

Okay been using the site for a bit today, I like it but its too bright and the red text on a white background is a bit hard too read.

@abakobo – I think you need to link your user up with a gravatar account if I remember…

January 18, 2018 at 9:33 pm in reply to: Website refresh #13004

therevills

Participant

Looks good!

Is that Monkey logo the new official Monkey2 logo? There is another Monkeyish logo on the discord site too. I’m just finishing my game and want to use the correct one.

January 16, 2018 at 9:30 am in reply to: Pyro 2 crashtest_art_pack_01 #12881

therevills

Participant

Could you try moving the crashtest_art_pack_01 to a path without spaces, currently its in ”C:/Users/Arolodo Carvalho/Documents/_Monkey2/crashtest_art_pack_01/pyro/bananas/”.

Eg C:/Monkey2-v1.1.09/crashtest_art_pack_01/pyro/bananas/

January 11, 2018 at 7:35 am in reply to: DPI for Android #12803

therevills

Participant

Cool! Didnt know you could use Java in the externs for Monkey2!

January 8, 2018 at 9:21 am in reply to: Best method to stop PlayMusic #12750

therevills

Participant

I’m getting this too using v1.1.09.

January 7, 2018 at 12:58 am in reply to: Static method call without New = Error #12718

therevills

Participant

So this use to work?

In Java its doable, I’m not bothered either way just was trying out nerobot’s preferences code:

Preferences class

Const Prefs:=Preferences.Get( AppDir()+"prefs.json" )

1	Const Prefs:=Preferences.Get( AppDir()+"prefs.json" )

January 6, 2018 at 2:56 am in reply to: Preferences class #12688

therevills

Participant

I’m also getting run time error: “Attempt to invoke method on null instance” on the “If _prefs.Contains( path ) Return _prefs[path]” line…

January 6, 2018 at 2:47 am in reply to: Preferences class #12686

therevills

Participant

That’s what I thought, but without the new you get “Attempt to invoke method on null instance” error…

January 6, 2018 at 12:58 am in reply to: Preferences class #12681

therevills

Participant

Here is a slightly fixed simpler runnable example:

#Import "<std>"
 
Using std..

Const Prefs := New Preferences().Get(AppDir() + "prefs.json")

Function Main()
	Print "Start"
	' try to get windowRect from prefs
	Local x:Int

	Prefs.Get( AppDir()+"prefs.json" )
	
	If Prefs.Contains( "x" )
		Print "Prefs contains x"
		x= Prefs.GetInt("x")
		Print x
	Else
		' not found in prefs, set to defaults
		Print "Prefs does not contains x"
		x = Rnd(0, 100)
		Print x
	End
	
	Prefs.PutValue("x", x)
	Preferences.SaveAll()
	Print "Finished"
End

Class Preferences Final
	
	' globals
	'
	Function Get:Preferences( path:String )
		If _prefs.Contains( path ) Return _prefs[path]
		
		Local p:=New Preferences( path )
		_prefs[path]=p
		
		Return p
	End
	
	Function SaveAll()
		For Local p:=Eachin _prefs.Values
			p.Save()
		Next
	End
	
	' signals
	'
	Field Changed:Void( key:String,value:Variant )
	
	' setters
	'
	Method PutValue( key:String,value:String )
		_data[key]=New JsonString( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:Bool )
		_data[key]=New JsonBool( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:Double )
	
		_data[key]=New JsonNumber( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:Int)
	
		_data[key]=New JsonNumber( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:JsonValue )
		_data[key]=value
		_dirty=True
		Changed( key,value )
	End
	
	' getters
	'
	Method GetString:String( key:String,defValue:String="" )
		Return _data.GetString( key,defValue )
	End
	
	Method GetBool:Bool( key:String,defValue:Bool=False )
		Return _data.GetBool( key,defValue )
	End
	
	Method GetInt:Double( key:String,defValue:Int=0 )
		Return _data.GetInt( key,defValue )
	End
	
	Method GetNumber:Double( key:String,defValue:Double=0 )
		Return _data.GetNumber( key,defValue )
	End
	
	' load
	'
	Method Load( path:String )
		_path=path
		_data=JsonObject.Load( path ) ?Else New JsonObject
		_dirty=False
	End
	
	' save
	'
	Method Save( path:String="" )
		If Not _dirty Return
		
		If Not path Then path=_path
		If Not path Return
		
		SaveString( _data.ToJson(),path )
		
		_dirty=False
	End
	
	' raw data
	'
	Property Json:JsonObject()
		Return _data
	End
	
	Method Contains:Bool( key:String )
		Return _data.Contains( key )
	End
	
	
	Private 
	
	Field _data:JsonObject
	Field _path:String
	Field _dirty:Bool
	
	Global _prefs:=New StringMap<Preferences>
	
	' private constructors
	'
	Method New( path:String )
		Load( path )
	End
	
	Method New()
	End
	
End

Class JsonObject Extension
	
	Method GetBool:Bool( key:String,defValue:Bool )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToBool() Else defValue
	End
	
	Method GetString:String( key:String,defValue:String )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToString() Else defValue
	End
	
	Method GetInt:Int( key:String,defValue:Int )
		
		Local json:=Self
		Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue
	End
	
	Method GetNumber:Double( key:String,defValue:Int )
		
		Local json:=Self
		Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue
	End
	
	Method FindValue:JsonValue( key:String )
		
		key=key.Replace( "\","/" )
		Local keys:=key.Split( "/" )
		
		Local json:=Self.Data
		
		Local jval:JsonValue
		For Local k:=0 Until keys.Length
			If Not json.Contains( keys[k] ) Return Null
			jval=json[ keys[k] ]
			If k=keys.Length-1 Exit
			If Not jval.IsObject Return Null
			json=jval.ToObject()
		Next
		
		Return jval
	End
	
End

Class JsonArray Extension
	
	Function FromStrings:JsonArray( values:String[] )
		
		Local jvals:=New JsonValue[values.Length]
		For Local i:=0 Until values.Length
			jvals[i]=New JsonString( values[i] )
		Next
		Return New JsonArray( jvals )
	End
	
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

#Import "<std>"

Using std..

Const Prefs := New Preferences().Get(AppDir() + "prefs.json")

Function Main()

Print "Start"

' try to get windowRect from prefs

Local x:Int

Prefs.Get( AppDir()+"prefs.json" )

If Prefs.Contains( "x" )

Print "Prefs contains x"

x= Prefs.GetInt("x")

Print x

Else

' not found in prefs, set to defaults

Print "Prefs does not contains x"

x = Rnd(0, 100)

Print x

End

Prefs.PutValue("x", x)

Preferences.SaveAll()

Print "Finished"

End

Class Preferences Final

' globals

Function Get:Preferences( path:String )

If _prefs.Contains( path ) Return _prefs[path]

Local p:=New Preferences( path )

_prefs[path]=p

Return p

End

Function SaveAll()

For Local p:=Eachin _prefs.Values

p.Save()

End

' signals

Field Changed:Void( key:String,value:Variant )

' setters

Method PutValue( key:String,value:String )

_data[key]=New JsonString( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:Bool )

_data[key]=New JsonBool( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:Double )

_data[key]=New JsonNumber( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:Int)

_data[key]=New JsonNumber( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:JsonValue )

_data[key]=value

_dirty=True

Changed( key,value )

End

' getters

Method GetString:String( key:String,defValue:String="" )

Return _data.GetString( key,defValue )

End

Method GetBool:Bool( key:String,defValue:Bool=False )

Return _data.GetBool( key,defValue )

End

Method GetInt:Double( key:String,defValue:Int=0 )

Return _data.GetInt( key,defValue )

End

Method GetNumber:Double( key:String,defValue:Double=0 )

Return _data.GetNumber( key,defValue )

End

' load

Method Load( path:String )

_path=path

_data=JsonObject.Load( path ) ?Else New JsonObject

_dirty=False

End

' save

Method Save( path:String="" )

If Not _dirty Return

If Not path Then path=_path

If Not path Return

SaveString( _data.ToJson(),path )

_dirty=False

End

' raw data

Property Json:JsonObject()

Return _data

End

Method Contains:Bool( key:String )

Return _data.Contains( key )

End

Private

Field _data:JsonObject

Field _path:String

Field _dirty:Bool

Global _prefs:=New StringMap<Preferences>

' private constructors

Method New( path:String )

Load( path )

End

Method New()

End

Class JsonObject Extension

Method GetBool:Bool( key:String,defValue:Bool )

Local json:=Self

Return json.Contains( key ) ? json[key].ToBool() Else defValue

End

Method GetString:String( key:String,defValue:String )

Local json:=Self

Return json.Contains( key ) ? json[key].ToString() Else defValue

End

Method GetInt:Int( key:String,defValue:Int )

Local json:=Self

Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue

End

Method GetNumber:Double( key:String,defValue:Int )

Local json:=Self

Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue

End

Method FindValue:JsonValue( key:String )

key=key.Replace( "\","/" )

Local keys:=key.Split( "/" )

Local json:=Self.Data

Local jval:JsonValue

For Local k:=0 Until keys.Length

If Not json.Contains( keys[k] ) Return Null

jval=json[ keys[k] ]

If k=keys.Length-1 Exit

If Not jval.IsObject Return Null

json=jval.ToObject()

Return jval

End

Class JsonArray Extension

Function FromStrings:JsonArray( values:String[] )

Local jvals:=New JsonValue[values.Length]

For Local i:=0 Until values.Length

jvals[i]=New JsonString( values[i] )

Return New JsonArray( jvals )

End

January 5, 2018 at 8:32 am in reply to: Diddy2 #12666

therevills

Participant

I’m currently working on my entry for the Syntax Bomb’s Retro Competition and using Diddy2 as the main framework.

WIP Video:
gtdc.mp4

January 5, 2018 at 8:03 am in reply to: Preferences class #12665

therevills

Participant

Note: The code from nerobot, needs the extensions from this post: http://monkeycoder.co.nz/forums/topic/json-extensions/

I’m also getting run time error: “Attempt to invoke method on null instance” on the “If _prefs.Contains( path ) Return _prefs[path]” line…

Test code, I had to “hack” some of the features to crappy returns etc:

#Import "<std>"
#Import "<mojo>"
#Import "<mojox>"
 
Using std..
Using mojo..
Using mojox..
 
' imports
'


#Import "assets/"
 
' try to load prefs from file
Const Prefs:=Preferences.Get( AppDir()+"prefs.json" )
 
Function Main()
	
	New AppInstance()
	
	' try to get windowRect from prefs
	Local rect:Recti
	Local flags:=WindowFlags.Resizable
	If Prefs.Contains( "windowRect" )
		rect=ToRecti( Prefs.GetJson( "windowRect" ) )
	Else
		' not found in prefs, set to defaults
		rect=New Recti( 0,0,900,800 )
		flags|=WindowFlags.Center
	Endif
	
	Local wnd:=New MainWindow() ' "Prefs test",rect,flags ) ' <----- Main Window CTOR doesnt have params
	
	wnd.CloseRequested+=Lambda()
		
		Prefs.PutValue( "windowRect",ToJson( wnd.Frame ) )
		Preferences.SaveAll()
	End
	
	App.Run()
End

Class MainWindow Extends Window
	
	Field CloseRequested:Void()
 

	Protected
	
	Method OnWindowEvent( event:WindowEvent ) Override
		
		If event.Type=EventType.WindowClose
			CloseRequested()
		Endif
		
		Super.OnWindowEvent( event )
	End
 
End

Class Preferences Final
	
	' globals
	'
	Function Get:Preferences( path:String )
		
		If _prefs.Contains( path ) Return _prefs[path]
		
		Local p:=New Preferences( path )
		_prefs[path]=p
		
		Return p
	End
	
	Function SaveAll()
	
		For Local p:=Eachin _prefs.Values
			p.Save()
		Next
	End
	
	' signals
	'
	Field Changed:Void( key:String,value:Variant )
	
	' setters
	'
	Method PutValue( key:String,value:String )
	
		_data[key]=New JsonString( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:Bool )
	
		_data[key]=New JsonBool( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:Double )
	
		_data[key]=New JsonNumber( value )
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:JsonValue )
	
		_data[key]=value
		_dirty=True
		Changed( key,value )
	End
	
	Method PutValue( key:String,value:Color )
	
		_data[key]=value.ToJson()
		_dirty=True
		Changed( key,value )
	End
	
	' getters
	'
	Method GetString:String( key:String,defValue:String="" )
	
		Return _data.GetString( key,defValue )
	End
	
	Method GetBool:Bool( key:String,defValue:Bool=False )
	
		Return _data.GetBool( key,defValue )
	End
	
	Method GetNumber:Double( key:String,defValue:Double=0 )
	
		Return _data.GetNumber( key,defValue )
	End
	
	Method GetJson:JsonValue( key:String,defValue:JsonValue=Null )
	
		Return _data.GetJson( key,defValue )
	End
	
	Method GetColor:Color( key:String,defValue:Color=Color.Magenta )
		
		If _data.Contains( key )
			Return Color.FromJson( _data[key] )
		Endif
		Return defValue
	End
	
	' load
	'
	Method Load( path:String )
		
		_path=path
		_data=JsonObject.Load( path ) ?Else New JsonObject
		_dirty=False
	End
	
	' save
	'
	Method Save( path:String="" )
		
		If Not _dirty Return
		
		If Not path Then path=_path
		If Not path Return
		
		SaveString( _data.ToJson(),path )
		
		_dirty=False
	End
	
	' raw data
	'
	Property Json:JsonObject()
		
		Return _data
	End
	
	Method Contains:Bool( key:String )
		
		Return _data.Contains( key )
	End
	
	
	Private 
	
	Field _data:JsonObject
	Field _path:String
	Field _dirty:Bool
	
	Global _prefs:=New StringMap<Preferences>
	
	' private constructors
	'
	Method New( path:String )
	
		Load( path )
	End
	
	Method New()
	End
	
End

Struct Color Extension
	
	Function FromHex:Color( hex:String )
		
		Local str:=hex
		Local a:=1.0,r:=0.0,g:=0.0,b:=0.0
		
		If str.Length=4			'#RGB
			r=StringToULong( str.Slice( 1,2 ),16 )/15.0
			g=StringToULong( str.Slice( 2,3 ),16 )/15.0
			b=StringToULong( str.Slice( 3,4 ),16 )/15.0
		Else If str.Length=5	'#ARGB
			a=StringToULong( str.Slice( 1,2 ),16 )/15.0
			r=StringToULong( str.Slice( 2,3 ),16 )/15.0
			g=StringToULong( str.Slice( 3,4 ),16 )/15.0
			b=StringToULong( str.Slice( 4,5 ),16 )/15.0
		Else If str.Length=7	'#RRGGBB
			r=StringToULong( str.Slice( 1,3 ),16 )/255.0
			g=StringToULong( str.Slice( 3,5 ),16 )/255.0
			b=StringToULong( str.Slice( 5,7 ),16 )/255.0
		Else If str.Length=9	'#AARRGGBB
			a=StringToULong( str.Slice( 1,3 ),16 )/255.0
			r=StringToULong( str.Slice( 3,5 ),16 )/255.0
			g=StringToULong( str.Slice( 5,7 ),16 )/255.0
			b=StringToULong( str.Slice( 7,9 ),16 )/255.0
		Else
			Return Color.Magenta
		Endif
		
		Return New Color( r,g,b,a )
	End
	
	Method ToJson:JsonValue()
		
		Return New JsonArray( New JsonValue[]( 	New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) )
	End
	
	Function FromJson:Color( json:JsonValue )
		
		If json.IsArray
			Local arr:=json.ToArray()
			Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() )
		Else
			Return FromHex( json.ToString() )
		Endif
	End
	
End

Class JsonObject Extension
	
	Method GetJson:JsonValue( key:String,defValue:Bool )
		
		Local json:=Self
		Return New JsonValue ' <------- crap Return value FIXME
	End
	
	
	Method GetBool:Bool( key:String,defValue:Bool )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToBool() Else defValue
	End
	
	Method GetString:String( key:String,defValue:String )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToString() Else defValue
	End
	
	Method GetInt:Int( key:String,defValue:Int )
		
		Local json:=Self
		Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue
	End
	
	Method GetNumber:Double( key:String,defValue:Int )
		
		Local json:=Self
		Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue
	End
	
	Method FindValue:JsonValue( key:String )
		
		key=key.Replace( "\","/" )
		Local keys:=key.Split( "/" )
		
		Local json:=Self.Data
		
		Local jval:JsonValue
		For Local k:=0 Until keys.Length
			If Not json.Contains( keys[k] ) Return Null
			jval=json[ keys[k] ]
			If k=keys.Length-1 Exit
			If Not jval.IsObject Return Null
			json=jval.ToObject()
		Next
		
		Return jval
	End
	
End

Class JsonArray Extension
	
	Function FromStrings:JsonArray( values:String[] )
		
		Local jvals:=New JsonValue[values.Length]
		For Local i:=0 Until values.Length
			jvals[i]=New JsonString( values[i] )
		Next
		Return New JsonArray( jvals )
	End
	
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

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

#Import "<std>"

#Import "<mojo>"

#Import "<mojox>"

Using std..

Using mojo..

Using mojox..

' imports

#Import "assets/"

' try to load prefs from file

Const Prefs:=Preferences.Get( AppDir()+"prefs.json" )

Function Main()

New AppInstance()

' try to get windowRect from prefs

Local rect:Recti

Local flags:=WindowFlags.Resizable

If Prefs.Contains( "windowRect" )

rect=ToRecti( Prefs.GetJson( "windowRect" ) )

Else

' not found in prefs, set to defaults

rect=New Recti( 0,0,900,800 )

flags|=WindowFlags.Center

Endif

Local wnd:=New MainWindow() ' "Prefs test",rect,flags ) ' <----- Main Window CTOR doesnt have params

wnd.CloseRequested+=Lambda()

Prefs.PutValue( "windowRect",ToJson( wnd.Frame ) )

Preferences.SaveAll()

End

App.Run()

End

Class MainWindow Extends Window

Field CloseRequested:Void()

Protected

Method OnWindowEvent( event:WindowEvent ) Override

If event.Type=EventType.WindowClose

CloseRequested()

Endif

Super.OnWindowEvent( event )

End

Class Preferences Final

' globals

Function Get:Preferences( path:String )

If _prefs.Contains( path ) Return _prefs[path]

Local p:=New Preferences( path )

_prefs[path]=p

Return p

End

Function SaveAll()

For Local p:=Eachin _prefs.Values

p.Save()

End

' signals

Field Changed:Void( key:String,value:Variant )

' setters

Method PutValue( key:String,value:String )

_data[key]=New JsonString( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:Bool )

_data[key]=New JsonBool( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:Double )

_data[key]=New JsonNumber( value )

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:JsonValue )

_data[key]=value

_dirty=True

Changed( key,value )

End

Method PutValue( key:String,value:Color )

_data[key]=value.ToJson()

_dirty=True

Changed( key,value )

End

' getters

Method GetString:String( key:String,defValue:String="" )

Return _data.GetString( key,defValue )

End

Method GetBool:Bool( key:String,defValue:Bool=False )

Return _data.GetBool( key,defValue )

End

Method GetNumber:Double( key:String,defValue:Double=0 )

Return _data.GetNumber( key,defValue )

End

Method GetJson:JsonValue( key:String,defValue:JsonValue=Null )

Return _data.GetJson( key,defValue )

End

Method GetColor:Color( key:String,defValue:Color=Color.Magenta )

If _data.Contains( key )

Return Color.FromJson( _data[key] )

Endif

Return defValue

End

' load

Method Load( path:String )

_path=path

_data=JsonObject.Load( path ) ?Else New JsonObject

_dirty=False

End

' save

Method Save( path:String="" )

If Not _dirty Return

If Not path Then path=_path

If Not path Return

SaveString( _data.ToJson(),path )

_dirty=False

End

' raw data

Property Json:JsonObject()

Return _data

End

Method Contains:Bool( key:String )

Return _data.Contains( key )

End

Private

Field _data:JsonObject

Field _path:String

Field _dirty:Bool

Global _prefs:=New StringMap<Preferences>

' private constructors

Method New( path:String )

Load( path )

End

Method New()

End

Struct Color Extension

Function FromHex:Color( hex:String )

Local str:=hex

Local a:=1.0,r:=0.0,g:=0.0,b:=0.0

If str.Length=4 '#RGB

r=StringToULong( str.Slice( 1,2 ),16 )/15.0

g=StringToULong( str.Slice( 2,3 ),16 )/15.0

b=StringToULong( str.Slice( 3,4 ),16 )/15.0

Else If str.Length=5 '#ARGB

a=StringToULong( str.Slice( 1,2 ),16 )/15.0

r=StringToULong( str.Slice( 2,3 ),16 )/15.0

g=StringToULong( str.Slice( 3,4 ),16 )/15.0

b=StringToULong( str.Slice( 4,5 ),16 )/15.0

Else If str.Length=7 '#RRGGBB

r=StringToULong( str.Slice( 1,3 ),16 )/255.0

g=StringToULong( str.Slice( 3,5 ),16 )/255.0

b=StringToULong( str.Slice( 5,7 ),16 )/255.0

Else If str.Length=9 '#AARRGGBB

a=StringToULong( str.Slice( 1,3 ),16 )/255.0

r=StringToULong( str.Slice( 3,5 ),16 )/255.0

g=StringToULong( str.Slice( 5,7 ),16 )/255.0

b=StringToULong( str.Slice( 7,9 ),16 )/255.0

Else

Return Color.Magenta

Endif

Return New Color( r,g,b,a )

End

Method ToJson:JsonValue()

Return New JsonArray( New JsonValue[]( New JsonNumber( r ),New JsonNumber( g ),New JsonNumber( b ),New JsonNumber( a ) ) )

End

Function FromJson:Color( json:JsonValue )

If json.IsArray

Local arr:=json.ToArray()

Return New Color( arr[0].ToNumber(),arr[1].ToNumber(),arr[2].ToNumber(),arr[3].ToNumber() )

Else

Return FromHex( json.ToString() )

Endif

End

Class JsonObject Extension

Method GetJson:JsonValue( key:String,defValue:Bool )

Local json:=Self

Return New JsonValue ' <------- crap Return value FIXME

End

Method GetBool:Bool( key:String,defValue:Bool )

Local json:=Self

Return json.Contains( key ) ? json[key].ToBool() Else defValue

End

Method GetString:String( key:String,defValue:String )

Local json:=Self

Return json.Contains( key ) ? json[key].ToString() Else defValue

End

Method GetInt:Int( key:String,defValue:Int )

Local json:=Self

Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue

End

Method GetNumber:Double( key:String,defValue:Int )

Local json:=Self

Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue

End

Method FindValue:JsonValue( key:String )

key=key.Replace( "\","/" )

Local keys:=key.Split( "/" )

Local json:=Self.Data

Local jval:JsonValue

For Local k:=0 Until keys.Length

If Not json.Contains( keys[k] ) Return Null

jval=json[ keys[k] ]

If k=keys.Length-1 Exit

If Not jval.IsObject Return Null

json=jval.ToObject()

Return jval

End

Class JsonArray Extension

Function FromStrings:JsonArray( values:String[] )

Local jvals:=New JsonValue[values.Length]

For Local i:=0 Until values.Length

jvals[i]=New JsonString( values[i] )

Return New JsonArray( jvals )

End

December 30, 2017 at 1:37 am in reply to: Steamworks module #12519

therevills

Participant

it might be time to drop angle

For casual games DirectX is still the major player and I think it would be a mistake to drop it.

December 29, 2017 at 10:23 pm in reply to: Steamworks module #12516

therevills

Participant

Very nice!

One of the requirements of Steam is to state the minimum requirements of the game being published, what would the minimum requirements be for a Monkey2 game?

December 29, 2017 at 10:21 pm in reply to: Android will require 64bit too in 2019 #12515

therevills

Participant

What does MX1 and CerberusX spit out?

December 20, 2017 at 7:33 am in reply to: Faster way to read in pixels? #12383

therevills

Participant

No worries! Sometimes its hard to keep up with all the changes – thanks for helping!

Author

Posts

Viewing 15 posts - 46 through 60 (of 272 total)

← 1 … 3 4 5 … 19 →

therevills

Forum Replies Created

Archives

Recent Replies

What is this?