Coders-IRC
IRC for Coders
mIRC 7.63 has been released!
Latest News
mIRC 7.63 has been released! (August 17th 2020)
This is a small update that addresses a number of issues reported by users since
the last release. It includes improvements, changes and fixes to a number of
features, including:
Fixed Control+Break key bug that was causing mIRC to crash for some users.
Fixed tray tip display bug that caused close box to be displayed incorrectly.
...
mSLDev
mSLDev is a free, state-of-the-art, integrated development environment for the
mIRC Scripting Language (mSL), specifically designed for mSL scripters. mSLDev was
designed from the ground up to provide mSL scripters with all of the utilities
they would need to efficiently build error-free and well-designed code. Features
mSLDev comes with powerful features like real-time syntax checking and error detection,
syntax highlighting, auto-complete, GUI designer,...
Window Dialog
;=====================================================
; ChatToIRC
; DIVERSE ZAKEN VOOR ChatToIRC
;=====================================================
;=====================================================
; Auteur: JamesBond
; Homepagina: https://chatplezier.com
; Netwerk: ChatPlezier
; Server: irc.chatplezier.com
; Email: jamesbond@chatplezier.com
;=====================================================
alias ChatToIRC-Ops { dialog -dm ChatToIRC-ops ChatToIRC-ops }
dialog ChatToIRC-Ops {
title " ChatToIRC Ops Menu"
size -1 -1 140 90
icon $icodir(emoticon.ico), 0 noborder
option dbu
tab "Notices", 1, 2 1 135 85
tab "Channels", 2
tab "Kicks/Bans", 3
tab "Clones", 4
button " Aanzetten", 7, 30 20 70 10,tab1
button " Uitzetten", 8, 30 40 70 10,tab1
button " Aanzetten", 9, 30 20 70 10,tab2
button " Uitzetten", 10, 30 40 70 10,tab2
button " Aanzetten", 11, 30 20 70 10,tab3
button " Uitzetten", 12, 30 40 70 10,tab3
button " Aanzetten", 13, 30 20 70 10,tab4
button " Uitzetten", 14, 30 40 70 10,tab4
button " Sluiten", 19, 30 60 70 10,ok
}
on *:dialog:ChatToIRC-Ops:sclick:7:{ .set %Notices On | .set %Notices 1 | /window -n @Notice | echo -a 0,4 @Notices 0,12 Berichten Staat Nu AaN 0 }
on *:dialog:ChatToIRC-Ops:sclick:8:{ .set %Notices Off | .set %Notices 0 | /window -c @Notice | echo -a 0,4 @Notices 0,12 Berichten Staat Nu UiT 0 }
on *:dialog:ChatToIRC-Ops:sclick:9:{ .set %Channels On | .set %Channels 1 | /window -n @Channels | echo -a 0,4 @Channels 0,12 Berichten Staat Nu AaN 0 }
on *:dialog:ChatToIRC-Ops:sclick:10:{ .set %Channels Off | .set %Channels 0 | /window -c @Channels | echo -a 0,4 @Channels 0,12 Berichten Staat Nu UiT 0 }
on *:dialog:ChatToIRC-Ops:sclick:11:{ .set %Kicks/Bans On | .set %Kicks/Bans 1 | /window -n @Kicks/Bans | echo -a 0,4 @Kicks/Bans 0,12 Berichten Staat Nu AaN 0 }
on *:dialog:ChatToIRC-Ops:sclick:12:{ .set %Kicks/Bans Off | .set %Kicks/Bans 0 | /window -c @Kicks/Bans | echo -a 0,4 @Kicks/Bans 0,12 Berichten Staat Nu UiT 0 }
on *:dialog:ChatToIRC-Ops:sclick:13:{ .set %Clones On | .set %Clones 1 | /window -n @Cloons | echo -a 0,4 @Clones 0,12 Berichten Staat Nu AaN 0 }
on *:dialog:ChatToIRC-Ops:sclick:14:{ .set %Clones Off | .set %Clones 0 | /window -c @Cloons | echo -a 0,4 @Clones 0,12 Berichten Staat Nu UiT 0 }
on 1:START:{
if (%Notices == 1) { echo -m Notices Window 3Active | /window -n @Notice }
if (%Channels == 1) { echo -m Channels Window 3Active | /window -n @Channels }
if (%Kicks/Bans == 1) { echo -m Kicks/Bans Window 3Active | /window -n @Kicks/Bans }
if (%Clones == 1) { echo -m Clones Window 3Active | /window -n @Cloons }
}
on *:NOTICE:*:*: {
if (%Notices == 1) {
if ($window(Notice)) && ($nick != $me) {
/window -m @Notice
/aline -n @Notice @Notice | echo @Notice 10[ $+ $time $+ ]12[ $+ $date $+ ]13 $network 10[NOTICE] 4 $+ $nick 1stuurde je net notice 4Bericht:12
}
elseif ($nick != $me) {
/window -m @Notice
/aline -n @Notice @Notice | echo @Notice 10[ $+ $time $+ ]12[ $+ $date $+ ]13 $network 10[NOTICE] 4 $+ $nick 1stuurde je net notice 4Bericht:12 $1-
}
}
}
on 1:BAN:#:{
if (%Kicks/Bans == 1) {
if ($me isin $nick) { Halt }
/window -m @Kicks/Bans
/aline -n @Kicks/Bans @Kicks/Bans | echo @Kicks/Bans 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[BAN]14 $chan 4 $+ $nick 12zet mode4 $1-
}
}
on 1:UNBAN:#:{
if (%Kicks/Bans == 1) {
if ($me isin $nick) { Halt }
/window -m @Kicks/Bans
/aline -n @Kicks/Bans @Kicks/Bans | echo @Kicks/Bans 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[UNBAN]14 $chan 4 $+ $nick 12zet mode4 $1-
}
}
on 1:KICK:#:{
if (%Kicks/Bans == 1) {
if ($me isin $nick) { Halt }
/window -m @Kicks/Bans
/aline -n @Kicks/Bans @Kicks/Bans | echo @Kicks/bans 10[ $+ $time $+ ]12[ $+ $date $+ ] 4[KICK]14 $chan 4 $+ $nick 2kick 6 $+ $knick 12 $1-
}
}
on 1:VOICE:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[VOICE]14 $chan 4 $+ $nick 7voice12 $vnick
}
}
on 1:DEVOICE:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[Devoice]14 $chan 4 $+ $nick 7devoice12 $vnick
}
}
on 1:HELP:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[HALFOP]14 $chan 4 $+ $nick 7halfop12 $hnick
}
}
on 1:DEHELP:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[DEHALFOP]14 $chan 4 $+ $nick 7Dehalfop12 $hnick
}
}
on 1:OP:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[OP]14 $chan 4 $+ $nick 7op12 $opnick
}
}
on 1:DEOP:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[DEOP]14 $chan 4 $+ $nick 7deop12 $opnick
}
}
on 1:OWNER:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[OWNER]14 $chan 4 $+ $nick 7owner12 $opnick
}
}
on 1:DEOWNER:#:{
if (%Channels == 1) {
if ($me isin $nick) { Halt }
/window -m @Channels
/aline -n @Channels @Channels | echo @Channels 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[DEOWNER]14 $chan 4 $+ $nick 7deowner12 $opnick
}
}
###HL
on *:Join:#: {
if (%Clones == 1) {
var %host_to_search_for = $address($nick,2)
var %number_from_that_host = $ialchan(%host_to_search_for,$chan,0)
if (%number_from_that_host > 1) {
;we have clones!
;first set up our vars and loop
var %count = 0
unset %clones
:loop
inc %count
;loop through every nick, adding the nicks to %clones
var %clones = %clones $ialchan(%host_to_search_for,$chan,%count).nick
if (%count < %number_from_that_host) { goto loop }
/window -m @Cloons
//aline -n @Cloons @Cloons | echo @Cloons 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[CLOONS] 12op 14 $+ $chan 4 $+ %count $+ 7-Cloons Gedetecteerd- 12Cloons Van 4 $+ $address($nick,2)
//aline -n @Cloons @Cloons | echo @Cloons 10[ $+ $time $+ ]12[ $+ $date $+ ] 10[Nick Cloons] 12op 14 $+ $chan $+ :12 %clones
}
}
}
alias open {
.window -ekn @Services 0 0 718 504 @Services Comic Sans MS 11
.window -ekn @Notice 0 0 718 504 @Notice Courier New 10
}
On ^*:NoticE:*:#: {
if (%Notices == 1) {
if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) { goto n }
if ($nick == chanserv) || ($nick == memoserv) || ($nick == operserv) || (nickserv == $nick) { .echo @Services [ $nick $+ : $+ $chan ] $1- | halt }
else { .echo @Notice 10[ $+ $time $+ ]12[ $+ $date $+ ]13 $network 10[NOTICE] 4 $+ $nick 1 - $+ $chan $+ - $1- | halt }
else { .echo @Notice Notice $nick - $+ $chan $+ - $1- | halt }
:n
}
}
On ^*:NoticE:*:?: {
if (%Notices == 1) {
if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) { goto n }
if ($nick == chanserv) || ($nick == memoserv) || ($nick == operserv) || (nickserv == $nick) { .echo @Services [ $nick ] $1- | halt }
else { .echo @Notice Notice $nick -Private- $1- | halt }
:n
}
}
alias faddr {
if (!$window(@Address)) { window -azdBke2 @Address $calc($window(-1).w /2 -250) $calc($window(-1).h /2 -125) 500 250 }
if ($1) { search.addr $1- }
}
on *:INPUT:@Address: { if ($left($1,1) != /) && (!$ctrlenter) { search.addr $1- } }
alias search.addr {
var %:adr = $1-, %:a = 1
aline -h @Address $chr(160)
$iif($ial(%:adr,0),aline -h 4 @Address %:adr $+($chr(40),$v1,$chr(41)) on $network is:,aline -h 4 @Address %:adr no address found on $network)
while (%:a <= $ial(%:adr,0)) {
aline -h 15 @Address $+(%:a,$chr(41)) $+(14,$ial(%:adr,%:a).nick,) - $ial(%:adr,%:a).addr
inc %:a
}
}