need help to my DataArrival

Themaster · 30 September, 2004, 22:12:12

now i got to work..But my OpChat it do not ?

function DataArrival(user,data)
   if (strsub(data,1,7) == "$MyINFO") then
      Tag,Speed,Share = Parse(data)
      TagCheck(Tag,Speed,Share,user)
   end

   if (strsub(data, 1, 1) == "<" ) then
   local data=strsub(data,1,strlen(data)-1)
   local _,_,prefix,cmd=strfind(data, "%b<>%s+(%S)(%S+)")
      if Tprefix[prefix] and cmd then
         prefixcmd = Tprefix[prefix]..cmd
         local Commands = UserCommands(user, data, cmd)
         return Commands
      end
   end
   
   if strsub(data, 1, 5) == "$To: " then
      local s,e,to,from,text = strfind(data, "%$To:%s(%S+)%sFrom:%s(%S+)%s$(.*)$")
         if to == OpChat then
            if user.bOperator then
               local s,e,msg = strfind(text,"^%b<>%s+(.+)")
               OpChatRoom(user,msg)
            end
         end
      end
   end

Themaster · 02 October, 2004, 11:56:31

i got a problem now again i can't get my rules to work
it made a error

[/code]
Syntax error: attempt to call global `ShowRules' (a nil value)
stack traceback:
1: function `Commands' at line 24 [file `blade/Commands.lua']
2: function `DataArrival' at line 89 [file `...\Blade? 1.0.lua']
[/code]

and here is where is the make the error

elseif cmd == "rules" then
      ShowRules(user)
      return 1

if (strsub(data, 1, 1) == "<" ) then
   local data=strsub(data,1,strlen(data)-1)
   local _,_,prefix,cmd=strfind(data, "%b<>%s+(%S)(%S+)")
      if Tprefix[prefix] and cmd then
         prefixcmd = Tprefix[prefix]..cmd
         local Commands = Commands(user, data, cmd)
         return Commands
      end
   end

I Got this function

rules = "blade/txt/rules.txt"
network = "blade/txt/network.txt"
faq = "blade/txt/faq.txt"


function advert(message, where)
	tosend = ""
	border = strrep ("~", strlen (message)*2/3+2)
	tosend = "\r\n\r\n"..border.."\r\n"..message.."\r\n"..border.."\r\n"
	if (where == "PM") then
		SendPmToAll(BotName, tosend)
	else
		SendToAll(BotName, tosend)
	end
end

function Readtextfile(user, file)
   	local filecontents = ""
	local handle = openfile(file, "r")
	if (handle ~= nil) then
		local line = read(handle)
		while line do
        	filecontents = filecontents..line.."\r\n"
		line = read(handle)
		end
		closefile(handle)
      	user:SendPM(Bot, filecontents)
	end
end

Herodes · 02 October, 2004, 16:14:46

well I couldnt notice any function named ' ShowRules ' in the script parts that u provide ...

so I suspect that is the problem ...

my suggestion is to change this

elseif cmd == "rules" then
      ShowRules(user)
      return 1

to

elseif cmd == "rules" then
      Readtextfile(user, rules)
      return 1

Themaster · 04 October, 2004, 16:38:32

I can get another DataArrival on that i make...et get a error

this is my data

if (strsub(data, 1, 1) == "<" ) then
   local data = strsub(data,1,strlen(data)-1)
   local _,_,prefix,cmd=strfind(data, "%b<>%s+(%S)(%S+)")
      if Tprefix[prefix] and cmd then
         prefixcmd = Tprefix[prefix]..cmd
         local Commands = Commands(user, data, cmd)
         return Commands
      end
   end

and here are the next data is from kenny...

   	if (strsub(data,1,1) == "<") then
   		data=strsub(data,1,strlen(data)-1)
   		s,e,cmd = strfind(data,"%b<>%s+(%S+)")
			if user.bOperator then

Herodes · 04 October, 2004, 19:27:33

So what is the error ?

Themaster · 13 October, 2004, 17:58:15

Help i got a wrong stoff when i log on to my hub in main.. i just wont to have word replace on my script at now this get in main when log on

[17:52:46]  $MyINFO $ALL Themaster? Blade? Creator$ $DSL$$12042852195$

