Hello people! I am an old user of this platform, and because of the spam, i am no longer active. But, in this time i have created a website where i collect a lot of mirc scripts, tutorials, addons, etc. You are free to join my little comunity and i can serve you with a lot of good scripts. https://premiumchat.ro/download.php
hi
This is Scramble script with Hungarian language...
My problem is, points are not added.
PROBLEM IS HERE
write Scramble.ini Pont $nick $iif($readini(Scramble.ini,points,$nick),$calc($readini(Scramble.ini,points,$nick) + 50),50)
PLS HELP :(
alias -l scramble {
var %a,%b $1
while ($numtok(%a,32) < $len($1)) var %a $addtok(%a,$r(1,$len($1)),32)
return $regsubex(%a,/(\S+(?: |$))/g,$mid(%b,\1,1))
}
alias -l s_new {
var -g %s_word $read(words.txt),%s_scramble $scramble(%s_word)
msg $1 A következő szó: 🟡 %s_scramble 🟡
msg $1 ⏰ A megfejtésig [30] másodperc áll rendelkezésre $+ ! ⏰
.timerscramble 1 30 s_fail $1
}
alias -l s_fail {
msg $1 Nem érkezett jó megoldás :( A megfejtés: 🔴 %s_word 🔴
describe $1 <<< FIGYELEM KÖVETKEZŐ ßetűM!X! >>> (Tipp: használd így:➕<szóköz><megfejtés>)
unset %s_word
.timerscramble 1 5 s_new $1
}
alias -l s_cleanup {
.timerscramble off
unset %s_word %s_scramble
}
on owner:TEXT:!betűmix &:#: {
if ($nick isop $chan) {
if ($2 == start) {
if (%s_scramble) notice $nick The game is already going... Type !word to see what the scrambled word it is
else s_new #
}
elseif ($2 == stop) {
if (%s_scramble) {
msg # 🛑 Játék leállítva $nick $+ . 🛑
s_cleanup
}
}
}
}
on *:TEXT:+ &:#: {
if (%s_word) {
if ($2 == %s_word) {
msg # Gratulálunk! Szép munka $nick $+ ! A megfejtés: 🟢 %s_word 🟢
write Scramble.ini Pont $nick $iif($readini(Scramble.ini,points,$nick),$calc($readini(Scramble.ini,points,$nick) + 50),50)
describe # $nick 5️⃣0️⃣ $readini(Scramble.ini,points,$nick) pont.
describe # ⏰ <<< FIGYELEM KÖVETKEZŐ ßetűM!X! >>> ⏰
unset %s_word
.timerscramble 1 5 s_new #
}
elseif ($2 != %s_word) msg # ⛔ Nem ez a helyes megfejtés $nick ⛔, gondolkozz $+ ! [[ $+ $timer(scramble).secs $+ ]] másodperc van hátra.
}
}
99 Colours - mIRC Colour Script 2020
version 1.2
SCREENSHOT: https://jackpond.uk/mirc/colourpicker/colourpicker.png
DOWNLOAD: https://jackpond.uk/mirc/colourpicker/colourpicker.rar
After the new updated version of mIRC which now enables 99 colours on its colourpicker, I thought I would make a script that made setting your input text with these new colours easy as pie.
Required mIRC version: 7.62 or above
---------INSTRUCTIONS-------
1) Place colourpicker.mrc in your mIRC directory ( //run $mircdir )
2) Copy the entire 'coltex' folder into your mIRC directory. The script will read it as a subfolder (nice and tidy!)
3) Run /load -rs colourpicker.mrc
4) Colour picker will open if you press "yes" to initiate the script. If not;
5) You can find the colour picker under "Commands" in the menu bar, or by typing /colourpicker
6) If you have any questions, queries, bugs or caterpillars, please let me know!
--------UPDATES------------
12th October 2020
Hello Hawkee.
After the new updated version of mIRC which now enables 99 colours on its colourpicker, I thought I would make a script that made setting your input text with these new colours easy as pie.
Download file: https://jackpond.uk/mirc/mirc.rar
Screenshot: https://jackpond.uk/mirc/screenshot.png
I know it has been a long time since i been here, i have had alot of family issues that prevented me from doing things on the net. I jsut wanted to say hi to everyone and let everyone know i am back but im stick with node and api projects atm. i moved away from java and messing with mirc scripts.
I now only chat on discord if anyone is interested in coming to my chat, its a chat about whatever you want server.
https://discord.gg/ewrjRbk if anyone is interested <3
I'm trying to figure out what to do with this site. The spam is really a huge problem. I'd love to change things around, but I don't know what I could do to make it successful. I don't think just another code snippet sharing platform has much of a place online, so I need to completely reimagine this site. Any thoughts, ideas or suggestions?
mIRC VxD script NҾ₢⃝№щΐ₵ᴑᴎ ❽
☠ Rev.50
is a mIRC script that allows you to manage the graphics of the mIRC client in many aspects.
Can change the look and feel of mIRC has never been so easy 100% customizable
This Script is evolving to enable any combination of style, color and aspects of graphic display effect to your dialog window with DCX.dll and other notes Dlls combined with each other.
Latest version Ver 8.50
The minimum requirements for the installation are;
● full script updated download to https://vxd.mobi/necronomicon.html
Search Ip from connect info
For By Cheiron on Sep 23, 2019
Open a text file with the name IP and place it in the mIRC home directory.
Add the above code to the remote. ( Alt + R )
It will record incoming and outgoing nicks.
You can interrogate him as Nick or IP. My English is bad.
I hope I understood your problem correctly. ;)
Code;
on :input:#Ops:{
if $regex($1,/^[!.]searchip$/Si) {
if !$2 { msg # 5Please Specify Nick / IP.. 12Use Of:4.searchip 12and 4!searchip 7or 4.searchnick 12or 4!searchnick }
elseif $regex($2,/\d+.\d+.\d+.\d+/Si) {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # 10 $+(,$strip($2),) 12™ ® 4INo Recorded Data for IP Number Found.. 12® ™ | return }
msg # 4=====" 2Nickname 4"======" 2Ident 4"======" 2Action 4"=======" 2Time 4"======= " 2Date 4"=====
msg # 2-
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4Nick:3 $token(%:read,2,32) 2- 4Ident:2 $token(%:read,3,32) 2-4 Action:11 $token(%:read,4-,32) 2-4 Time:2 $token($token(%:read,1,32),2,191) 2-9 $iif($date == $token($token(%:read,1,32),1,191),Today,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # 2-
msg # 13™ ® 4Information:10 $+(,$strip($2),) 4Number Of IP2 $+(,$lines($+(IP/,$strip($2),.txt)),) 4Number of Records Listed.. 13® ™
msg # 13===============================================================
msg # 2-
.hadd -ms Ns-list $strip($2) #
ns list $+(@,$strip($2))
}
else {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # 10 $+(,$strip($5),) 12™ ® 4No Data Found for This Nick .. 12® ™ | return }
msg # 4=====" 2IP Number 4"======" 2Ident 4"=======" 2Action 4"========" 2Time 4"==== " 2Date 4"=====
msg # 2-
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4IP:3 $token(%:read,2,32) 2- 4Ident:2 $token(%:read,3,32) 2- 4 Action:11 $token(%:read,4-,32) 2- 4 Time:2 $token($token(%:read,1,32),2,191) 2-9 $iif($date == $token($token(%:read,1,32),1,191),Today,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # 2-
msg # 13™ ® 4Information:10 $+(,$strip($2),) 4For This Nickname2 $+(,$lines($+(IP/,$strip($2),.txt)),) 4Number of Records Listed.. 13® ™
msg # 13===============================================================
msg # 2-
}
}
}
on :notice::?:{
if ($nick == NickServ) {
if $regex($1-,/Matching Data:/Si) && $regex($1-,/(\d+.\d+.\d+.\d+)/Si) {
msg # $hget(Ns-list,$regml(1)) 10 $+(,$regml(1),) 9Registered Nick List of IP Number:
}
elseif $regex($1-,/(\d+.\d+.\d+.\d+)/Si) && $hget(Ns-list,$regml(1)) {
msg # $hget(Ns-list,$regml(1)) 4IP Owner Nick:2 $strip($1) }
elseif $regex($1-,/End Of List/Si) {
$iif($4 == 0/0,msg $hget(NS-list,1).data 12™ ® 4NickServ has No Registered or Identified Nick.. 12 ® ™)
.hfree -sw Ns-list
}
}
}
on :snotice::{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) ((.+)@(.+))/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 6667,Mobil,$iif(%_port == 7003,Web,IRC))) Has Logged in
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
.write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
}
elseif $regex($1-,/his\/her nickname to/Si) {
var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Changed his Nickname
.write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Changed his Nickname
}
elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) {
.hadd -msu15 IRC-Login $regml(1) $regml(2) $regml(3) Command Applied }
elseif $regex($1-,/Client exiting/Si) {
if $regex($1-,/Client exiting\: (.+) ((.+)@(.+)) .+/Si) {
var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) {
var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
var %:ban = $hget(IRC-Login,%_cip)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Logged Out)
.write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Logged Out)
$iif($hget(IRC-Login,%_cip),.hdel -ms IRC-Login %_cip)
}
}
;Made by independent
;Use it only if my name stays on it.
menu * {
TCPWatch-dataforward:init
}
alias init {
inc %aaa
if (%aaa == 1) {
hadd -m conf ip 127.0.0.1
hadd -m conf port 9051
hadd -m conf p2 9050
}
if (!$sock(fromnet).name) socklisten -d 0.0.0.0 fromnet $hget(conf,port)
if (!$dialog(tcpwatch)) dialog -m tcpwatch tcpwatch
did -a tcpwatch 11 [Info] listening on port $hget(conf,port) redirect to $hget(conf,ip) $+ : $+ $hget(conf,p2) $crlf
did -a tcpwatch 11 [Info] Script has been started %aaa times
}
dialog tcpwatch {
title "TCPWatch-dataforward"
size -1 -1 347 93
option dbu
box "Config", 1, 4 4 66 65
edit "9051", 2, 42 16 22 10
text "Listen Port", 3, 7 17 32 8
edit "127.0.0.1", 4, 13 36 50 10
text "forward to ip", 5, 14 27 47 8
edit "9050", 6, 39 47 23 10
text "To Port", 7, 9 47 25 8
button "START", 8, 4 71 34 12
button "STOP", 9, 39 71 30 12
box "Debug", 10, 69 4 268 65
edit "", 11, 72 13 263 54, result multi autohs autovs hsbar vsbar limit 99999
button "CLEAR", 12, 116 72 37 12
button "SAVE", 13, 214 72 37 12
}
on 1:dialog:tcpwatch:sclick:8:{
init
}
on 1:dialog:tcpwatch:edit:2:{
hadd -m conf port $did(tcpwatch,2)
did -a tcpwatch 11 [Info] changed listen port to $did(tcpwatch,2) $crlf
}
on 1:dialog:tcpwatch:edit:4:{
hadd -m conf ip $did(tcpwatch,4)
did -a tcpwatch 11 [Info] changed ip to $did(tcpwatch,4) $crlf
}
on 1:dialog:tcpwatch:edit:6:{
hadd -m conf p2 $did(tcpwatch,6)
did -a tcpwatch 11 [Info] changed forward port to $did(tcpwatch,6) $crlf
}
on 1:dialog:tcpwatch:sclick:9:{
sockclose fromnet
sockclose redirect
sockclose tcpwatch*
did -a tcpwatch 11 [Info] Closed port. $crlf
}
on 1:dialog:tcpwatch:sclick:13:{
%ticks = $ticks
savebuf -oi tcpwatch 11 data $+ %ticks $+ .txt
run data $+ %ticks $+ .txt
}
on 1:dialog:tcpwatch:sclick:12:{
cleardiag 11
}
alias cleardiag {
did -r tcpwatch $1
}
on 1:SOCKREAD:fromnet*:{
sockread &fromnet
if (!$sock($replace($sockname,fromnet,redirect)).name) sockopen $replace($sockname,fromnet,redirect) $hget(conf,ip) $hget(conf,p2)
if ($sock($replace($sockname,fromnet,redirect)).name) sockwrite -n $replace($sockname,fromnet,redirect) &fromnet
did -a tcpwatch 11 From Net Bin : $bvar(&fromnet,1,$bvar(&fromnet,0)) $crlf
did -a tcpwatch 11 From Net Text: $bvar(&fromnet,1,$bvar(&fromnet,0)).text $crlf
}
on 1:SOCKREAD:redirect*:{
sockread &redirect
if ($sock($replace($sockname,redirect,fromnet)).name) sockwrite -n $replace($sockname,redirect,fromnet) &redirect
did -a tcpwatch 11 Redirect Bin: $bvar(&redirect,1,$bvar(&redirect,0)) $crlf
did -a tcpwatch 11 Redirect Text: $bvar(&redirect,1,$bvar(&redirect,0)).text $crlf
}
on 1:SOCKLISTEN:fromnet:{ %name = fromnet $+ $r(0,99999) | sockaccept %name | if (!$sock($replace($sockname,fromnet,redirect)).name) sockopen $replace(%name,fromnet,redirect) $hget(conf,ip) $hget(conf,p2) }
Hi everyone, first of all congratulations to all of you for your excellent scripts, today I want to ask you if it is possible to have a query script that helps me to block those who write to me in private, for example: if they write to me bye, are you alright? I need a script to save and block this word for a certain amount of time, so that when half an hour or 1 hour later they will write "hello, are you alright?" the script recognizes this message and ignores it or blocks perhaps with a message "you have already written this message". Do you think it is possible to do this? I sincerely thank those who will help me to do it.
menu status,menubar,channel {
» BadNick Koruma:/dialog -m bads bads
}
alias bads { dialog -m bads bads }
dialog bads {
title "Kumsal sCripT Badnick Koruması"
size 200 200 256 176
option dbu
edit "", 2, 17 22 64 10, return autohs
list 3, 17 34 64 75, sort size hsbar
button "Nick ekle", 4, 17 11 32 10
button "Nick SiL", 5, 49 11 32 10
edit "", 6, 98 22 64 10, return autohs
list 7, 98 34 64 75, sort size hsbar
button "M Nick Ekle", 8, 98 11 32 10
button "M Nick SiL", 9, 130 11 32 10
edit "", 10, 176 22 64 10, return autohs
list 11, 176 34 64 75, sort size hsbar
button "M kanal ekle", 12, 176 11 32 10
button "M kanal SiL", 13, 208 11 32 10
button "Badnick Tara", 15, 197 124 50 10
button "Tamam/Kapat", 16, 79 124 99 12, ok
check "Aç / Kapat", 17, 10 124 50 10
box " Badnick Listesi", 19, 10 1 78 116
box " Muaf Nick Listesi", 20, 90 1 78 116
box " Muaf Kanal Listesi", 21, 170 1 78 116
icon 29,10 142 237 26, scripting\ico\menu\koruma.jpg
}
on :dialog:bads:sclick::{
if ($did(17).state == 1) { .enable #kbk } | else { .disable #kbk }
if ($did == 4) { write bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }
if ($did == 5) { write -dl $+ $did(3).sel bads.txt | did -d $dname 3 $did(3).sel }
if ($did == 8) { if ($did(6) != $null) { set -u %mnk $did(6) | if (%mnk) && (!$istok(%korunick,%mnk,32)) { .set %korunick $addtok(%korunick,%mnk,32) | did -a $dname 7 %mnk | did -r $dname 6 } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %korunick $remtok(%korunick,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 } }
if ($did == 12) { if ($did(10) != $null) { set -u %mke $did(10) | if (%mke) && (!$istok(%korukanal,%mke,32)) { .set %korukanal $addtok(%korukanal,%mke,32) | did -a $dname 11 %mke | did -r $dname 10 } } }
if ($did == 13) { if ($did(11).sel > 0) { .set %korukanal $remtok(%korukanal,$did(11).seltext,1,32) | did -d $dname 11 $did(11).sel | did -c $dname 11 } }
if ($did == 15) { .tara $active }
}
on 1:dialog:bads:init:0: {
if ($isfile(bads.txt) == $false) { write -c bads.txt } | else { loadbuf -o $dname 3 bads.txt }
if (%korunick) .didtok $dname 7 32 $ifmatch
if (%korukanal) .didtok $dname 11 32 $ifmatch
if ($group(#kbk) == on) { did -c bads 17 }
}
on !:join:#: {
if $istok(%korukanal,#,32) == $true { halt }
if $istok(%korunick,$nick,32) == $true { halt }
if ($me isop $chan) || ($me ishop $chan) || (o isin $usermode) {
var %hd $lines(bads.txt)
while (0 <= %hd) {
if $read(bads.txt,%hd) iswm $nick {
mode # +b $+($v1,!@)
kick # $nick 2 Nick'iniz KanaL Seviyesine Uygun Değildir. 2ßy 5 $me | .os raw svsjoin $nick #cinsellik
}
dec %hd
}
}
}
on :NICK:{
if $istok(%korunick,$newnick,32) == $true { halt }
if $badnick($newnick) {
var %e = 1, %u = $v1
while $comchan($newnick,%e) {
if ($me isop $v1) || ($me ishop $v1) && (%korukanal != $v2) && ($newnick isreg $v2) {
mode $v2 +b %u
kick $v2 $newnick 2 Nick'iniz KanaL Seviyesine Uygun Değildir. 2ßy 5 $me | .os raw svsjoin $nick #cinsellik
}
inc %e
}}
}
alias badnick {
var %e = 1
while $read(bads.txt,%e) {
if $v1 iswm $1 {
return $v1
}
inc %e
}
return $false
}
alias tara {
if $1 ischan {
var %d = $lines(bads.txt)
while %d {
if $fline($1,$read(bads.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(bads.txt,%d),!@) | kick $1 $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) 2 Nick'iniz KanaL Seviyesine Uygun Değildir. 2ßy 5 $me | .os raw svsjoin $nick #cinsellik } | dec %q } }
dec %d
}
}
}
Kanalın ortasına sağ klick yaparak açılan menüde bad nick Korumasını aça bilirsin ve acılan Dialod tablosuna nickleri ister wilcard yani sikici gibi örnek teki gibi ekleye bilirsin yada direkt olarak nickte yaza bilirsin bu şekilde çalışacağını düsünüyorum yapacağın sadece nick ekleme olacaktır kolay gelsin..
Hello guys..
I am new here so if i'm not on the right place to post this, sorry. I need an IRC bot/script for :
I want to open multiple windows or multiple irc's with different users to join a channel and to spam a text that i've wrote.
I want to have something like button that tradevenue.se i can click after that it popups small windows saying and i can type something like "hello it's me" and every account/nickname from the window to spam after the keyword an number between 11 and 150 randomized, is this even possible? or any other solution to that what i want? ... it will be very kind from someone to help me out ...
Thanks in advance.
What I'm making:
mIRC socket bot with SQL
Requirements: mIRC >V6.2
Netadmin Oper Privileges
Services root access
Some features may require additional services/ircd modules
What it does/will do:
-) Completely regulate staff based on a user level you specify for them on the SQL database, allowing you to add staff members through your website and restrict connections to registered members, and other features
-) Use your website password to login - integrates closely with NickServ and OperServ to help link in to Services
-) Restrict rooms to age/gender/staff/unregistered etc
-) Eliminate the need for anyone to require Services permissions
-) Pre-defined warn/kick/ban system
-) User notes
-) Display online staff
-) Make reports to staff
-) Added #help help
-) and more! Just ask!
Would you like something like this? It's designed to run from an mirc client and be modular, and an easy-to-build-on scripting API
Attached: If you /msg Bot HELP as a superadmin (level 10)
