solloman.rositemap
^Back To Top

  • 1 Sa ma prezint...
    Va salut pe toti! Ma numesc Apostol Ionut Adrian si am numele de "scena" solloman. Da da stiu... om singur... :) NU, nu este de la faptul ca as fi singur pe lumea asta, mi se trage de la faptul ca, candva (sperai sa uit de virgula?) am cantat singur. Sa iti fac o prezentare a site-ului:
  • 2 Webdesign
    Daca doresti sa ai un site profesional de prezentare, magazin virtual sau catalog scolar online, nu ai altceva de facut decat sa iei legatura cu mine si sa stabilim ce este mai potrivit pentru ideile tale. P.S: Consultanta este GRATUITA! Portofoliu gasesti apasand pe butonul "Webdesign" din meniu.
  • 3 Muzica mea
    Esti curios ce muzica faceam eu candva? Ok! Ai optiunea de a asculta muzica mea apasand pe butonul "Muzica mea" (logic) din meniu. ATENTIE! Unele piese contin versuri obscene. Ai si optiunea de a downloda albumul "Iar...Ba!?" la sectiunea forum. (Trebuie sa te inregistrezi mai intai).
  • 4 Poze
    Ti-am pus pe acest site cateva poze cu mine pe care le gasesti in meniu apasand pe butonul "Poze" si slideshow-uri la categoria "Video". Ori de cate ori ai nevoie, nu ezita sa folosesti modulul de Contact.
  • 5 Forum
    Pe acest site gasesti un forum foarte divers. Poti posta aproape orice pe acest forum si voi incerca sa fii cat mai bine informat si ajutat. De ce am zis "aproape orice"? Gasesti raspunsul citit regulile forumului apasand pe butonul "Forum" din meniu si dupa aceea pe butonul "Reguli" din meniul forumulul. Iti urez EXPLORARE PLACUTA!

www.solloman.ro

Locul unde te regăseşti...

  
  
  
Bine ai venit, Vizitator
User: Parola: Amintește-mă

SUBIECT: MRC

MRC 10 ani 5 luni ago #2

  • Apostol Ionuț-Adrian
  • Apostol Ionuț-Adrian's Avatar
  • Deconectat
  • Administrator
  • If... I ruled the world...
  • Mesaje: 20
  • Thank you received: 5
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
De ce sa bei si sa conduci... cand poti sa fumezi si sa zbori?
Administratorul a dezactivat accesul public la scriere.

Window Clone Scanner 10 ani 5 luni ago #3

  • Apostol Ionuț-Adrian
  • Apostol Ionuț-Adrian's Avatar
  • Deconectat
  • Administrator
  • If... I ruled the world...
  • Mesaje: 20
  • Thank you received: 5
;==========================================================
; 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 ::: ;
;=======================================;
Atașamente:
  • Atașament Acest atașament este ascuns vizitatorilor. Autentificați-vă sau înregistrați-vă pentru a-l vedea.
De ce sa bei si sa conduci... cand poti sa fumezi si sa zbori?
Ultima editare: 9 ani 5 luni ago  de Apostol Ionuț-Adrian.
Administratorul a dezactivat accesul public la scriere.

/ame si /amsg Disable 10 ani 5 luni ago #4

  • Apostol Ionuț-Adrian
  • Apostol Ionuț-Adrian's Avatar
  • Deconectat
  • Administrator
  • If... I ruled the world...
  • Mesaje: 20
  • Thank you received: 5
;==========================================================
; 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 == 8) {
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 ::: ;
;=======================================;
Atașamente:
  • Atașament Acest atașament este ascuns vizitatorilor. Autentificați-vă sau înregistrați-vă pentru a-l vedea.
De ce sa bei si sa conduci... cand poti sa fumezi si sa zbori?
Ultima editare: 9 ani 5 luni ago  de Apostol Ionuț-Adrian.
Administratorul a dezactivat accesul public la scriere.

Clone scaner (popUP window) 10 ani 5 luni ago #5

  • Apostol Ionuț-Adrian
  • Apostol Ionuț-Adrian's Avatar
  • Deconectat
  • Administrator
  • If... I ruled the world...
  • Mesaje: 20
  • Thank you received: 5
;==========================================================
; 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 ::: ;
;=======================================;
Atașamente:
  • Atașament Acest atașament este ascuns vizitatorilor. Autentificați-vă sau înregistrați-vă pentru a-l vedea.
De ce sa bei si sa conduci... cand poti sa fumezi si sa zbori?
Ultima editare: 9 ani 5 luni ago  de Apostol Ionuț-Adrian.
Administratorul a dezactivat accesul public la scriere.

solloman script 2012 9 ani 7 luni ago #17

  • Apostol Ionuț-Adrian
  • Apostol Ionuț-Adrian's Avatar
  • Deconectat
  • Administrator
  • If... I ruled the world...
  • Mesaje: 20
  • Thank you received: 5
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).
Atașamente:
  • Atașament Acest atașament este ascuns vizitatorilor. Autentificați-vă sau înregistrați-vă pentru a-l vedea.
De ce sa bei si sa conduci... cand poti sa fumezi si sa zbori?
Ultima editare: 9 ani 6 luni ago  de Apostol Ionuț-Adrian.
Administratorul a dezactivat accesul public la scriere.

Caps first char 9 ani 4 luni ago #22

  • Apostol Ionuț-Adrian
  • Apostol Ionuț-Adrian's Avatar
  • Deconectat
  • Administrator
  • If... I ruled the world...
  • Mesaje: 20
  • Thank you received: 5
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 ::: ;
;=======================================;
Atașamente:
  • Atașament Acest atașament este ascuns vizitatorilor. Autentificați-vă sau înregistrați-vă pentru a-l vedea.
De ce sa bei si sa conduci... cand poti sa fumezi si sa zbori?
Ultima editare: 9 ani 4 luni ago  de Apostol Ionuț-Adrian.
Administratorul a dezactivat accesul public la scriere.
The following user(s) said Thank You: Alexandru
Moderators: Ionut
Pagina a fost generată in: 0.262 secunde
Cele mai de succes melodii ale mele le gasesti AICI!
_____________________________________________________________________________________________

 

Contact

NewsLetter

Profil utilizator