right click question

[lynyrd]

i have 2 problems that i hope someone could help me with..
im playing around with rightclick menus
question 1.how do i add a submenu? like in robocop?
question 2.i get disconnected when adding question to trivia game

code:
------------------------------------------------------------------------------
-- PtokaX Lua 5 version by PPK

-- UserCommand extension script for PtokaX by Gadget

function NewUserConnected(curUser)
   if curUser.bUserCommand then
      curUser:SendData("$UserCommand 255 7")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (Rules) ***$<%[mynick]> !rules|")
      curUser:SendData("$UserCommand 1 3 HELP$<%[mynick]> !help|")
                                curUser:SendData("$UserCommand 1 3 FAQ$<%[mynick]> !faq|")
                                curUser:SendData("$UserCommand 1 3 MYIP$<%[mynick]> !myip|")
                                curUser:SendData("$UserCommand 1 3 MYINFO$<%[mynick]> !myinfo|")
                                curUser:SendData("$UserCommand 1 3 change pass$<%[mynick]> !repass|")
                                curUser:SendData("$UserCommand 1 3 Tophubbers$<%[mynick]> !tophubbers|")
                                curUser:SendData("$UserCommand 1 3 Showreg$<%[mynick]> !showreg %[line:Enter profile (reg,vip,op,master)]|")
                                curUser:SendData("$UserCommand 1 3 Away message$<%[mynick]> !away %[line:Enter away message]|")
                                curUser:SendData("$UserCommand 1 3 Back after away$<%[mynick]> !back|")
                                curUser:SendData("$UserCommand 1 3 Get aways$<%[mynick]> !getaways|")
                                curUser:SendData("$UserCommand 1 3 Report Bad User$<%[mynick]> !report %[line:users nick] %[line:reason for reporting this user]|")
                                curUser:SendData("$UserCommand 1 3 My total hubtime$<%[mynick]> !myhubtime|")
                                curUser:SendData("$UserCommand 1 3 Free slots$<%[mynick]> !slots|")
                                curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 TRIVIA//Triviahelp$<%[mynick]> tbhelp|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//join triviagame$<%[mynick]> tbjoin|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//quit triviagame$<%[mynick]> tbpart|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//show scores$<%[mynick]> tbscores|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//top ten trivia players$<%[mynick]> tbtopten|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//show your points$<%[mynick]> tbpoints|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//triviaplayers$<%[mynick]> tbplayers|")
                                curUser:SendData("$UserCommand 1 3 TRIVIA//add a question to trivia database$<%[mynick]>tbaddquestion %[line:question here]%[line:answer here start with #]|")
   end
end
------------------------------------------------------------------------------------
end of code

[Jelf]

For Trivia you have it slightly wrong, hence disconnection,
Change this..

TRIVIA//Triviahelp

to this..

TRIVIA\\Triviahelp

And that is how you add submenu's by using \\

[lynyrd]

hehe thanks did'nt really connect there =)

[bastya_elvtars]

About $UserCommand, i recommend reading this.

[lynyrd]

humm..got another one
how do i add this line so it sends the command to a bot
from main?
code:
-----------------------------------------------------------------------
curUser:SendData("$UserCommand 1 3 OFFLINE\\message to offline user$<%[mynick]> !mail %[line:nick] %[line:message] |")
-----------------------------------------------------------------------
end
%[botname:offlinebot] sure does not work ;)

[Herodes]

Originally posted by lynyrd
humm..got another one
how do i add this line so it sends the command to a bot
from main?

curUser:SendData("$UserCommand 1 3 OFFLINE\\message to offline user$<%[mynick]> !mail %[line:nick] %[line:message] |")

end
%[botname:offlinebot] sure does not work ;)

curUser:SendData("$UserCommand 1 3 Menu Level\\Menu Item$To: PUT_YOUR_BOTS_NAME_HERE From: %[mynick] $<%[mynick]> !cmd %[line:message] |")

It should work like that ... try and say .. :)

[lynyrd]

i got disconnected again.
tried your code an this...

curUser:SendData("$UserCommand 1 3 offline\\offline message$ To:offlinebot From:<%[mynick]> $ %<%[mynick]> !mail %[line:nick] %[line:message]|")

strange

[jiten]

Try this one:

curUser:SendData("$UserCommand 1 3 offline\\Offline Message$<%[mynick]> !mail %[line:Nick] %[line:Message]||")

Best regards.

[lynyrd]

thanks jiten
but the results comes up in main showing the whole command like this " !mail [SU]test test"
but i start to realise that it probably is much easier
to change the offline script to receive info from main
and if someone is willing to help out heres the script

