Sourced refer system.

[evilbunnie]

[http://www.evilbunnie.org/Scripter/refersystem.html](http://www.evilbunnie.org/Scripter/refersystem.html) - Better formatted version, Easier to read. - Now fully updated with IP limiter.

Refer System by evilbunnie

Tested on eclipse stable

Description:

You ask your friend to play this game, you're friend would put your name in the refer box as a refer. - You would get a refer point!!11one!

You could set it up so it will give you special items with referal points.
Server side
In AccountRec before EndType add:
```
ReferPoints As Long

```
In ModHandleData under
```
Case "givemethemax"
    Call Packet_GiveMeTheMax(Index)
    Exit Sub

```ADD:
```
Case "referpoint"
Dim Ind As Long
        If Not Parse(1) = Nothing Or Not FileExists(App.Path & "\Accounts\" & Parse(1) & ".ini") = false Then
  Ind = FindPlayer(Parse(1))
  If IsPlaying(Ind) Then
  Player(Ind).ReferPoints = Player(Ind).ReferPoints + 1
          SavePlayer (Ind)
  Else
  LoadPlayer (Ind)
  Player(Ind).ReferPoints = Player(Ind).ReferPoints + 1
  SavePlayer (Ind)
  End If
  End If
  Exit Sub

```
In clsCommands add:
```
Public Sub SetReferalPoints(Index as long, Ammount as long)
Player(Index).ReferPoints = Ammount
End Sub

Public Function GetReferalPoints(Index as long) as long
GetReferalPoints = Player(Index).ReferPoints
End Sub

```

Client side
In FrmNewAccount make a new textbox called 'txtRefer' Under

```
If Not IsAlphaNumeric(txtName.Text) Then
        Call MsgBox("Your name must consist of alpha-numeric characters!")
        Exit Sub
    End If

```ADD:
```
If LenB(TxtRefer.Text) > 6 Then
    Call MsgBox("Refer doesn't exist!")
End If

SendData ("referpoint" & SEP_CHAR & TxtRefer.Text & END_CHAR)

```

Now, I do ask for credit, because i gave up 5 minutes of my life to do this for you kind people.

Best regards,

Evilbunnie

[azure]

*Doesn't know what this does, skips code and sees it took 5 minutes. Leaves negative comment*

^^^

*Clicked overly advertised link. Reads description* " Yeah I still think this has little use, but hey that's just me. You could have copied/ pasted that for a post instead of forcing us to view it on a web page. "

[evilbunnie]

@[SB:

> Azure link=topic=56556.msg598196#msg598196 date=1263477342]
> *Doesn't know what this does, skips code and sees it took 5 minutes. Leaves negative comment*
>
> ^^^

It took less than that, It took longer to write the tutorial and put it on a webhost.

[Kinjiru]

Much Better, this could be useful to get players to get their friends to come to your game

[azure]

Bah word of mouth will do more if the game is good. :P

[Kinjiru]

@[SB:

> Azure link=topic=56556.msg598199#msg598199 date=1263478228]
> Bah word of mouth will do more if the game is good. :P

True, you will get more dedicated players

[evilbunnie]

Hey, azure you can't get mad at me! this is my first code i posted on eclipse that didn't have bugs. (I do that for the attention). lmao

[evilbunnie]

I updated source on site, Now has an IP limiter

[kris_hole]

you know bunny you could of just asked hwo mine works :P