1. Kod : Google’da arama yapma. Kullanımı: /gara kelime 2. Kod : Pagerank deÄŸeri ölçme. Kullanımı: /ara domain.uzantısı 1. Kod; alias gara { if !$1 { echo -at Bilgi: Herhangi bir kelime girmediniz. Kullanım ÅŸekli: $+($chr(2),/gara kelime,$chr(2)) | halt } else { set -e %1 $1- | set %3 $count(%1,$chr(32)) | sockclose google | sockopen [...]
on $*:text:/!badnick(ekle|sil)\s(\S+)/ASi:#rapor:{ var %badnick = badnick $regml(2),%msj = msg # $regml(2) maskı goto $regml(1) :ekle | auser %badnick | %msj eklendi | halt :sil | ruser %badnick | %msj silindi } on *:snotice:*:{ if $level($9) == badnick { if $($+(%,bad,~,$9),2) == $9 { os raw svsnick $9 Guest $+ $r(1,9999999) :0 } else { kill [...]
Proje : Kelime Algılayıcı (Strong Wall System) v1.0 Kodlayan : XcLusive Download: sws-addonu Ne işe yarar?; algılama için eklenen kelimeyi ascii karakterlerden söküp alır bu sayede küfür reklam vb. mesajları daha iyi ve sağlıklı olarak tespit edebilirsiniz. (SpecifiC arkadaşımzın önerim üzerine kendi kodlamasına koyduğu bir işlem tabi ben bunu daha anlaşılır bir şekilde dialog haline [...]
on *:start:unset %scnt alias msj { if !%scnt { set %scnt 1 } msg #test,#oyun,#sohbet $read(mesaj.txt,%scnt) inc %scnt 1 if %szlines < %scnt { set %scnt 1 } } menu * { Oto mesaj .Aç:set %scnt 0 | .timerfm 0 600 msj .kapat:.timerfm off } Did you like this? Share it:Tweet
alias yt { if (($dde(opera,WWW_GetWindowInfo)) || ($dde(firefox,WWW_GetWindowInfo)) || ($dde(netscape6,WWW_GetWindowInfo)) || ($dde(iexplore,WWW_GetWindowInfo,1))) { if ($regex(url,$v1,/^”([^"]+)”\x2C”([^"]*)”(?:x2C”.*”)?$/)) { if (http://www.youtube.com/* iswm $+($regml(url,1)),$+(“,$regml(url,1),”)) { describe $active IzLediÄŸim Video : $+ $iif($regml(url,2),$remove($gettok($regml(url,2),2-,45),])) YouTube $+($regml(url,1)),$+(“,$regml(url,1),”)) } else { echo -a *Hata* Bu Bir YouTube Linki DeÄŸiL. } } else { echo -a *Hata* Browser BuLunamadı yada TanımLanamıyor… } } } NOT: [...]
on *:open:?:*:{ if ( $nick != %ozelson ) { unset %ozelkod set %ozelyazi $1- set %gerekli (ßy PysCoPat) set %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) .privmsg $nick 4 Kontrol ediliyorsunuz… 15 %gerekli .timer 1 4 .msg $nick 2Selam4 $nick .timer 1 4 .msg $nick 2Bot olmadığınız kanıtlamak için özelime 4 !kod %ozelkod 2 yazınız.. 15 [...]
alias radyom { sockclose radyo*Df sockclose radyo*zyn if (: !isin $1) && (!$2) { echo -a 1453 | return } if ($1 == $null) { echo -a 38.99.21.22 | return } if (: isin $1) { tokenize 58 $remove($1,http://,/) sockopen $+(radyom,$r(1,9999),Df) $1 $2 set %sitem $1 $2 } else { sockopen $+(radyom,$r(1,999),!) $remove($1-,http://,/) | set [...]
Kodun işlevleri: 1- Kod socket ile verileri webden(illerarasimesafe.com) alır.(Bilgisayarınızda internet bağlantısı gereklidir.) 2- Belirtilen ilk il ile belirtilen ikinci il arasındaki yol mesafesini(km cinsinden) hesablar. Ve ortalama kaç saat olduğunu gösterir. 3- Belirtilen il ile ilçe arasındaki mesafeyi aynı şekilde gösterir. 4- Belirtilen il-ilçe ile ikinci belirtilen il-ilçe arasındaki mesafeyi yine aynı şekilde gösterir. Kod/code: [...]
on *:Connect: { if ($server == irc.sunucuadi.com) { ns release Nickiniz ÅŸifreniz ns ghost Nickiniz ÅŸifreniz .timer 1 10 /Oper Nick Operpass .timer 1 12 /Nick Nickiniz .timer 1 13 /Ns identify ÅŸifreniz .timer 1 15 /Chgident Nickiniz ident .timer 1 16 /Chghost Nickiniz host .timer 1 17 /Chgname Nickiniz setname } } Did you [...]
alias opergir { set %opernick $?=”Oper Nickinizi Giriniz” set %operpass $?=”Oper Åžifrenizi Giriniz” set %nicksifre $?=”Nick Åžifreniz” oper %opernick %operpass | .nick %opernick | .identify %nicksifre | echo -a 14,14 11 Operiniz Nick Åžifreniz GirilmiÅŸtir. } on *:CoNNECT:{ .msg nickserv ghost %opernick %nicksifre .oper %opernick %operpass .nick %opernick .msg nickserv identify %nicksifre } Did you [...]
