egghelp/eggheads community

My First Script

2003-10-08T14:00:54-04:00

Hehe.. error spoted..

Code:

global poz_chans text text2

should be:

Code:

global poz_chans text1 text2

Anyway, if you want to drop the *line* and call the global variables then call them like $::text1 and $::text2 in the line where you want them.

Statistics: Posted by caesar — Wed Oct 08, 2003 2:00 pm

My First Script

2003-10-08T12:09:18-04:00

no i have changed it

Statistics: Posted by NoFear — Wed Oct 08, 2003 12:09 pm

Re: My First Script

2003-10-08T10:01:12-04:00

Hi!
This is my first script, but it doesn't work.. i youst don't know what the problem is.
Code:
################################      .:[H-Town Team]:.      ##   .:[JoinGreet Script]:.    ##                             ################################## Vpiši pozdravni text.set text "Text"set text2 "Text2"[snip]
[snip]

you forgot to change text to text1 as we did in our codes.

Statistics: Posted by Sir_Fz — Wed Oct 08, 2003 10:01 am

My First Script

2003-10-07T16:41:19-04:00

Umm.. yes.. the:

Code:

   putserv "NOTICE $nick :$Text1"   putserv "NOTICE $nick :$Text2"

lines.. change them to something that suits your needs.

Statistics: Posted by caesar — Tue Oct 07, 2003 4:41 pm

My First Script

2003-10-07T14:17:01-04:00

yes i do but there is some error "there is no such variable text1" something like that.

Statistics: Posted by NoFear — Tue Oct 07, 2003 2:17 pm

My First Script

2003-10-07T13:46:04-04:00

they should work. do you .rehash or .restart when you load the script ?

Statistics: Posted by Sir_Fz — Tue Oct 07, 2003 1:46 pm

My First Script

2003-10-07T11:13:07-04:00

yes he had op. no this don't work.. :/

Statistics: Posted by NoFear — Tue Oct 07, 2003 11:13 am

My First Script

2003-10-06T15:24:59-04:00

NoFear, was your bot an OP when you tried my code?

Statistics: Posted by Dedan — Mon Oct 06, 2003 3:24 pm

My First Script

2003-10-06T15:12:16-04:00

ExAcTlY!

Statistics: Posted by caesar — Mon Oct 06, 2003 3:12 pm

My First Script

2003-10-06T15:10:53-04:00

CaSe SeNsTiVe?

Statistics: Posted by Dedan — Mon Oct 06, 2003 3:10 pm

My First Script

2003-10-06T15:07:14-04:00

the:

Code:

if {[lsearch -exact $poz_chans $chan] == -1} {return 0}

should be:

Code:

if {[lsearch -exact [strlwr $poz_chans] [strlwr $chan]] == -1} {return 0}

just due the lower and upper names of the channels. Observere:

(caesar) .tcl set text "moo bla oink" ; lsearch -exact $text "BLA"
(moo) Tcl: -1
(caesar) .tcl set text "moo bla oink" ; lsearch -exact $text "bla"
(moo) Tcl: 1

Statistics: Posted by caesar — Mon Oct 06, 2003 3:07 pm

My First Script

2003-10-06T14:36:31-04:00

or simpler would be:

Code:

set text1 "Text" set text2 "Text2" set poz_chans "#Kanal1 #Kanal2" bind join - * pozdrav proc pozdrav {nick uhost hand chan} { global poz_chans text text2 if {[lsearch -exact $poz_chans $chan] == -1} {return 0}   putserv "NOTICE $nick :$Text1"    putserv "NOTICE $nick :$Text2" }

if you want the bot to greet only if its oped then add || ![botisop $chan] in the if statement.

Statistics: Posted by Sir_Fz — Mon Oct 06, 2003 2:36 pm

My First Script

2003-10-06T14:30:03-04:00

Ok i changed my avatar to nothing hm.. nope doesn't works :/

Statistics: Posted by NoFear — Mon Oct 06, 2003 2:30 pm

My First Script

2003-10-06T12:47:25-04:00

i just edited
"putserv "NOTICE $nick : $Text1 "
to "putserv "NOTICE $nick : $text1 "

btw, I would be nice if you changed your avatar.

Statistics: Posted by Dedan — Mon Oct 06, 2003 12:47 pm

My First Script

2003-10-06T12:38:58-04:00

maybe this will work

Code:

set text1 "Text" set text2 "Text2"set poz_chans "#Kanal1 #Kanal2" bind join -|- * pozdravproc pozdrav {nick uhost handle channel} {   global botnick poz text1 text2  set chan [string tolower $channel]  if {![info exists poz($chan)]} {return 0}  if {![botisop $chan]} {return 0}  putserv "NOTICE $nick : $text1 "   putserv "NOTICE $nick : $text2 "  return 0 } if {$poz_chans != ""} {  foreach chan [string tolower $poz_chans] {    set poz([string tolower $chan]) 1  }}

Statistics: Posted by Dedan — Mon Oct 06, 2003 12:38 pm