Code: Select all
Private Const pokerAPIURL As String = "http://ipaddess:8087/api?"
Private Const pokerAPIPassword As String = "password"
Dim Results As String = ""
Dim pmAPI As New pokerAPI.PokerAPI(pokerAPIURL, pokerAPIPassword)
------------------------------------------------------------------------------------------
Public Sub examplesub(ByVal mUserName As String, ByVal mUserPassword As String)
Results = ""
Dim mData As New Hashtable
Dim mPokerPlayer As New pokerAPI.pokerPlayer
mPokerPlayer.Player = mUserName
mPokerPlayer.PW = mUserPassword
mData = mAPI.AccountsGet(mUserName)
If mData("Result") = "Ok" Then
'if user exist. then just update some data for user
mData = mAPI.AccountsEdit(mUserName)
Else
'user not exist. create account
mData = mAPI.AccountsAdd("playername")
End If
If mData("Result") <> "Ok" Then
'for some reason can't create account
Results =mData("Error")
Exit Sub
end if
'we are cool. or user exist or just created.
' refresh user's data
mData = mAPI.AccountsGet("playername")
Dim Balance as long
Balance = mData("Balance")
' if user's balance less then 1000 chips increase it to 20000 chips
If Balance <= 10000 Then
mData = mAPI.AccountsIncBalance(mUserName, 20000)
End If
If mData("Result") <> "Ok" Then
'error with balance increase
Results =mData("Error")
Exit Sub
endif
End Sub