Hazır kodlar

Tarihte Bugün Gösterici

Kod:

; Tarihte Bugün Gösterici By SCouNDReL
; [url=http://www.bianet.org]www.bianet.org[/url] a teşekkürler

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }
alias tbugun { dialog -m tarih tarih  }
on *:SockOpen:tarih*:{
  sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0
  sockwrite -n $sockname host: [url=http://www.bianet.org]www.bianet.org[/url] $+ $crlf $+ $crlf
}
on *:SockRead:tarih*:{ 
  var %a
  sockread %a
  if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }
  if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) }
  if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }
}
dialog tarih {
  title "Tarihte Bugün Gösterici"
  size -1 -1 133 169
  option dbu
  edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar
  button "Çıkış", 2, 47 151 37 12, ok
}
on *:dialog:tarih:init:*:{
  unset %sjn 
  sockclose tarih* 
  sockopen $+(tarih,$r(1,999)) [url=http://www.bianet.org]www.bianet.org[/url] 80
}

İstenmeyen yazıları *** olarak görüntüleyin

Kod:

ON ^*:TEXT:*:*: {
var %coco = 1
var %metin = $strip($1-)
if (%kelime = http://www.,.net,.com,a.k,köpek,piç,deneme/) {
;kelimeler örnek olarak eklendi bunları while yada hget ile de faklı biçimlerde kullanbilirsiniz.
while $gettok(%kelime,%coco,44) { 
if ($v1 isin %metin) { 
var %metin = $replace(%metin,$v1,14*****)

;**** lı olan kısma alt+160 boş TAB karekterini kullanarak hiç bir yazı da görüntületmeyebilirsiniz. Tavsiye etmem. kişinin ne yazdıgı merak edilebilir 

inc %coco
}
}
}
if (***** isin %metin) { 

;eger karakteri alt+160 ile ayarlarsanı yukarıdaki **** ları da aynı yapmalısınız.

echo -tbf $iif($chan,$v1,$nick) $+(<,$nick,>) %metin

;$+(<,$nick,>) kısmını $+([,$nick,]) gibi temanıza göre ayarlayabilirsiniz.

haltdef
}
}

Vizyondaki Filmler

Kod:

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 @Sinema.com } | aline -p @Sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width="271" class="red" valign="top"><a href="film_ozetbilgiler.aspx* iswm %-) || (*<td width="391"><a href="film_ozetbilgiler.aspx?FilmID=*"><img src="images/but_git.gif"* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src="images/but_os.gif"* iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+(,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler),) }
elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } }
}
}

Basit bir clone koruması

Kod:

on @*:JOIN:#:{ 
  if ($ial == $false) .ial on 
  if ($chan(#).ial == $false) { who # | return } 
  var %total = $ialchan($wildsite,#,0) 
  if (%total > 3) { 
    var %i = 0 
    while (%i < %total) { 
      inc %i 
      var %nick = $ialchan($wildsite,#,%i).nick 
      var %all.nicks = $addtok(%all.nicks,%nick,32) 
      if (%nick !== $me) {  
        .raw -q mode $chan +b $mask($fulladdress,2)  
        .raw kick $chan %nick  4 # 2 KanaLında CLoné Yapmak Yasaktır.  (4 $+ %total 2KuLLanıcı) %bans 
        .unset %nick  
      } 
    } 
  } 
}  
}

Ülke/Şehir Bulucu

Kod:

raw 401:*: { msg #nerden $2 : Nick'i online degil! }
alias nerden { 
set %ip $1 
sockclose nerden
sockopen nerden [url=http://www.ripe.net]www.ripe.net[/url] 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1
sockwrite -n $sockname Host: [url=http://www.ripe.net]www.ripe.net[/url] $+ $crlf $+ $crlf 
}
on *:sockread:nerden:{ 
sockread %ğ
if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) }
if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) }
} 
on *:text:*:#Nerden:{ 
if ($1 == !nerden) && $2 { baka.q $2 }
}
alias baka.q { whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $gettok($6,2,64) | disable #dirim } 
#dirim end

Nick takip

Kod:

on 1:connect:{ .IAL On | takip + 300 }
alias takip { 
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! } 
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{ 
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change } 
}
#Takip end

