'based on erels async streams tutorial, ofc
Private Sub socket1_Connected (Successful As Boolean)
'client connected to server
If Successful Then
WifiConnected = True
Log("found")
StartAStream(socket1.InputStream, socket1.OutputStream)
Else
WifiConnected = False
If(ipListIndex < ipList.Size-1)Then
ipListIndex = ipListIndex + 1
socket1.Initialize("socket1")
socket1.Connect(ipList.Get(ipListIndex), portList.Get(portListIndex), 1000)
Else
If(portListIndex<portList.Size -1)Then
portListIndex = portListIndex + 1
ipListIndex = 0
socket1.Initialize("socket1")
socket1.Connect(ipList.Get(ipListIndex), portList.Get(portListIndex), 1000)
Else
ToastMessageShow ("Network fatality. Please insert another coin.", True)
End If
End If
End If
End Sub