mIRCbuL.Net Türkçe mIRC indir

Kod: 

;;; Gruplar 

off IRCOperatör.netscan # 

raw 352: *: (haltdef | did-a $ IRCOperatör.scanner 11 $ 6) 

raw 315: *: (haltdef |. disable # IRCOperatör.netscan) 

# IRCOperatör.netscan sonu 

off IRCOperatör.chanscan # 

raw 352: *: (haltdef | if (* isin $ 7) did-a $ IRCOperatör.scanner 12 $ 6) 

raw 315: *: (haltdef |. disable # IRCOperatör.chanscan) 

# IRCOperatör.netscan sonu 

;;; Dialogs 

Ileti?im IRCOperatör.scanner.dialog ( 

Title \ \ “IRCOperatör Taramas? \ \” 

Size -1 -1 200 103 

Seçene?i DBU 

Dü?me \ \ “Tamam \ \”, 1, 3 89 30 12, Ok Varsay?lan 

Dü?me \ \ “? Ptal \ \”, 2, 36 89 30 12, ?ptal 

Text \ \ “X \ \”, 4, 147 92 60 10 

Kutusuna \ \ “Serverde \ \”, 5, 3 2 73 84, 

Kutusuna \ \ “Kanalda \ \”, 6, 79 2 73 84, 

Kutusuna \ \ “Ayarlar \ \”, 7, 155 2 40 84, 

Dü?me \ \ “Tara \ \”, 8, 25 73 30 10 

Dü?me \ \ “Tara \ \”, 9, 83 73 30 10 

Dü?me \ \ “Yenile \ \”, 19, 118 73 30 10 

Combo 10, 83 60 66 100, Sort Drop 

liste 11, 7 10 65 67, s?ralama autovs autohs 

liste 12, 83 10 65 54, s?ralama autovs autohs 

Dü?me \ \ “Özele Al \ \”, 13, 160 11 30 10 

\ At Dü?me \ \ “Uyar? \”, 14, 160 23 30 10 

Dü?me \ \ “ctcp \ \”, 15, 160 35 30 10 

Dü?me \ \ “Bilgileri \ \”, 16, 160 47 30 10 

Dü?me \ \ “\ Et Yoksay \”, 17, 160 59 30 10 

Dü?me \ \ “Notife Al \ \”, 18, 160 71 30 10 

) 

Ileti?im IRCOperatör.ctcp.dialog ( 

Title \ \ “IRCOperatör Taray?c? – ctcp \ \” 

Size -1 -1 102 74 

Seçene?i DBU 

Dü?me \ \ “Gönder \ \”, 1, 3 60 30 12, Ok Varsay?lan 

Dü?me \ \ “? Ptal \ \”, 2, 36 60 30 12, ?ptal 

Kutusuna \ \ “CTCPs \ \”, 4, 3 2 96 55, 

Radyo \ \ “\ Ping \”, 5, 7 11 30 10 

Radyo \ \ “Zaman \ \”, 6, 7 22 30 10 

Radyo \ \ “Version \ \”, 7, 7 33 30 10 

Radyo \ \ “Di?er: \ \”, 8, 7 44 30 10 

De?i?tir \ \ “\ \”, 9, 39 44 56 10 

) 

;;; Aliases 

alias IRCOperatör (dialog-IRCOperatör.scanner $ IRCOperatör.scanner) $ m tarama 

alias-l IRCOperatör.scanner (IRCOperatör.scanner.dialog) return 

alias-l IRCOperatör.ctcp (IRCOperatör.ctcp.dialog) return 

alias-l IRCOperatör.rechan ( 

did-r $ IRCOperatör.scanner 10 1 | IRCOperatör.addchan | did-c $ IRCOperatör.scanner 10 1 

if ($ IRCOperatör.scanner, 10) ischan) ($ did (did-e $ IRCOperatör.scanner 9) 

else (did-b $ IRCOperatör.scanner 9) 

) 

alias-l IRCOperatör.scan ( 

if ($ 1 == net) (. # IRCOperatör.netscan | who 0 o) izin 

elseif ($ 1 == chan) (. # IRCOperatör.chanscan izin | $ IRCOperatör.scanner, 10, $ IRCOperatör.scanner, 10 ($ did). SEL). metin) ($ kim yapt? 

) 

alias-l IRCOperatör.addchan ( 

var% ~ IRCOperatör.channum = 0 

while (% ~ IRCOperatör.channum> = 0) ( 

inc% ~ IRCOperatör.channum 

var% ~ IRCOperatör.chan = $ chan (% ~ IRCOperatör.channum) 

if (% ~ IRCOperatör.chan == $ null) (goto Break) 

did-a $ IRCOperatör.scanner 10% ~ IRCOperatör.chan 

) 

: Break 

) 

;;; Uzaktan Etkinlikler 

on *: DIALOG: IRCOperatör.scanner.dialog: init: 0: ( 

did-b $ IRCOperatör.scanner 4,13,14,15,16,17,18 

($ sunucu) (if IRCOperatör.addchan | did-c $ IRCOperatör.scanner 10 1) 

else (did-b $ IRCOperatör.scanner 8,9,10,19) 

if ($ (10, $ did (10) yapt?. SEL) == $ null) (did-b $ IRCOperatör.scanner 9) 

) 

on *: DIALOG: IRCOperatör.ctcp.dialog: Init: 0: (did-c $ IRCOperatör.ctcp 5 |-b $ IRCOperatör.ctcp 9) did 

on *: DIALOG: IRCOperatör.scanner.dialog: sclick: *: ( 

if ($) ($ iif ($ dialog ($ IRCOperatör.ctcp), ileti?im == 1 did-x $ IRCOperatör.ctcp) | unset% ~ IRCOperatör .*) 

if ($) ($ iif ($ dialog ($ IRCOperatör.ctcp), ileti?im == 2 did-x $ IRCOperatör.ctcp) | unset% ~ IRCOperatör .*) 

if ($) (did-r $ IRCOperatör.scanner 11 | $ IRCOperatör.scan ()) net == 8 yapt? 

if ($) (did-r $ IRCOperatör.scanner 12 | $ IRCOperatör.scan (chan)) == 9 yapt? 

if ($) == 11 (did 

did-e $ IRCOperatör.scanner 13,14,15,16,17,18 

($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isignore) (did-IRCOperatör.scanner 17 1 UnIgnore) o $ 

else (did-IRCOperatör.scanner 17 1 Ignore) o $ 

($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isnotify) (did-IRCOperatör.scanner 18 1 UnNotify) o $ 

else (did-IRCOperatör.scanner 18 1 bildir) o $ 

) 

if ($) ($ sorgu == 13 did did (11, $ (11). SEL)) did 

if ($) ($ haber == 14 did did (11, $ (11) yapt?. SEL) $ $? = \ \ “Uyar? kullan?c?ya göndermek için: \ \”) 

if ($) == 15 (did 

($ dialog ($ IRCOperatör.ctcp)) (if dialog-v $ IRCOperatör.ctcp $ IRCOperatör.ctcp) 

else (% ~ IRCOperatör.ctcpnick = $ (11, $ (11) did yapt?. SEL) | dialog-m $ IRCOperatör.ctcp $ IRCOperatör.ctcp) 

) 

if ($) (whois $ did == 16 mi (11 $ (11). SEL)) did 

if ($) == 17 (did 

(ignore ($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isignore)-r $ adresi ($ (11 $ (11) did yapt?. SEL), 0) | did-o 17 $ 1 yoksay IRCOperatör.scanner) 

else (ignore-$ adresi ($ cktinp (11, $ (11) did yapt?. SEL), 0) |-IRCOperatör.scanner 17 1 UnIgnore) o $ did 

) 

if ($) == 18 (did 

(bildirmek ($ adres if ($ (11 $ (11) did yapt?. SEL), 0) isnotify)-r $ adresi ($ (11 $ (11) did yapt?. SEL), 0) | did-o $ IRCOperatör.scanner 18 1 bildir) 

else ($ adres ($ bildirmek (11, $ (11) did yapt?. SEL), 0) |-IRCOperatör.scanner 18 1 UnNotify) o $ did 

) 

if ($) (IRCOperatör.rechan) == 19 yapt? 

) 

on *: DIALOG: IRCOperatör.scanner.dialog: DClick: *: ( 

if ($) (if ($ server) == 11 did whois $ did (11, $ (11). SEL)) did 

if ($) (if ($ server) == 12 did whois $ did (12, $ did (12). SEL)) 

) 

on *: DIALOG: IRCOperatör.ctcp.dialog: sclick: *: ( 

if ($) == 1 (did 

if ($ (5) yapt?. state) (ctcp% ~ Ping) IRCOperatör.ctcpnick 

if ($ (6) yapt?. state) (ctcp% ~ IRCOperatör.ctcpnick Saat) 

if ($ (7) yapt?. state) (ctcp% ~ IRCOperatör.ctcpnick Sürüm) 

if ($ (8) yapt?. devlet) ( 

if ($ (9)) (ctcp% ~ $ strip ($ did (9))) IRCOperatör.ctcpnick yapt? 

else ((Bilgi) $ renk echo-* / ctcp: yetersiz parametreleri s) 

) 

unset% ~ IRCOperatör.ctcpnick 

) 

if (($) == 5 yapt? | | ($ did == 6) | | ($ did == 7)) (did-b $ IRCOperatör.ctcp 9) 

if ($) (did-e $ IRCOperatör.ctcp 9) == 8 yapt? 

) 

*: CONNECT: ( 

($ dialog ($ IRCOperatör.scanner)) (if 

did-e $ IRCOperatör.scanner 8,10,19 

if ($ IRCOperatör.scanner, 10)) ($ did (did-e $ IRCOperatör.scanner 9) 

) 

) 

on *: DISCONNECT: ( 

($ dialog ($ IRCOperatör.scanner)) (if did-b $ IRCOperatör.scanner 8,9,10,19) 

) 

on me: JOIN: #: (IRCOperatör.rechan) 

on me: PART: #: (IRCOperatör.rechan) 

on *: LOAD: ( 

($ bits <32) (echo-s *** Hata: çal??mas? için bu addon mIRC32 gerektirir. Sen bit mirc $ $ + $ kullan?yorsan?z +. | Unload-rs \ \ “$ + $ script $ + \ \”) 

if ($ version <5,72) (echo-s *** Hata: Bu addon mIRC sürümü 5,72 veya sonras? gerekir. Sürüm kullan?yorsan?z $ $ +. | Unload-rs \ \ “$ + $ script $ + \ \”) 

else (echo-s *** IRCOperatör v1.4 ba?ar?yla yüklenmi?. Lütfen bu addon kullanabilmek için ReadMe.txt bak?n. ) 

) 

Yükleme: 

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı IRCOperatör.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip 

/ load-rs IRCOperatör.txt 

yazip enterleyin bu sayede IRCOperatör taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır. 

/ IRCOperatör-yaz taramasi