here are this on my dataarrival

  replaced = nil
	local newmsg = gsub(data,"(%w+)",
   function (word)
         if tWords[strlower( word )] then
				replaced = 1
				return tWords[strlower( word )]
			else
            return word
			end
		end)
	if replaced then
		SendToAll(" "..newmsg.."|")
		return 1
	end

Herodes · 13 October, 2004, 18:06:13

sorry that lil bit of script doesnt help to understand what is going on ..

Themaster · 13 October, 2004, 18:28:21

here are all my Data

function DataArrival(user,data)
   if (strsub(data,1,7) == "$MyINFO") then
      Tag,Speed,Share = Parse(data)
      TagCheck(Tag,Speed,Share,user)
   end
   
   if (strsub(data, 1, 1) == "<" ) then
   local data = strsub(data,1,strlen(data)-1)
   local _,_,prefix,cmd=strfind(data, "%b<>%s+(%S)(%S+)")
      if Tprefix[prefix] and cmd then
         prefixcmd = Tprefix[prefix]..cmd
         local Commands = Commands(user, data, cmd)
         return Commands
      	elseif Kennylizednicks[user.sName] == 1 then
            text=kennytext[random(1, getn(kennytext))]
				SendToAll(user.sName, text)
				return 1
         end
      end
   
   replaced = nil
	local newmsg = gsub(data,"(%w+)",
   function (word)
         if tWords[strlower( word )] then
				replaced = 1
				return tWords[strlower( word )]
			else
            return word
			end
		end)
	if replaced then
		SendToAll(" "..newmsg.."|")
		return 1
	end

   if strsub(data, 1, 5) == "$To: " then
      local s,e,to,from,text = strfind(data, "%$To:%s(%S+)%sFrom:%s(%S+)%s$(.*)$")
         if to == OpChat then
            if user.bOperator then
               local s,e,msg = strfind(text,"^%b<>%s+(.+)")
               OpChatRoom(user,msg)
            end
         end
      end
   end

Themaster · 13 October, 2004, 18:58:32

i have made it now

Herodes · 13 October, 2004, 19:41:08

if (strsub(data,1,7) == "$MyINFO") then
      Tag,Speed,Share = Parse(data)
      TagCheck(Tag,Speed,Share,user)
   end

This can be like

  if (strsub(data,1,7) == "$MyINFO") then
      TagCheck(Parse(data),user)
   end

also this

     if Tprefix[prefix] and cmd then
         prefixcmd = Tprefix[prefix]..cmd
          local Commands = Commands(user, data, cmd)
         return Commands

can be like this

     if Tprefix[prefix] and cmd then
         prefixcmd = Tprefix[prefix]..cmd
         return Commands(user, data, cmd)

And this ...

if (to == OpChat) then
               if (user.bOperator) then

to this ..

if (to == OpChat) and (user.bOperator) then

all the changes that I propose target to shorten the code ,...
this ofcourse has some disadvantage in reading the code ...
so while developing it is better to keep everything not so packed in like I mention ... but ofcourse thats up to you to see ...

PS : Glad you could find the problem ;)

Themaster · 13 October, 2004, 22:18:15

hmmm now i got this error when i use ? on my hub

Syntax error: table index is nil
stack traceback
1: function `DataArrival' at line 101 [file `...den lille\Skrivebord\Hub\scripts\Blade? 1.0.lua']

function DataArrival(user,data)
   if (strsub(data,1,7) == "$MyINFO") then
      Tag,Speed,Share = Parse(data)
      TagCheck(Tag,Speed,Share,user)
   end
   
   if (strsub(data, 1, 1) == "<" ) then
   local data = strsub(data,1,strlen(data)-1)
   local _,_,prefix,cmd=strfind(data, "%b<>%s+(%S)(%S+)")
      if Tprefix[prefix] and cmd then
       [COLOR=red]  prefixcmd = Tprefix[prefix]..cmd[/COLOR] 
         local Commands = Commands(user, data, cmd)
         return Commands
      	elseif Kennylizednicks[user.sName] == 1 then
            text=kennytext[random(1, getn(kennytext))]
				SendToAll(user.sName, text)
				return 1
         end
      end
   
   replaced = nil
	local newmsg = gsub(data,"(%w+)",
   function (word)
         if tWords[strlower( word )] then
				replaced = 1
				return tWords[strlower( word )]
			else
            return word
			end
		end)
	if replaced then
		SendToAll(""..newmsg.."|")
		return 1
	end

   if strsub(data, 1, 5) == "$To: " then
      local s,e,to,from,text = strfind(data, "%$To:%s(%S+)%sFrom:%s(%S+)%s$(.*)$")
         if to == OpChat then
            if user.bOperator then
               local s,e,msg = strfind(text,"^%b<>%s+(.+)")
               OpChatRoom(user,msg)
            end
         end
      end
   end

