LiveCode Forums

Code: Select all

global AMiConnected
   
   put "yourSQLhosthere" into vScoreDatabaseHost
   put "yourDataBaseNameHere" into vDataBaseName
   put "yourDataBaseUserHere" into vDataBaseUser
   put "yourDataBaseUserPasswordHere" into vDatabasePassword
   put revOpenDatabase("MySQL", vScoreDatabaseHost, vDataBaseName, vDataBaseUser, vDatabasePassword) into tResult
   
   
   if tResult is a number then
      put tResult into AMiConnected
      put "HighScores" into vScoreTable
      put "Name,score" into vNewPlayerInfo
      put fld "score" into vPlayerScore
      put "INSERT INTO " & vScoreTable & " (" & vNewPlayerInfo & ") VALUES (:1, :2)" into tSQL
      revExecuteSQL AMiConnected, tSQL, "vPlayerName", "vPlayerScore"
      put "HighScores" into vScoreTable    
      put "SELECT * FROM " & vScoreTable into tSQL
      put revDataFromQuery(tab, cr, AMiConnected, tSQL) into ScoreData
      if item 1 of ScoreData = "revdberr" then
         answer error "Unable to post high score" 
      else
         put ScoreData into field "Data"
         sort lines of fld "data" descending numeric by word 2 of each
         replace"_" with " " in fld "data"
         repeat with w= 11 to the number of lines in fld "data"
            put empty into line w of fld "data"
         end repeat
         repeat with p=1 to the number of lines in fld "data"
            put (p&".") before line p of fld data
         end repeat
         set the textcolor of line 1 of fld "data" to green
         
      end if
      if AMiConnected is a number then
         revCloseDatabase AMiConnected
         put empty into AMiConnected
      end if
   end if