Auto redirect script

Paul_Don · Post by **Paul_Don** » 2003-07-07 15:41

Any of u badass coders reckon u do me a quick script that will redirect users to another address if there not registered? :twisted:

Atomic Jo · Post by **Atomic Jo** » 2003-07-07 16:04

Code: Select all

Const REDIRECTADDRESS = "myhub.no-ip.com" 'hub address to redirect to

Sub NewUserConnected(User)
  User.ForceMove CStr(REDIRECTADDRESS)
End Sub

Paul_Don · Post by **Paul_Don** » 2003-07-07 16:53

And with maybe a private message

Atomic Jo · Post by **Atomic Jo** » 2003-07-07 19:15

Code: Select all

Const REDIRECTADDRESS = "myhub.no-ip.com" 'hub address to redirect to

Sub NewUserConnected(User)
  User.PrivateMessage "RedirectBot", "This Hub is only for Registered Users."
  frmHub.DoEventsForMe
  User.ForceMove CStr(REDIRECTADDRESS)
  frmHub.DoEventsForMe
  User.Disconnect
End Sub

The last .Disconnect is for clients which didn't automatically follow the redirection directive (DC++ option). If you don't want this, just uncomment the two latest lines. (frmhub and user.disconnect)

Paul_Don · Post by **Paul_Don** » 2003-07-07 21:19

cheerz buddy appreciate it

Auto redirect script

Auto redirect script

Who is online