code:
------------------------------------------------------------------------------
-- offlinemsg.lua, created by amutex 11.01.2003
-- thx to nathanos for the fine pm-parsing
-- bits and pieces added and deleted by bolamix over time, kudos to all scripters who helped!
-- attempted conversion to lua5 by bolamix Feb. 27 2005
-- successful conversion to lua5 by Jelf March 9 2005
-- usage: send a PM to the bot with

path = "messages" -- name of the folder where the message files will be stored
ext = ".msg" -- extension for the message files
command = "!mail"
botname = frmHub:GetHubBotName() -- or use whatever botname you want then uncomment the following 3 lines
--function main
--    frmHub:RegBot( botname )
--end

os.execute("mkdir ".."\""..string.gsub(path, "/", "\\").."\"")

function Get2Args(data)
   s,e,whoTo,from,cmd,arg,arg2 = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)%s+(%S+)%s+(.*)")
   return arg,arg2
end

function ToArrival(user, data)
   s,e,whoTo = string.find(data,"$To:%s+(%S+)")
   if (whoTo == botname) then
      s,e,whoTo,from,cmd = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)")
      if (cmd == command) then
         arg,arg2 = Get2Args(data)
         local f,e = io.open(path.."/"..arg..ext,"a+")
         if f then
             f:write(""..user.sName.." sent you this message on "..GetDate().." at "..GetTime().." : "..arg2)
            user:SendPM(botname,"Message stored. It will be sent to "..arg.." next time he/she logs in.")
            f:close()
         end
      end
   end
end

function NewUserConnected(curUser)
   local handle = io.open(path.."/"..curUser.sName ..ext,"r")
   if (handle ~= nil) then
      local line = handle:read()
      curUser:SendPM("#Offline_Message", line)
      handle:close()
       os.remove(path.."/"..curUser.sName..ext)
   else
   end
end

OpConnected = NewUserConnected

function GetTime()
   h = os.date("%H")
   m = os.date("%M")
   Time = h..":"..m
   return Time
end

function GetDate()
   d = os.date("%d")
   mm = os.date("%m")
   y = os.date("%y")
   Date = mm.."/"..d.."/"..y
   return Date
end
------------------------------------------------------------------------------------
end of code

[jiten]

Try this one:

-- offlinemsg.lua, created by amutex 11.01.2003
-- converted to LUA 5 by jiten
-- thanks to dessamator for the rightclick hint :]
-- thx to nathanos for the fine pm-parsing
-- bits and pieces added and deleted by bolamix over time, kudos to all scripters who helped!
-- attempted conversion to lua5 by bolamix Feb. 27 2005
-- successful conversion to lua5 by Jelf March 9 2005
-- usage: send a PM to the bot with   

path = "messages" -- name of the folder where the message files will be stored
ext = ".msg" -- extension for the message files
command = "!mail"
botname = frmHub:GetHubBotName() -- or use whatever botname you want then uncomment the following 3 lines

--function Main()
--	frmHub:RegBot( botname )
--end

os.execute("mkdir ".."\""..string.gsub(path, "/", "\\").."\"")

function Get2Args(data)
	s,e,whoTo,from,cmd,arg,arg2 = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)%s+(%S+)%s+(.*)")
	return arg,arg2
end

function ToArrival(user, data)
	s,e,whoTo = string.find(data,"$To:%s+(%S+)")
	if (whoTo == botname) then
		s,e,whoTo,from,cmd = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)")
		if (cmd == command) then
			arg,arg2 = Get2Args(data)
			local f,e = io.open(path.."/"..arg..ext,"a+")
			if f then
				f:write(""..user.sName.." sent you this message on "..GetDate().." at "..GetTime().." : "..arg2)
				user:SendPM(botname,"Message stored. It will be sent to "..arg.." next time he/she logs in.")
				f:close()
			end
		end
	end
end

function NewUserConnected(curUser)
	UserCmds(curUser)
	local handle = io.open(path.."/"..curUser.sName ..ext,"r")
	if (handle ~= nil) then
		local line = handle:read() 
		curUser:SendPM("#Offline_Message", line)
		handle:close()
	 	os.remove(path.."/"..curUser.sName..ext)
	else
	end
end

OpConnected = NewUserConnected

function GetTime()
	h = os.date("%H")
	m = os.date("%M")
	Time = h..":"..m
	return Time
end

function GetDate()
	d = os.date("%d")
	mm = os.date("%m")
	y = os.date("%y")
	Date = mm.."/"..d.."/"..y
	return Date
end

function UserCmds(curUser)
curUser:SendData("$UserCommand 1 2 offline\\Offline Message$$To: "..botname.." From: %[mynick] $<%[mynick]> !mail %[line:Nick] %[line:Message]||")
end

Best regards,

jiten