2 scripts

[Zimbrul]

Hello 2 all , I need 2 scripts , I didn't search for them cuz I ain't got time , and plus I need to know exactly what to  look for , here's what I need :)

1. A script that hides me as a user from the user list , but I can still receive messages , or see the messages in OPchat and MainChat

2. a script that changes my nickname and I can use it to chat on private messages with the same nickname I changed to , of course with the posibility of changing it back :)


Thx , also I am running version 0.3.3.0 build 17.09 of ptokax , wich in my oppinion is the best hubsoftware in the whole world , it can't compare with yhub or other toys , ptokax is a man's program :)

[Dessamator]

for number 1, use hide user ,
for number 2, i dont see the point of that, just change it through dc

[Zimbrul]

the hide user script won't work...

the one http://board.univ-angers.fr/thread.php?threadid=4419&boardid=28&sid=5f278bcedcddc4f045c3da94ada7e100&page=1#14

and as for nr 2 , well... sometimes you need to have some fun on someone else's nickname ;)

[??????Hawk??????]

I didn't search for them cuz I ain't got time ,

  you been on theis site at least  30 mins solid now...

you heard of Multi Tasking ???        

[Zimbrul]

what do you mean of multi tasking?

but you could say I am too lazy to search... :D

[b_w_johan]

Guardname = "[BOT]Guard"                           -- add name of nick replacer
newnick = "johan"                              -- add YOURE new nick here

function DataArrival(user,data)
   if strsub(data, 1, 15) == "$To: [BOT]Guard" then
      user:SendPM(GuardName, "im sorry, Bots don't accept PM, we only change nicks")   --sends message PM if talking to bod
   elseif strsub(data, 1, 11) == "<[MR]johan>" then
      data=strsub(data,1,strlen(data)-1)
      local s,e,pre,cmd,to,mssg = strfind(data,"%b<>%s+(%p)(%S+)%s+(%S+)%s+(.*)")
      if pre and cmd then
         if cmd == "pm" then
         user:SendPM("$To: "..to.." From: "..user.sName.." $<"..user.sName.."> "..mssg.."|")
         return 1
      elseif pre then
         SendToAll(GuardName, pre..cmd.." not recognized try +help")      -- this is some backup if command not recognized
         return 1
         end
      end
   end
end



-- its not exactly if you asked but tried as much as i could
-- +pm name message
-- +pm [NL]johans test
-- not sure how to change youre nick in userlist ... will figure it out later maybe this helps ...
--   elseif strsub(data, 1, 11) == "<[MR]johan>" then     <<< importand line count youre nick so if youre [DK]dirk
-- youre line will be <[DK]dirk> wich is 10 long so its    elseif strsub(data, 1, 10) == "<[DK]dirk>" then  << number changed

[b_w_johan]

Originally posted by Zimbrul


and as for nr 2 , well... sometimes you need to have some fun on someone else's nickname ;)

i think bad idea why did i posted it ....
well needed it to in my script so we help eachother thisway

greetings Johan

[Dessamator]

Originally posted by Zimbrul
the hide user script won't work...

the one http://board.univ-angers.fr/thread.php?threadid=4419&boardid=28&sid=5f278bcedcddc4f045c3da94ada7e100&page=1#14

and as for nr 2 , well... sometimes you need to have some fun on someone else's nickname ;)

well, try the one i just modded, it should work, either way, the messages u want to receive wont appear in pvt, since ur not in the userlist !

[b_w_johan]

local s,e,pre,cmd,to,mssg = strfind(data,"%b<>%s+(%p)(%S+)%s+(%S+)%s+(.*)")
if pre and cmd then
if cmd == "pm" then
user:SendPM("$To: "..to.." From: "..user.sName.." $<"..user.sName.."> "..mssg.."|")


change this to:



local s,e,pre,cmd,to,mssg,mynick = strfind(data,"%b<>%s+(%p)(%S+)%s+(%S+)%s+(.*)%s+(%S+)")
if pre and cmd then
if cmd == "pm" then
user:SendPM("$To: "..to.." From: "..mynick.." $<"..mynick.."> "..mssg.."|")


--now its like +pm to mssg from
--example +pm jan i love you maria
-- can't remember why i made newnick, remove that line its unnecerserely changed it because before i used it but made it nicer

[b_w_johan]

Originally posted by Dessamator

well, try the one i just modded, it should work, either way, the messages u want to receive wont appear in pvt, since ur not in the userlist !

mine works though ... youre not in userlist but it sends PM with another nick ... atleast here it works ..

[Zimbrul]

you mean you wrote taht in about 15 minutes?

Good job :)

and I promise I will use it on bad people so you won't feel bad for letting me on this ;)

[b_w_johan]

Guardname = "[BOT]Guard"									-- add name of nick replacer

function DataArrival(user,data)
	if strsub(data, 1, 15) == "$To: [BOT]Guard" then
		user:SendPM(GuardName, "im sorry, Bots don't accept PM, we only change nicks")	--sends message PM if talking to bod
	elseif strsub(data, 1, 11) == "<[MR]johan>" then
		data=strsub(data,1,strlen(data)-1)
		local s,e,pre,cmd,to,mssg,mynick = strfind(data,"%b<>%s+(%p)(%S+)%s+(%S+)%s+(.*)%s+(%S+)") 
		if pre and cmd then 
			if cmd == "pm" then 
			user:SendPM("$To: "..to.." From: "..mynick.." $<"..mynick.."> "..mssg.."|") 
			return 1
		elseif pre then
			SendToAll(GuardName, pre..cmd.." not recognized try +help")		-- this is some backup if command not recognized
			return 1
			end
		end
	end
end




--now its like +pm to mssg from
--example +pm jan i love you maria

-- not sure how to change youre nick in userlist ... will figure it out later maybe this helps ...
--	elseif strsub(data, 1, 11) == "<[MR]johan>" then     <<< importand line count youre nick so if youre [DK]dirk
-- youre line will be <[DK]dirk> wich is 10 long so its 	elseif strsub(data, 1, 10) == "<[DK]dirk>" then  << number changed

did it take that long could have sworn it was shorter here it is nice tabbed didn't know before how to do that