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
}
}
Comments 0
