kriss82
Dołączył: 25 Wrz 2010
Posty: 22
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: de
|
 Wysłany: Nie 13:50, 16 Sty 2011 Temat postu: Auto Vip |
|
|
| Kod: | on *:start: {
set %AutovipList.txt vipy.txt
set %AutovipList $read(%AutovipList.txt)
}
on *:text:*:#: {
var %Admin = Nick,Nick,Nick
if ($istok(%Admin,$nick,44)) {
if ($strip($1-2) == !Kom AV) { msg $chan $nick $+ : Komendy AutoVip: +av,-av,!res av,!list av }
if ($strip($1) == +AV) {
if $findtok(%AutovipList,$2,44) {
msg $chan Error: Nick $2 jest już w Bazie AutoVip
return
}
set %AutovipList $addtok(%AutovipList,$2,44)
set %AutovipList $sorttok(%AutovipList,44,a)
write -c %AutovipList.txt %AutovipList
msg $chan $nick $+ : Dodano $2 do AutoVip Listy
}
if ($strip($1) == -AV) {
if !$findtok(%AutovipList,$2,44) {
msg $chan Error: Nick'a $2 nie ma w Bazie AutoVip
return
}
set %AutovipList $remtok(%AutovipList,$2,44)
set %AutovipList $sorttok(%AutovipList,44,a)
write -c %AutovipList.txt %AutovipList
msg $chan $nick $+ : Usunięto nick'a $2 z AutoVip Listy
}
if ($strip($1-2) == !Res AV) {
if (%AutovipList != $null) {
set %AutovipList
write -c %AutovipList.txt %AutovipList
msg $chan $nick $+ : Resetuje Baze AutoVip
}
elseif (%AutovipList == $null) {
msg $chan $nick $+ : Baza AutoVip pusta
}
}
if ($strip($1-2) == !List AV) {
if (%AutovipList != $null) msg $chan AutoVip Lista: %AutovipList
if (%AutovipList == $null) msg $chan Error: AutoVip Lista pusta
}
}
}
ON *:JOIN:#: {
var %ile = $numtok(%AutovipList,44)
var %i = 1
while (%i <= %ile) {
if ($nick isin $gettok(%AutovipList,%i,44)) {
cs voice $chan add $nick
msg $chan $nick Cześć Vip'ie
}
inc %i
}
} |
Komendy AutoVip: +av,-av,!res av,!list av potrzebny plik AutovipList.txt po zapisaniu w remonte nalezy go ponownie zaladowac do prawidlowego dzialania
Post został pochwalony 0 razy
|
|
