www.solloman.ro

Esti pasionat de IRC? Daca ai scripturi sau addon-uri pe care vrei sa le impartasesti cu lumea posteaza-le aici, daca ai nevoie de ele, cauta-le p-aki!


Cum incarci un addon?

1. pentru a incarca un addon foloseste /load -rs (nume addon).mrc (ATENTIE!!! downlodeaza addonul in baza mIRC-ului/scriptului si calea catre baza lui nu trebuie sa contina spatii (gen Program Files), pentru a functiona comanda /load)

2. Daca ai spatii catre calea de baza a mIRC-ului/scriptului (gen Program Files) deschide addon-ul care vrei sa il incarci, apasa Ctrl + A (select all), deschide mIRC-ul/scriptul unde vrei sa pui addonul si apasa Ctrl + R. Urmeaza File -> New (da paste la ce ai copiat mai devreme). Dupa acestea File -> Save As... (denumeste addonul) -> Ok -> Ok

;==========================================================
; Project by : solloman
;==========================================================
; Author : solloman (solloman @ Undernet #EggHelp.Org)
; Email : Această adresă de email este protejată de spambots. Trebuie să aveți JavaScript activat ca să o puteți vedea.
; Copyright (C) 2011 solloman
;==========================================================


;=================
; @CloneScanner
;=================

menu channel {
Clone Scanner:cs #
}
alias cs {
hmake clones 500
var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
if ($window(@clones)) window -c @clones
window @clones
if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones Updating IAL.. | .ial on | who %c }
while ($nick(%c,%x)) {
var %i = $ifmatch
if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
inc %clones $ialchan($address(%i,2),%c,0)
hadd clones $address(%i,2) $address(%i,2)
var %temp,%a = 1
while ($ialchan($address(%i,2),%c,%a)) {
set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
inc %a
}
aline @clones $ialchan($address(%i,2),%c,0) clones from $address(%i,2) $+ : $mid(%temp,2,$calc($len(%temp) - 1))
}
inc %x
}
aline @clones -
aline @clones Group(s) of clones found: $hmatch(clones,*,0) (Total: %clones $+ )
aline @clones Synsched in $duration($calc(($ticks - %ticks) / 1000)) $gettok($calc(($ticks - %ticks) / 1000),2,46) $+ millisecs
hfree clones
}
#clones off
raw 315:*: cs $2 | .disable #clones
#clones end

on *:connect: .disable #clones

;=======================================;
; ::: End Of File ::: ;
;=======================================;

;==========================================================
; Project by : solloman
;==========================================================
; Author : solloman (solloman @ Undernet #EggHelp.Org)
; Email : Această adresă de email este protejată de spambots. Trebuie să aveți JavaScript activat ca să o puteți vedea.
; Copyright (C) 2011 solloman
;==========================================================


;==================
; ame/amsg Control
;==================

dialog ame_amsg {
title "Ame/Amsg control"
size -1 -1 184 113
option dbu
tab "Ame", 5, 2 5 178 105
button "Add", 7, 34 92 37 12, tab 5
button "Delete", 8, 34 79 37 12, tab 5
text "Channels in this list will be excluded whenever you use the /ame command", 9, 8 28 61 28, tab 5
check "Activate ame control", 17, 8 63 63 10, tab 5
list 1, 75 25 99 80, tab 5 size hsbar vsbar
tab "Amsg", 10
text "Channels in this list will be excluded whenever you use the /amsg command", 12, 8 28 61 28, tab 10
button "Delete", 13, 34 79 37 12, tab 10
button "Add", 14, 34 92 37 12, tab 10
check "Activate amsg control", 18, 8 63 63 10, tab 10
list 2, 75 25 99 80, tab 10 size hsbar vsbar
tab "About", 15
edit "Ame/Amsg control is a simple mIRC addon which allows users to exclude certain channels from the /amsg and the /ame commands. These commands are commonly used by away or mp3 systems, which on certain channels (in particular help channels) are not tollerated. Simply add the channels where you don't want them to show up, and you're done. For suggestions questions bugs etc.. you can contact me via e-mail on: Această adresă de email este protejată de spambots. Trebuie să aveți JavaScript activat ca să o puteți vedea. or via irc on (undernet). solloman", 19, 8 21 167 85, tab 15 read multi
}

ON *:dialog:ame_amsg:init:*:{
if (!$isfile(ame_amsg.ini)) { return }
if ($readini(ame_amsg.ini,settings,ame) == on) { did -c $dname 17 }
if ($readini(ame_amsg.ini,settings,amsg) == on) { did -c $dname 18 }
if ($ini(ame_amsg.ini,ame_channels)) loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini
if ($ini(ame_amsg.ini,amsg_channels)) loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini
did -z $dname 1
did -z $dname 2
}

ON *:dialog:ame_amsg:sclick:*:{
if ($did == {
remini ame_amsg.ini ame_channels $gettok($did(1).seltext,1,61)
did -r $dname 1
if ($ini(ame_amsg.ini,ame_channels)) loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini
did -z $dname 1
return
}
if ($did == 7) {
var %ame_add = $$input(Add a channel to exclude from /ame $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from ame),61)
if ($numtok(%ame_add,61) == 2) { writeini ame_amsg.ini ame_channels $replace(%ame_add,=,$chr(32)) | did -r ame_amsg 1 | loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini }
else echo -a *** Invalid format. Format shoud be: #channel=network. Example: =all or =undernet,dalnet
did -z $dname 1
return
}
if ($did == 17) {
writeini ame_amsg.ini settings ame $iif($did(17).state == 1,on,off)
return
}

if ($did == 18) {
writeini ame_amsg.ini settings amsg $iif($did(18).state == 1,on,off)
return
}
if ($did == 13) {
remini ame_amsg.ini amsg_channels $gettok($did(2).seltext,1,61)
did -r $dname 2
if ($ini(ame_amsg.ini,amsg_channels)) loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini
did -z $dname 2
return
}
if ($did == 14) {
var %amsg_add = $$input(Add a channel to exclude from /amsg $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from amsg),61)
if ($numtok(%amsg_add,61) == 2) { writeini ame_amsg.ini amsg_channels $replace(%amsg_add,=,$chr(32)) | did -r ame_amsg 2 | loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini }
else echo -a *** Invalid format. Format shoud be: #channel=network. Example: =all or =undernet,dalnet
did -z $dname 2
return
}
}

