[es] - mali tcl problem

LaMpiR

Član broj: 9930
Poruke: 1343

+2 Profil

^{13.11.2004. u 00:52 - pre 236 meseci}

Pravim svoju help skriptu za eggdrop.

Code:

bind pubm - "#pomoc !komande" kom
bind pubm - "#pomoc !pomoc1" kom1
bind pubm - "#pomoc !pomoc2" kom2

proc kom {nick uhost hand channel args} {
       putserv "notice $nick :  Za sada se nalaze samo osnove komande:"
       putserv "notice $nick :    1) Registracija nicka"
       putserv "notice $nick :    2) Registracija kanala"
       putserv "notice $nick :  Za detaljniju pomoc kucajte !pomocx (npr. !pomoc1 da bi vidjeli kako se nick registruje)"
}

proc kom1 {nick uhost hand channel args} {
       putserv "notice $nick : Da bi registrovali svoj nick,upisite: /ns register password e-mail , Primjer /ns register [email protected]"
}

proc kom2 {nick uhost hand channel args} {
       putserv "notice $nick : Da bi registrovali kanal , ukucajte: /cs register #ime-kanala password opis , Primjer /cs register #test tester Test Kanal"
}

e sad morao sam mjenjati

Code:
bind pubm - "#pomoc !pomoc1" kom1
bind pubm - "#pomoc !pomoc2" kom2

bilo je

Code:

bind pubm - "#pomoc !pomoc 1" kom1
bind pubm - "#pomoc !pomoc 2" kom2

E sad sve je radilo kad je bilo ovo pomoc x ali kad sam povezan preko telneta na bota kad neko otkuca npr !pomoc 1 meni se ovo pojavi

[01:46] Tcl error [1]: invalid command name "Primjer:"
[01:46] Tcl error [1]: invalid command name "Primjer:"

Kako da ovo rijesim? Da bude !pomoc 1 i da nema poruke na telnetu ?

Odgovor na temu

r3ct0r

Član broj: 163
Poruke: 390

+2 Profil

Re: mali tcl problem

^{24.11.2004. u 10:48 - pre 236 meseci}

Probaj:

Code:

set ran {
  "Da bi registrovali svoj nick,upisite: /ns register password e-mail , Primjer /ns register [email protected]"
}
bind pub - {!pomoc 1} pub_pomoc1
}
proc pub_pomoc {nick uhost hand chan $ran:-)} {
  global ran
  if [rand 2] {
    putchan $chan "[lindex $ran [rand [llength $ran]]]"
    }
    return 1
}

Misli da je ovako nesto, btw: ovo ti je za chan msg, nije notice.

Odgovor na temu