Scoreoid for Monkey

public String Post( String url, String param, int timeoutConnection, int timeoutSocket )
  {
    HttpURLConnection con = null;
    InputStream is = null;
    try 
    {
      URL connectToURL = new URL( url );
      con = ( HttpURLConnection )connectToURL.openConnection();
      con.setReadTimeout( timeoutSocket );
      con.setConnectTimeout( timeoutConnection );
      con.setRequestMethod( "POST" );
      con.setDoInput( true );
      // Start the query
      con.connect();
      is = con.getInputStream();
    }
    catch( IOException e )
    {
      _result = "ERR_HttpGet " + e.getMessage();
      return "";
    }
    return convertStreamToString( is );
  }

URL connectToURL = new URL( url );

URL connectToURL = new URL( url + "?" + param );

scoreEngine = New BaaSEngine		
scoreEngine.setAPIKey("myAPIKey")
scoreEngine.setGameID("gameID")
scoreEngine.createScore("20", "testUser")

scoreEngine = New BaaSEngine		
scoreEngine.setAPIKey("myAPIKey")
scoreEngine.setGameID("gameID")
scoreEngine.setURL("https://www.scoreoid.com/api/createScore")
scoreEngine.createScore("20", "testUser")

	Method POST:String(apiCall:String, param:String = "")
		Local URL:String = ScoreoidURL + "api/" + apiCall
		#If TARGET="html5" Then
			Local params:String = "game_id=" + game_id + "&api_key=" + api_key + "&response=" + response
			Local skipCheck:Bool = True
		#Else
			Local params:String = "game_id=" + game_id + "&api_key=" + api_key + "&response=" + response
			Local skipCheck:Bool = False
		#End
		Local res:String = ""

		If api_key.Length() > 0 Or skipCheck Then
			If param.Length() > 0 Then
				params += "&" + param
			EndIf
			res = httpPost(URL, params)
		Else
			#If TARGET="html5" Then
				res = "[{~qerror~q:~qBaaSEngine Problem!~q}]"
			#Else
				res = "[{~qerror~q:~qBaaSEngine NOT INITIALIZED!~q}]"
			#End
		EndIf
		Return res
	End

	Method getBestScores:Bool(order_by:String = "", order:String = "", limit:String = "", start_date:String = "", end_date:String = "", platform:String = "", difficulty:String = "")
		Local params:String = ""
		
		params = add_param(params, "order_by", order_by)
		params = add_param(params, "order", order)
		params = add_param(params, "limit", limit)
		params = add_param(params, "start_date", start_date)
		params = add_param(params, "end_date", end_date)
		params = add_param(params, "platform", platform)
		params = add_param(params, "difficulty", difficulty)
		
		resultText = POST("getBestScores", params)
		success = resultText.Contains("success")

		resultMap.Clear()
		Return success
	End

Function NetChars:String(str:String)
	str = str.Replace("%", "%25")
	str = str.Replace("$", "%24")
	str = str.Replace("&", "%26")
	str = str.Replace("+", "%2B")
	str = str.Replace(",", "%2C")
	str = str.Replace("/", "%2F")
	str = str.Replace(":", "%3A")
	str = str.Replace(";", "%3B")
	str = str.Replace("=", "%3D")
	str = str.Replace("?", "%3F")
	str = str.Replace("@", "%40")
	str = str.Replace(" ", "%20")
	str = str.Replace("~q", "%22")
	str = str.Replace("<", "%3C")
	str = str.Replace(">", "%3E")
	str = str.Replace("#", "%23")
	str = str.Replace("{", "%7B")
	str = str.Replace("}", "%7D")
	str = str.Replace("|", "%7C")
	str = str.Replace("\", "%5C") 'this line totally contains a backslash but the forum doesn't like it
	str = str.Replace("^", "%5E")
	str = str.Replace("~~", "%7E")
	str = str.Replace("[", "%5B")
	str = str.Replace("]", "%5D")
	str = str.Replace("`", "%60")
	Return str
End

Import brl.httprequest

Class Scoreoid Implements IOnHttpRequestComplete
	
	Field game_id:String
	Field api_key:String
	
	Field responseText:String
	Field complete:Bool = True
	
	Field scoreoidURL:String = "https://api.scoreoid.com/"
	
	Method New(api_key:String = "", game_id:String = "")
		Self.game_id = game_id
		Self.api_key = api_key
	End
	
	Method Complete:Bool()
		If complete = True
	'		Print("true")
			Return True
		Else
	'		Print("false")
			Return False
		EndIf
	End
	
	Method SetApiKey(api_key:String)
		Self.api_key = api_key
	End

	Method SetGameID(game_id:String)
		Self.game_id = game_id
	End
	
	Method Update()
		If complete = False
			UpdateAsyncEvents()
		EndIf
	End
	
	Method Response:String()
		Return responseText
	End
	
	Method OnHttpRequestComplete:Void(req:HttpRequest)
		responseText = req.ResponseText()
		complete = True
	End
	
	Method CreateScore(score:String, username:String, unique_id:String = "", platform:String = "", difficulty:String = "", data:String = "")
		complete = False
		Local req:HttpRequest = New HttpRequest("GET", scoreoidURL + "v1/createScore?api_key=" + api_key + "&game_id=" + game_id + "&score=" + score + "&username=" + username + "&unique_id=" + unique_id + "&platform=" + platform + "&difficulty=" + difficulty + "&data=" + data + "&response=json", Self)
		req.Send()
	End
	
	Method GetBestScores(order_by:String = "score", order:String = "desc", limit:String = "25", start_date:String = "", end_date:String = "", platform:String = "", difficulty:String = "", usernames:String = "")
		complete = False
		Local req:HttpRequest = New HttpRequest("GET", scoreoidURL + "v1/getBestScores?api_key=" + api_key + "&game_id=" + game_id + "&order_by=" + order_by + "&order=" + order + "&limit=" + limit + "&start_date=" + start_date + "&end_date=" + end_date + "&platform=" + platform + "&difficulty=" + difficulty + "&usernames=" + usernames + "&response=json", Self)
		req.Send()
	End
End

Import mojo
Import scoreoid

Global g:ScoreoidTest
Function Main()
	g = New ScoreoidTest
End

Class ScoreoidTest Extends App

Field scoreoid:Scoreoid

	Method OnCreate()
		SetUpdateRate(60)
		scoreoid = New Scoreoid("0000000000a000a00a000a00a0", "000a000a00a") 'obviously this needs to be a correct key and id
		scoreoid.CreateScore("99999", "capnlee")
	End

	Method OnUpdate()
		scoreoid.Update()
	End
End