Print Page - Hit me BUT

Title: Hit me BUT
Post by: B@B? on 13 February, 2004, 19:03:09

I need an simple script 4 "Neo-Modus" wich contains an

simple stand alone >>> #redirect me...

It should redirect an user by the given command.

Plz excuce me if i ask 4 it @ this place but i didn?t find

something like this @ any place in the net... ;(

Maybe someone can help for this (ONCE) time, it?s realy

importend for me... :))

Please HELP!

Thx 4 now ;)

*********************************************

It should look like this (don?t LOL!) :D

*********************************************

'=====================================
' This script redirects users
'=====================================

Sub Main()

botname="RED-Bot"

RedirectIP = "ABC-Hub.no-ip.de"

Sub DataArival(curUser, sCurData)

if (cmd=="#redme") then
Curuser.PrivateMessage cstr(" Umleitung nach... ;)" & frmHub.txtRedirect
else
frmHub.DoEventsForMe
curUser.ForceMove frmHub.txtRedirect

end if
End Sub

Title:
Post by: B@B? on 20 February, 2004, 16:42:09

I?d helped myself; AS EVERY TIME!

Thx! Men...(http://board.univ-angers.fr/images/smilies/mad.gif)

Title:
Post by: DorianG on 20 February, 2004, 17:41:39

try that ;)

Code Select

BotName = "RedirectMySelf"	--//BotName

redirectme = "!redme"		--//Set Command name

redirectaddress = "address.no-ip.org"	--//SetRedirectAddres

function Main()
	frmHub:RegBot(BotName)
end

function DataArrival(user, data)
	if (strsub(data,1,1) == "<") then
		data = strsub(data,1,strlen(data)-1)
		local s,e,cmd = nil
		s,e,cmd = strfind( data, "%b<>%s+(%S+)" )
		if cmd == redirectme then
			user:SendPM(BotName, "You are redirected to " ..redirectaddress)
			user:SendData("$ForceMove "..redirectaddress)
		end
	end
end

Title:
Post by: Event_Horizon on 20 February, 2004, 18:17:30

QuoteOriginally posted by DorianG
try that ;)

Code Select Expand
BotName = "RedirectMySelf" --//BotName redirectme = "!redme" --//Set Command name redirectaddress = "address.no-ip.org" --//SetRedirectAddres function Main() frmHub:RegBot(BotName) end function DataArrival(user, data) if (strsub(data,1,1) == "<") then data = strsub(data,1,strlen(data)-1) local s,e,cmd = nil s,e,cmd = strfind( data, "%b<>%s+(%S+)" ) if cmd == redirectme then user:SendPM(BotName, "You are redirected to " ..redirectaddress) user:SendData("$ForceMove "..redirectaddress) end end end

sorry, but seems to be for PX - B@B? was searching for a Neo-Script .......

does that Hubsoft still exist ?( ?( ?(

Title:
Post by: [NL]Pur on 20 February, 2004, 19:59:05

QuoteI?d helped myself; AS EVERY TIME!

Thx! Men...

maby posting at the right section whould help :)

Title:
Post by: DorianG on 20 February, 2004, 20:17:54

I had not read well :)

Title:
Post by: Troubadour on 22 February, 2004, 13:36:10

that many posts and searching for *Neo-Modus* ????
Can't figure it out!

Title:
Post by: B@B? on 24 February, 2004, 10:50:00

First:

I?m Owner of 3 Hubs, one of them is an NEO.
The NEO-Hub is an ONLY Chat & Game Fun-Hub.

He has the best Scripts Collection ever seen 4 NEO, a lot of work
(from me and a lot of very good scripters) is in it and it?s realyy heavy
2 cut the workin from years...so i never close this one... ;)

Than:

@ DorianG & Horizon
>>>>>>> Thx a lot! :P

@ [NL]Pur & Troubadour
Where should i post an NEO-Mode-Script, you beleave?

I did it in OffTopic because of it?s NEO, not LUA -
so i thought- it?s the right area...isn?t it? ;)

However: How i said: Prob is fixed... :]

Title:
Post by: nErBoS on 24 February, 2004, 14:56:28

Hi,

B@B?

This forum is only for LUA scripts, NMDCH is in VB scripts there is another forum to that....
try this...

HERE (http://dc.ww-ei.com/index.php)

Best regards, nErBoS

Title:
Post by: B@B? on 24 February, 2004, 15:52:34

Thx a lot!

That?s a nice one... ;)

But 4 the other 2 hubs i?ll need this place.

They are PtoKax/LUA...

However: Thx! 8)

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: B@B? on 13 February, 2004, 19:03:09