vorbeste.tcl

Pagini: 1

Normal
Administrator
Postari: 12

Vad ca tot mai multi cer tcl`ul vorbeste asa k m`am gandit sa`l postez pe forum, acesta este:

Code:

set flagurile -|-
setudef flag vorbeste

set cuvantul1 "sal"
set cuvantul2 "re"
set cuvantul3 "ciao"
set cuvantul4 "hello"
set cuvantul5 "buna"
set cuvantul6 "lol"

bind pub $flagurile $cuvantul1 text-1
bind pub $flagurile $cuvantul2 text-2
bind pub $flagurile $cuvantul3 text-3
bind pub $flagurile $cuvantul4 text-4
bind pub $flagurile $cuvantul5 text-5
bind pub $flagurile $cuvantul6 text-6

proc text-1 {nick uhost handle chan args }  {
global text1
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :salut $nick ,ce mai face maica-ta ? :D"
}
return 0
}

proc text-2 {nick uhost handle chan args}  {
global text2
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :$nick .. Ce vant te aduce pe la noi ?"
}
return 0
}

proc text-3 {nick uhost handle chan args}  {
global text3
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :$nick am auzit k dai /quit :D asa`i ?:))"
}
return 0
}

proc text-4 {nick uhost handle chan args}  {
global text4
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :Oh..$nick you are a fuckin english :| /part or ban :D "
}
return 0
}

proc text-5 {nick uhost handle chan args}  {
global text5
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :LOL $nick .. cine e buna ?:D undee??Da`mi ID`u de mess al ei :))"
}
return 0
}

proc text-6 {nick uhost handle chan args }  {
global text6
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :Oai $nick .. tu esti clovnul canalului :D ce`am mai ras.. ;) "
}
return 0
}

putlog "Vorbeste.tcl By ReaL|DoG @ #Lending"

Acesta il salvati intr-un fisier .tcl cu numele vorbeste.

Pentru al aduga face urmatoarele:
mergeti in eggdrop.conf si adaugati linia :

Code:

source scripts/vorbeste.tcl

salvati iar apoi in settings.conf adaugati :

Code:

setudef flag vorbeste

iar in ascript / LendingScript ( depinde de arhiva folosita ) , in a&a_22_a_local_n.tcl / lending_22_a_local_n.tcl ... cautati linia :

Code:

[regexp {^[+-]
(auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)....

si adaugati vorbeste la final aratand astfel:

Code:

(vorbeste|auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)...

Dupa care salvati.....dati !rehash la bot iar apoi pt a merge tcl`ul il setati cu !chanset +vorbeste . Dak doriti sa adaugati alte cuvinte la caresa reactioneze luati k exemplu cele puse deja

Va rog sa pastrati numele celui care a conceput tcl`ul..nu fiti lameri

Have fun.

Dak da erori postati aici..

Pagini: 1

Mergi la