Гост
Jun 26 2008, 08:39 PM
Здравейте, може ли някои да ми поправи този ТЦЛ така че ако ник-а който следва да идентне е зает, бота да го ГХОСТ и да си влезе с него и да си го идентне, надявам се да сте ме разбрали, благодаря ви предварилтено.
CODE
# Времето през което бота да сменя ника ?
set nchange(mins) "1"
# Никовете, който искате бота ви да сменя ?
set nchange(nicks) "Nick1 Nick2 Nick3"
# Паролата за Идентификация NS на никовете ви !!! ВАЖНО !!! ( ПАРОЛАТА ТРЯБВА ДА Е ЕДНА И СЪЩА ЗА ВСИЧКИ НИКОВЕ ! )
set pass "password"
# НЕ пипай нищо, ако НЕ знаеш за какво е !
foreach ntimer [timers] {
if {[string match -nocase "*change:nick*" "[lindex $ntimer 1]"]} {
killtimer [lindex $ntimer 2]
}
}
timer $nchange(mins) [list change:nick $nchange(nicks) $nchange(mins)]
set nchange(length) 0
proc change:nick {nicks mins} {
global nick nchange pass
incr nchange(length)
if {"$nchange(length)" > "[llength $nicks]"} { set nchange(length) 1 }
set nick "[lindex $nicks [expr {$nchange(length)-1}]]"
putserv "PRIVMSG NS :id $pass"
timer $mins [list change:nick $nicks $mins]
}
int21h
Jun 26 2008, 08:51 PM
Просто тези два реда:
CODE
...
set nick "[lindex $nicks [expr {$nchange(length)-1}]]"
putserv "PRIVMSG NS :id $pass"
...
...ги замени с:
CODE
...
putserv "PRIVMSG NS: regain [lindex $nicks [expr {$nchange(length)-1}]] $pass"
...
Гост
Jun 26 2008, 09:38 PM
Еми мерси много пич, обаче сега пък не иска да ми сменя никовете, какво да правя, защо стана така ???
int21h
Jun 26 2008, 09:41 PM
Добави този ред
CODE
set nick "[lindex $nicks [expr {$nchange(length)-1}]]"
над реда:
CODE
putserv "PRIVMSG NS: regain [lindex $nicks [expr {$nchange(length)-1}]] $pass"
Просто бота си връща стария nick :)
Гост
Jun 26 2008, 10:13 PM
Да, направих сичко, ама бота не иска да го ГХОСТ-не -=> NICK IN USE: Taxi (keeping 'Nemoga'). просто го прескача и това е : )
Гост
Jun 26 2008, 10:41 PM
То дори не ми ги идентва, но това е вече отделен въпрос : )
int21h
Jun 26 2008, 10:46 PM
Само между другото.. в UniBG ли е бота ?
Гост
Jun 26 2008, 11:12 PM
Да ... ?
Гост
Jun 27 2008, 09:31 AM
И някои знаели изобщо как ще стане ?
Narf
Jun 27 2008, 11:35 AM
<offtopic>
Някой май иска тук да му напишат всички tcl скриптове
</offtopic>
Гост
Jun 27 2008, 11:57 AM
Или по-точно да ги редактират, как мислиш ?
Polizei
Jun 27 2008, 02:48 PM
http://sci-fi.co.cc/backup/egg/tcls/Почти всичко, което съм едитвал някога (а може би дори писал
)
ПП. еггдроп има бъг в сорса, и не харесва много регейна...
Не засича смяната на неговия си ник, ако е форсирана от сървъра...
ППП. Някъде из ТЦЛ-ите ми имаше един services, него си го ползвам и до днес, и доколкото помня работи и release-ва никовете
Гост
Jun 27 2008, 02:58 PM
Еми мерси много пич, обаче аз дадох точния ТЦЛ, и просто искам тои да се редактира, в линка който си ми дал ти няма подобно нещо което да идентва никовете ми .. ако можеш редактирай ми ТЦЛ-а който съм оставил, щом не може с релеасе, пробваи с ГХОСТ примерно, или не знам ... надявам се да успееш да ми помогнеш, и отново благодаря за всичко.
DaDiablo
Jun 27 2008, 03:48 PM
Не мислиш ли, че май ставаш малко нахален? Не стига, че чакаш всичко на готово, пък и претенции имаш ..
Polizei
Jun 27 2008, 04:33 PM
CODE
...
bind raw - 437 nick:in:use
proc nick:in:use {* 437 arg} {
global nick nickpass
putlog "*!* Nick in use, releasing..."
putquick "NS RELEASE $nick $nickpass"
puthelp "NICK $nick"
}
...
ПП. GHOST и RELEASE са едно и също нещо, ама кой ли чете хелпа?
Гост
Jun 27 2008, 04:39 PM
Това сега си го слагам в моя ТЦЛ дето съм го показал по-горе нали така ?
Гост
Jun 27 2008, 04:47 PM
Ако разбира се е така, сложил съм го ... обаче ефекта е 0-ев, бота не го киллва : )
Arruor
Jun 29 2008, 09:43 PM
Това е семпла версия на форума. За да видиш пълната версия, която има повече информация, по-добра подредба и снимки,
натисни тук.