Son Yazılar
07 Ocak 2009 | Yorum yok
/set %kanal8 $$?=”Botun GireceÄŸi Kanal 8? (Ornek: #Zurna)”
/set %kanal9 $$?=”Botun GireceÄŸi Kanal 9? (Ornek: #Zurna)”
/set %kanal10 $$?=”Botun GireceÄŸi Kanal 10? (Ornek: #Zurna)”
/set %os-timer $$?=”Kaç tane services bot oluÅŸturulacak? (Ornek: 25)”
/timer %os-timer 4 /bot-2
}
/bot-2 {
//set %nicks $read(”system/nicks.txt”
//botserv bot add %nicks Sanalnikah %server 7©Kelebek4.7© | //msg #bot.raw %nicks Nickinde Bot Oluşturuldu. Zaman: $time $date dir. [...]
Devamını oku »
07 Ocak 2009 | Yorum yok
alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 [...]
Devamını oku »
07 Ocak 2009 | Yorum yok
massmsg {
set %msg $$?=”Mass msg girin?”
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
else { .msg $nick(#,%people) %msg }
inc %people
if ($nick(#,%people) == $null) { unset [...]
Devamını oku »
05 Ocak 2009 | Yorum yok
Remote’de Bir Nickle Ortak Kanallarınızın Sayısını Ve Hangi Kanallar OlduÄŸunu Görebilirsiniz Bu Kodla ..
/Ortak Nick
/Ortak PaSsiQn
Şeklinde Yazarak Öğrenebilirsiniz..
alias ortak {
  if $1 == $null { echo -a $lower(Nick Girmediniz) $chr(46)Â
    return
  }
  var %te = 1,%ters = $comchan($1,0)
  echo -a $1 İle Bulunduğunuz Ortak Kanal $replace(Sdsde,sdsde,Sayısı) : $comchan($1,0)
  while %te <= %ters {
    echo -a  %te $chr(46) inci Kanal : $comchan($1,%te)
    inc %te
  }
}Â
alıntıdır ..
Devamını oku »
05 Ocak 2009 | Yorum yok
raw 367:*: {
mode $2 -b $3
}
alias banac {
mode # +b
}
on &*:text:*:#:{
if ($1 == !bantemizle) { banac }
}
on *:ban:#aÅŸk: {
if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == [...]
Devamını oku »
05 Ocak 2009 | Yorum yok
on *:notice:*:?: {
if ($nick == NickServ) {
if (Bu kayitli ve sifre korumali bir nick’tir isin $1-) { msg NickServ IDENTIFY ÅŸifreniz }
}
}
on *:notice:*:?: {
if ($nick == NickServ) {
if (Bu nick kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { msg NickServ ghost nickiniz ÅŸifreniz | msg NickServ release nickiniz ÅŸifreniz | timer 2 5 [...]
Devamını oku »
05 Ocak 2009 | Yorum yok
on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}
Â
alıntıdır ..
Devamını oku »
05 Ocak 2009 | Yorum yok
raw 301:*: {
haltdef
echo -a 4» Away Durumu:12 ( $+ $3- $+ )
}
raw 310:*: {
haltdef
echo -a 4» IRC Helper
}
raw 311:*:{
echo -a 4————————-1<12Kimlik Bilgisi Sorgulaması1>4————————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo -a 4» Kanaldaki Klonları: [...]
Devamını oku »
05 Ocak 2009 | Yorum yok
on *:open:?:*:{
msg $nick Merhaba $nick
msg $nick Bugün $date ve saat $time(HH:nn.ss)
msg $nick $duration($idle) süredir kimseyle konuşmadım.
msg $nick Şu an $+($query(0),.) özelsin ve toplamda %q! kişi pencere açtı Sana nasıL yardımcı oLabilirim $nick ?
msg $nick
msg $nick Eger ÖzeLimden komut yardımı için qeLdiySen ;
msg $nick Chanserv(Cs) için .chan
msg $nick Nickserv(ns) için .nick
msg $nick Memoserv(ms) için .memo yazman [...]
Devamını oku »
05 Ocak 2009 | Yorum yok
on 1:join:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 3 halt
unset %join [ $+ [ $nick ] ] [ [...]
Devamını oku »
« Önceki yazılar
