İnternet Hizmetleri,Hosting Çözümleri
Hazır Kodlar
5 Saniye Sonra Otomatik Host
26 Mar
on *:join:#ops:{ /timer 1 5 /chghost $nick GlobaLOp.sanallord.com }
Away olanı Otomatik DeoP
26 Mar
on !*:NICK:{
if (away isin $newnick) || (yok isin $newnick) || (gelcek isin $newnick) {
deopall
}
}
alias deopall {
var %wy $chan(0)
while %wy {
if $me isop $chan(%wy) && $newnick isop $chan(%wy) {
mode $chan(%wy) -o $newnick
}
dec %wy
}
}
nickinin sonuna away , yok , gelcek gibi takılar yazdımı deop etmek için.
umarım işinize yarar.
mirc tetris oyunu
26 Mar
on *:load:{
if ($version < 6.03) { echo -a 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 Bu yazının devamını okuyun »
Helperler İçin Ame&Amsg Yasaklama
26 Mar
Helperler İçin Ame&Amsg Yasaklama
/alias /ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }
Bu Ame İçin.
/alias /amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if !$istok(#help,$chan(%i),32) { msg $chan(%i) $1- } } }
Buda Amsg İçin.
Umarım işinize yarar. Not : Kodu Herkez Kullana bilir istediniz kanalı yaza bilirsiniz sınır yok. örnek :/alias /ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#operhelp #help #a #b ,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }
amsg örnek : /alias /amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if !$istok(#help #operhelp #x #örnek,$chan(%i),32) { msg $chan(%i) $1- } } }
puanlama Sistemi
26 Mar
on *:text:*:#kanaladı: {
if !$hget(kns,$nick) { hadd -m kns $nick 1 | hsave -i kns kns.db }
else { if $hmatch(kns,$nick) { hinc -m kns $v1 1 | hsave -i kns kns.db } }
if $hget(kns,$nick) == 1000 { msg # $+($nick,:) 0,1Tebrikler 1000 puan olduğunuz için; +voice kazandınız. | mode # +v $nick | hadd -m vnick $nick 1 | hsave -i vnick vnick.db }
if $1 == !puan {
if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | halt }
if !$hmatch(kns,$2) { msg # $+($nick,:) $qt($2) Listetede bulunamadı. }
else { msg # $+($nick,:) 13 $2 4R5u13m6u7z12u2n5u4n 13P12u3a6n8′12ı; $hget(kns,$2) }
}
}
on *:start: { if $isfile(vnick.db) { hmake vnick 100 | hload -i vnick vnick.db } | if $isfile(kns.db) { hmake kns 100 | hload -i kns kns.db } }
Yorumlar