Print Page - WeirdNicksParty Nide help script to lua.5

Title: WeirdNicksParty Nide help script to lua.5
Post by: Teddy on 29 July, 2005, 12:14:26

--Crazy Animals 2.0 Script Powered by Demone.Astaroth

--Script temporarily gives to users a strange nick :)
--2 options (fixed and random nicks, always for the current session); stopping command clean the memory

--Commands:
-- !anim fix -- Let's start the fixed animals' nick party!
-- !anim on -- Let's start the random animals' nick party!
-- !anim off -- Stop the parties

bot="~CrAzY-AnImAls~"

anim=0

cnames = {
"Two-rostrum Platypus",
"Marmot drowning in the chocolate",
"Cold snowy bison",
"Antelope with feet in the cement",
"Hot Pigskin",
"Kiwi's beak",
"Twisting hamster",
"Demented anteater",
"Caffettiera che sta per esplodere",
"Emasculate crocodile",
"Thermo-tapir",
"Gnu beaten by demented fridges",
"Sucker shark with plastic teeth",
"Canary with sticky wings",
"Disgusting insect",
"Crane creeping without legs",
"Blind guide dog",
"Calamary with rostrum",
"Mad koala",
"Flamingo in the toilet",
"Salmon still talking on the plate",
"Door mat with noses",
"Beaks soup",
"Multipurpose octopus",
}

unique = {}

function Main()
frmHub:RegBot(BotName)
end

function DataArrival(curUser, message)

s,e,cmd= strfind(message,"%b<>%s+(%S+)")
if anim==1 then
   if unique[curUser.sName]==nil then
      unique[curUser.sName]=cnames[random(1, getn(cnames))]
   end
end

if curUser.bOperator ~= nil then
   s,e,cmd,status= strfind(message,"%b<>%s(.+)%s(.+)")
   if (cmd == "!anim") then
      if strfind(status, "fix") then
         SendToAll(bot, "Duplex natura vigilat super omnia.")
         anim=1
      elseif strfind(status, "off") then
         SendToAll(bot, "Shut up, animals!")
         unique[curUser.sName]=nil
         anim=0
      elseif strfind(status, "on") then
         SendToAll(bot, "Multipla natura vigilat super omnia.")
         anim=2
      end
   return 1
   end
end

if anim==1 then
if not strfind(message, "$.+") then
   s,e,mes = strfind(message, "%b<> (.*)")
   if unique[curUser.sName]~=nil then
      SendToAll(unique[curUser.sName], mes)
return 1; end; end

elseif anim==2 then
if not strfind(message, "$.+") then
   s,e,mes = strfind(message, "%b<> (.*)")
   nome=cnames[random(1, getn(cnames))]
   SendToAll(nome, mes)
return 1; end;
end

end

Title:
Post by: Madman on 29 July, 2005, 15:25:24

Code Select

--Crazy Animals 2.0 Script Powered by Demone.Astaroth
-- Lua5 by Madman

--Script temporarily gives to users a strange nick :)
--2 options (fixed and random nicks, always for the current session); stopping command clean the memory

--Commands:
-- !anim fix -- Let's start the fixed animals' nick party!
-- !anim on -- Let's start the random animals' nick party!
-- !anim off -- Stop the parties

bot="~CrAzY-AnImAls~"

anim=0

cnames = {
	"Two-rostrum Platypus",
	"Marmot drowning in the chocolate",
	"Cold snowy bison",
	"Antelope with feet in the cement",
	"Hot Pigskin",
	"Kiwi's beak",
	"Twisting hamster",
	"Demented anteater",
	"Caffettiera che sta per esplodere",
	"Emasculate crocodile",
	"Thermo-tapir",
	"Gnu beaten by demented fridges",
	"Sucker shark with plastic teeth",
	"Canary with sticky wings",
	"Disgusting insect",
	"Crane creeping without legs",
	"Blind guide dog",
	"Calamary with rostrum",
	"Mad koala",
	"Flamingo in the toilet",
	"Salmon still talking on the plate",
	"Door mat with noses",
	"Beaks soup",
	"Multipurpose octopus",
}

unique = {}

function Main()
	frmHub:RegBot(BotName)
end

function ChatArrival(curUser, message)
	s,e,cmd= string.find(message,"%b<>%s+(%S+)")
	if anim==1 then
		if unique[curUser.sName]==nil then
			unique[curUser.sName]=cnames[math.random(1, table.getn(cnames))]
		end
	end
	
	if curUser.bOperator ~= nil then
		s,e,cmd,status= string.find(message,"%b<>%s(.+)%s(.+)")
		if (cmd == "!anim") then
			if string.find(status, "fix") then
				SendToAll(bot, "Duplex natura vigilat super omnia.")
				anim=1
			elseif string.find(status, "off") then
				SendToAll(bot, "Shut up, animals!")
				unique[curUser.sName]=nil
				anim=0
			elseif string.find(status, "on") then
				SendToAll(bot, "Multipla natura vigilat super omnia.")
				anim=2
			end
		return 1
		end
	end
	if anim==1 then
		if not string.find(message, "$.+") then
		s,e,mes = string.find(message, "%b<> (.*)")
			if unique[curUser.sName]~=nil then
				SendToAll(unique[curUser.sName], mes)
					return 1;
				end;
			end
	elseif anim==2 then
		if not string.find(message, "$.+") then
		s,e,mes = string.find(message, "%b<> (.*)")
			nome=cnames[math.random(1, table.getn(cnames))]
			SendToAll(nome, mes)
			return 1;
		end;
	end
end

Title: Sorry Madman not work
Post by: Teddy on 29 July, 2005, 19:39:26

Have testing i hub .but noooooooo

Title:
Post by: Madman on 29 July, 2005, 19:53:49

Code Select

[19:50:52] <~CrAzY-AnImAls~> Multipla natura vigilat super omnia.
[19:50:53]  sd
[19:50:54]  as
[19:50:55]  sad
[19:51:01] <~CrAzY-AnImAls~> Duplex natura vigilat super omnia.
[19:51:02]  sd
[19:51:03]  sd
[19:51:04]  asd
[19:51:09] <~CrAzY-AnImAls~> Shut up, animals!
[19:51:09]  sd

Works for me....

Title: Ohhh sorry
Post by: Teddy on 29 July, 2005, 20:35:43

a drive another script same time .Thats way it not work!!Thanks alot Fore fix this script to lua5.

PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: Teddy on 29 July, 2005, 12:14:26