Ekran koruyucu

Kod:

alias Ekoru { 
.window -Bdok0pbx +fyX @Ekran_koruyucu
.timer_sc_nokta 0 3 drawdot @Ekran_koruyucu $rand(0,15) 2000 10 5 
.timer_sckoşabine 0 5 drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys 1000 11 500 500 $me
gelbana
.timer_scgel -hio 0 1 gelbana
.timer_sc_koşgel 0 1 baslıx
.timer_sc_kapat_ -mio 0 1 .SCC | .set %MX $+($mouse.x,$mouse.y)
}
alias SCC {
if ( $+($mouse.x,$mouse.y) == %MX) { Halt } 
if ( $+($mouse.x,$mouse.y) != %MX) { SCF } 
}
alias SCF { .timersc off | .window -c @Ekran_koruyucu | .timer_sc* off }
on *:KEYDOWN:@Ekran_koruyucu:*:SCF
alias -l gelbana {
drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Fixedsys $rand(0,500) $rand(0,500) $rand(0,500) MTX
drawtext -r @Ekran_koruyucu ($rgb(100,173,255) verdana 20 200 650 Ekranı Açmak için Fareyi Kıpırdatın }
alias -l baslıx {
drawtext -r @Ekran_koruyucu $rgb(73,73,73) Verdana 50 112 12 Screen Saver
drawtext -r @Ekran_koruyucu $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Verdana 50 110 10 Screen Saver
}

Textlerin görünümünü değiştirme

Kod:

On 1:input:*:{ 
if / == $LEFT($1-,1) { $1- | .halt }
if $active == Status Window { .echo -s $1- | halt }
.echo $active $timestamp 12[1 $me 12]1 ~ $1- 
.msg $active $1-
}

On ^*:TEXT:*:#:{ 
if Cappystarjoe == $nick { .echo $chan $timestamp 1-5¤12|2[10 Cappystarjoe ™ 2]12|5¤1- :5 $1- | .Halt }
else { 
if $nick isowner $chan { .echo $chan $timestamp 12[5• $+ $nick $+ 12]1 : $1- | .Halt }
if $nick isop $chan { .echo $chan $timestamp 12[4@ $+ $nick $+ 12]1 : $1- | .Halt }
if $nick isvoice $chan { .echo $chan $timestamp 12[3+ $+ $nick $+ 12]1 : $1- | .Halt }
if $nick ishop $chan { .echo $chan $timestamp 12[7% $+ $nick $+ 12]1 : $1- | .Halt }
if $nick isnotify { .echo $chan $timestamp 12[2* $+ $nick $+ 12]1 : $1- | .Halt }
.echo $chan $timestamp 12[1 $+ $nick $+ 12]1 : $1- | .halt
}
}

On ^*:TEXT:*:?:{ 
if Cappystarjoe == $nick { .echo $nick $timestamp 1-5¤12|2[10 Cappystarjoe ™ 2]12|5¤1- :5 $1- | .Halt }
.echo $nick $timestamp 12[1 $+ $nick $+ 12]1 : $1- | .halt
}