The red is there when error are

bastya_elvtars · 13 October, 2004, 22:32:59

lets see the Tprefix table

Herodes · 13 October, 2004, 22:37:28

yeah .. that variable ('prefix') is refering to an index in the table ... if the table doesnt contain the value of 'prefix' then it returns that "table index is nil" message ... simply because it isnt there ...

Themaster · 13 October, 2004, 22:38:15

--// Commands prefix
Tprefix = {
["!"]=1,
["+"]=1,
["#"]=1,
["?"]=1,
["-"]=1,
}

Herodes · 13 October, 2004, 22:43:17

master ... try this 1 ...
change this

if Tprefix[prefix] and cmd then

to this ..

if Tprefix[prefix] ==1 then 
if cmd then

Themaster · 13 October, 2004, 22:49:24

still the same error

Herodes · 13 October, 2004, 22:58:18

then try a

for i , v in tPrefix do .... end

thing ...

bastya_elvtars · 13 October, 2004, 23:03:54

local _,_,cmd=strfind(data,"%b<>%s+([%!%+%#%?%-]%S+)")

safest way, no need 4 prefix table, its like using a cannon for hunting sparrows

Themaster · 14 October, 2004, 15:27:44

i can't get it work write

Themaster · 14 October, 2004, 16:27:22

my command do not work when i chance to your's line sry

Themaster · 14 October, 2004, 17:00:32

Now i have fin out is not write in my DataArrival it do whith the first i made :S

i Realy need Some help

Themaster · 14 October, 2004, 17:41:37

i don't now why it do it when i past ? in the main it get's a nil function in ptokax...plz help

Herodes · 14 October, 2004, 18:49:48

QuoteOriginally posted by Themaster
i don't now why it do it when i past ? in the main it get's a nil function in ptokax...plz help

Uhm ... how about posting your Main() ?

Themaster · 14 October, 2004, 19:52:05

Hmm...i can't fix that error
i still have the same problem when ? come in main..how can i get it work so there are no problem ????

function Main()
   loadfile(savekicks)
   frmHub:UnregBot(BotName)
	frmHub:RegBot(BotName)
   frmHub:RegBot(OpChat)
   TimeSpanInMinutes = 60
   SendToAll(BotName,"?-=-=-=-? Script Reloaded at: "..date("  %X -- %d/%m-%Y").." ?Version? "..Version.." ?Build? "..Build.." ?Creators? "..Creators.." ?-=-=-=-?")
	BotNameInfo = "$MyINFO $ALL "..BotName.." <++V:1.0 Blade? 1.0,C:Themaster? $ $LAN(T3)"..strchar( 1 ).."$$"
   OpChatInfo = "$MyINFO $ALL "..OpChat.." <++V:1.0 Blade? 1.0,C:Themaster? $ $LAN(T3)"..strchar( 1 ).."$$"
   SendToAll(ScriptRestart)
   SendToAll(BotNameInfo) 
   SendToAll(OpChatInfo)
	SetTimer(TimeSpanInMinutes*60000)
	StartTimer()
end

Herodes · 14 October, 2004, 20:00:58

oooh now I get it ... you mean the MainChat ! :)

that fault has to be data arrival ...

check the line the error happens ...
identify what variables are used ...
and make sure they all have values in them ( meaning that they should be declared at some point before that line ... )

if they have all been declared by a function
then try to make sure that the function returns real values ... (not nil)

SendToAll, SendToNick and so on should
help you "scan" through the various part and the various variable values ...

PtokaX forum

News:

need help to my DataArrival

Themaster

Themaster

Herodes

Themaster

Herodes

Themaster

Herodes

Themaster

Themaster

Herodes

Themaster

bastya_elvtars

Herodes

Themaster

Herodes

Themaster

Herodes

bastya_elvtars

Themaster

Themaster

Themaster

Themaster

Herodes

Themaster

Herodes