Me, again. I need again a little script

duofruo · Post by **duofruo** » Fri Oct 24, 2003 4:56 am

I need a script, that will have a public command like this :
!greet ( Here the text )

When i use this command the bot will make a greet text, that will greet al people who join the chan in notice.

Post by **Sir_Fz** » Fri Oct 24, 2003 9:40 am

Code: Select all

bind pub m|m !greet greet:msg
bind join - * greet:user

proc greet:msg {nick uhost hand chan arg} {
global greetmsg
set greetmsg "[split $arg]"
}

proc greet:user {nick uhost hand chan} {
global greetmsg
puthelp "NOTICE $nick :$greetmsg"
}

this will let you be able to set the greet message using !greet <greetmsg> which will be sent to every user who joins.

duofruo · Post by **duofruo** » Sat Oct 25, 2003 2:27 am

Thx a lot, but can u say me from where did u learn so much? And if exist a manuals in other languages ?

duofruo · Post by **duofruo** » Sat Oct 25, 2003 3:29 am

It seems to be a problem, when i user !greet <greet msg> the script put a greet on all channels, i wana be set on the specific channel where i use the public command.

THX again ...

Ofloo · Post by **Ofloo** » Sat Oct 25, 2003 7:32 am

you mean like show on only one channel or that it is only executable on one channel i mean so you can use the trigger on one chan ?

Post by **Sir_Fz** » Sat Oct 25, 2003 8:58 am

if you want it to be displayed on only 1 channel, then add

Code: Select all

foreach channel [channels] { 
 if {[string match -nocase "#yourchannel" $channel]} {
  puthelp "NOTICE.....
 }
}

into the greet:user proc

if you want to be able to set a different greet message for each channel and make it greet each message for each channel, then it would need more work.. try to find out yourself.

duofruo wrote:Thx a lot, but can u say me from where did u learn so much? And if exist a manuals in other languages ?

I mostly learn from this forum.. and by looking at other scripts, and sometimes manuals.

duofruo · Post by **duofruo** » Sat Oct 25, 2003 12:09 pm

No, i mean that i would like to set greets in diferent channel. I want to set in diferent channels, diferent script

.

ie : #chan1 : !greet bla
#chan2 : !greet bla bla

Post by **caesar** » Sat Oct 25, 2003 1:59 pm

Then either use arrays or save to a file.

duofruo · Post by **duofruo** » Sat Oct 25, 2003 2:55 pm

As i said i am new in tcl world, i only know bind , putserv if . bla bla.
I don`t know what that is

.

Post by **caesar** » Sun Oct 26, 2003 2:25 am

Consult the manual then.

duofruo · Post by **duofruo** » Sun Oct 26, 2003 2:59 am

Caesar thanx. I get the ideea

. Of course it take more then 2 hours but i
succesfully made the script...

Post by **caesar** » Sun Oct 26, 2003 3:09 am

Oh realy, proove it!

GodOfSuicide · Post by **GodOfSuicide** » Sun Oct 26, 2003 3:16 am

duofruo wrote:Caesar thanx. I get the ideea . Of course it take more then 2 hours but i
succesfully made the script...

are you sure you didnt just wait 2h for user to show up ?

duofruo · Post by **duofruo** » Sun Oct 26, 2003 3:19 am

Nope, i am sure just ask him

I am noy kidding. It was me. But still has some bugs

Post by **caesar** » Sun Oct 26, 2003 3:52 am

A simple and efficient greet thing based on arrays:

Code: Select all

bind pub m|m !greet greet:msg 
bind pub m|m !ungreet ungreet:msg
bind join - * greet:user 

proc greet:msg {nick uhost hand chan text} { 
  global greet
  set greet([strlwr $chan]) [split $text]
  putserv "NOTICE $nick :Seted greet for $chan to \"[split $text]\""
}

proc ungreet:msg {nick uhost hand chan text} { 
  global greet
  foreach arr_greet [array names greet] {
    if {[string match [strlwr $chan] $arr_greet]} {
      array unset greet [strlwr $chan]
      putserv "NOTICE $nick :Removed greet from $chan channel."
    }
  }
}

proc greet:user {nick uhost hand chan} { 
  global greet
  if {![info exists greet([strlwr $chan])]} {
    return
  }
  puthelp "NOTICE $nick :$greet([strlwr $chan])" 
}

Note that upon restarting or killing the eggdrop he will forget all arrays. So, if you want it to store them then read/write them in a file.