mIRCbuL.Net Türkçe mIRC indir

Cok basit, kisa ve kullanisli bir kod olacagina inaniyorum.

on *:join:#Sohbet:{ /write nickler.txt $nick }

umarim isinize yarar.

Araçlar ; SuperClone 5 , GPN , SocksChain , Tor
Servere Proxy Girişi İçin ; ALT+O ‘dan firewall bölümüne Giriyoruz
Firewall Support : Server
Protocol : Socks4 veya Socks5 ProXy ipimizin Protokolune Göre Seçiyoruz.
Hostname : ProXy ipimizin ‘:’ dan önceki kısmını yazıyoruz. Örneğin 88.253.17.20
Port : Proxy İpin ‘:’ dan sonraki bölümü Örneğin ’1080!
Bu işlemleri yaptıktan sonra tamam diyoruz , ve /firewall on yazarak servere proxy girişi yapıyoruz

Super Clone 5 Kullanımı ;
Bilgisayarınızın sistemi service pack2 ise EviD indiriyorsunuz

Evid Kurulumunu yapıyoruz yoksa sc5 işe yaramaz.

Socks Testers GPN Kullanımı ;
bulduğumuz ipleri test etmemize yarar ; ulduğumuz taze ipleri bir txtye kaydediyoruz. GPN yi açıyoruz txtyi programa
yüklüyoruz test ettiriyoruz ve sağlam olan ipleri proxy.txt ye atıyoruz ve sc5 çalışmaya başlıyor (: adresinden buluyoruz

————————————————————————————————————————-

Proxy Koruması Olan Bir Servere Bot Sokarken İp Başlangıcının 80,81,82,83,84,85,88 ve 78 olmasına özen gösteriiyoruz.

Anlatım daRkMoRGaN Tarafından Yapılmıştır

Arkadaslar bir kac hazir kod paylasmak istiyorum.

Düşman kanal koruması

on *:join:#:{
set %nickler (%nickler,,32)
whois
}
raw 319:*#istemediginizkanal *:{
ban #sizinkanalınız $2
kick #sizinkanalınız $2 SEBEP
set %nickler (%nickler,$2,32)
}

Düşman listesine nick ekleme

