PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: juda on 06 October, 2004, 15:51:28

Title: Another script for description tag !!!
Post by: juda on 06 October, 2004, 15:51:28
I be very happy for your help & time....
Using Xsthetic bot script and RoboCop 8.0b script
I already use description tag in "Xsthetic game server" for:
- master - [[[OWNER]]]
- operator - [[[OP]]]
- vip - [[[VIP]]]
 - reg - [[[REG]]]
This is already in script....
I like to register and create more profiles for my hub...like:

 - cooluserTagInDescription = "[[[COOL USER]]]"
 - RecruitTagInDescription = "[[[RECRUIT]]]"        
 - MemberTagInDescription = "[[[MEMBER]]]"
 - CoolmemberTagInDescription = "[[[COOL MEMBER]]]"
 - CorporalTagInDescription = "[[[CORPORAL]]]"  
 - RoutinierTagInDescription = "[[[ROUTINIER]]]"    
 - SupervisorTagInDescription = "[[[SUPERVISOR]]]"  
I already try using this script ,made from HAWK......
I change script for myself & geting this Syntax error:
 attempt to index a nil value
stack traceback:
 1:  function `Minshare' at line 169 [file `Robocop\DataArrival.lua']
 2:  function `DataArrival' at line 482 [file `Robocop\RoboCopv8.0b.lua']
---------------------------------------------------------------------------------------------------
--===Sets the tag to be shown in reg's descriptions=================

cooluserTagInDescription = "[[[COOL USER]]]"      --\\ Tag

--==================================================================
--===Sets the tag to be shown in Vip's descriptions=================

MemberTagInDescription = "[[[MEMBER]]]"       --\\ Tag

--==================================================================
--===Sets the tag to be shown in op's descriptions==================

CoolmemberTagInDescription = "[[[COOL MEMBER]]]"         --\\ Tag

--==================================================================
--===Sets the tag to be shown in masters's descriptions=============

RoutinierTagInDescription = "[[[ROUTINIER]]]"      --\\ Tag

--==================================================================
--===Sets the time for the tags to be updated=======================

Mins =  1

--==================================================================



timer = 60000 * Mins
function Main()
   SetTimer(timer)
   StartTimer()
end

function OnTimer()
   TagInDescription()
end

function TagInDescription()
   local aux,usr
   for aux, usr in GetUsersByProfile("member") do
      if (GetItemByName(usr) ~= nil) then
         local userToShow = GetItemByName(usr)
         if (userToShow.sMyInfoString ~= nil) then
            local s,e,name,desc,speed,email,share = strfind(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
            SendToAll( "$MyINFO $ALL "..name.." "..MemberTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
   for aux, usr in GetUsersByProfile("coolmember") do
      if (GetItemByName(usr) ~= nil) then
         local userToShow = GetItemByName(usr)
         if (userToShow.sMyInfoString ~= nil) then
            local s,e,name,desc,speed,email,share = strfind(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
            SendToAll( "$MyINFO $ALL "..name.." "..CoolmemberTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
   for aux, usr in GetUsersByProfile("routinier") do
      if (GetItemByName(usr) ~= nil) then
         local userToShow = GetItemByName(usr)
         if (userToShow.sMyInfoString ~= nil) then
            local s,e,name,desc,speed,email,share = strfind(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
            SendToAll( "$MyINFO $ALL "..name.." "..RoutinierTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
   for aux, usr in GetUsersByProfile("cooluser") do
      if (GetItemByName(usr) ~= nil) then
         local userToShow = GetItemByName(usr)
         if (userToShow.sMyInfoString ~= nil) then
            local s,e,name,desc,speed,email,share = strfind(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
            SendToAll( "$MyINFO $ALL "..name.." "..cooluserTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
end
-------------------------------------------------------------------------------------------
If I remove RoboCop, geting error for Xsthetic bot.....Thanks for help !!!    
 ---Some good idea for profile name is welcome......     see ya
Title:
Post by: bastya_elvtars on 06 October, 2004, 17:28:53
as i already said: run in order

so rc is upper in the scripts window of ptoax than esthetic

like


robocop.lua
zesthetic.lua

then zesthetic will execute l8r, and wont disturb rc
Title: Brrrrr
Post by: juda on 06 October, 2004, 18:38:58
Can`t get it work.....
Change all posible solution and get the same error every time...
Title:
Post by: ??????Hawk?????? on 06 October, 2004, 18:59:58
hi  juda m8  ...

I am working on new profile support for Xsthetic at the moment..

i Am using the same profiles as  Robocop so both script will Again run in Tandem..


The errors you are getting from Xsthetic is because of the  RoboCop Profile.dat  file  your using.

my script supports the standard profiles only and errors on anything different.


??????Hawk??????
Title:
Post by: bastya_elvtars on 06 October, 2004, 19:07:56
omg forgot about that rc uses non standard profiles i hate this

why not write a profiles.dat reading part hawk? ;)
Title:
Post by: ??????Hawk?????? on 06 October, 2004, 19:34:23
:)  :)

nice idea m8  ...  

will stop work on robo  compatibility and and try for full comptibility  ....

but later  need time to think it through with a beer or 2  at hand.

 :P  :P  :P  :P  :P  :P  :P  :P  :P  :P
Title: Nice.....
Post by: juda on 06 October, 2004, 20:59:05
will wait for your update.........
maybe you know for any other scripte to do this thing ???
or can I change something by my self....???

  Thanks again...!!!
Title: ???!!!
Post by: juda on 06 October, 2004, 22:06:48
I using and testing script that I posted afternoon,and geting the same error:
attempt to index a nil value
stack traceback:
1: function `Minshare' at line 169 [file `Robocop\DataArrival.lua']
2: function `DataArrival' at line 482 [file `Robocop\RoboCopv8.0b.lua']

can I ignore this error or it will do some problems.......
 thanks for reply.......see ya