dialog uyaricilarim {
title "Uyarıcılar"
size -1 -1 100 82
option dbu
box "Sohbet-chat-Baksen", 1, 13 8 73 50
check "Nick Uyarıcısı", 2, 25 22 50 10
check "Cafe Uyarıcısı", 3, 25 37 50 10
button "Kapat", 4, 31 64 37 12 , ok
}
alias uyaricilarim dialog -m uyaricilarim uyaricilarim
on 1:dialog:uyaricilarim:sclick:*:{
if ($did(2).state == 1) { .enable #nickuyarr } | else { .disable #nickuyarr }
if ($did(3).state == 1) { .enable #cafeuyar } | else { .disable #cafeuyar }
}
on 1:dialog:uyaricilarim:init:0:{
if ($group(#nickuyarr) == on) { did -c uyaricilarim 2 }
if ($group(#cafeuyar) == on) { did -c uyaricilarim 3 }
}
-------------
#nickuyarr on
on *:TEXT:$(* $+ $me $+ *):#:{
if $chan == $active || $nick == Turetsene || $nick == Sorubotu {
.halt
}
else {
echo -a 14> 14[0,2 UYARI 14,0]1 $me 10 $nick 4 # 1kanalında senden bahsediyor!
}
}
on *:TEXT:$(* $+ $me $+ *):?:{
if $active == $nick || $nick == Turetsene || $nick == Sorubotu {
.halt
}
else {
echo -a 14> 14[0,2 UYARI 14,0]1 $me 10 $nick 4 4özelde 1senden bahsediyor!
}
}
#nickuyarr end
-------------
#cafeuyar on

on 1:open:?: {
if $address($nick,2) != $null qc $nick
else {
set %ial query
.who $nick
}
}
alias qc {
if ($1 == $null) { goto sons }
unset %qc*
if $ial( $address($1,2) , 0 ) < 2 halt
:başla
inc %qc
if $ial( $address($1,2) , %qc ).nick == $1 goto başla
if $ial( $address($1,2) , %qc ).nick == $null goto son
set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
goto başla
:son
if %qc [ $+ [ $1 ] ] == $null halt
echo $1 12*** 2Özelinizdeki 4 $1 %qc [ $+ [ $1 ] ] 2aynı cafe'den yada aynı kişiler. 4( $+ $address($1,2) $+ )
echo $1 
unset %qc*
:sons
}

#cafeuyar end
-------------
menu channel,status,menubar {
® Uyarıcılar:.dialog -m uyaricilarim uyaricilarim
}

bu şekilde de dialogla kullanılabilir ben botların ismini Sorubotu ve Turetsene koydum siz sunucunuza göre degiştirebilirsiniz

Eklenen Resim Ön İzlemesi

Konuya cevap yazmadan eklentideki dosyayı göremezsiniz...

________________