ORS Tutorial: Phase 1;Creating an ingame account via a website.

[dg1423]

hmmm…. I probably should've dumped this into the source section, but this'll show you how to make phase one of the ORS (more to come of course :P)

**ORS Phase 1:** Creating accounts from websites!!!

Things you'll need:

* TE/EE Source
* VB6 to edit the source (Duh!)
* A PHP enabled website (with socket capabilities (damn yahoo! hosting =.=''))
* Be smart enough to use the following code in your site :P

okay first open your server's source in VB6 and go to modServerTCP, sub IncomingData.

Dim these:

```
Dim q As Long
Dim p As Long
Dim count As Long
Dim Imail As String
Dim Name As String
Dim PASSWORD As String
```

and paste these under the two case"top" 's

```
If LCase(Mid(Buffer, 1, 14)) = "newfaccountied" Then
            If Not IsLoggedIn(index) Then
              q = 14
              p = 15
              count = 0
              Do While q <= Len(Buffer)
                  Select Case count
                  Case 0
                    If Mid(Buffer, q, 1) = "," Then
                        Name = Mid(Buffer, p, q - p)
                        count = count + 1
                        p = q + 2
                    End If
                  Case 1
                    If Mid(Buffer, q, 1) = "," Then
                        Name = Mid(Buffer, p, q - p)
                        count = count + 1
                        p = q + 2
                        End If
                    Case 2
                        If Mid(Buffer, q, 1) = "," Then
                            PASSWORD = Mid(Buffer, p, q - p)
                            count = count + 1
                            p = q + 2
                        End If
                        Case 0
                    If Mid(Buffer, q, 1) = "," Then
                        Imail = Mid(Buffer, p, q - p)
                        count = count + 1
                        p = q + 2
                    End If
                    End Select
                    q = q + 1
                Loop

                If Imail = "" Then
                    Call SendDataTo(index, "You need to fill in your e-mail")
                End If

                For i = 1 To Len(Name)
                    n = Asc(Mid(Name, i, 1))

                    If (n >= 65 And n <= 90) Or (n >= 97 And n <= 122) Or (n = 95) Or (n = 32) Or (n >= 48 And n <= 57) Then
                    Else
                        Call SendDataTo(index, "Invalid name, only letters, numbers, spaces, and _ allowed in names.")
                        Exit Sub
                    End If
                Next i

                If Not AccountExist(Name) Then
                    Call AddAccount(index, Name, PASSWORD, Imail)
                    Call TextAdd(frmServer.txtText(0), "Account " & Name & " has been created.", True)
                    Call AddLog("Account " & Name & " has been created.", PLAYER_LOG)
                    Call SendDataTo(index, "Your account has been created!")
                Else
                    Call SendDataTo(index, "Sorry, that account name is already taken!")
                End If
            End If
            Exit Sub
            End If

            If LCase(Mid(Buffer, 1, 14)) = "newfaccountied" Then
            If Not IsLoggedIn(index) Then
                q = 14
              p = 15
              count = 0
              Do While q <= Len(Buffer)
                  Select Case count
                  Case 0
                    If Mid(Buffer, q, 1) = "," Then
                        Name = Mid(Buffer, p, q - p)
                        count = count + 1
                        p = q + 2
                    End If
                  Case 1
                    If Mid(Buffer, q, 1) = "," Then
                        Name = Mid(Buffer, p, q - p)
                        count = count + 1
                        p = q + 2
                        End If
                    Case 2
                        If Mid(Buffer, q, 1) = "," Then
                            PASSWORD = Mid(Buffer, p, q - p)
                            count = count + 1
                            p = q + 2
                        End If
                        Case 0
                    If Mid(Buffer, q, 1) = "," Then
                        Imail = Mid(Buffer, p, q - p)
                        count = count + 1
                        p = q + 2
                    End If
                    End Select
                    q = q + 1
                Loop

                If Imail = "" Then
                    Call SendDataTo(index, "You need to fill in your e-mail")
                End If

                For i = 1 To Len(Name)
                    n = Asc(Mid(Name, i, 1))

                    If (n >= 65 And n <= 90) Or (n >= 97 And n <= 122) Or (n = 95) Or (n = 32) Or (n >= 48 And n <= 57) Then
                    Else
                        Call SendDataTo(index, "Invalid name, only letters, numbers, spaces, and _ allowed in names.")
                        Exit Sub
                    End If
                Next i

                If Not AccountExist(Name) Then
                    Call AddAccount(index, Name, PASSWORD, Imail)
                    Call TextAdd(frmServer.txtText(0), "Account " & Name & " has been created.", True)
                    Call AddLog("Account " & Name & " has been created.", PLAYER_LOG)
                    Call SendDataTo(index, "Your account has been created!")
                Else
                    Call SendDataTo(index, "Sorry, that account name is already taken!")
                End If
            End If
            Call CloseSocket(index)
            End If
```
okay that's all for the source, now for the php.

we need two files:

* blah.php
* updater.php

now in blah.php you can paste this in:

```
";
echo "username:
";
echo "password:
";
echo "confirm:
";
echo "";
echo "";
?>
```
then put this in updater.php:

```
window.location='http://yourwebsitehere.com'; alert('Your account has been created!');";
}
else
{
echo "";
}
?>
```
now change iphere, porthere, and yourwebsitehere to your stuff.

That's all it is for now though, so enjoy it until I upgrade and/or make phase 2!!

[zerosavior115]

I still not used this but
great idea

thanks

[Zopto]

you reed a date it is of 2007 lol…