NoMercy v1.x nedir ?
NoMercy mIRC Scripting sock olarak yazılmış güvenlik botudur. İşlevi sunucuda durup oper/admin’e ihtiyaç duymadan sunucuyu korumaktır.

NoMercy Version v1.x download etmek için devam seçeneğini tıklayınız. Devamını oku »

Popularity: 11% [?]

on 1:LOAD:/setup | /playlist
Alias setup {
set %mp3.dir $sdir=”Locate you mp3 files” | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir
set %mp3.player $findfile(c:\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player
}
Alias Mp3play {
if (%mp3.dir == $null) { set %mp3.dir $sdir=”Locate you mp3 directory” }
if (%mp3.player == $null) { set %mp3.player $dir=”Locate your mp3 player (winamp.exe)” winamp.exe }
%mp3.dir1 = %mp3.dir $+ \ $+ *.mp?
set %mp3 $dir=”Which mp3 do you want to play?” %mp3.dir1
if (%mp3 == $null) { goto end }
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
} Devamını oku »

Popularity: 2% [?]

alias ostat ostats #
alias -l zecho echo -a  $+ $colour(info) $+ *** $1-
alias -l ostats_check_type if ($opent == null) || ($opent !isnum) || ($opent < 0) || ($opent > 1) { .disable #ostats_Open_Desktop 0 }
alias -l qtime .timerQTIME $+ $1 off | .timerQTIME $+ $1 1 0 $1-
alias -l getpercent return $round($calc($1 / $2 * 100),$iif($3,$3,0)) $+ %
alias -l osc {
if ($dialog(ostats_m) == $null) { return }
did -ra ostats_m 1 $1-
}
alias -l ostats_selchan {
if ($dialog(ostats_selchan) == $null) {
dialog – $+ $iif($opent == 1,md,m) ostats_selchan ostats_selchan | return
}
}
alias -l oisopen {
if ($dialog(ostats) == $null) {
$iif($dialog(ostats_selchan),dialog -x ostats_selchan)
$iif($dialog(ostats_m),dialog -x ostats_m)
.timeroSTATS2 off
}
}
alias -l makestat {
var %tmp.calc = $calc($len($gettok($did(ostats,2),2,58)) – 1), %tmp.chanc = $right($gettok($did(ostats,2),2,58),%tmp.calc)
if ($me !ison %tmp.chanc) { zecho Hata: %tmp.chanc $+ ! Lütfen kanaldan çikip tekrar girin.Dosya olusturulacak… | return }
ostats %tmp.chanc
$iif($1,return)
status
}
alias -l refresh_selchan_list {
if ($server == $null) {
zecho Bir servere bagli degilsiniz…
$iif($dialog(ostats_selchan),dialog -x ostats_selchan)
$iif($dialog(ostats),dialog -x ostats)
}
did -r ostats_selchan 3
var %tmp.max = $chan(0), %tmp.while = 1
While (%tmp.max >= %tmp.while) {
did -a ostats_selchan 3 $chan(%tmp.while)
inc %tmp.while
}
}
alias -l output_newchan {
var %tmp.chan = $did(ostats_selchan,3,$did(ostats_selchan,3).sel)), %tmp.lines = $did(ostats_selchan,3).sel
if ($server == $null) {
zecho Bir servere bagli degilsiniz…
$iif($dialog(ostats),dialog -x ostats)
dialog -x ostats_selchan
return
}
if (%tmp.chan == $null) { zecho Bir seçim yapilmadi! | return }
if ($me !ison %tmp.chan) {
zecho Suan istatiklerini görmek istediginiz kanalda degilsiniz…
refresh_selchan_list
return
}
if (%tmp.lines) {
if ($dialog(ostats_save)) { did -ra ostats_save 7 Outputting Statistics: %tmp.chan }
ostats %tmp.chan
dialog -x ostats_selchan
}
}
alias -l ostats {
if ($server == $null) { zecho Bir servere bagli degilsiniz… | return }
if ($dialog(ostats)) { goto timers }
ostats_check_type
dialog – $+ $iif($opent == 1,md,m) ostats ostats
:timers
.timeroSTATS2 off
.timeroSTATS2 0 0 oisopen
did -ra ostats 2 Kanal istatistiklerine bakiliyor.Lütfen Bekleyin
:resume
%^_ostats.tmp.Here = 0
%^_ostats.tmp.Away = 0
%^_ostats.tmp.IrcOps = 0
.enable #ostats2
who $1
}
alias -l uselist {
if ($dialog(ostats) == $null) { zecho istatistik hata! | return }
var %tmp.total = $did(ostats,4), %tmp.ops = $did(ostats,7) : $did(ostats,34), %tmp.voice = $did(ostats,9) : $did(ostats,35), %tmp.regular = $did(ostats,11) : $did(ostats,36), %tmp.Here = $did(ostats,13) : $did(ostats,37), %tmp.Away = $did(ostats,15) : $did(ostats,38), %tmp.IrcOps = $did(ostats,17) : $did(ostats,39), %tmp.Helpers = $did(ostats,19) : $did(ostats,40), %tmp.Chan = $did(ostats_save,9)
if ($1 == sendchan) {
if ($me !ison %tmp.Chan) { zecho Kanalda oldugunuzdan emin olun: %tmp.Chan | save_chans | return }
msg %tmp.Chan Kanal istatistikleri: %tmp.Chan -=[ $chr(160) Toplam Users: %tmp.Total $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Ops: %tmp.Ops $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Voice: %tmp.Voice $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Regulars: %tmp.Regular $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Here: %tmp.Here $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Away: %tmp.Away $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) IrcOps: %tmp.IrcOps $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Helpers: %tmp.Helpers $chr(160) ]=-
return
}
var %tmp.nick = $did(ostats_save,18), %tmp.txt = %tmp.Chan $+ .txt, %tmp.html = %tmp.Chan $+ .html, %tmp.findtxt = $findfile($scriptdirstats\,%tmp.txt,1), %tmp.findhtml = $findfile($scriptdirstats\,%tmp.html,1)
if (%tmp.nick == $null) { zecho Invalid User Selection! | return }
if ($1 == file) {
if ($exists(%tmp.findtxt) == $false) && ($exists(%tmp.findhtml) == $false) { zecho Hata!!! istatistik dosyasi olusturulamadi. | return }
if ($exists(%tmp.findtxt)) { dcc send %tmp.nick %tmp.findtxt | return }
.dcc send %tmp.nick %tmp.findhtml
}
if ($1 == msg) {
%tmp.Nick = $did(ostats_save,12)
if (%tmp.nick == $null) { zecho Invalid User Input! | return }
.msg %tmp.Nick Kanal istatiskleri >>: %tmp.Chan -=[ $chr(160) Toplam Users: %tmp.Total $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Ops: %tmp.Ops $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Voice: %tmp.Voice $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Regulars: %tmp.Regular $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Here: %tmp.Here $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Away: %tmp.Away $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) IrcOps: %tmp.IrcOps $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Helpers: %tmp.Helpers $chr(160) ]=-
}
}
dialog ostats {
option dbu
size -1 -1 130 150
title “Kanal istatistikleri”
button “&Tamam”, 1, 91 113 26 10, ok
box “”, 2, 3 3 114 106
text “Toplam:”, 3, 15 14 29 10
edit “”, 4, 55 12 35 10, center, multi, return, read
box “”, 5, 15 22 90 4
text “Operatör:”, 6, 15 31 24 10
edit “”, 7, 55 29 17 10, center, multi, return, read
edit “”, 34, 71 29 19 10, center, multi, return, read
text “Voice:”, 8, 15 42 20 10
edit “”, 9, 55 40 17 10, center, multi, return, read
edit “”, 35, 71 40 19 10, center, multi, return, read
text “Düzenli:”, 10, 15 53 22 10
edit “”, 11, 55 51 17 10, center, multi, return, read
edit “”, 36, 71 51 19 10, center, multi, return, read
text “User:”, 12, 15 64 22 10
edit “”, 13, 55 62 17 10, center, multi, return, read
edit “”, 37, 71 62 19 10, center, multi, return, read
text “Away:”, 14, 15 75 22 10
edit “”, 15, 55 73 17 10, center, multi, return, read
edit “”, 38, 71 73 19 10, center, multi, return, read
text “IrcOp:”, 16, 15 86 22 10
edit “”, 17, 55 84 17 10, center, multi, return, read
edit “”, 39, 71 84 19 10, center, multi, return, read
text “HeLper:”, 18, 15 97 22 10
edit “”, 19, 55 95 17 10, center, multi, return, read
edit “”, 40, 71 95 19 10, center, multi, return, read
menu “&Ayarlar”, 21
item “&Yeni Tarama…”, 22
item break, 23
item “Çi&kis”, 24, cancel
button “&Yenile”, 33, 61 113 25 10
}
dialog ostats_selchan {
option dbu
size -1 -1 126 98
title “Bir Kanal Seçiniz…”
button “&Kapat”, 1, 97 84 25 10, ok
box “istatistiklerine bakilacak kanali seçiniz…”, 2, 4 2 118 77
list 3, 7 11 112 70, vsbar, sort
button “&Baslat”, 4, 4 84 35 10
button “&Yenile”, 5, 41 84 28 10
}
on *:dialog:ostats:init:0: {
ostats_check_type
$iif($opent == 1,did -c ostats 28)
}
on *:dialog:ostats:menu:22: {
if ($server == $null) { zecho Bir Servere bagli degilsiniz… | dialog -x $dname | return }
ostats_selchan
}
on *:DIALOG:ostats:sclick:31:makestat
on *:DIALOG:ostats:sclick:33:makestat Refreshing
on *:DIALOG:ostats_selchan:init:0:refresh_selchan_list
on *:DIALOG:ostats_selchan:dclick:3:output_newchan
on *:DIALOG:ostats_selchan:sclick:4:output_newchan
on *:DIALOG:ostats_selchan:sclick:5:refresh_selchan_list
on *:DIALOG:ostats_a:init:0:did -a $dname 2 $crlf v2.00
on *:DIALOG:ostats_m:init:0: did -h $dname 2
#ostats2 off
raw 315:*: {
osc Checking Dialogs
if ($dialog(ostats) == $null) { .disable #ostats2 | haltdef | return }
osc Variablesler ataniyor
if (%^_ostats.tmp.Here == $null) { %^_ostats.tmp.Here = 0 }
if (%^_ostats.tmp.Away == $null) { %^_ostats.tmp.Away = 0 }
if (%^_ostats.tmp.IrcOps == $null) { %^_ostats.tmp.IrcOps = 0 }
did -ra ostats 2 Kanal istatiskleri: $2
did -ra ostats 4 $nick($2,0)
osc Hesaplamalar: Ops
var %tmp.full = $nick($2,0), %tmp.opC = $nick($2,0,o), %tmp.voiceC = $nick($2,0,v), %tmp.regularC = $nick($2,0,r), %tmp.helperC = $nick($2,0,h), %tmp.ops = $getpercent(%tmp.opC,%tmp.full), %tmp.voice = $getpercent(%tmp.voiceC,%tmp.full), %tmp.regular = $getpercent(%tmp.regularC,%tmp.full), %tmp.helper = $getpercent(%tmp.helperC,%tmp.full), %tmp.Away = $getpercent(%^_ostats.tmp.Away,%tmp.full), %tmp.Here = $getpercent(%^_ostats.tmp.Here,%tmp.full), %tmp.IrcOps = $getpercent(%^_ostats.tmp.IrcOps,%tmp.full)
osc Ana dialoga yaziliyor.
did -ra ostats 7 %tmp.OpC
did -ra ostats 34 %tmp.ops
did -ra ostats 9 %tmp.VoiceC
did -ra ostats 35 %tmp.voice
did -ra ostats 11 %tmp.RegularC
did -ra ostats 36 %tmp.regular
did -ra ostats 13 %^_ostats.tmp.Here
did -ra ostats 37 %tmp.Here
did -ra ostats 15 %^_ostats.tmp.Away
did -ra ostats 38 %tmp.Away
did -ra ostats 17 %^_ostats.tmp.IrcOps
did -ra ostats 39 %tmp.IrcOps
did -ra ostats 19 %tmp.HelperC
did -ra ostats 40 %tmp.Helper
}
raw 352:*: {
osc Away + Ircop Users’ Datalari olusturuluyor
if (H isin $7) { inc %^_ostats.tmp.Here }
if (G isin $7) { inc %^_ostats.tmp.Away }
if ($chr(42) isin $7) { inc %^_ostats.tmp.IrcOps }
haltdef
}
#ostats2 end
on *:CONNECT:.events on | $o.reg(oChanStats,2.00)
on *:DISCONNECT:unset %o.using
menu channel {
..-
..» Kanal istatistikleri ( $+ # $+ ):/ostat #
}
on *:load: {
if ($version >= 5.81) {
echo -a 4Kanal istatistikleri4 Channel, Popups’una 14Yüklendi
}
else {
echo -a 14 ScripT Version’nunuz Bu addon için yeterli değil.
echo -a 14Lütfen 4 http://www.mircreal.com 14 adresinden mIRC v5.81 ‘i ve\veya daha yüksek bir versionu indiriniz.
echo -a 14ScripT $imdilik 4Unload 14 Edildi…
.unload -rs $script
}
}

Popularity: 2% [?]

alias cancalc { dialog -m cancalc cancalc }
dialog cancalc {
title “..::| Edit ßy Professional |::..”
size -1 -1 105 108
option dbu
button “1″, 1, 27 31 10 10
button “2″, 2, 37 31 10 10
button “3″, 3, 47 31 10 10
button “4″, 4, 27 41 10 10
button “5″, 5, 37 41 10 10
button “6″, 6, 47 41 10 10
button “7″, 7, 27 51 10 10
button “8″, 8, 37 51 10 10
button “9″, 9, 47 51 10 10
button “0″, 10, 27 61 30 10
button “+”, 11, 62 31 10 10
button “-”, 12, 62 41 10 10
button “*”, 13, 62 51 10 10
button “/”, 14, 62 61 10 10
button “=”, 15, 27 75 46 10
edit “”, 222, 58 7 38 10, read autohs
box “”, 17, 3 0 95 30
box “”, 18, 25 26 35 48
box “”, 19, 59 26 17 48
box “”, 20, 25 70 51 18
edit ” Coder By CaN”, 21, 25 88 51 10, read
edit “”, 111, 5 7 39 10, read autohs
edit “”, 16, 5 17 91 10, read autohs
link “www.mircreal.com”, 23, 61 98 42 8
link “www.mircreal.net”, 22, 1 98 50 8
edit “”, 333, 44 7 14 10, read
button “SiL”, 24, 3 30 20 60
button “Kapat”, 25, 78 30 20 60, cancel
}

on 1:dialog:cancalc:init:*:{
set %sc 111
did -a cancalc 111,222,16
}
On 1:dialog:cancalc:close:*:{ unset %cancalcsonuc | unset %sc | unset %sx }
on 1:dialog:cancalc:sclick:*:{
if ($did == 1) { did -a cancalc %sc 1 }
if ($did == 2) { did -a cancalc %sc 2 }
if ($did == 3) { did -a cancalc %sc 3 }
if ($did == 4) { did -a cancalc %sc 4 }
if ($did == 5) { did -a cancalc %sc 5 }
if ($did == 6) { did -a cancalc %sc 6 }
if ($did == 7) { did -a cancalc %sc 7 }
if ($did == 8) { did -a cancalc %sc 8 }
if ($did == 9) { did -a cancalc %sc 9 }
if ($did == 10) { did -a cancalc %sc 0 }
if ($did == 11) { did -a cancalc 333 + | set %sc 222 | set %sx + }
if ($did == 12) { did -a cancalc 333 – | set %sc 222 | set %sx – }
if ($did == 13) { did -a cancalc 333 * | set %sc 222 | set %sx * }
if ($did == 14) { did -a cancalc 333 / | set %sc 222 | set %sx / }
if ($did == 15) {
set %cancalcsonuc $calc($did(111) %sx $did(222))
did -a cancalc 16 %cancalcsonuc
}
if ($did == 23) { run www.mircreal.com }
if ($did == 22) { run www.mircreal.net }
if ($did == 24) { did -r cancalc 111,222,333,16 | set %sc 111 }
}

Popularity: 2% [?]