alias ame {
if ($readini(ame_amsg.ini,settings,ame) != on) { ame $1- | return }
var %all_chans = $chan(0)
while (%all_chans) {
if ($ini(ame_amsg.ini,ame_channels,$chan(%all_chans)) == 0) { var %ame_list = $chan(%all_chans) $+ $chr(44) $+ %ame_list | echo $chan(%all_chans) $+ $color(action) $+ $timestamp * $me $1- | goto skip }
if ($readini(ame_amsg.ini,ame_channels,$chan(%all_chans)) == all) { goto skip }
if ($network !isin $readini(ame_amsg.ini,ame_channels,$chan(%all_chans))) { var %ame_list = $chan(%all_chans) $+ $chr(44) $+ %ame_list | echo $chan(%all_chans) $+ $color(action) $+ $timestamp * $me $1- }
:skip
dec %all_chans
}
if (%ame_list) { .raw PRIVMSG %ame_list :ACTION $1- $+ }
}

alias amsg {
if ($readini(ame_amsg.ini,settings,amsg) != on) { amsg $1- | return }
var %all_chans = $chan(0)
while (%all_chans) {
if ($ini(ame_amsg.ini,amsg_channels,$chan(%all_chans)) == 0) { var %amsg_list = $chan(%all_chans) $+ $chr(44) $+ %amsg_list | echo $chan(%all_chans) $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- | goto skip }
if ($readini(ame_amsg.ini,amsg_channels,$chan(%all_chans)) == all) { goto skip }
if ($network !isin $readini(ame_amsg.ini,amsg_channels,$chan(%all_chans))) { var %amsg_list = $chan(%all_chans) $+ $chr(44) $+ %amsg_list | echo $chan(%all_chans) $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- }
:skip
dec %all_chans
}
if (%amsg_list) { .raw privmsg %amsg_list : $+ $1- }
}

menu channel,menubar {
ame/amsg control: dialog -m ame_amsg ame_amsg
}

;=======================================;
; ::: End Of File ::: ;
;=======================================;