on @shit:join:#:{
ban 2
kick 4Düşman Listemdesin…!
echo -a 12*** Düşman Listenizdeki 4 $+ 12 $+ Kanalına Girdi. Ve Atıldı.
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title “mIRCBUL Script – Düşman Listesi”
size -1 -1 136 99
option dbu
box “Nick:”, 6, 66 0 68 97
button “Ekle(+)”, 4, 82 25 39 11
button “Kaldır(-)”, 10, 82 41 39 11
edit “”, 1, 70 8 61 10, autohs
button “&Tamam”, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check “Düşman Listesi Aktif”, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit (1)
did -a shitlist 2 (1)
; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
.ruser shit (2,(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ((*,shit,%vo1) == ) { unset %vo1 | halt }
did -a shitlist 2 (*,shit,%vo1)
goto shitlist
}

Kick Sayacı&klıne sayacı

Kick Sayacı:

alias kick { kick $1- %kicksayac | kicksayac }

alias kicksayac {
if (%kicksayac == ) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}

Kline Sayacı:

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {
if (%klinesayac == ) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}

Memo Bilgi kutusu

;Memo geldiğinde uyaran bir dialog.
dialog ms {
title “MemoServ Bilgi Kutusu”
size -1 -1 220 85
text “*** Yeni bir notunuz var.”,2,10 10 220 200
text “*** Okumak için tamam butonuna basınız.”,3,10 30 220 200
button “&Tamam”,4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}

Merhaba değerli mirc kullanıcıları. Şimdi sizlere bir kaç mirc script konusu hakkında ufak bilgiler ve kodlar vericeğim. Umarım işinize yarar.

mIRC Script Bilgileri.

Kanalda !voice nick yaparak + verme mirc kodu.

on *:text:*!voice*:#denemekanali:{ /mode $chan +v $2 }

Kod’un açıklaması: #denemekanali’nde bir kişi !voice nick yazarak belirttiği nick’e o kanalda + verir.

Kanala girene mesaj atmak.

on *:join:#chat:{ /msg #chat Merhaba $nick hoşgeldiniz, iyi sohbetler. }

Kod’un açıklaması: #chat kanalına join olan yani giriş yapan herkes’e chat kanalı genelinde sabit mesajı yazıcaktır.

Kanaldan çıkana mesaj atmak.

on *:part:#chat:{ /privmsg  Merhaba $nick güle güle gene bekleriz #chat kanalına.  }

gibi yaratıcı kodlar yapabiliriz.

Saygılar: Ayaz

Tags: mirc, mirc script, mirc script bilgileri, mirc coder ayaz, mirc coder, mirc coder bilgileri, mirc bilgileri, mirc addonlari, mirc kodlari, mirc indir, türkçe mirc indir

alias ?Türkiye {
hazırla #TüRkiYea
hazırla #TüRkiYeb
hazırla #TüRkiYec
hazırla #TüRkiYed
hazırla #TüRkiYee
hazırla #TüRkiYef
hazırla #TüRkiYeg
hazırla #TüRkiYeh
hazırla #TüRkiYei
hazırla #TüRkiYej
hazırla #TüRkiYek
hazırla #TüRkiYel
hazırla #TüRkiYem
hazırla #TüRkiYen
hazırla #TüRkiYeo
hazırla #TüRkiYep
hazırla #TüRkiYev
hazırla #TüRkiYer
hazırla #TüRkiYes
hazırla #TüRkiYet
hazırla #TüRkiYeu
}
alias hazırla {
join $1
timer 1 1 cs register $1 $rand(111111111111111111111111111111111111,9999999 9999999999999999999999999999999999999999999999999) Radius
.türkiye
.timer 1 3 cs set $1 mlock +i
.timer 1 1 mode $1 -beIkfLljJpsmntRcOAQKVCuzNSMTG
.timer 1 2 cs set $1 noexpire on
}
alias türkiye {
.topic #Türkiyea 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMM
.topic #TüRkiYeb 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMM
.topic #TüRkiYec 4MMMMMMMMMMMMMMM0XXXXXXXXXX4MMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMM
.topic #TüRkiYed 4MMMMMMMMMMMMM0XXXXXXXXXXXXXX4MMMMMMMMMMMMMMMMM MMMMMMMMMMMMMM
.topic #TüRkiYee 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMM MMMMMMMMMMMMMM
.topic #TüRkiYef 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMM MMMMMMMMMMMMMMMMMM
.topic #TüRkiYeg 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMM0XX4MMMMMMMMM MMMMMMMMMMMMMMMMMM
.topic #TüRkiYeh 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XX4MMMM MMMMMMMMMMMMMMMMMM
.topic #TüRkiYei 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MM 0XXXX4MMMMMMMMMMMMMMM
.topic #TüRkiYej 4MMMMMMM0XXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX 4MMMMMMMMMMMMMMMM
.topic #TüRkiYek 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMM0XXXXXXXXXX 4MMMMMMMMMMMMMMMMM
.topic #TüRkiYel 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMM0XXXXXXXXXXX 4MMMMMMMMMMMMMMMMM
.topic #TüRkiYem 4MMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMMM0XXXXXXXX 4MMMMMMMMMMMMMMMM
.topic #TüRkiYen 4MMMMMMM0XXXXXXX4MMMMMMMMMMMMMMMMMMMM0XXX4MMM 0XXX4MMMMMMMMMMMMMMM
.topic #TüRkiYeo 4MMMMMMM0XXXXXXXX4MMMMMMMMMMMMMMMMMMM0XXX4MMM MMMMMMMMMMMMMMMMMM
.topic #TüRkiYep 4MMMMMMMM0XXXXXXXX4MMMMMMMMMMMMMM0X4MMMMMMMMM MMMMMMMMMMMMMMMMMM
.topic #TüRkiYer 4MMMMMMMMM0XXXXXXXXX4MMMMMMMMMM0XXX4MMMMMMMMM MMMMMMMMMMMMMMMMMM
.topic #TüRkiYes 4MMMMMMMMMM0XXXXXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMM MMMMMMMMMMMMMM
.topic #TüRkiYeq 4MMMMMMMMMMMM0XXXXXXXXXXXXXXXX4MMMMMMMMMMMMMMMM MMMMMMMMMMMMMM
.topic #TüRkiYet 4MMMMMMMMMMMMMMM0XXXXXXXXX4MMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMM
.topic #TüRkiYeu 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMM
.topic #TüRkiYev 4MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMM
}

Bence hos bi kod.

On *:Load:{
If ($Version Version De MIRC Imcompatible. Nécessite Au Moins MIRC V6.03 | .Unload $+(“,$Script,”) } Else Echo -A Tetris Par DixrouE Chargé Avec Succès! Pour Jouer, /Tetris
}
Menu Status,Menubar,Channel {
Tetris:tetris
}
Alias Tetris {
If ($Window(@Tetris)) Window -A @Tetris
Else {
Hmake Tetris 2 | Window -AkpCB @Tetris -1 -1 343 345
Drawfill -R @Tetris 16777215 16777215 0 0
Drawrect -R @Tetris 0 1 9 9 222 302
Drawrect -R @Tetris 0 1 240 10 85 30
Drawrect -R @Tetris 16777215 1 245 10 35 10
Drawtext -R @Tetris 0 Tahoma 10 250 4 Points
Drawrect -R @Tetris 0 1 240 50 85 30
Drawrect -R @Tetris 16777215 1 245 50 39 10
Drawtext -R @Tetris 0 Tahoma 10 250 44 Niveau
Drawrect -R @Tetris 0 1 240 90 85 30
Drawrect -R @Tetris 16777215 1 245 90 37 10
Drawtext -R @Tetris 0 Tahoma 10 250 84 Lignes
Drawrect -R @Tetris 0 1 240 130 85 97
Drawrect -R @Tetris 16777215 1 245 130 48 10
Drawtext -R @Tetris 0 Tahoma 10 250 124 Prochain
Drawtext -Or @Tetris 0 Verdana 15 255 240 Pause
Ht Points 0 | Ht Niveau 1 | Ht Lignes 0 | Tetris.Points
Tetris.Blocs P | Tetris.Makeblocs
}
}
Menu @Tetris {
Uclick {
If ($Inrect($Mouse.X,$Mouse.Y,255,240,50,18)) && (!$Ht(Go)) {
If ($Timer(Tetris)) { Var %A = 6579300 | .Timertetris Off }
Else { Var %A = 0 | .Timertetris -M 0 750 Tetris.Draw }
Drawtext -Or @Tetris %A Verdana 15 255 240 Pause
}
}
}
On *:Close:@Tetris:{ Hfree Tetris | .Timertetris Off }
Alias Ht { If ($Isid) Return $Hget(Tetris,$1) | Else Hadd Tetris $1- }
Alias -L Tetris.Blocs {
Var %A = 10
While (%A < 220) {
If ($Ht($+(%A,.10))) {
.Timertetris Off | Ht Go 1
Drawtext -Ro @Tetris 0 Verdana 20 50 100 Game Over!
Halt
}
Inc %A 20
}
Var %A = $R(1,7) | Ht Rotate 0 | Ht $+($1,Bloc) %A
If (%A == 1) {
Ht $+($1,Bloc1.X) 90 | Ht $+($1,Bloc1.Y) -30 | Ht $+($1,Bloc2.X) 110 | Ht $+($1,Bloc2.Y) -30
Ht $+($1,Bloc3.X) 90 | Ht $+($1,Bloc3.Y) -10 | Ht $+($1,Bloc4.X) 110 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 1338900
}
If (%A == 2) {
Ht $+($1,Bloc1.X) 110 | Ht $+($1,Bloc1.Y) -70 | Ht $+($1,Bloc2.X) 110 | Ht $+($1,Bloc2.Y) -50
Ht $+($1,Bloc3.X) 110 | Ht $+($1,Bloc3.Y) -30 | Ht $+($1,Bloc4.X) 110 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 660695
}
If (%A == 3) {
Ht $+($1,Bloc1.X) 90 | Ht $+($1,Bloc1.Y) -50 | Ht $+($1,Bloc2.X) 90 | Ht $+($1,Bloc2.Y) -30
Ht $+($1,Bloc3.X) 90 | Ht $+($1,Bloc3.Y) -10 | Ht $+($1,Bloc4.X) 110 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 4320245
}
If (%A == 4) {
Ht $+($1,Bloc1.X) 110 | Ht $+($1,Bloc1.Y) -50 | Ht $+($1,Bloc2.X) 110 | Ht $+($1,Bloc2.Y) -30
Ht $+($1,Bloc3.X) 110 | Ht $+($1,Bloc3.Y) -10 | Ht $+($1,Bloc4.X) 90 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 8545310
}
If (%A == 5) {
Ht $+($1,Bloc1.X) 90 | Ht $+($1,Bloc1.Y) -50 | Ht $+($1,Bloc2.X) 90 | Ht $+($1,Bloc2.Y) -30
Ht $+($1,Bloc3.X) 110 | Ht $+($1,Bloc3.Y) -30 | Ht $+($1,Bloc4.X) 110 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 10855845
}
If (%A == 6) {
Ht $+($1,Bloc1.X) 110 | Ht $+($1,Bloc1.Y) -50 | Ht $+($1,Bloc2.X) 110 | Ht $+($1,Bloc2.Y) -30
Ht $+($1,Bloc3.X) 90 | Ht $+($1,Bloc3.Y) -30 | Ht $+($1,Bloc4.X) 90 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 692600
}
If (%A == 7) {
Ht $+($1,Bloc1.X) 70 | Ht $+($1,Bloc1.Y) -30 | Ht $+($1,Bloc2.X) 90 | Ht $+($1,Bloc2.Y) -30
Ht $+($1,Bloc3.X) 110 | Ht $+($1,Bloc3.Y) -30 | Ht $+($1,Bloc4.X) 90 | Ht $+($1,Bloc4.Y) -10
Ht $+($1,Couleur) 3947580
}
Drawrect -Fr @Tetris 16777215 1 241 135 83 91
If ($Tetris.Smaller(P) == $Calc($Tetris.Bigger(P) - 20)) Var %B = 170
Elseif ($Calc($Tetris.Smaller(P) + $Tetris.Bigger(P)) == 180) Var %B = 180
Else Var %B = 160
Tetris.Drawblocs $Ht(Pcouleur) $Calc($Ht(Pbloc1.X) + %B) $Calc($Ht(Pbloc1.Y) + 210)
Tetris.Drawblocs $Ht(Pcouleur) $Calc($Ht(Pbloc2.X) + %B) $Calc($Ht(Pbloc2.Y) + 210)
Tetris.Drawblocs $Ht(Pcouleur) $Calc($Ht(Pbloc3.X) + %B) $Calc($Ht(Pbloc3.Y) + 210)
Tetris.Drawblocs $Ht(Pcouleur) $Calc($Ht(Pbloc4.X) + %B) $Calc($Ht(Pbloc4.Y) + 210)
}
Alias -L Tetris.Drawblocs {
If ($4 == N) Var %A = -Frn | Else Var %A = -Fr | Var %B = $1, %C = $2, %D = $3 | Tokenize 44 $Rgb($Color($1))
Var %1 = $1 + 20, %2 = $2 + 20, %3 = $3 + 20, %4 = $1 - 20, %5 = $2 - 20, %6 = $3 - 20
Drawrect %A @Tetris %B 1 %C %D 20 20 | Drawrect -R @Tetris $Rgb(%4,%5,%6) 1 %C %D 20 20
Drawline -R @Tetris $Rgb(%1,%2,%3) 1 %C $Calc(%D + 19) $Calc(%C + 20) $Calc(%D + 19)
Drawline -R @Tetris $Rgb(%1,%2,%3) 1 $Calc(%C + 19) %D $Calc(%C + 19) $Calc(%D + 20)
}
Alias -L Tetris.Makeblocs {
Ht Bloc1.X $Ht(Pbloc1.X) | Ht Bloc1.Y $Ht(Pbloc1.Y) | Ht Bloc2.X $Ht(Pbloc2.X) | Ht Bloc2.Y $Ht(Pbloc2.Y)
Ht Bloc3.X $Ht(Pbloc3.X) | Ht Bloc3.Y $Ht(Pbloc3.Y) | Ht Bloc4.X $Ht(Pbloc4.X) | Ht Bloc4.Y $Ht(Pbloc4.Y)
Ht Couleur $Ht(Pcouleur) | Ht Bloc $Ht(Pbloc) | Tetris.Blocs P
}
Alias -L Tetris.Draw {
If ($Ht($+($Ht(Bloc1.X),.,$Calc($Ht(Bloc1.Y) + 20)))) Var %B = 1
If ($Ht($+($Ht(Bloc2.X),.,$Calc($Ht(Bloc2.Y) + 20)))) Var %B = 1
If ($Ht($+($Ht(Bloc3.X),.,$Calc($Ht(Bloc3.Y) + 20)))) Var %B = 1
If ($Ht($+($Ht(Bloc4.X),.,$Calc($Ht(Bloc4.Y) + 20)))) Var %B = 1
Var %A = $Ht(Bloc1.Y)
If (%A < $Ht(Bloc2.Y)) Var %A = $Ht(Bloc2.Y)
If (%A < $Ht(Bloc3.Y)) Var %A = $Ht(Bloc3.Y)
If (%A < $Ht(Bloc4.Y)) Var %A = $Ht(Bloc4.Y)
If (%A > 280) Var %B = 1
If (%B) {
Ht $+($Ht(Bloc1.X),.,$Ht(Bloc1.Y)) $Ht(Couleur)
Ht $+($Ht(Bloc2.X),.,$Ht(Bloc2.Y)) $Ht(Couleur)
Ht $+($Ht(Bloc3.X),.,$Ht(Bloc3.Y)) $Ht(Couleur)
Ht $+($Ht(Bloc4.X),.,$Ht(Bloc4.Y)) $Ht(Couleur)
Var %D = 10
While (%D < 300) {
Var %E = 10, %F = 0
While (%E < 220) { If ($Ht($+(%E,.,%D))) Inc %F | Inc %E 20 }
If (%F == 11) {
Var %G = $Calc(%D - 20)
While (%G > 10) {
Var %H = 10 | While (%H < 220) { Ht $+(%H,.,$Calc(%G + 20)) $Ht($+(%H,.,%G)) | Inc %H 20 } | Dec %G 20
}
Drawrect -Frn @Tetris 16777215 1 10 10 220 300
Var %I = 10
While (%I < 300) {
Var %J = 10
While (%J < 220) { If ($Ht($+(%J,.,%I))) Tetris.Drawblocs $Ifmatch %J %I N | Inc %J 20 } | Inc %I 20
}
Drawdot @Tetris | Hinc Tetris Lignes | Hinc Tetris Points 10
If (. !Isin $Calc($Ht(Lignes) / 10)) Hinc Tetris Niveau | Tetris.Points
.Timertetris -M 0 $Iif($Calc(750 - ($Ht(Niveau) * 100)) > 200,$Ifmatch,200) Tetris.Draw
}
Inc %D 20
}
Tetris.Makeblocs
}
Var %C = Hinc Tetris, %D = 20 20
If ($Ht(Bloc1.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc1.X) $Ht(Bloc1.Y) %D
If ($Ht(Bloc2.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc2.X) $Ht(Bloc2.Y) %D
If ($Ht(Bloc3.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc3.X) $Ht(Bloc3.Y) %D
If ($Ht(Bloc4.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc4.X) $Ht(Bloc4.Y) %D
%C Bloc1.Y 20 | %C Bloc2.Y 20 | %C Bloc3.Y 20 | %C Bloc4.Y 20
If ($Ht(Bloc1.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc1.X) $Ht(Bloc1.Y)
If ($Ht(Bloc2.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc2.X) $Ht(Bloc2.Y)
If ($Ht(Bloc3.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc3.X) $Ht(Bloc3.Y)
If ($Ht(Bloc4.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc4.X) $Ht(Bloc4.Y)
}
Alias -L Tetris.Smaller {
Var %A = $Ht($+($1,Bloc1.X))
If (%A > $Ht($+($1,Bloc2.X))) Var %A = $Ht($+($1,Bloc2.X))
If (%A > $Ht($+($1,Bloc3.X))) Var %A = $Ht($+($1,Bloc3.X))
If (%A > $Ht($+($1,Bloc4.X))) Var %A = $Ht($+($1,Bloc4.X))
Return %A
}
Alias -L Tetris.Bigger {
Var %A = $Ht($+($1,Bloc1.X))
If (%A < $Ht($+($1,Bloc2.X))) Var %A = $Ht($+($1,Bloc2.X))
If (%A < $Ht($+($1,Bloc3.X))) Var %A = $Ht($+($1,Bloc3.X))
If (%A < $Ht($+($1,Bloc4.X))) Var %A = $Ht($+($1,Bloc4.X))
Return %A
}
Alias -L Tetris.Smaller2 {
Var %A = $Ht($+($1,Bloc1.Y))
If (%A > $Ht($+($1,Bloc2.Y))) Var %A = $Ht($+($1,Bloc2.Y))
If (%A > $Ht($+($1,Bloc3.Y))) Var %A = $Ht($+($1,Bloc3.Y))
If (%A > $Ht($+($1,Bloc4.Y))) Var %A = $Ht($+($1,Bloc4.Y))
Return %A
}
Alias -L Tetris.Bigger2 {
Var %A = $Ht($+($1,Bloc1.Y))
If (%A < $Ht($+($1,Bloc2.Y))) Var %A = $Ht($+($1,Bloc2.Y))
If (%A < $Ht($+($1,Bloc3.Y))) Var %A = $Ht($+($1,Bloc3.Y))
If (%A < $Ht($+($1,Bloc4.Y))) Var %A = $Ht($+($1,Bloc4.Y))
Return %A
}
Alias -L Tetris.Rotate Ht $+(Rbloc,$1) $Calc($Ht($+(Bloc,$1)) + $2)
Alias -L Tetris.Arotate { If ($2) Ht $+(Bloc,$1) $2 | Else Ht $+(Bloc,$1) $Ht($+(Bloc,$1)) }
On *:Keydown:@Tetris:37,38,39,40:{
If ($Timer(Tetris)) {
If ($Keyval == 37) && ($Tetris.Smaller > 20) Var %Z = Hdec
If ($Keyval == 38) {
Var %W = $Ht(Bloc1.X) $Ht(Bloc1.Y), %X = $Ht(Bloc2.X) $Ht(Bloc2.Y)
Var %Y = $Ht(Bloc3.X) $Ht(Bloc3.Y), %Z = $Ht(Bloc4.X) $Ht(Bloc4.Y)
Var %A = $Ht(Bloc) | If ($Ht(Rotate) == 4) Ht Rotate 0 | Hinc Tetris Rotate
Var %B = $Ht(Rotate), %C = Hinc Tetris
If (%A == 2) {
If (%B == 1) || (%B == 3) {
Tetris.Rotate 1.X 40 | Tetris.Rotate 1.Y 40 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y 20
Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y -20
}
Else {
Tetris.Rotate 1.X -40 | Tetris.Rotate 1.Y -40 | Tetris.Rotate 2.X -20 | Tetris.Rotate 2.Y -20
Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y 20
}
}
If (%A == 3) {
If (%B == 1) {
Tetris.Rotate 1.X 40 | Tetris.Rotate 1.Y 20 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y 0
}
If (%B == 2) {
Tetris.Rotate 1.X -20 | Tetris.Rotate 1.Y 60 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 40
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X 0 | Tetris.Rotate 4.Y 0
}
If (%B == 3) {
Tetris.Rotate 1.X -40 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X -20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y 0
}
If (%B == 4) {
Tetris.Rotate 1.X 20 | Tetris.Rotate 1.Y -40 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y -20
Tetris.Rotate 3.X -20 | Tetris.Rotate 3.Y 0 | Tetris.Rotate 4.X 0 | Tetris.Rotate 4.Y 20
}
}
If (%A == 4) {
If (%B == 1) {
Tetris.Rotate 1.X 20 | Tetris.Rotate 1.Y 40 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 20
Tetris.Rotate 3.X -20 | Tetris.Rotate 3.Y 0 | Tetris.Rotate 4.X 0 | Tetris.Rotate 4.Y -20
}
If (%B == 2) {
Tetris.Rotate 1.X -40 | Tetris.Rotate 1.Y 20 | Tetris.Rotate 2.X -20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y 0
}
If (%B == 3) {
Tetris.Rotate 1.X -20 | Tetris.Rotate 1.Y -40 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y -20
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y 0 | Tetris.Rotate 4.X 0 | Tetris.Rotate 4.Y 20
}
If (%B == 4) {
Tetris.Rotate 1.X 40 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y 0
}
}
If (%A == 5) {
If (%B == 1) {
Tetris.Rotate 1.X 40 | Tetris.Rotate 1.Y 0 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y -20
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y 0 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y -20
}
If (%B == 2) {
Tetris.Rotate 1.X 0 | Tetris.Rotate 1.Y 20 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y -40
}
If (%B == 3) {
Tetris.Rotate 1.X -20 | Tetris.Rotate 1.Y 0 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 20
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y 0 | Tetris.Rotate 4.X 40 | Tetris.Rotate 4.Y 20
}
If (%B == 4) {
Tetris.Rotate 1.X 0 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X -20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y 40
}
}
If (%A == 6) {
If (%B == 1) {
Tetris.Rotate 1.X 20 | Tetris.Rotate 1.Y 20 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X 0 | Tetris.Rotate 4.Y -40
}
If (%B == 2) {
Tetris.Rotate 1.X -20 | Tetris.Rotate 1.Y 0 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y -20
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y 0 | Tetris.Rotate 4.X 40 | Tetris.Rotate 4.Y -20
}
If (%B == 3) {
Tetris.Rotate 1.X 0 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y 40
}
If (%B == 4) {
Tetris.Rotate 1.X 40 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X 20 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 0 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y 0
}
}
If (%A == 7) {
If (%B == 1) {
Tetris.Rotate 1.X 20 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X -20 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y -20
}
If (%B == 2) {
Tetris.Rotate 1.X 20 | Tetris.Rotate 1.Y 20 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X -20 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y -20
}
If (%B == 3) {
Tetris.Rotate 1.X -20 | Tetris.Rotate 1.Y 20 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y -20 | Tetris.Rotate 4.X 20 | Tetris.Rotate 4.Y 20
}
If (%B == 4) {
Tetris.Rotate 1.X -20 | Tetris.Rotate 1.Y -20 | Tetris.Rotate 2.X 0 | Tetris.Rotate 2.Y 0
Tetris.Rotate 3.X 20 | Tetris.Rotate 3.Y 20 | Tetris.Rotate 4.X -20 | Tetris.Rotate 4.Y 20
}
}
If ($Istok(2.3.4.5.6.7,%A,46)) {
If (!$Ht($+($Ht(Rbloc1.X),.,$Ht(Rbloc1.Y)))) && (!$Ht($+($Ht(Rbloc2.X),.,$Ht(Rbloc2.Y)))) {
If (!$Ht($+($Ht(Rbloc3.X),.,$Ht(Rbloc3.Y)))) && (!$Ht($+($Ht(Rbloc4.X),.,$Ht(Rbloc4.Y)))) {
If ($Tetris.Smaller > 10) && ($Tetris.Bigger(R) 10) && ($Tetris.Bigger2(R) < 301) {
Tetris.Arotate 1.X $Ht(Rbloc1.X) | Tetris.Arotate 1.Y $Ht(Rbloc1.Y)
Tetris.Arotate 2.X $Ht(Rbloc2.X) | Tetris.Arotate 2.Y $Ht(Rbloc2.Y)
Tetris.Arotate 3.X $Ht(Rbloc3.X) | Tetris.Arotate 3.Y $Ht(Rbloc3.Y)
Tetris.Arotate 4.X $Ht(Rbloc4.X) | Tetris.Arotate 4.Y $Ht(Rbloc4.Y)
Drawrect -Fr @Tetris 16777215 1 %W 20 20 | Drawrect -Fr @Tetris 16777215 1 %X 20 20
Drawrect -Fr @Tetris 16777215 1 %Y 20 20 | Drawrect -Fr @Tetris 16777215 1 %Z 20 20
Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc1.X) $Ht(Bloc1.Y)
Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc2.X) $Ht(Bloc2.Y)
Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc3.X) $Ht(Bloc3.Y)
Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc4.X) $Ht(Bloc4.Y)
Drawrect -R @Tetris 0 1 9 9 222 302 | Tetris.Rdel
}
Else Tetris.Del
}
Else Tetris.Del
}
Else Tetris.Del
}
Else Tetris.Del
}
If ($Keyval == 39) && ($Tetris.Bigger < 200) Var %Z = Hinc
If ($Keyval == 40) Tetris.Draw
If (%Z) {
Var %A = %Z Tetris
If (%Z == Hdec) Var %B = - | Else Var %B = +
If ($Ht($+($Calc($Ht(Bloc1.X) %B 20),.,$Ht(Bloc1.Y)))) Var %C = 1
If ($Ht($+($Calc($Ht(Bloc2.X) %B 20),.,$Ht(Bloc2.Y)))) Var %C = 1
If ($Ht($+($Calc($Ht(Bloc3.X) %B 20),.,$Ht(Bloc3.Y)))) Var %C = 1
If ($Ht($+($Calc($Ht(Bloc4.X) %B 20),.,$Ht(Bloc4.Y)))) Var %C = 1
If (%C) Return
If ($Ht(Bloc1.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc1.X) $Ht(Bloc1.Y) 20 20
If ($Ht(Bloc2.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc2.X) $Ht(Bloc2.Y) 20 20
If ($Ht(Bloc3.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc3.X) $Ht(Bloc3.Y) 20 20
If ($Ht(Bloc4.Y) > 0) Drawrect -Fr @Tetris 16777215 1 $Ht(Bloc4.X) $Ht(Bloc4.Y) 20 20
%A Bloc1.X 20 | %A Bloc2.X 20 | %A Bloc3.X 20 | %A Bloc4.X 20
If ($Ht(Bloc1.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc1.X) $Ht(Bloc1.Y)
If ($Ht(Bloc2.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc2.X) $Ht(Bloc2.Y)
If ($Ht(Bloc3.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc3.X) $Ht(Bloc3.Y)
If ($Ht(Bloc4.Y) > 0) Tetris.Drawblocs $Ht(Couleur) $Ht(Bloc4.X) $Ht(Bloc4.Y)
}
}
}
Alias -L Tetris.Del { Hdec Tetris Rotate | Tetris.Rdel }
Alias -L Tetris.Rdel {
Hdel Tetris Rbloc1.X | Hdel Tetris Rbloc1.Y | Hdel Tetris Rbloc2.X | Hdel Tetris Rbloc2.Y
Hdel Tetris Rbloc3.X | Hdel Tetris Rbloc3.Y | Hdel Tetris Rbloc4.X | Hdel Tetris Rbloc4.Y
}
Alias -L Tetris.Points {
Drawrect -Fr @Tetris 16777215 1 242 16 80 20
Drawrect -Fr @Tetris 16777215 1 242 56 80 20
Drawrect -Fr @Tetris 16777215 1 242 96 80 20
Drawtext -R @Tetris 0 Tahoma 12 $Calc(317 – $Width($Ht(Points),Tahoma,12)) 17 $Ht(Points)
Drawtext -R @Tetris 0 Tahoma 12 $Calc(317 – $Width($Ht(Niveau),Tahoma,12)) 57 $Ht(Niveau)
Drawtext -R @Tetris 0 Tahoma 12 $Calc(317 – $Width($Ht(Lignes),Tahoma,12)) 97 $Ht(Lignes)
}
On *:Active:*:{
If ($Lactive == @Tetris) .Timertetris Off
If ($Active == @Tetris) {
Drawtext -Or @Tetris 0 Verdana 15 255 240 Pause
.Timertetris -M 0 $Iif($Calc(750 – ($Ht(Niveau) * 100)) > 200,$Ifmatch,200) Tetris.Draw
}
}

alias cpuload {
var %a = a $+ $ticks, %b = b $+ %a
.comopen %a WbemScripting.SWbemLocator
if $comerr { return COM Error }
.comclose %a $com(%a,ConnectServer,1,dispatch* %b)
if $com(%b) { .comclose %b $com(%b,ExecQuery,1,bstr*,$&
SELECT loadpercentage FROM Win32_Processor,dispatch* %a) }
if !$com(%a) { return COM Error }
%b = $comval(%a,1,loadpercentage)
.comclose %a
return %b
}

Kullanımı: //echo $cpuload

on *:text:!haberler:#haber:set $+(%,haber,nick) $nick | sondakika | .msg %habernick 3Son dakika haberleri listeleniyor :
alias haberler {
unset %haberler
sockclose s6
sockopen s6 sondakika.hurriyet.com.tr 80
}
on *:sockopen:s6: {
if (!$sockerr) {
if $window(@Haberler) { clear @Haberler | window -a @Haberler }
else { window -adCk0 +let @Haberler 0 0 500 270 Verdana 13 }
sw GET /?sid=0 HTTP/1.1
sw Host: sondakika.hurriyet.com.tr
sw User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
sw Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
sw Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
sw Accept-Encoding: gzip,deflate
sw Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sw Connection: Close
sw $crlf
}
}
on *:sockread:s6: {
sockread %cenk
if (class=”hurtextverdana”> isin %cenk) {
set %haberler $htmlfree(%cenk)
var %iks = 1 , %ide $numtok(%haberler,191)
while (%iks <= $calc(%ide – 1)) {
var %srdr $gettok(%haberler,%iks,191)
if (difuzyon isin %srdr) { halt }
aline 7 @Haberler $replace(%srdr,-,4-10)
inc %iks
}
}
}

Kullanımı:
/haberler – Kendinize @Haberler penceresinde gösterir haberleri
#Haberler kanalında !haberler yazınca kanalda haberleri gösterir.

Umarim isinize yarar.

#cafeuyar on

on 1:open:?: {
if $address($nick,2) != $null qc $nick
else {
set %ial query
.who $nick
}
}
alias qc {
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 11,1 – 15,1 Özelinizdeki 11- 0 – $$1 – %qc [ $+ [ $1 ] ] 11,1 –  11,1 – 15,1 aynı cafe’den yada aynı kişiler 11- 0( $+ $address($1,2) $+ )11,1 – 
echo $1 
unset %qc*
}

#cafeuyar end

raw 301:*: {
haltdef
echo -a 4» 14Mesgul?: Evet: 14( $+ $3- $+ )
}
raw 307:*: {
haltdef
echo -a 4» 14Sifreli bir nickmi?: Evet.
}
raw 310:*: {
haltdef
echo -a 4» 14IRC Helper: Evet.
}
raw 311:*:{
haltdef
echo -a 4»14 $2 Kimlik Bilgileri
echo -a 4» 14Rumuz: $2
echo -a 4» 14Isim: $6-
echo -a 4» 14Host: $3 $+ 4 $+ @ $+ 14 $+ $4
}
raw 312:*:{
haltdef
echo -a 4» 14Ağ: $3
}
raw 313:*: {
haltdef
echo -a 4» 14Server Yetkilisi: $5 $6 $7 $8 $9
}
raw 314:*:{
haltdef
echo -a 4»
echo -a 4» 14Rumuz: $2
echo -a 4» 14Isim: $6-
echo -a 4» 14Host: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
echo -a 4» 14IRC’e Giris: $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
echo -a 4» 14Idle: $duration($3)
echo -a 4» 14Toplam ONLINE: $duration($calc($ctime – $4))
}
raw 318:*:{
haltdef
echo -a 4»14 $2 Kimlik Bilgileri Sonu
}
raw 319:*:{
haltdef
echo -a 4» 14Kanallar: $3-
}
raw 330:*: {
haltdef
echo -a 4» 14Authname: $3
}
raw 338:*:{
haltdef
echo -a 4» 14Gercek Host: $3
echo -a 4» 14Gercek IP: $4
}
raw 369:*:{
haltdef
echo -a 4»
}
raw 401:*:{
haltdef
echo -a 4» 14Suanda (4 $+ $2 $+ 14) 14IRC’de degil!!
}
raw 406:*:{
haltdef
echo -a 4» 14The nickname ” $+ $2 $+ ” has 14NOT 1been online recently.
}