IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Away'da Reklam Hakkında yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/6294-awayda-reklam-hakkinda-yardim.html)

NeLix 09 Ağustos 2005 19:43

Away'da Reklam Hakkında yardım
 
raw 352:*:if (G isin $7) whois $6
raw 301:*:{ if (S-o-n isin $strip($3-)) || (C 0 M isin $strip($3-)) || (MU.T.L.U.Y.U.M N isin $strip($3-)) || (Sohbetin Tek Adresi isin $strip($3-)) || (En Vahsileri burada isin $strip($3-)) || (N .......... E ...... t isin $strip($3-)) || (N . E . † isin $strip($3-)) || (e---- t-- isin $strip($3-)) || (N . e... t isin $strip($3-)) || (n e t isin $strip($3-)) || (. E . † isin $strip($3-)) || (. e . t isin $strip($3-)) || (N-¤-E-¤T isin $strip($3-)) || (I¤R¤C isin $strip($3-)) || (irc isin $strip($3-)) || (N¤E¤T isin $strip($3-)) || ($ok isin $strip($3-)) || (L-i-s-e-3 isin $strip($3-)) || (wvw isin $strip($3-)) || (N 'E' T isin $strip($3-)) || (w w w isin $strip($3-)) || (c O m isin $strip($3-)) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $strip($3-)) || (w¤w¤w isin $strip($3-)) || (S-o-n isin $strip($3-)) || (W©©W©©W isin $strip($3-)) || (N-¤-E-¤T ! isin $strip($3-)) { var %x = $comchan($2,0) | while %x { if ($me isop $comchan($2,%x)) {
/cs akick $comchan($2,%x) add $address($2,2) 15,1 [ 8C15h8a15nn8e15l S8e15c8u15r8i15ty 8S15y8s15t8e15m B8y15 13/ 4NeLix15 ] 
/cs akick $comchan($2,%x) enforce
/cs akick $comchan($2,%x) del $address($2,2)
}
}
}
}
on *:JOIN:#:{
if ($nick = $me) { timer 1 7 checkstatus # }
else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

Mesala ßu code kanalda @ olmayan ßir kişide @ olan kişiye reklamları bildirecek.ben şöle ßir şey düşündüm ..

raw 352:*:if (G isin $7) whois $6
raw 301:*:{ if (S-o-n isin $strip($3-)) || (C 0 M isin $strip($3-)) || (N . E . † isin $strip($3-)) || (. g s isin $strip($3-)) || (n e t isin $strip($3-)) || (. E . † isin $strip($3-)) || (C¨0¨m isin $strip($3-)) || (C'o'm isin $strip($3-)) || (I¤R¤C isin $strip($3-)) || (irc isin $strip($3-)) || (N¤E¤T isin $strip($3-)) || ($ok isin $strip($3-)) || (L-i-s-e-3 isin $strip($3-)) || (wvw isin $strip($3-)) || (N 'E' T isin $strip($3-)) || (w w w isin $strip($3-)) || (c O m isin $strip($3-)) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $strip($3-)) || (w¤w¤w isin $strip($3-)) || (S-o-n isin $strip($3-)) || (W©©W©©W isin $strip($3-)) || (# isin $strip($3-)) { var %x = $comchan($2,0) | while %x { if ($me isop $comchan($2,%x)) {
/msg NeLix Banla $nick
}
}
}
}
on *:JOIN:#:{
if ($nick = $me) { timer 1 7 checkstatus # }
else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

ama NeLix banla $nick banlanacak nicki belirtmior orasını yapamadım nasıl olacak ?

MaeLStrOm 09 Ağustos 2005 20:31

$nick yerine $2 gelecek

NeLix 09 Ağustos 2005 22:09

maelstrom aßi şimdi hani NeLix a ban la deik ya ban la diyince NeLix de o nickki banlayacak NasıL aßi

MaeLStrOm 09 Ağustos 2005 22:28

;nelix in remotesine
on *:text:*:?: {
if ($1 == banla) {
set -u5 %nick $2
var %ö = $comchan(%nick,0) | while %ö { if ($comchan(%nick,%ö).op) {
cs akick $comchan(%nick,%ö) add $address(%nick,2)
cs akick $comchan(%nick,%ö) enforce
cs akick $comchan(%nick,%ö) del $address(%nick,2)
}
}
}
dec %ö
}
}

NeLix 10 Ağustos 2005 14:28