Hızlı services bot oluşturma (Bunu Alias Bölümüne Yazıp Statüse /botat yazın karşınıza gelen bölümleri doldurun ve serverınıza istediğiniz kadar kanallara çıkıp giren bot yapın.
#bot.raw da hangi botun nereye girdiğini görebilirsiniz.Ama bir nicks.txt olması lazım bunu oluşturup system die bir klasöre atın addon hazır...

Kod:

/botat { 
/set %server $$?="Serveriniz" 
/set %kanal1 $$?="Botun Gireceği Kanal 1? (Ornek: #Zurna)" 
/set %kanal2 $$?="Botun Gireceği Kanal 2? (Ornek: #Zurna)" 
/set %kanal3 $$?="Botun Gireceği Kanal 3? (Ornek: #Zurna)" 
/set %kanal4 $$?="Botun Gireceği Kanal 4? (Ornek: #Zurna)" 
/set %kanal5 $$?="Botun Gireceği Kanal 5? (Ornek: #Zurna)" 
/set %kanal6 $$?="Botun Gireceği Kanal 6? (Ornek: #Zurna)" 
/set %kanal7 $$?="Botun Gireceği Kanal 7? (Ornek: #Zurna)" 
/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. ßy NoBotes 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal1 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal2 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal3 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal4 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal5 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal6 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal7 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal8 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal9 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal10 kanalına girdi. 
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal1 kanalına çıktı. 
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal2 kanalına çıktı. 
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal3 kanalına çıktı. 
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal4 kanalına çıktı. 
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal5 kanalına çıktı. 
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal6 kanalına çıktı. 
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal7 kanalına çıktı. 
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal8 kanalına çıktı. 
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal9 kanalına çıktı. 
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal10 kanalına çıktı. 
}

Download/Dosya Indirme

Kod:

Aşağıdaki kodu son günlerde herkes istediği için mircscripts.org adresinden ^Andy'nin download için socket örneğini (http://www.mircscripts.org/download.php?id=85) sizler için biraz değiştirdim. Kodu remote'a (ALT+R) koyuyorsunuz.
/download adres istediğiniz-dosya komutuyla çalışıyor, örneğin [url=http://www.ircforumlari.net/selam.txt]www.ircforumlari.net/selam.txt[/url] dosyasını almak istiyorsak kullanmamız gereken komut:
/download ircforumlari.net selam.txt
İşte kod:

alias download {
if ($sock(download)) {
echo $colour(info text) @download *** başka bir dosya download ediliyor, birazdan tekrar deneyiniz.
return
}
sockopen download $1 80
sockmark download $1 $2
}
on *:sockopen:download:{
if ($sockerr) {
echo $colour(info text) @download *** download ederken hata: $sockerr
return
}
write -c $gettok($sock($sockname).mark,2,32)
unset %downloadlength %downloadready
window -c @download
sockwrite -n $sockname GET $+(/,$gettok($sock($sockname).mark,2,32)) HTTP/1.0
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,32)
sockwrite -n $sockname
}
on *:sockread:download:{
if (%downloadready != 1) {
var %header
sockread %header
while ($sockbr) {
if (Content-length: * iswm %header) {
%downloadlength = $gettok(%header,2,32)
if (* !iswm $window(@download)) window @download
echo $colour(info text) @download *** dosya boyutu: %downloadlength bytes
}
elseif (* !iswm %header) {
%downloadready = 1
%downloadoffset = $sock($sockname).rcvd
break
}
sockread %header
}
}
sockread 4096 &d
while ($sockbr) {
if (* !iswm $window(@download)) window @download
echo $colour(info text) @download *** alınan: $round( $calc(100 * ($sock($sockname).rcvd - %downloadoffset) / %downloadlength) ,1) $+ %
bwrite $gettok($sock($sockname).mark,2,32) -1 -1 &d
sockread 4096 &d
}
}
on *:sockclose:download:{
echo $colour(info text) @download *** indirme tamamlandı.
}

Helperlar için özel kod

Kod:

vnick } }
on *:rawmode:#help:{ if $1 == -v && $2 == %nick || $1 == +b && $+(%nick,*) iswm $2- { unset %nick } }
on me:*:devoice:#help: { if %nick { unset %nick } }
on *:quit: { if $nick == %nick { unset %nick } }
on *:part:#help: { if $nick == %nick { unset %nick } }
on *:start:unset %nick
on 1:input:#help: { if $ctrlenter || /* iswm $1- { return }
if %nick || %nick ison $active { say $+(,%nick,:) $1- | halt }

(Helper'lar genelde Help kanalında voice verdikleri kullanıcılara yardım ederken hep nicklerini yazılarının başına yazarlarki yardım ettikleri kullanıcılar karışmasın diye.
Bende pratik bir kodla biraz olsun Helper'lara kolaylık sağlamak istedim
kod;
Help kanalında bir kullanıcıya +v verdiğiniz zaman, direkt kullanıcıyı yazdığınız her kelimenin başına ekler
diEfoRyoU : /cs set #kanal founder yenifounder
gibi.)

Konu: Hazır kodlar (Okunma Sayısı 225 defa)	Seçenekler	Arama
0 Üye ve 1 Ziyaretçi konuyu incelemekte.