;==========================================================
; Project by : solloman
;==========================================================
; Author : solloman (solloman @ Undernet #EggHelp.Org)
; Email : Această adresă de email este protejată de spambots. Trebuie să aveți JavaScript activat ca să o puteți vedea.
; Copyright (C) 2011 solloman
;==========================================================


;=================
; ClonesScan
;=================

alias clonescan {
var %chan = $iif($left($1,1) == $chr(35),$1,#), %type = $iif($2,$2,$iif($left($1,1) == -,$1))
if ($dialog(clonescanner) == $null) && (%type != -a) { dialog -m clonescanner clonescanner }
if (%chan !ischan) {
if (%type == -a) { echo $colour(info) -a * Please enter a valid channel, ie. a channel that you are in. | return }
else { did -ra clonescanner 4 Please enter a valid channel, ie. a channel that you are in. | return }
}
if ($chan(%chan).ial != $true) {
.ial on
if (%type == -a) { echo $colour(info) -a * Updating IAL for %chan }
else { did -ra clonescanner 4 Updating IAL for %chan $+ ... }
set %cs.chan $addtok(%cs.chan,%chan,32) | raw -q WHO %chan | set %cs.type %type | return
}
else {
if ($dialog(clonescanner)) { did -r clonescanner 2 | dialog -t clonescanner simple clone scanner 04b - scanning %chan }
if ($hget(cs)) { hfree cs }
hmake cs $nick(%chan,0)
var %i = 1, %ticks = $ticks, %clones
while ($nick(%chan,%i)) { hadd cs $address($nick(%chan,%i),2) $hget(cs,$address($nick(%chan,%i),2)) $iif($numtok($hget(cs,$address($nick(%chan,%i),2)),38) > 0,$chr(38)) $nick(%chan,%i) | inc %i }
var %o = 1
if (%type == -a) { echo -a - | echo -a * Clone Scan in %chan }
while ($hget(cs,%o).item) {
if ($numtok($hget(cs,$hget(cs,%o).item),38) > 1) {
if (%type == -a) { echo -a $numtok($hget(cs,$hget(cs,%o).item),38) => $hget(cs,%o).item $+ : $hget(cs,$hget(cs,%o).item) }
else { did -a clonescanner 2 $hget(cs,%o).item ( $+ $numtok($hget(cs,$hget(cs,%o).item),38) $+ ): $hget(cs,$hget(cs,%o).item) | did -z clonescanner 2 }
inc %clones
}
inc %o
}
if (%type == -a) { echo -a * Done. $iif(%clones > 0,%clones,no) group $+ $iif(%clones > 1,s) of clones found. (done: $+ $calc($ticks - %ticks) $+ ms) | echo -a - }
else { did -ra clonescanner 4 Done. $iif(%clones > 0,%clones,no) group $+ $iif(%clones > 1,s) of clones found. (done: $+ $calc($ticks - %ticks) $+ ms) }
hfree cs
}
}
raw 352:*:if ($istok(%cs.chan,$2,32)) { halt }
raw 315:*:if ($istok(%cs.chan,$2,32)) { set %cs.chan $remtok(%cs.chan,$2,1,32) | clonescan $2 %cs.type | unset %cs.type | halt }
menu channel {
clone scanner:clonescan #
}

dialog clonescanner {
title "Clone Scanner"
size -1 -1 180 100
option dbu
button "", 1, 0 0 0 0, ok
list 2, 2 2 176 93
box "", 3, 2 87 176 12
text "", 4, 5 91 170 7
}

;=======================================;
; ::: End Of File ::: ;
;=======================================;

Multa lume m-a batut la cap sa le ofer scriptul pe care il folosesc eu pe mIRC. L-am curatat, aranjat si vi-l ofer cu toata placerea. Succes in folosirea lui si nu uitati sa imi scrieti la irc[@]solloman.ro in caz ca aveti probleme, nelamuriri sau idei in ceea ce priveste acest script. Sarbatori fericite (considerati-l un cadou din partea mea ca am muncit ceva la el, sa vi-l ofer).

Acest mrc face ca sa iti apara prima litera al primilui cuvant al fiecarei fraze, cu caps lock. Pt. activare/dezactivare, click dreapta pe orice canal va aflati.
Umreaza codul:



;==========================================================
; Project : solloman script (ss)
; Script : ss Dialog File. (Documented[P])
;==========================================================
; Author : solloman (solloman @ Undernet #EggHelp.Org)
; Email : Această adresă de email este protejată de spambots. Trebuie să aveți JavaScript activat ca să o puteți vedea.
; Version : 1.0
; FileName : Capsfirstchar.mrc
; Copyright (C) 2013 solloman ( Această adresă de email este protejată de spambots. Trebuie să aveți JavaScript activat ca să o puteți vedea. )
;==========================================================


;=================
; Caps first char
;=================
on *:INPUT:*: {
if (%capsfirstchar == $true) {
set %Var3 $1
set %Var4 $2-
unset %Var1 %Var2
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 %Var4 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say %Var2 %Var4
unset %Var1 %Var2 %Var3 %Var4
halt
:ServerCommand
}
}
menu channel {
-
Caps first char
. $iif($group(#capsfirstchar) == on,$style(3) On,On): .enable #capsfirstchar | Set %capsfirstchar $true | echo -a $timestamp *** Caps first char system is 3enabled now. ***
. $iif($group(#capsfirstchar) == off,$style(3) Off,Off): .disable #capsfirstchar | Set %capsfirstchar $false | echo -a $timestamp *** Caps first char system is 4disabled now. ***
-
}

#capsfirstchar on
#capsfirstchar end

;=======================================;
; ::: End Of File ::: ;
;=======================================;