maelstrom olmadı aßi away scan :( kanala ilk girdiği zaman away lara whois çekior ama sonra ßir daha ki girişlerde çekmior whois i ßir de NeLix e mesaj yollamıor çok uğraşdım deişik deişik ama
olmadı :(

NeLix 11 Ağustos 2005 23:12

Ne yapacağımı şaşırdım erdem aßi sen ßi el atsan :D

MaeLStrOm 11 Ağustos 2005 23:23

;bunlar aktarılcak nicke
on me:*:join:#:{ timer 1 7 checkstatus $chan }
alias checkstatus { if ($me isop $chan) { who $chan } }
raw 352:*: { if (G isin $7) { whois $6 } }
raw 301:*:{ if (S-o-n isin $strip($3-)) || (C 0 M isin $strip($3-)) || (N . E . † isin $strip($3-)) || (. g s isin $strip($3-)) || (n e t isin $strip($3-)) || (. E . † isin $strip($3-)) || (C¨0¨m isin $strip($3-)) || (C'o'm isin $strip($3-)) || (I¤R¤C isin $strip($3-)) || (irc isin $strip($3-)) || (N¤E¤T isin $strip($3-)) || ($ok isin $strip($3-)) || (L-i-s-e-3 isin $strip($3-)) || (wvw isin $strip($3-)) || (N 'E' T isin $strip($3-)) || (w w w isin $strip($3-)) || (c O m isin $strip($3-)) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $strip($3-)) || (w¤w¤w isin $strip($3-)) || (S-o-n isin $strip($3-)) || (W©©W©©W isin $strip($3-)) {
msg Nelix banla $2 }
}
;Nelix in remotesine ise
on *:text:*:?: {
if ($1 == banla) { set -u5 %nick $2 | banla }
}
alias banla { var %a = $comchan(%nick,0) | while %a { if ($comchan(%nick,%a).op) {
cs akick $comchan(%nick,%a) add $+(%nick,!*@*)
cs akick $comchan(%nick,%a) enforce
cs akick $comchan(%nick,%a) del $+(%nick,!*@*)
dec %a }
}
}

Bleda 11 Ağustos 2005 23:35

Tufan çalışıyor turkcoderları kazanıyor :p

UOnur 12 Ağustos 2005 13:30

coder'lar nie kazansın olm :)

erdem55 12 Ağustos 2005 16:28

Alıntı:

maelstrom Nickli Üyeden Alıntı
;bunlar aktarılcak nicke
on me:*:join:#:{ timer 1 7 checkstatus $chan }
alias checkstatus { if ($me isop $chan) { who $chan } }
raw 352:*: { if (G isin $7) { whois $6 } }
raw 301:*:{ if (S-o-n isin $strip($3-)) || (C 0 M isin $strip($3-)) || (N . E . † isin $strip($3-)) || (. g s isin $strip($3-)) || (n e t isin $strip($3-)) || (. E . † isin $strip($3-)) || (C¨0¨m isin $strip($3-)) || (C'o'm isin $strip($3-)) || (I¤R¤C isin $strip($3-)) || (irc isin $strip($3-)) || (N¤E¤T isin $strip($3-)) || ($ok isin $strip($3-)) || (L-i-s-e-3 isin $strip($3-)) || (wvw isin $strip($3-)) || (N 'E' T isin $strip($3-)) || (w w w isin $strip($3-)) || (c O m isin $strip($3-)) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $strip($3-)) || (w¤w¤w isin $strip($3-)) || (S-o-n isin $strip($3-)) || (W©©W©©W isin $strip($3-)) {
msg Nelix banla $2 }
}
;Nelix in remotesine ise
on *:text:*:?: {
if ($1 == banla) { set -u5 %nick $2 | banla }
}
alias banla { var %a = $comchan(%nick,0) | while %a { if ($comchan(%nick,%a).op) {
cs akick $comchan(%nick,%a) add $+(%nick,!*@*)
cs akick $comchan(%nick,%a) enforce
cs akick $comchan(%nick,%a) del $+(%nick,!*@*)
dec %a }
}
}

%nick in nerden geldiğini anlayamadım açıkçası

Bu arada yukardaki codeyi denemedim ama benim kullandığım code aşağıdaki
Ne varsa sömürdün bende:D

Nelbot1 in remotesine

on me:*:join:#:{ timer 1 7 checkstatus $chan }
alias checkstatus { if ($me isop $chan) { who $chan } }
raw 352:*: { if (G isin $7) { whois $6 } }
raw 301:*:{ if (S-o-n isin $strip($3-)) || (C 0 M isin $strip($3-)) || (N . E . † isin $strip($3-)) || (. g s isin $strip($3-)) || (n e t isin $strip($3-)) || (. E . † isin $strip($3-)) || (C¨0¨m isin $strip($3-)) || (C'o'm isin $strip($3-)) || (I¤R¤C isin $strip($3-)) || (irc isin $strip($3-)) || (N¤E¤T isin $strip($3-)) || ($ok isin $strip($3-)) || (L-i-s-e-3 isin $strip($3-)) || (wvw isin $strip($3-)) || (N 'E' T isin $strip($3-)) || (w w w isin $strip($3-)) || (c O m isin $strip($3-)) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $strip($3-)) || (w¤w¤w isin $strip($3-)) || (S-o-n isin $strip($3-)) || (W©©W©©W isin $strip($3-)) {
msg nelix .kb $2 }
}

eğer $2 de yanlış nick aktarımı yaparsa $1 denersin

;Nelix in remotesine bunu ekleyebilirsin

on *:text:.kb *:?:{ if ($nick = nelbot1) { var %ü = $comchan($2,0) | while %ü { if ($me isop $comchan($2,%ü)) { cs akick $comchan($2,%ü) add $address($2,2) 1,15 Reklam Tespit Edildi! | cs akick $comchan($2,%ü) enforce | cs akick $comchan($2,%ü) del $address($2,2) } | dec %ü } } }


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:34.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net