Çevrimdışı

;Uzun süre önce yaptığım Helperler için güzel bir uyarı sistemi
;Cod
#helpers on
on *!:join:#help:{
if ($me isop #Help) || ($me ishop #Help) {
$+(.timer,$nick) 1 1 usermi $nick
}
}
#helpers end
alias usermi {
if ($1 isreg #help) {
set %kişi $1
.ns status $1
}
}
On ^*:notice:*:?: {
if ($nick == NickServ) {
if (*STATUS %kişi 0* iswm $1-) { if ($2 == %kişi) && (!$dialog(Hasist)) { set %kişi1 Kayıtsız Nick. | Hasist } }
elseif (*STATUS %kişi 1* iswm $1-) { if ($2 == %kişi) && (!$dialog(Hasist)) { set %kişi1 Nick Şifresi Tanıtılmamış. | Hasist } }
elseif (*STATUS %kişi 3* iswm $1-) { if ($2 == %kişi) && (!$dialog(Hasist)) { set %kişi1 Kayıtlı Nick. | Hasist } }
else { return }
}
}
dialog Hasist {
title Helper uyarı sistemi
size -1 -1 161 52
option dbu
text "", 1, 3 14 70 8
text "Kayıtsız Nick", 2, 78 14 79 8
button "Yardim Et", 3, 44 40 30 10
check "Bu uyarıyı gösterme", 4, 48 25 74 10
button "Es Geç", 5, 79 40 30 10
text "Yerdım Bekleyen Rumuz:", 6, 3 5 70 8
text "Status Durmu:", 7, 78 5 79 8
}
alias Hasist { $iif(!$dialog(Hasist),dialog -ma Hasist Hasist) }
on *:dialog:Hasist:*:*:{
if ($devent == init) {
.timerac 1 10 kapat
did -a $dname 1 %kişi
did -a $dname 2 %kişi1
if ($group(#helpers).status == off) { did -c $dname 4 }
beep 1 1
}
if ($devent == sclick) {
if ($did == 4) {
if ($did(4).state == 1) { .disable #helpers }
else { .enable #helpers }
}
if ($did == 3) { mode #help +v %kişi | msg #help Merhaba, %kişi Size Nasıl Yardımcı Olabilirim? | dialog -x $dname }
if ($did == 5) { dialog -x $dname }
}
}
on 1:voice:#help:{ $iif($nick == $me,set %kişi $vnick,kapat) }
on *:part:#help:{
if ($nick == %kişi) { unset %kişi* | kapat }
}
on *:quit:{ $iif($nick == %kişi,unset %kişi*) }
menu nicklist {
$iif($active == #help,$iif($group(#helpers).status == on,1 $chr(11) Helper Uyari Acik))
.$iif($group(#helpers).status == on,Kapat):.disable #helpers
$iif($active == #help,$iif($group(#helpers).status == off,1 $chr(11) Helper Uyari Kapali))
.$iif($group(#helpers).status == off,Ac):.enable #helpers
}
on 1:nick:{ $iif($nick == %kişi,set %kişi $newnick) }
alias kapat { $iif($dialog(Hasist),dialog -x Hasist) }
on *:load:{ echo -a 7Helper Asistanı12 Yüklediniz.Bu menuye 7"#Help kanalının nick listesi" 12nden ulaşabilirsiniz. }


;Codu kopyalayıp mIRC te alt+R kısmına yapiştirin
;#Help kanalında Nickliste sağ tıkla***** açıp/kapatabilirsiniz..