By NoreII on Oct 09, 2016All you need :) Screens http://imgur.com/a/yNhFi
All with GUI
Reg. nicks via Nickserv. If you use a numeric PW you can change it.
Change IRC PW
Chanserv Commands (set join | unban | join pw prot. channels)
Change nicks via menu (11 nicks | all nicks can be changed | )
queryscript with away messages (for each nick another message | all can be changed)
whois
See when your nick dropped
Some Screens :)
http://imgur.com/a/yNhFi
and many more :)
please tell me your opinion
;Installation
on *:load:{
echo -a X4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ X
if (%install.time < "") { set %install.time $asctime(dd.mm.yyyy) }
if (!$exists(Support-Script-by-MoraSu)) { .mkdir Support-Script-by-MoraSu }
if (!$exists(Support-Script-by-MoraSu\Channels.txt)) { write -c Support-Script-by-MoraSu\Channels.txt }
if (!$exists(Support-Script-by-MoraSu\Channel)) { .mkdir Support-Script-by-MoraSu\Channel }
if (!$exists(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt)) { write -c Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt $= #You need this line. DONT DELETE IT }
if (!$exists(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt)) { write -c Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt $= You need this line. DONT DELETE IT }
if (!$exists(Support-Script-by-MoraSu\ChannelsJoin.txt)) { write -c Support-Script-by-MoraSu\ChannelsJoin.txt }
;EINTRAGUNG DER GRUNDDATEN
if (!$exists(Support-Script-by-MoraSu\Grunddaten)) { .mkdir Support-Script-by-MoraSu\Grunddaten }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\NickSup.txt $?="Wie ist dein Nick (Fuer den Support) / What is your nick ( for support )?" }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\Userpass.txt $?="Wie lautet dein Passwort zum Identifizieren (Zur automatischen /identify)? ACHTUNG: Ein Passwort nur aus Zahlen wird nicht unterstuetzt / What is your password to identify ( for automatic / identify ) NOTE : A password only numbers is not supported ?" }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\RegMail.txt $?="Wie lautet deine E-Mailadresse? (Die E-Mail zur Nick-Registrierung) / What is your email address ( The e-mail to Nick registration )?" }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\MailSup.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\MailSup.txt $?="Wie lautet deine E-Mailadresse (Für den Support / Wird im Queryscript wiedergegeben) / What is your e-mail address ( For Support / Where in the query script reproduced)?" }
;EINTRAGUNG DES MAIN SUB NICK UND AWAY TEXTE
if (!$exists(Support-Script-by-MoraSu\Nick+Message)) { .mkdir Support-Script-by-MoraSu\Nick+Message }
if (!$exists(Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt)) { write -c Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt $= If you need Support, please open a Ticket at XXXXX or write me a mail to: 3( $+ $+ $read(Support-Script-by-MoraSu\Grunddaten\MailSup.txt) $+ $+ 3). }
if (!$exists(Support-Script-by-MoraSu\Nick+Message\AwayText.txt)) { write -c Support-Script-by-MoraSu\Nick+Message\AwayText.txt $= Sorry, i am busy. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am ingame. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am away. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am semi. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, Do not Disturb. Highlights only in emergency case. I will answer as soon as possible. $&
$crlf $+ Sorry, Not available. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, meeting time. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, Trialteaching. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, i am at work. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, i am sleeping. $&
$crlf $+ Sorry, i am in the ticket system. Please leave a message. i will answer as soon as possible. }
if (!$exists(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt)) { write -c Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $= |Busy $&
$crlf $+ |OTRS $&
$crlf $+ |IG $&
$crlf $+ |Away $&
$crlf $+ |Semi $&
$crlf $+ |DnD $&
$crlf $+ |NA $&
$crlf $+ |Meeting $&
$crlf $+ |Trialteaching $&
$crlf $+ |Work $&
$crlf $+ |[ZzZz] }
if (!$exists(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt)) { write -c Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt $= $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) }
;EINTRAGUNG der Nicks wann die gedroppt werden
if (!$exists(Support-Script-by-MoraSu\Nick+Message\NickDrop.txt)) { write -c Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData }
if (!$exists(Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt)) { write -c Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData $&
$crlf $+ NoData }
echo -a © 2015 MoraSu
echo -a Version Support-Script-by-MoraSu see Tab About
echo -a Script loadet and ready
echo -a Have fun :)
echo -a X4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ X
w_Querynachricht EIN
w_menueSaveRegUnban EIN
w_menueNickCange EIN
w_menueStuff EIN
w_awaynachrichten EIN
write -c Support-Script-by-MoraSu\ChangeLog.txt $= Change Log $&
$crlf $+ $&
$crlf $+ ### Version 6.0 ### $&
$crlf $+ Script Installation verändert $&
$crlf $+ Wenn Install.time vorhanden ist wird diese nicht überschrieben $&
$crlf $+ Implementierung von "Fireworks" $&
$crlf $+ Neuer Tab "Channel Comand" mit Inhalt $&
$crlf $+ hinzufügen von Codes für Tab "Channel Comand" $&
$crlf $+ Channels mit PW sind betretbar $&
$crlf $+ Timer für Save- und Regnick "versteckt" $&
$crlf $+ Teil des Queryscripts ausgelagert (Remote Datei) $&
$crlf $+ Ausgelagerter QueryScript Teil ist veränderbar $&
$crlf $+ $&
$crlf $+ ### Version 5.2 ### $&
$crlf $+ Fehlerbehebung bei Nick Flag Meeting bezüglich der Drop Zeit $&
$crlf $+ $&
$crlf $+ ### Version 5.1 ### $&
$crlf $+ Veränderung der Abfragen von Grunddaten (bei init) $&
$crlf $+ Veränderung der Abfragen von Away Messages (bei init) $&
$crlf $+ Veränderung von überschreiben MainSubNick (bei init) $&
$crlf $+ Veränderung von überschreiben der Falgs (bei init) $&
$crlf $+ Veränderung von überschreiben des Nick drop (bei init) $&
$crlf $+ Tabs Reihenfolge verändert $&
$crlf $+ Code Fehler für Away Text Initialisierung verändert $&
$crlf $+ $&
$crlf $+ ### Version 5.0 ### $&
$crlf $+ + Neuer Tab Nick Drop $&
$crlf $+ + Veränderung der ausgelagerten Daten $&
$crlf $+ + Weitere Code Zeilen hinzugefügt $&
$crlf $+ + Auslesen des genutzten Nicks inkl. Datum $&
$crlf $+ + Berechnung wann Nickname X benutzt wurde und in wie vielen Tagen er gedroppt wird $&
$crlf $+ + Einbindung in GUI zur direkten Ansicht $&
$crlf $+ + Change Log hinzugefügt $&
$crlf $+ + Viele Gedanken gemacht wann ich was getrieben habe um den Change Log zu erstellen... $&
$crlf $+ + Erweiterung der "Remove Support Script by MoraSu" Funktion $&
$crlf $+ $&
$crlf $+ ### Version 4.0 ### $&
$crlf $+ + Tab Unban und Channels verändert $&
$crlf $+ + Channel können noch hoch oder runter geschoben werden $&
$crlf $+ * Nein noch nichts am lästigen Button zur set Join Channel geändert... $&
$crlf $+ + Tab Nicks hinzugefügt $&
$crlf $+ + Nicks + Flags sichtbar $&
$crlf $+ + Sub-Main Nick nutzung hinzugefügt $&
$crlf $+ + Ausgelagerte Daten erweitert $&
$crlf $+ + Flags veränderbar $&
$crlf $+ $&
$crlf $+ ### Version 3.0 ### $&
$crlf $+ - Variablen Nutzung $&
$crlf $+ + Nutzung externer Speicherorte $&
$crlf $+ + Hinzufügen der PW ändern Funktion $&
$crlf $+ + Hinzufügen der PW ändern Funktion (numerisch) $&
$crlf $+ + Erweiterung der GUI um Stuff und Whois $&
$crlf $+ + Away Messages lesbar $&
$crlf $+ + Away Messages veränderbar $&
$crlf $+ + Preferences verändert und erweitert $&
$crlf $+ + Initialize and Remove hinzugefügt $&
$crlf $+ $&
$crlf $+ ### Version 2.X ### $&
$crlf $+ ~ Zu viel ums nu auszuschreiben $&
$crlf $+ $&
$crlf $+ ### Version 2.0 ### $&
$crlf $+ + Verzweifeln an den tausenden Code Zeilen... $&
$crlf $+ + Overview Done $&
$crlf $+ + Unban und CHannels Done $&
$crlf $+ + Basic Data Done $&
$crlf $+ $&
$crlf $+ ### Version 1.1 ### $&
$crlf $+ + Einbindung der GUI $&
$crlf $+ + Erweiterung des SSBM $&
$crlf $+ + Überlegungen $&
$crlf $+ + Kaffee Pause $&
$crlf $+ + Ereriterung des Menüs $&
$crlf $+ $&
$crlf $+ ### Version 1.0 ### $&
$crlf $+ + Implementierung GUI $&
$crlf $+ + Implementierung Nick Menü $&
$crlf $+ + Implementierung Savenicks $&
$crlf $+ + Implementierung Reg.Nicks $&
$crlf $+ + Implementierung SupportScriptByMoraSu $&
$crlf $+ $&
$crlf $+ ### Der Anfang... ### $&
$crlf $+ + Überlegung ob man sowas braucht $&
$crlf $+ + Überlegung was man brauchen könnte $&
$crlf $+ + Konstruktive Kaffee Pause :) $&
$crlf $+ - Kaffee ist leer -.- $&
$crlf $+ + Weitere Überlegungen $&
$crlf $+ - Lust Verschwunden... $&
/SupportScriptByMoraSu
}
#menueNickChange on
;--------------- Menue ---------------
menu * {
Support Script by MoraSu
.Nick Menue
..Back there ( $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) ): /wiederda | if ( $group(#awaynachrichten) == on ) /wiederda2 | NickDrop | ChanComChanPWJoin
..Busy ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,1) ): /busy | if ( $group(#awaynachrichten) == on ) /busy2 | NickDrop2 | ChanComChanPWJoin
..Tickets ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,2) ): /otrs | if ( $group(#awaynachrichten) == on ) /otrs2 | NickDrop3 | ChanComChanPWJoin
..Ingame ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,3) ): /ig | if ( $group(#awaynachrichten) == on ) /ig2 | NickDrop4 | ChanComChanPWJoin
..Away ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,4) ): /wegaway | if ( $group(#awaynachrichten) == on ) /wegaway2 | NickDrop5 | ChanComChanPWJoin
..Semi ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,5) ): /semi | if ( $group(#awaynachrichten) == on ) /semi2 | NickDrop6 | ChanComChanPWJoin
..Do not disturb( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,6) ): /Donotdisturb | if ( $group(#awaynachrichten) == on ) /Donotdisturb2 | NickDrop7 | ChanComChanPWJoin
..Not available ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,7) ): /Nichtverfuegbar | if ( $group(#awaynachrichten) == on ) /Nichtverfuegbar2 | NickDrop8 | ChanComChanPWJoin
..-
..Meeting( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,8) ): /meeting | if ( $group(#awaynachrichten) == on ) /meeting2 | NickDrop9 | ChanComChanPWJoin
..Trialteaching( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,9) ): /trialteaching | if ( $group(#awaynachrichten) == on ) /trialteaching2 | NickDrop10 | ChanComChanPWJoin
..-
..To work ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,10) ): /arbeit | if ( $group(#awaynachrichten) == on ) /arbeit2 | NickDrop11 | ChanComChanPWJoin
..Sleep ( $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,11) ): /schlafen | if ( $group(#awaynachrichten) == on ) /schlafen2 | NickDrop12 | ChanComChanPWJoin
}
#menueNickChange end
;Menü Save-, Regg. u. Unban der Nicknamen
#menueSaveRegUnban on
menu * {
Support Script by MoraSu
.Save-, Regg. u. Unban Nicknamen
..Savenicks: /savenick
..Nick Registrieren / Nick register: /regnick
..Entbannen der Channel / unban the channels: /entbannen
}
#menueSaveRegUnban end
menu * {
Support Script by MoraSu
.Preferences
..Preferences and Options: /SupportScriptByMoraSu
..Variable bearbeiten / Edit variable (vars.ini): /valiable
}
#menueStuff on
menu * {
Support Script by MoraSu
.Stuff
..Whois — $1 —: /whois $$1 $$1
..Colors: /colorinformation
..Fireworks: /fireworks $$1 $$1
}
#menueStuff end
#queryscript on
;--------------- Queryscript ---------------
alias awaytime { return $+($remove($shortdur($calc($ctime - %away.set. [ $+ [ $cid ] ] )).nosec,$chr(32))) }
on *:open:?:*:{
inc %querynumber
; set %usedday = $calc($calc($ctime($asctime(dd.mm.yyyy)) - $ctime(%install.time))/86400)
if (!$istok(-psybnc o l q f,$nick,32)) {
if (!$away) { msg $nick 12::: I am not away. My idle time: 3( $+ $duration($idle) $+ 3). Please wait a few minutes. $read(Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt) Thank you. 12::: }
else { msg $nick 12::: I am away, reason: 3( $+ $awaymsg $+ 3) $+ . Since: 3( $+ $duration($awaytime) $+ 3). Your message will be logged. $read(Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt) . 12::: }
msg $nick 12::: Active Queries: 3( $+ $query(0) $+ 3) $+ . Queries since $asctime(%install.time) $+ : Overall3( $+ %querynumber $+ 3) $+ . Queries per day 3( $+ $round($calc(%querynumber / $calc($calc($ctime($asctime(dd.mm.yyyy)) - $ctime(%install.time))/86400)),1) $+ 3) 12:::
}
}
#queryscript end
;--------------- Savenick sowie Registrierung Nick ---------------
;Erkluerung zu Savenick
;Eure Nicknamen und dazugehoerige Befehle werden automaitsch nach 30 Tagen der Nicht-Benutzung geloescht. Dieser Befehl laesst alle Nicks durchlaufen und setzt automatisch die Channel ein. je + 2 seks
alias savenick {
.timerSaveNick01 1 1 amsg brb
.timerSaveNick02 1 3 partall
.timerSaveNick03 1 5 nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
.timerSaveNick04 1 7 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick05 1 9 NickDrop
.timerSaveNick06 1 11 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick07 1 13 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,1)
.timerSaveNick08 1 15 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick09 1 17 NickDrop2
.timerSaveNick10 1 19 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick11 1 21 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,2)
.timerSaveNick12 1 23 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick13 1 25 NickDrop3
.timerSaveNick14 1 27 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick15 1 29 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,3)
.timerSaveNick16 1 31 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick17 1 33 NickDrop4
.timerSaveNick18 1 35 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick19 1 37 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,4)
.timerSaveNick20 1 39 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick21 1 41 NickDrop5
.timerSaveNick22 1 43 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick23 1 45 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,5)
.timerSaveNick24 1 47 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick25 1 49 NickDrop6
.timerSaveNick26 1 51 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick27 1 53 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,6)
.timerSaveNick28 1 55 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick29 1 57 NickDrop7
.timerSaveNick30 1 59 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick31 1 61 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,7)
.timerSaveNick32 1 63 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick33 1 65 NickDrop8
.timerSaveNick34 1 67 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick35 1 69 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,8)
.timerSaveNick36 1 71 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick37 1 73 NickDrop9
.timerSaveNick38 1 75 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick39 1 77 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,9)
.timerSaveNick40 1 79 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick41 1 81 NickDrop10
.timerSaveNick42 1 83 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick43 1 85 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,10)
.timerSaveNick44 1 87 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick45 1 89 NickDrop11
.timerSaveNick46 1 91 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick47 1 93 nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,11)
.timerSaveNick48 1 95 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerSaveNick49 1 97 NickDrop12
.timerSaveNick50 1 99 ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
.timerSaveNick51 1 101 nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
.timerSaveNick52 1 103 ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
var %dummy $input(Savenick work. Please wait a short time. Please choose a Nickname after Savenick is done) !,-oi,Watch out)
}
;----- Einstellungen fuer den Timer -----
;Wechsel des Nicknames +1 Sekunde (Beispiel: Zeitwert 1)
;Befehl Nickname registrieren + 31 Sekunden (Beispiel: Zeitwert 32)
;Befehl Nickname verlinken + 1 Sekunde (Beispiel: Zeitwert 33)
alias regnick {
.timerREGNICK01 1 1 /amsg brb
.timerREGNICK02 1 2 /partall
.timerREGNICK03 1 3 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
.timerREGNICK04 1 4 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK05 1 5 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,1)
.timerREGNICK06 1 36 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK07 1 37 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK08 1 38 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,2)
.timerREGNICK09 1 68 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK10 1 69 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK11 1 70 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,3)
.timerREGNICK12 1 101 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK13 1 102 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK14 1 103 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,4)
.timerREGNICK15 1 134 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK16 1 135 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK17 1 136 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,5)
.timerREGNICK18 1 167 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK19 1 168 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK20 1 169 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,6)
.timerREGNICK21 1 200 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK22 1 201 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK23 1 202 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,7)
.timerREGNICK24 1 233 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK25 1 234 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK26 1 235 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,8)
.timerREGNICK27 1 266 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK28 1 267 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK29 1 268 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,9)
.timerREGNICK30 1 299 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK31 1 300 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK32 1 301 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,10)
.timerREGNICK33 1 332 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK34 1 333 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK35 1 334 /nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,11)
.timerREGNICK36 1 365 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
.timerREGNICK37 1 367 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
.timerREGNICK38 1 368 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
.timerREGNICK39 1 369 /ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
.timerREGNICK40 1 370 /var %dummy $input(Regnick work. Please wait a few minutes. After Regnick is done Savenick start automaticly.) !,-oi,Watch out)
.timerREGNICK41 1 371 /savenick
}
;INFO zu entbannen
alias entbannen {
dialog -m entbannen entbannen
}
;DIALOG ENTBANNEN ÄNDERN
dialog entbannen {
title "Unban der Channels / Unabn the Channels"
size -1 -1 272 264
option dbu
button "Einverstanden / Agreed", 1, 92 162 72 12, ok
button "Abbrechen / Abort", 2, 92 250 72 12, cancel
box "Einverstanden / Agreed", 3, 16 88 242 74
text "Der Unban Befehl wird auf die hinterlegten Channels angewand.", 4, 24 104 225 48
box "Wichtige Information zum Unban / Important information for Unban", 5, 16 8 242 74
text "Bitte beachtet, dass ihr alle Channels in den Preferences hinterlegt haben müsst, dass dieses Unban Script funktioniert. Ansonsten ist nur zu sagen... Hoffe es gefällt euch :)", 6, 24 24 225 48
box "Abbrechen / Abort", 7, 16 176 242 66
text "", 8, 24 184 225 48
}
;So können die Texte aufgebaut werden für die Text Felder im Dialog. Hier ist es Tab 1 Feld Information
on 1:dialog:entbannen:INIT:*:{
;Wichtige Information
did -a entbannen 6 //// DE Abschnitt \\\\ $&
$crlf $+ Der Unban Befehl kann nur auf die hinterlegten Channels angewendet werden. $&
Der Befehl funktioniert nur bei den "restricted" Channels. $&
$crlf $+ $&
$crlf $+ //// EN Section \\\\. $&
$crlf $+ The Unban command can only be applied to the stored channels. $&
The command works only for the "restricted " Channels.
; Einverstanden Text
did -a entbannen 4 //// DE Abschnitt \\\\ $&
$crlf $+ Der Unban Befehl wird auf die hinterlegten Channels angewendet. $&
$crlf $+ $&
$crlf $+ //// EN Section \\\\ $&
$crlf $+ The Unban command is applied to the stored channels.
; Abbrechen Text
did -a entbannen 8 //// DE Abschnitt \\\\ $&
$crlf $+ Der Unban Befehl wird nicht ausgeführt. $&
$crlf $+ $&
$crlf $+ //// EN Section \\\\. $&
The Unban command is not executed
}
; ENTBANNEN OK
on *:dialog:entbannen:sclick:1:{
echo -a 8,1Unban start...
;amsg brb
;partall
set %zeile.nr 1
while (%zeile.nr <= $lines(Support-Script-by-MoraSu\Channels.txt)) {
cs unban $read(Support-Script-by-MoraSu\Channels.txt, %zeile.nr)
inc %zeile.nr
}
echo -a Bitte einen Nicknamen waehlen / Please select a nickname.
}
; Entbannen CANCEL
on *:dialog:entbannen:sclick:2:{
echo -a 4,1Abbruch durch Benutzer / User abort...
}
;öffne IRC PASSWORT ÄNDERN DIALOG
alias ircpwchange {
dialog -m ircpwchange ircpwchange
}
;DIALOG IRC PASSWORT ÄNDERN
dialog ircpwchange {
title "Neues IRC Passwort / New IRC password"
size -1 -1 144 48
option dbu
text "Moechtest du wirklich Ihr IRC Passwort aendern? / You sure you want to change your IRC password?", 1, 8 8 129 16
button "Ja / Yes", 2, 16 24 45 12, ok
button "Abbrechen / Abort", 3, 80 24 53 12, cancel
}
alias valiable {
//run notepad.exe scripts\vars.ini
}
;--------------- Nickmenü ---------------
alias wiederda {
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
away
}
alias busy {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,1)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias otrs {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,2)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias ig {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,3)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias wegaway {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,4)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias semi {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,5)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias Donotdisturb {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,6)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias /Nichtverfuegbar {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,7)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias meeting {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,8)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias trialteaching {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,9)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias arbeit {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,10)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias schlafen {
tnick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,11)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
;--------------- Nickmenü Away Nachrichten ---------------
#awaynachrichten on
alias wiederda2 {
away
}
alias busy2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,1)
}
alias otrs2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,11)
}
alias ig2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,2)
}
alias wegaway2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,3)
}
alias semi2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,4)
}
alias Donotdisturb2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,5)
}
alias /Nichtverfuegbar2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,6)
}
alias meeting2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,7)
}
alias trialteaching2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,8)
}
alias arbeit2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,9)
}
alias schlafen2 {
away $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,10)
}
#awaynachrichten end
;Hier Dialog ssbm
alias SupportScriptByMoraSu {
dialog -ma ssbm SupportScriptByMoraSu
}
dialog SupportScriptByMoraSu {
title "SupportScriptByMoraSu"
size -1 -1 920 352
option pixels
tab "Overview", 1, 5 5 894 310
box "Infos", 7, 12 40 315 108, tab 1
text "Gespeicherte Channels / stored channels", 8, 32 62 220 15, tab 1
list 9, 270 60 40 20, tab 1
text "", 15, 80 142 212 152, tab 1
box "Hilfe zum Scrip / Help for script", 67, 336 40 484 260, tab 1
text "", 68, 344 56 466 232, tab 1
list 46, 270 116 40 20, tab 1
list 96, 270 88 40 20, tab 1
text "Gespeicherte alternativ Nicks / stored alternate nicks", 110, 32 88 218 16, tab 1
text "Gespeicherte Away nachrichten / stored away messages", 114, 32 116 218 16, tab 1
tab "Unban and Channels", 2
list 16, 20 40 180 270, tab 2
button "Channel hinzufuegen | Add channel", 17, 206 50 186 25, tab 2
button "Channel bearbeiten | Channel edit", 18, 206 90 186 25, tab 2
button "Channel loeschen | Clear channel", 19, 206 130 186 25, tab 2
box "#Channel edit field", 20, 210 174 170 60, tab 2
edit "", 21, 220 199 150 20, tab 2 autohs
button "Eingabefeld leer | edit field empty", 22, 210 236 170 20, tab 2
button "Channels in Datei exportieren | Export channels in file", 50, 416 256 291 25, tab 2
box "Den Button nicht vergessen | Do not forget Button", 69, 408 216 308 76, tab 2
box "Information DE", 70, 408 40 404 164, tab 2
text "", 71, 416 56 386 56, tab 2
box "Nach Channel veraenderung | by channel alteration", 28, 408 232 308 60, tab 2
text "", 30, 416 136 386 56, tab 2
box "Information EN", 31, 408 120 404 84, tab 2
button "Channel Down", 91, 296 264 75 25, tab 2
button "Channel Up", 92, 208 264 75 25, tab 2
tab "Basic Data", 51
list 52, 16 40 108 20, tab 51 size
list 53, 16 80 108 20, tab 51 size
list 54, 16 120 108 20, tab 51 size
list 55, 16 160 108 20, tab 51 size
text "Dein Nick fuer den Support / Your Nick for the Support", 60, 128 40 330 16, tab 51
text "Dein Passwort (nicht Numerisch) / Your password (not numerically) ", 61, 128 80 330 16, tab 51
text "Deine Mail fuer die registrierung / Your mail for registration", 62, 128 120 330 16, tab 51
text "Deine Mail fuer den Support / Your mail for support ", 63, 128 160 282 16, tab 51
button "Neues Passwort festlegen / Set new password", 76, 472 64 291 25, tab 51
box "IRC password change", 75, 464 48 308 84, tab 51
button "Neues Passwort uebertragen / transmitted new password", 77, 472 96 291 25, tab 51
box "! ONLY USE IF YOU HAVE A NUMERIC PASSWORD !", 13, 456 184 316 116, tab 51
button "Nummern Passwort erfassen / Numeric password capture", 23, 464 200 299 25, tab 51
box "! NUR BEI NUMERISCHEM PASSWORT NUTZEN !", 24, 456 168 316 132, tab 51
button "Neues Passwort festlegen / Set new password", 25, 464 232 299 25, tab 51
button "Neues Passwort uebertragen / transmitted new password", 26, 464 264 299 25, tab 51
box "IRC Passwort Aenderung", 27, 464 32 308 100, tab 51
tab "Preferences", 74
check "Query Nachricht Ein/Aus schalten | query message switch on / off", 3, 24 40 348 20, tab 74
check "Menue Save- Registrierung Nick und Unban Ein/Aus schalten | Menu Save- Registration Nick and Unban turn on / off", 4, 24 88 612 20, tab 74
check "Menue Nick Aenderung Ein/Aus schalten | Menu Nick change switch on / off", 5, 24 64 588 20, tab 74
check "Menue Stuff Ein/Aus schalten | Stuff menu switch on / off", 6, 24 112 364 20, tab 74
check "Away Nachrichten Ein/Aus schalten | Away message switch on/off", 36, 24 136 604 20, tab 74
list 152, 24 200 868 28, tab 74 size
text "Part of QueryScript.", 153, 24 176 122 24, tab 74
button "Button", 154, 600 312 75 25, hide tab 74
button "Button", 155, 672 312 75 25, hide tab 74
button "Button", 156, 744 312 75 25, hide tab 74
list 159, 504 312 100 20, hide tab 74 size
button "Change Text", 157, 24 232 75 25, tab 74
tab "Away Messages", 29
list 39, 24 56 476 156, tab 29
button "Semi", 49, 544 160 75 25, tab 29
box "Change Away Messages", 56, 536 40 260 188, tab 29
button "Busy", 57, 544 64 75 25, tab 29
button "IG", 58, 544 96 75 25, tab 29
button "Away", 59, 544 128 75 25, tab 29
button "DnD", 64, 544 192 75 25, tab 29
button "NA", 65, 632 64 75 25, tab 29
button "Meeting", 66, 632 96 75 25, tab 29
button "TrialTeaching", 72, 632 128 75 25, tab 29
button "Work", 73, 632 160 75 25, tab 29
button "ZzZz", 78, 632 192 75 25, tab 29
box "Away Messages", 48, 16 40 492 180, tab 29
button "OTRS", 14, 712 64 75 25, tab 29
tab "Nicks", 94
list 95, 36 84 252 188, tab 94
button "|Busy", 97, 336 96 75 25, tab 94
text "", 98, 512 96 258 192, tab 94
button "|OTRS", 99, 336 128 75 25, tab 94
button "|IG", 100, 336 160 75 25, tab 94
button "|Away", 101, 336 192 75 25, tab 94
button "|Semi", 102, 336 224 75 25, tab 94
button "|DnD", 103, 336 256 75 25, tab 94
button "|NA", 104, 424 96 75 25, tab 94
button "|Meeting", 105, 424 128 75 25, tab 94
button "|Trialteaching", 106, 424 160 75 25, tab 94
button "|Work", 107, 424 192 75 25, tab 94
button "[ZzZz]", 108, 424 224 75 25, tab 94
text "Sub-Main Nick", 112, 440 43 100 20, tab 94
button "Sub-Main Nick", 113, 544 40 75 25, tab 94
list 111, 336 40 100 20, tab 94 size
tab "Nick Drop", 116
list 117, 40 64 100 236, tab 116 size
text "Your used nick", 118, 40 40 90 16, tab 116
text "Last used", 119, 160 40 58 16, tab 116
text "Expires", 120, 280 40 50 16, tab 116
list 133, 356 320 100 20, hide tab 116 size
list 142, 460 320 100 20, hide tab 116 size
list 143, 160 64 100 236, tab 116 size
list 144, 568 320 100 20, hide tab 116 size
list 145, 280 64 220 236, tab 116 size
tab "Initialize and Remove", 47
box "General Initalize", 89, 432 240 388 60, tab 47
box "Channels / Away", 88, 272 176 124 92, tab 47
box "Basic Data", 87, 24 176 236 92, tab 47
box "Remove", 12, 432 40 388 188, tab 47
box "Initialize", 10, 16 40 404 260, tab 47
button "Channel hinzufuegen | Add channel", 40, 710 322 114 25, hide tab 47
button "Channel bearbeiten | Channel edit", 41, 654 322 114 25, hide tab 47
button "Eingabefeld leer | edit field empty", 45, 634 324 114 20, hide tab 47
edit "", 44, 484 327 150 20, hide tab 47 autohs
button "Channel loeschen | Clear channel", 42, 590 322 114 25, hide tab 47
list 11, 450 321 40 20, hide tab 47
text "", 43, 24 56 386 88, tab 47
button "Remove Support Script by MoraSu", 80, 504 192 243 25, tab 47
button "Channels", 81, 280 200 107 25, tab 47
button "Support Nick", 82, 32 200 107 25, tab 47
button "Password", 83, 32 232 107 25, tab 47
button "Mail for registration", 84, 144 200 107 25, tab 47
button "Mail for support", 85, 144 232 107 25, tab 47
button "Away Messages", 86, 280 232 107 25, tab 47
button "Initialize Support Script by MoraSu", 90, 528 264 195 25, tab 47
list 109, 592 320 84 28, hide tab 47
button "Sub Nicks (Flags)", 115, 32 272 107 25, tab 47
text "", 79, 444 60 362 120, tab 47
tab "About", 38
box "EN Section", 32, 532 36 284 268, tab 38
box "DE Abschnitt", 34, 236 36 284 268, tab 38
text "", 35, 244 52 266 240, tab 38
text "", 37, 540 52 266 240, tab 38
text "", 93, 24 88 194 208, tab 38
button "Change log", 121, 24 48 195 25, tab 38
tab "Channel Comand", 122
list 123, 204 64 156 250, tab 122
list 124, 364 64 156 250, tab 122
button "Channel hinzufuegen | Add channel", 125, 10 54 186 25, tab 122
button "Channel bearbeiten | Channel edit", 126, 10 94 186 25, tab 122
button "Channel loeschen | Clear channel", 127, 10 134 186 25, tab 122
box "#Channel edit field", 128, 14 178 170 60, tab 122
edit "", 129, 24 203 150 20, tab 122 autohs
button "Eingabefeld leer | edit field empty", 130, 14 240 170 20, tab 122
button "Channel Up", 131, 12 268 75 25, tab 122
button "Channel Down", 132, 100 268 75 25, tab 122
button "Password Down", 134, 616 272 75 25, tab 122
button "Password Up", 135, 528 272 75 25, tab 122
button "Eingabefeld leer | edit field empty", 136, 530 244 170 20, tab 122
edit "", 137, 540 207 150 20, tab 122 autohs
box "#Password edit field", 138, 530 182 170 60, tab 122
button "Passwort loeschen | Clear password", 139, 526 138 186 25, tab 122
button "Passwort bearbeiten | Password edit", 140, 526 98 186 25, tab 122
button "Passwort hinzufuegen | Add password", 141, 526 58 186 25, tab 122
list 146, 72 32 52 20, hide tab 122 size
list 147, 568 32 52 20, hide tab 122 size
button "!!! Klick for use !!!", 148, 312 32 171 25, tab 122
text "", 151, 736 64 154 200, tab 122
button "Fenster schliessen / Close window", 33, 4 320 232 25, cancel
button "Button", 158, 808 312 75 25, hide
}
dialog removessbm {
title "Remove Support Script by MoraSu"
size -1 -1 328 88
option pixels
text "Realy remove Support Script by MoraSu with all components?", 1, 16 16 306 24
button "Yes", 2, 48 48 75 25
button "No", 3, 184 48 75 25, cancel
}
on 1:dialog:removessbm:SCLICK:2:{
remove -b Support-Script-by-MoraSu\Grunddaten\MailSup.txt
remove -b Support-Script-by-MoraSu\Grunddaten\NickSup.txt
remove -b Support-Script-by-MoraSu\Grunddaten\Userpass.txt
remove -b Support-Script-by-MoraSu\Grunddaten\RegMail.txt
rmdir Support-Script-by-MoraSu\Grunddaten
remove -b Support-Script-by-MoraSu\Nick+Message\AwayText.txt
remove -b Support-Script-by-MoraSu\Nick+Message\DROPS.txt
remove -b Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt
remove -b Support-Script-by-MoraSu\Nick+Message\NickDrop.txt
remove -b Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt
remove -b Support-Script-by-MoraSu\Nick+Message\SubNicks.txt
rmdir Support-Script-by-MoraSu\Nick+Message
remove -b Support-Script-by-MoraSu\Channels.txt
remove -b Support-Script-by-MoraSu\ChannelsJoin.txt
remove -b Support-Script-by-MoraSu\SSBM-Config.ini
rmdir Support-Script-by-MoraSu
dialog -x ssbm
dialog -x removessbm
remove -b support_script.mrc
unset %userpasstemp
unset %install.time
unset %querynumber
unset %zeile.nr
unload -rs support_script.mrc
var %dummy $input(Support Script by MoraSu succesfully removed!,-oi,Watch out)
}
; Tab 7
;Remove Support Script
on 1:dialog:ssbm:SCLICK:80:{
dialog -m removessbm removessbm
}
;Support Nick
on 1:dialog:ssbm:SCLICK:82:{
write -c Support-Script-by-MoraSu\Grunddaten\NickSup.txt $$?="Wie ist dein Nick (Fuer den Support) / What is your nick ( for support )?"
var %dummy $input(Support Nick Change to $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) !,-oi,Watch out)
}
;Password
on 1:dialog:ssbm:SCLICK:83:{
write -c Support-Script-by-MoraSu\Grunddaten\Userpass.txt $$?="Wie lautet dein Passwort zum Identifizieren (Zur automatischen /identify)? ACHTUNG: Ein Passwort nur aus Zahlen wird nicht unterstuetzt / What is your password to identify ( for automatic / identify ) NOTE : A password only numbers is not supported ?"
var %dummy $input(Support Nick Change to $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) !,-oi,Watch out)
}
;Mail for regg
on 1:dialog:ssbm:SCLICK:84:{
write -c Support-Script-by-MoraSu\Grunddaten\RegMail.txt $$?="Wie lautet deine E-Mailadresse? (Die E-Mail zur Nick-Registrierung) / What is your email address ( The e-mail to Nick registration )?"
var %dummy $input(Support Nick Change to $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt) !,-oi,Watch out)
}
;Mail for Supp
on 1:dialog:ssbm:SCLICK:85:{
write -c Support-Script-by-MoraSu\Grunddaten\MailSup.txt $$?="Wie lautet deine E-Mailadresse (Für den Support / Wird im Queryscript wiedergegeben) / What is your e-mail address ( For Support / Where in the query script reproduced)?"
var %dummy $input(Support Nick Change to $read(Support-Script-by-MoraSu\Grunddaten\MailSup.txt) !,-oi,Watch out)
}
;Away Nachrichten
on 1:dialog:ssbm:SCLICK:86:{
write -c Support-Script-by-MoraSu\Nick+Message\AwayText.txt $= Sorry, i am busy. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am ingame. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am away. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am semi. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, Do not Disturb. Highlights only in emergency case. I will answer as soon as possible. $&
$crlf $+ Sorry, Not available. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, meeting time. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, Trialteaching. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, i am at work. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, i am sleeping. $&
$crlf $+ Sorry, i am in the ticket system. Please leave a message. i will answer as soon as possible.
var %dummy $input(Original Away messages have been restored) !,-oi,Watch out)
}
;Init Sub Nicks (Flags)
on 1:dialog:ssbm:SCLICK:115:{
write -c Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $= |Busy $&
$crlf $+ |OTRS $&
$crlf $+ |IG $&
$crlf $+ |Away $&
$crlf $+ |Semi $&
$crlf $+ |DnD $&
$crlf $+ |NA $&
$crlf $+ |Meeting $&
$crlf $+ |Trialteaching $&
$crlf $+ |Work $&
$crlf $+ |[ZzZz]
}
;Channel file entfernen und neu erstellen
on 1:dialog:ssbm:SCLICK:81:{
write -c Support-Script-by-MoraSu\Channels.txt
var %dummy $input(All Channels initialized) !,-oi,Watch out)
}
;General Initialize
on 1:dialog:ssbm:SCLICK:90:{
var %dummy $$input(General initialize initiated ) !,-oi,Watch out)
echo -a X4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ X
set %install.time $asctime(dd.mm.yyyy)
if (!$exists(Support-Script-by-MoraSu)) { .mkdir Support-Script-by-MoraSu }
write -c Support-Script-by-MoraSu\Channels.txt
write -c Support-Script-by-MoraSu\ChannelsJoin.txt
if (!$exists(Support-Script-by-MoraSu\Grunddaten)) { .mkdir Support-Script-by-MoraSu\Grunddaten }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\NickSup.txt }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\Userpass.txt }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\RegMail.txt }
if (!$exists(Support-Script-by-MoraSu\Grunddaten\MailSup.txt)) { write -c Support-Script-by-MoraSu\Grunddaten\MailSup.txt }
if (!$exists(Support-Script-by-MoraSu\AwayText.txt)) { write -c Support-Script-by-MoraSu\AwayText.txt }
write -c Support-Script-by-MoraSu\Grunddaten\NickSup.txt $?="Wie ist dein Nick (Fuer den Support) / What is your nick ( for support )?"
write -c Support-Script-by-MoraSu\Grunddaten\Userpass.txt $?="Wie lautet dein Passwort zum Identifizieren (Zur automatischen /identify)? ACHTUNG: Ein Passwort nur aus Zahlen wird nicht unterstuetzt / What is your password to identify ( for automatic / identify ) NOTE : A password only numbers is not supported ?"
write -c Support-Script-by-MoraSu\Grunddaten\RegMail.txt $?="Wie lautet deine E-Mailadresse? (Die E-Mail zur Nick-Registrierung) / What is your email address ( The e-mail to Nick registration )?"
write -c Support-Script-by-MoraSu\Grunddaten\MailSup.txt $?="Wie lautet deine E-Mailadresse (Für den Support / Wird im Queryscript wiedergegeben) / What is your e-mail address ( For Support / Where in the query script reproduced)?"
echo -a © 2015 MoraSu
echo -a Version Support-Script-by-MoraSu see About Tab
echo -a Script loadet and ready
echo -a Have fun :)
echo -a X4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ X
w_Querynachricht EIN
w_menueSaveRegUnban EIN
w_menueNickCange EIN
w_menueStuff EIN
w_awaynachrichten EIN
write -c Support-Script-by-MoraSu\AwayText.txt $= Sorry, i am busy. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am ingame. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am away. Please leave a message. i will answer as soon as possible. $&
$crlf $+ Sorry, i am semi. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, Do not Disturb. Highlights only in emergency case. I will answer as soon as possible. $&
$crlf $+ Sorry, Not available. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, meeting time. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, Trialteaching. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, i am at work. Please leave a message. I will answer as soon as possible. $&
$crlf $+ Sorry, i am sleeping. $&
$crlf $+ Sorry, i am in the ticket system. Please leave a message. i will answer as soon as possible.
}
;So können die Texte aufgebaut werden für die Text Felder im Dialog. Hier ist es Tab 1 Feld Information
on 1:dialog:ssbm:INIT:*:{
; Wird benötigt um direkt zu sehen wie viele Channels man hinterlegt hat
FillChannelsList
FillSubNick
FillAwayList
;Test für An bzw. Aus von Queryscript ID 3
if ($Querynachricht == EIN) { did -c ssbm 3 }
if ($menueSaveRegUnban == EIN) { did -c ssbm 4 }
if ($menueNickCange == EIN) { did -c ssbm 5 }
if ($menueStuff == EIN) { did -c ssbm 6 }
if ($awaynachrichten == EIN) { did -c ssbm 36 }
;Tab 1 Hand in Hand
did -a ssbm 15 $&
$crlf $+ ********** MAEH ! ********** $&
$crlf $+ $&
$crlf $+ __________#**#__________ $&
$crlf $+ _________C' °° O_______ $&
$crlf $+ __________(___)___________ $&
$crlf $+ _________I####I _________ $&
$crlf $+ ________O## ##O ________ $&
$crlf $+ _________ #####___________ $&
$crlf $+ __________II II___________ $&
$crlf $+ _________(__)(__)__________ $&
$crlf $+ $&
$crlf $+ ********** MAEH ! ********** $&
;Tab 1 Hilfe zum Script Nr. 68
did -a ssbm 68 DE Abschnitt $&
$crlf $+ Einen Guide findet ihr hier: Guide $&
$crlf $+ 1: Geht in den Tab "Unban und Channels" und klickt in das "#Channel edit field" $&
$crlf $+ 2: Tragt alle eure Channel ein und bestätigt es mit dem Button "Channel hinzufügen". Die Form ist #CHANNELNAME $&
$crlf $+ 3: Nachdem ihr eure Channels hinterlegt habt klickt auf den Button "Channels in Datei exportieren". $&
$crlf $+ 4: Wählt per rechte Maustaste Support Script by MoraSu -> Save.- Regg. and Unban Nickname -> Nick Registrieren. $&
$crlf $+ $&
$crlf $+ EN Section $&
$crlf $+ A guide can be found here: Guide $&
$crlf $+ 1: Go to the tab "Unban und Channels" and klick on "#Channel edit field" $&
$crlf $+ 2: Carry an all your channels and confirmed it with the button "Add Channel". The form is #CHANNELNAME $&
$crlf $+ 3: After you have deposited your channels click on the button "Channels export to file". $&
$crlf $+ 4: Selects the right mouse button support script by MoraSu -> Save.- Regg. and unban nickname -> Nick Register.
; Tab 2 Informationen Unban Teil
did -a ssbm 71 Grundsaetzlich werden hier die Channels fuer den Unban Befehl dargestellt. $&
$crlf $+ Wenn du die Channels automatisch betreten willst druecke den unteren Button. $&
$crlf $+ ... Der Button ist damit du auch was machen musst :P
; Tab 2 Information Unban Teil
did -a ssbm 30 The channels for the unban command Basically represented here . $&
$crlf $+ If you automatically want to enter the channels Press the lower button. $&
$crlf $+ ... The button is so you have to do well what : P
; Tab 5 "DE Abschnitt"
did -a ssbm 35 © 2015-9999 MoraSu $&
$crlf $+ Einen Speziellen Dank an meine Freunde Chibisuke und SkyBird. $&
$crlf $+ Die beiden haben mir bei ein paar Codes sehr geholfen. $&
$crlf $+ $&
$crlf $+ Script Version see Change log $&
$crlf $+ $&
$crlf $+ $&
$crlf $+ Danke, dass du mein Script benutzt. Ich hoffe es gefaellt dir. $&
$crlf $+ Fuer Lob oder Kritik schreibt mich an. $&
$crlf $+ Fuer Verbesserungsvorschlaege bin ich immer offen. $&
$crlf $+ Erreichen koennt ihr mich im euIRCnet im Channel #florensia.de oder schreibt mir eine Mail an morasu@gmx.net
; Tab 5 EN Section
did -a ssbm 37 © 2015-9999 MoraSu $&
$crlf $+ A special thanks to my friends Chibisuke and Skybird . $&
$crlf $+ Both have helped me with a few codes . $&
$crlf $+ $&
$crlf $+ Script Version see Change log $&
$crlf $+ $&
$crlf $+ Thank you for using my script . I hope you like it $&
$crlf $+ For praise and criticism write to me. $&
$crlf $+ For suggestions for improvements , I am always open . $&
$crlf $+ You can contact me in reaching euIRCnet in Channel # florensia.de or send me an email to morasu@gmx.net
; Tab 5 Bild
did -a ssbm 93 $&
$crlf $+ ********** MAEH ! ********** $&
$crlf $+ $&
$crlf $+ __________#**#__________ $&
$crlf $+ _________C' °° O_______ $&
$crlf $+ __________(___)___________ $&
$crlf $+ _________I####I _________ $&
$crlf $+ ________O## ##O ________ $&
$crlf $+ _________ #####___________ $&
$crlf $+ __________II II___________ $&
$crlf $+ _________(__)(__)__________ $&
$crlf $+ $&
$crlf $+ ********** MAEH ! ********** $&
; Tab 7 Initialize
did -a ssbm 43 Hier könnt ihr die jeweiligen Abschnitte neu initalisieren $&
$crlf $+ oder das komplette script per general Initalize $&
$crlf $+ $&
$crlf $+ $&
$crlf $+ Here you can re- initialize the respective sections $&
$crlf $+ or the complete script by general Initalize $&
; Tab 7 Initialize
did -a ssbm 79 Wenn dir das Script nicht gefällt, kannst $&
$crlf $+ du es einfach entfernen $&
$crlf $+ ACHTUNG: Gelöscht werden alle remote Daten und das Script selbst $&
$crlf $+ $&
$crlf $+ $&
$crlf $+ If you do not like the script, $&
$crlf $+ you can remove it easily $&
$crlf $+ WARNING : will erase all data remotely and the script itself $&
;Tab 8 Nicks
did -a ssbm 98 DE Abschnitt $&
$crlf $+ Hier können die Flags verändert werden und ein Sub-Main Nick hinterlegt werden. $&
$crlf $+ Klick auf den gewünschten Button und ändere den Flag. $&
$crlf $+ Wenn ein Sub-Main Nick gewählt werden möchte einfach auf den Button "Sub-Main Nick" klicken. $&
$crlf $+ $&
$crlf $+ EN Section $&
$crlf $+ Here, the flags can be changed and a Sub Main will be deposited Nick. $&
$crlf $+ Click on the desired button and change the flag. $&
$crlf $+ When a Sub -Main Nick would be selected simply click on the button " Sub Main Nick ". $&
;Tab Channel Comand
did -a ssbm 151 Channels with PW $&
$crlf $+ DONT DELETE THE FIRST LINE $&
$crlf $+ Left side: Add your Channel $&
$crlf $+ Right side: Add your password $&
$crlf $+ NOTE: Chan and PW must in the same line! $&
$crlf $+ $&
$crlf $+ At last klick "Klick for use" Button $&
}
;Querynachricht Check Button EIN / AUSSCHALTEN
on 1:dialog:ssbm:SCLICK:3:{
if ($did(ssbm,3).state == 0) { w_Querynachricht AUS | disable #queryscript $1 var %dummy $input(Queryscript deaktiviert / Queryscript disabled!,-oi,Watch out) }
else { w_Querynachricht EIN | enable #queryscript $1 var %dummy $input(Queryscript aktiviert / Queryscript activated!,-oi,Watch out) }
}
;menueNickChange Check Button EIN / AUSSCHALTEN
on 1:dialog:ssbm:SCLICK:5:{
if ($did(ssbm,5).state == 0) { w_menueNickCange AUS | disable #menueNickChange $1 var %dummy $input(Menue Teil Nick Aenderung deaktiviert / Menu part Nick changes disabled!,-oi,Watch out) }
else { w_menueNickCange EIN | enable #menueNickChange $1 var %dummy $input(Menue teil Nick Aenderung aktiviert / Menu part Nick changes activated!,-oi,Watch out) }
}
;MenuemenueSaveRegUnban Check Button EIN / AUSSCHALTEN
on 1:dialog:ssbm:SCLICK:4:{
if ($did(ssbm,4).state == 0) { w_menueSaveRegUnban AUS | disable #menueSaveRegUnban $1 var %dummy $input(Menue Teil Save- Registrierung Nick und Unban deaktivert / Menu part Save- Registration Nick and Unban diabled!,-oi,Watch out) }
else { w_menueSaveRegUnban EIN | enable #menueSaveRegUnban $1 var %dummy $input(Menue Teil Save- Registrierung Nick und Unban aktiviert Menu part Save- Registration Nick and Unban activated!,-oi,Watch out) }
}
;menueStuff Check Button EIN / AUSSCHALTEN
on 1:dialog:ssbm:SCLICK:6:{
if ($did(ssbm,6).state == 0) { w_menueStuff AUS | disable #menueStuff $1 var %dummy $input(Menue Teil Stuff deaktiviert / Menu part Stuff diabled!,-oi,Watch out) }
else { w_menueStuff EIN | enable #menueStuff $1 var %dummy $input(Menue Teil Stuff aktiviert / Menu part Stuff activated!,-oi,Watch out) }
}
;Away Nachrichten Check Button EIN / AUSSCHALTEN
on 1:dialog:ssbm:SCLICK:36:{
if ($did(ssbm,36).state == 0) { w_awaynachrichten AUS | disable #awaynachrichten $1 var %dummy $input(Away Nachrichten deaktiviert / Away message diabled!,-oi,Watch out) }
else { w_awaynachrichten EIN | enable #awaynachrichten $1 var %dummy $input(Away Nachrichten aktiviert / Away message activated!,-oi,Watch out) }
}
;Hier mal die Infos ob die Komponenten aktiv sind oder nicht.
;CHECKBOX Queryscript
on 1:START:{
echo -a 09,1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo -s -
echo -a The following components are active / not active
echo -s -
if ($Querynachricht == EIN) {
;if ($group(#queryscript) == on) {
echo -a * Queryscript: active !
echo -a -
}
else {
echo -a * Queryscript: not active!
echo -a -
}
;}
if ($menueSaveRegUnban == EIN) {
echo -a * Menu Save-, Regg. and Unban nickname: active !
echo -a -
}
else {
echo -a * Menu Save-, Regg. and Unban nickname: not active!
echo -a -
}
if ($menueNickCange == EIN) {
echo -a * Menu Nick: active !
echo -a -
}
else {
echo -a * Menu Nick: not active!
echo -a -
}
if ($menueStuff == EIN) {
echo -a * Menu Stuff: active !
echo -a -
}
else {
echo -a * Menu Stuff: not active!
echo -a -
}
if ($awaynachrichten == EIN) {
echo -a * Away messages: active !
echo -a -
}
else {
echo -a * Away messages: not active!
echo -a -
}
echo -a 09,1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
;***************************
;INIS
Alias Querynachricht { return $readini(Support-Script-by-MoraSu\SSBM-Config.ini,Queryscript,Querynachricht) }
Alias w_Querynachricht { writeini Support-Script-by-MoraSu\SSBM-Config.ini Queryscript Querynachricht $1 }
Alias menueSaveRegUnban { return $readini(Support-Script-by-MoraSu\SSBM-Config.ini,GesamtmenueSaveRegUnban,menueSaveRegUnban) }
Alias w_menueSaveRegUnban { writeini Support-Script-by-MoraSu\SSBM-Config.ini GesamtmenueSaveRegUnban menueSaveRegUnban $1 }
Alias menueNickCange { return $readini(Support-Script-by-MoraSu\SSBM-Config.ini,GesamtmenueNickCange,menueNickCange) }
Alias w_menueNickCange { writeini Support-Script-by-MoraSu\SSBM-Config.ini GesamtmenueNickCange menueNickCange $1 }
Alias menueStuff { return $readini(Support-Script-by-MoraSu\SSBM-Config.ini,GesamtmenueStuff,menueStuff) }
Alias w_menueStuff { writeini Support-Script-by-MoraSu\SSBM-Config.ini GesamtmenueStuff menueStuff $1 }
Alias awaynachrichten { return $readini(Support-Script-by-MoraSu\SSBM-Config.ini,AwayMessage,awaynachrichten) }
Alias w_awaynachrichten { writeini Support-Script-by-MoraSu\SSBM-Config.ini AwayMessage awaynachrichten $1 }
;*************************** Tab 6 ***************************
on 1:dialog:ssbm:SCLICK:121:{
dialog -m changelog changelog
}
dialog changelog {
title "Change Log"
size -1 -1 440 264
option dbu
button "Exit", 1, 200 240 37 12, ok
list 2, 8 8 418 226, size
list 3, 352 240 42 10, hide size
}
alias changelog { dialog -m changelog changelog }
;on 1:dialog:changelog:SCLICK:116:{ FillChangeLog }
on 1:dialog:changelog:INIT:*:{ FillChangeLog }
Alias FillChangeLog {
did -r changelog 2
var %fqul_zähler 1
while (%fqul_zähler <= $LinesChangeLog) {
did -a changelog 2 $ChangeLogName(%fqul_zähler)
inc %fqul_zähler
}
ShowChangeLog
}
Alias ShowChangeLog {
did -r changelog 3
did -a changelog 3 $LinesChangeLog
}
Alias ChangeLogTime {
$read(Support-Script-by-MoraSu\ChangeLog.txt,s,$1)
return $readn
}
Alias ChangeLogName { return $read(Support-Script-by-MoraSu\ChangeLog.txt,$1) }
Alias LinesChangeLog { return $lines(Support-Script-by-MoraSu\ChangeLog.txt) }
Alias w_ChangeLog { write -s $1 Support-Script-by-MoraSu\ChangeLog.txt $1 }
Alias l_ChangeLog { write -ds $1 Support-Script-by-MoraSu\ChangeLog.txt }
;*************************** Tab 5 ***************************
;FillAwayList
on 1:dialog:ssbm:SCLICK:29:{ FillAwayList }
;Ändere Busy Nachricht
on 1:dialog:ssbm:SCLICK:57:{
write -l1 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for Busy is?"
FillAwayList
}
;Ändere IG Nachricht
on 1:dialog:ssbm:SCLICK:58:{
write -l2 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for IG is?"
FillAwayList
}
;Ändere Away Nachricht
on 1:dialog:ssbm:SCLICK:59:{
write -l3 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for Away is?"
FillAwayList
}
;Ändere Semi Nachricht
on 1:dialog:ssbm:SCLICK:49:{
write -l4 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for Semi is?"
FillAwayList
}
;Ändere DnD Nachricht
on 1:dialog:ssbm:SCLICK:64:{
write -l5 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for DnD is?"
FillAwayList
}
;Ändere NA Nachricht
on 1:dialog:ssbm:SCLICK:65:{
write -l6 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for NA is?"
FillAwayList
}
;Ändere Meeting Nachricht
on 1:dialog:ssbm:SCLICK:66:{
write -l7 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for Meeting is?"
FillAwayList
}
;Ändere TrialTeaching Nachricht
on 1:dialog:ssbm:SCLICK:72:{
write -l8 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for TrialTeaching is?"
FillAwayList
}
;Ändere Work Nachricht
on 1:dialog:ssbm:SCLICK:73:{
write -l9 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for Work is?"
FillAwayList
}
;Ändere ZzZz Nachricht
on 1:dialog:ssbm:SCLICK:78:{
write -l10 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for ZzZz is?"
FillAwayList
}
;Ändern OTRS Nachricht
on 1:dialog:ssbm:SCLICK:14:{
write -l11 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $$?="Your new away message for OTRS is?"
FillAwayList
}
;*************************** Sub-Nick Erweiterung Änderung *******************************
on 1:dialog:ssbm:SCLICK:94:{ FillSubNick
FillMainSubNick }
;*************************** TAB 2 *******************************
;FillChannelList
on 1:dialog:ssbm:SCLICK:2:{ FillChannelsList }
on 1:dialog:ssbm:SCLICK:17:{
if ($did(ssbm,21)) {
if ($ChannTime($did(ssbm,21))) {
var %dummy $input(ACHTUNG! $did(ssbm,21))
}
else {
w_Channels $did(ssbm,21)
did -r ssbm 21
FillChannelsList
}
}
else { var %dummy $input(Kein #Channel im #Channel Editfeld vorhanden / No #channel in #channel editfield available !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:18:{
if ($did(ssbm,16).sel) {
did -r ssbm 21
did -a ssbm 21 $did(ssbm,16).seltext
l_Channels $did(ssbm,16).seltext
FillChannelsList
}
else { var %dummy $input(Kein #Channel in der Liste markiert / No #channel marked in the list !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:19:{
if ($did(ssbm,16).sel) {
var %sa_del_qu $input(Soll $did(ssbm,16).seltext wirklich von der Liste gelöscht werden / Should $did(ssbm,16).seltext are really deleted from the list?,-yq,Danger!)
if (%sa_del_qu) {
l_Channels $did(ssbm,16).seltext
FillChannelsList
}
}
else { var %dummy $input(Kein #Channel im #Channel Editfeld vorhanden / No #channel in #channel editfield available!,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:22:{
did -r ssbm 21
}
;************************** TAB 2 VERSCHIEBEN VON CHANNELS ****************************
;CHANNEL DOWN
on 1:dialog:ssbm:SCLICK:91:{
if (0 < $did(ssbm,16).sel) {
var %i = $did(ssbm,16).seltext
:L1
var %line = $read(Support-Script-by-MoraSu\Channels.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == $did(ssbm,16).seltext) {
}
;clear Support-Script-by-MoraSu\ChannelMove.txt
;Nullnummer
write -cl1 Support-Script-by-MoraSu\ChannelMove.txt NONE
;Zeilennummer in der Liste
write -l2 Support-Script-by-MoraSu\ChannelMove.txt $did(ssbm,16).sel
;Wiedergabe des Chans
write -l3 Support-Script-by-MoraSu\ChannelMove.txt $did(ssbm,16).seltext
;Zeilennummer des darunter liegenden Channels
write -l4 Support-Script-by-MoraSu\ChannelMove.txt $calc( $did(ssbm,16).sel + 1 )
;Wiedergabe des darunterliegenden Channels (Name)
write -l5 Support-Script-by-MoraSu\ChannelMove.txt $read(Support-Script-by-MoraSu\Channels.txt,n,$read(Support-Script-by-MoraSu\ChannelMove.txt,n,4))
;test zum überschrieben der Daten...
channeldown
goto end
FillChannelsList
goto L1
:end
;Das geht zwar net aber gut... Steht halt mal drin xD
}
else { var %dummy $input(Please choose a Channel first !,-oi,Mark down Error) }
}
alias channeldown {
write -s $read(Support-Script-by-MoraSu\ChannelMove.txt,n,5) Support-Script-by-MoraSu\Channels.txt $read(Support-Script-by-MoraSu\ChannelMove.txt,n,3)
write -s $read(Support-Script-by-MoraSu\ChannelMove.txt,n,3) Support-Script-by-MoraSu\Channels.txt $read(Support-Script-by-MoraSu\ChannelMove.txt,n,5)
FillChannelsList
}
;CHANNEL UP
on 1:dialog:ssbm:SCLICK:92:{
if (0 < $did(ssbm,16).sel) {
var %i = $did(ssbm,16).seltext
:L1
var %line = $read(Support-Script-by-MoraSu\Channels.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == $did(ssbm,16).seltext) {
}
;clear Support-Script-by-MoraSu\ChannelMove.txt
;Nullnummer
write -cl1 Support-Script-by-MoraSu\ChannelMove.txt NONE
;Zeilennummer in der Liste
write -l2 Support-Script-by-MoraSu\ChannelMove.txt $did(ssbm,16).sel
;Wiedergabe des Chans
write -l3 Support-Script-by-MoraSu\ChannelMove.txt $did(ssbm,16).seltext
;Zeilennummer des darüber liegenden Channels
write -l4 Support-Script-by-MoraSu\ChannelMove.txt $calc( $did(ssbm,16).sel - 1 )
;Wiedergabe des darüber liegenden Channels (Name)
write -l5 Support-Script-by-MoraSu\ChannelMove.txt $read(Support-Script-by-MoraSu\Channels.txt,n,$read(Support-Script-by-MoraSu\ChannelMove.txt,n,4))
;test zum überschrieben der Daten...
channelup
goto end
FillChannelsList
goto L1
:end
;Das geht zwar net aber gut... Steht halt mal drin xD
}
else { var %dummy $input(Please choose a Channel first !,-oi,High set Error) }
}
alias channelup {
write -s $read(Support-Script-by-MoraSu\ChannelMove.txt,n,3) Support-Script-by-MoraSu\Channels.txt $read(Support-Script-by-MoraSu\ChannelMove.txt,n,5)
write -s $read(Support-Script-by-MoraSu\ChannelMove.txt,n,5) Support-Script-by-MoraSu\Channels.txt $read(Support-Script-by-MoraSu\ChannelMove.txt,n,3)
FillChannelsList
}
;************************* TAB 4 ****************************
;************************* TAB Channel Comand ****************************
;************************* TAB 4 ****************************
;FillChannelList
on 1:dialog:ssbm:SCLICK:122:{ FillChannelsListChan | FillChannelsListPW }
on 1:dialog:ssbm:SCLICK:125:{
if ($did(ssbm,129)) {
if ($ChannTime($did(ssbm,129))) {
var %dummy $input(ACHTUNG! $did(ssbm,129))
}
else {
w_ChannelsChan $did(ssbm,129)
did -r ssbm 129
FillChannelsListChan
}
}
else { var %dummy $input(Kein #Channel im #Channel Editfeld vorhanden / No #channel in #channel editfield available !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:126:{
if ($did(ssbm,123).sel) {
did -r ssbm 129
did -a ssbm 129 $did(ssbm,123).seltext
l_ChannelsChan $did(ssbm,123).seltext
FillChannelsListChan
}
else { var %dummy $input(Kein #Channel in der Liste markiert / No #channel marked in the list !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:127:{
if ($did(ssbm,123).sel) {
var %sa_del_qu $input(Soll $did(ssbm,123).seltext wirklich von der Liste gelöscht werden / Should $did(ssbm,123).seltext are really deleted from the list?,-yq,Danger!)
if (%sa_del_qu) {
l_ChannelsChan $did(ssbm,123).seltext
FillChannelsListChan
}
}
else { var %dummy $input(Kein #Channel im #Channel Editfeld vorhanden / No #channel in #channel editfield available!,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:130:{
did -r ssbm 129
}
; ### HIER weiteres^^
Alias FillChannelsListChan {
did -r ssbm 123
var %fqul_zähler 1
while (%fqul_zähler <= $LinesChannelsChan) {
did -a ssbm 123 $ChannelsNameChan(%fqul_zähler)
inc %fqul_zähler
}
ShowChannelsChan
}
Alias ShowChannelsChan {
did -r ssbm 146
did -a ssbm 146 $LinesChannelsChan
}
Alias ChannelsChan {
$read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt,s,$1)
return $readn
}
Alias ChannelsNameChan { return $read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt,$1) }
Alias LinesChannelsChan { return $lines(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt) }
Alias w_ChannelsChan { write -s $1 Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt $1 }
Alias l_ChannelsChan { write -ds $1 Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt }
;************************** TAB CHanel Comand VERSCHIEBEN VON CHANNELS ****************************
;CHANNEL DOWN
on 1:dialog:ssbm:SCLICK:132:{
if (0 < $did(ssbm,123).sel) {
var %i = $did(ssbm,123).seltext
:L1
var %line = $read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == $did(ssbm,123).seltext) {
}
;clear Support-Script-by-MoraSu\ChannelMove.txt
;Nullnummer
write -cl1 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt NONE
;Zeilennummer in der Liste
write -l2 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,123).sel
;Wiedergabe des Chans
write -l3 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,123).seltext
;Zeilennummer des darunter liegenden Channels
write -l4 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $calc( $did(ssbm,123).sel + 1 )
;Wiedergabe des darunterliegenden Channels (Name)
write -l5 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt,n,$read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,4))
;test zum überschrieben der Daten...
channeldownChan
goto end
FillChannelsListChan
goto L1
:end
;Das geht zwar net aber gut... Steht halt mal drin xD
}
else { var %dummy $input(Please choose a Channel first !,-oi,Mark down Error) }
}
alias channeldownChan {
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5) Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3)
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3) Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5)
FillChannelsListChan
}
;CHANNEL UP
on 1:dialog:ssbm:SCLICK:131:{
if (0 < $did(ssbm,123).sel) {
var %i = $did(ssbm,123).seltext
:L1
var %line = $read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == $did(ssbm,123).seltext) {
}
;clear Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt
;Nullnummer
write -cl1 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt NONE
;Zeilennummer in der Liste
write -l2 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,123).sel
;Wiedergabe des Chans
write -l3 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,123).seltext
;Zeilennummer des darüber liegenden Channels
write -l4 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $calc( $did(ssbm,123).sel - 1 )
;Wiedergabe des darüber liegenden Channels (Name)
write -l5 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt,n,$read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,4))
;test zum überschrieben der Daten...
channelupChan
goto end
FillChannelsListChan
goto L1
:end
;Das geht zwar net aber gut... Steht halt mal drin xD
}
else { var %dummy $input(Please choose a Channel first !,-oi,High set Error) }
}
alias channelupChan {
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3) Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5)
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5) Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3)
FillChannelsListChan
}
; ####################### Channel COmand PASSWORD
on 1:dialog:ssbm:SCLICK:122:{ FillChannelsListPW }
on 1:dialog:ssbm:SCLICK:141:{
if ($did(ssbm,137)) {
if ($ChannTime($did(ssbm,137))) {
var %dummy $input(ACHTUNG! $did(ssbm,137))
}
else {
w_ChannelsPW $did(ssbm,137)
did -r ssbm 137
FillChannelsListPW
}
}
else { var %dummy $input(Kein Passwort im #Password Editfeld vorhanden / No password in #password editfield available !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:140:{
if ($did(ssbm,124).sel) {
did -r ssbm 137
did -a ssbm 137 $did(ssbm,124).seltext
l_ChannelsPW $did(ssbm,124).seltext
FillChannelsListPW
}
else { var %dummy $input(Kein Passwort in der Liste markiert / No password marked in the list !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:139:{
if ($did(ssbm,124).sel) {
var %sa_del_qu $input(Soll $did(ssbm,124).seltext wirklich von der Liste gelöscht werden / Should $did(ssbm,124).seltext are really deleted from the list?,-yq,Danger!)
if (%sa_del_qu) {
l_ChannelsPW $did(ssbm,124).seltext
FillChannelsListPW
}
}
else { var %dummy $input(Kein Passwort im #Password Editfeld vorhanden / No password in #password editfield available!,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:136:{
did -r ssbm 137
}
; ### HIER weiteres^^
Alias FillChannelsListPW {
did -r ssbm 124
var %fqul_zähler 1
while (%fqul_zähler <= $LinesChannelsPW) {
did -a ssbm 124 $ChannelsNamePW(%fqul_zähler)
inc %fqul_zähler
}
ShowChannelsPW
}
Alias ShowChannelsPW {
did -r ssbm 147
did -a ssbm 147 $LinesChannelsPW
}
Alias ChannelsPW {
$read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt,s,$1)
return $readn
}
Alias ChannelsNamePW { return $read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt,$1) }
Alias LinesChannelsPW { return $lines(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt) }
Alias w_ChannelsPW { write -s $1 Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt $1 }
Alias l_ChannelsPW { write -ds $1 Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt }
;************************** TAB CHanel Comand VERSCHIEBEN VON CHANNELS ****************************
;CHANNEL DOWN
on 1:dialog:ssbm:SCLICK:134:{
if (0 < $did(ssbm,124).sel) {
var %i = $did(ssbm,124).seltext
:L1
var %line = $read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == $did(ssbm,124).seltext) {
}
;clear Support-Script-by-MoraSu\ChannelMove.txt
;Nullnummer
write -cl1 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt NONE
;Zeilennummer in der Liste
write -l2 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,124).sel
;Wiedergabe des Chans
write -l3 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,124).seltext
;Zeilennummer des darunter liegenden Channels
write -l4 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $calc( $did(ssbm,124).sel + 1 )
;Wiedergabe des darunterliegenden Channels (Name)
write -l5 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt,n,$read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,4))
;test zum überschrieben der Daten...
channeldownPW
goto end
FillChannelsListPW
goto L1
:end
;Das geht zwar net aber gut... Steht halt mal drin xD
}
else { var %dummy $input(Please choose a Password first !,-oi,Mark down Error) }
}
alias channeldownPW {
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5) Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3)
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3) Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5)
FillChannelsListPW
}
;CHANNEL UP
on 1:dialog:ssbm:SCLICK:135:{
if (0 < $did(ssbm,124).sel) {
var %i = $did(ssbm,124).seltext
:L1
var %line = $read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == $did(ssbm,124).seltext) {
}
;clear Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt
;Nullnummer
write -cl1 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt NONE
;Zeilennummer in der Liste
write -l2 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,124).sel
;Wiedergabe des Chans
write -l3 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $did(ssbm,124).seltext
;Zeilennummer des darüber liegenden Channels
write -l4 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $calc( $did(ssbm,124).sel - 1 )
;Wiedergabe des darüber liegenden Channels (Name)
write -l5 Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt $read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt,n,$read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,4))
;test zum überschrieben der Daten...
channelupPW
goto end
FillChannelsListPW
goto L1
:end
;Das geht zwar net aber gut... Steht halt mal drin xD
}
else { var %dummy $input(Please choose a Password first !,-oi,High set Error) }
}
alias channelupPW {
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3) Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5)
write -s $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,5) Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt $read(Support-Script-by-MoraSu\Channel\ChannelMoveCOMCan.txt,n,3)
FillChannelsListPW
}
;######## Einbau daten speichern fürs joinen....
on 1:dialog:ssbm:SCLICK:148:{ ChannelComChanBUTTON | ChannelCOMPWBUTTON | ChannelCOMtimer }
alias ChannelComChanBUTTON {
var %i = 2
var %out = ""
:L1
var %line = $read(Support-Script-by-MoraSu\Channel\ChannelCOMChan.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == 2) {
var %out = %line
}
else {
var %out = %out $+ , $+ %line
}
var %i = %i + 1
if (%i > 30) {
goto end
}
goto L1
:end
write -c Support-Script-by-MoraSu\Channel\PWChanJoin.txt %out
}
alias ChannelCOMPWBUTTON {
var %i = 2
var %out = ""
:L1
var %line = $read(Support-Script-by-MoraSu\Channel\ChannelCOMPW.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == 2) {
var %out = %line
}
else {
var %out = %out $+ , $+ %line
}
var %i = %i + 1
if (%i > 30) {
goto end
}
goto L1
:end
write -c Support-Script-by-MoraSu\Channel\PWChanJoin2.txt %out
}
alias ChannelCOMtimer {
.timerChannelComtimer 1 1 /ChannelCOMPWCHANJOIN
}
alias ChannelCOMPWCHANJOIN {
; Hier einbau auslesen der Dateien und schreibe eine neue
write -c Support-Script-by-MoraSu\Channel\ChanWithPW.txt $read(Support-Script-by-MoraSu\Channel\PWChanJoin.txt) $space $+ $+ $read(Support-Script-by-MoraSu\Channel\PWChanJoin2.txt)
}
alias ChanComChanPWJoin {
if $read(Support-Script-by-MoraSu\Channel\ChanWithPW.txt) > "" join $read(Support-Script-by-MoraSu\Channel\ChanWithPW.txt)
}
;*************************** TAB 3 *******************************
;Nichname für den Support
on 1:dialog:ssbm:SCLICK:51:{ FillNickSupList
FillUserpassList
FillRegMailList
FillMailSupList }
;Support Nick
on 1:dialog:ssbm:SCLICK:56:{
if ($did(ssbm,58)) {
if ($ChannTime($did(ssbm,58))) {
w_NickSup $did(ssbm,58)
did -r ssbm 58
ShowNickSup
}
}
}
on 1:dialog:ssbm:SCLICK:57:{
if ($did(ssbm,52).sel) {
did -r ssbm 58
did -a ssbm 58 $did(ssbm,52).seltext
l_NickSup $did(ssbm,52).seltext
ShowNickSup
}
}
on 1:dialog:ssbm:SCLICK:64:{
if ($did(ssbm,52).sel) {
var %sa_del_qu $input(Soll $did(ssbm,52).seltext wirklich von der Liste gelöscht werden?,-yq,ACHTUNG!)
if (%sa_del_qu) {
l_NickSup $did(ssbm,52).seltext
ShowNickSup
}
}
}
on 1:dialog:ssbm:SCLICK:66:{
did -r ssbm 58
}
;Userpass
on 1:dialog:ssbm:SCLICK:56:{
if ($did(ssbm,58)) {
if ($ChannTime($did(ssbm,58))) {
w_Userpass $did(ssbm,58)
did -r ssbm 58
ShowUserpass
}
}
}
on 1:dialog:ssbm:SCLICK:57:{
if ($did(ssbm,53).sel) {
did -r ssbm 58
did -a ssbm 58 $did(ssbm,53).seltext
l_Userpass $did(ssbm,53).seltext
ShowUserpass
}
}
on 1:dialog:ssbm:SCLICK:64:{
if ($did(ssbm,53).sel) {
var %sa_del_qu $input(Soll $did(ssbm,53).seltext wirklich von der Liste gelöscht werden?,-yq,ACHTUNG!)
if (%sa_del_qu) {
l_Userpass $did(ssbm,53).seltext
ShowUserpass
}
}
}
on 1:dialog:ssbm:SCLICK:66:{
did -r ssbm 58
}
;RegMail
on 1:dialog:ssbm:SCLICK:56:{
if ($did(ssbm,58)) {
if ($ChannTime($did(ssbm,58))) {
w_RegMail $did(ssbm,58)
did -r ssbm 58
ShowRegMail
}
}
}
on 1:dialog:ssbm:SCLICK:57:{
if ($did(ssbm,52).sel) {
did -r ssbm 58
did -a ssbm 58 $did(ssbm,52).seltext
l_RegMail $did(ssbm,52).seltext
ShowRegMail
}
}
on 1:dialog:ssbm:SCLICK:64:{
if ($did(ssbm,52).sel) {
var %sa_del_qu $input(Soll $did(ssbm,52).seltext wirklich von der Liste gelöscht werden?,-yq,ACHTUNG!)
if (%sa_del_qu) {
l_RegMail $did(ssbm,52).seltext
ShowRegMail
}
}
}
on 1:dialog:ssbm:SCLICK:66:{
did -r ssbm 58
}
; Support Mail
on 1:dialog:ssbm:SCLICK:56:{
if ($did(ssbm,58)) {
if ($ChannTime($did(ssbm,58))) {
w_MailSup $did(ssbm,58)
did -r ssbm 58
ShowMailSup
}
}
}
on 1:dialog:ssbm:SCLICK:57:{
if ($did(ssbm,52).sel) {
did -r ssbm 58
did -a ssbm 58 $did(ssbm,52).seltext
l_MailSup $did(ssbm,52).seltext
ShowMailSup
}
}
on 1:dialog:ssbm:SCLICK:64:{
if ($did(ssbm,52).sel) {
var %sa_del_qu $input(Soll $did(ssbm,52).seltext wirklich von der Liste gelöscht werden?,-yq,ACHTUNG!)
if (%sa_del_qu) {
l_MailSup $did(ssbm,52).seltext
ShowMailSup
}
}
}
on 1:dialog:ssbm:SCLICK:66:{
did -r ssbm 58
}
;Neues Passwort festlegen (NICHT NUMERISCH)
on 1:dialog:ssbm:SCLICK:76:{
/ircpwchange }
on 1:dialog:ircpwchange:SCLICK:2:{
write -c Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt $?=" Wie lautet dein neues Passwort (Zur automatischen /identify) / What is your new password ( for automatic / identify )?" }
on 1:dialog:ircpwchange:SCLICK:3:{
var %dummy $input(Kein Passwort gesetzt / No password set!,-oi,Error) }
;NUMERISCHES PASSWORT ZUR ÄNDERUNG
on 1:dialog:ssbm:SCLICK:23:{
set %userpasstemp $?="Wie lautet dein Passwort / What is your password ?" }
on 1:dialog:ssbm:SCLICK:25:{
/ircpwchange }
;Neues Passwort per NickServ übertragen NICHT NUMERISCH!
on 1:dialog:ssbm:SCLICK:77:{
if $isfile(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt) {
amsg brb
partall
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,1)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,2)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,3)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,4)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,5)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,6)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,7)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,8)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,9)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,10)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ |$read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,11)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
write -c Support-Script-by-MoraSu\Grunddaten\Userpass.txt $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
remove -b Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
var %dummy $input(Dein IRC Passwort wurde geaendert! Fuer deinen Nicknamen $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) sowie deine verlinkten Namen. Die Temp. Passwort Datei wurde geloescht / Your password has been changed IRC ! For your nickname $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) and your linked name . The Temp . Password file has been deleted. ,-oi,Watch out)
}
else { var %dummy $input(Keine Temporäre Passwort Datei Vorhanden / No temporary password file exists!,-oi,Error) }
}
;Neues Passwort per NickServ übertragen VORHER NUMERISCH!
on 1:dialog:ssbm:SCLICK:26:{
if $isfile(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt) {
amsg brb
partall
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,1)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,2)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,3)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,4)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,5)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,6)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,7)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,8)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,9)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,10)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,11)
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
write -c Support-Script-by-MoraSu\Grunddaten\Userpass.txt $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
remove -b Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt
unset %userpasstemp
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
var %dummy $input(Dein IRC Passwort wurde geaendert! Fuer deinen Nicknamen $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) sowie deine verlinkten Namen. Die Temp. Passwort Datei wurde geloescht / Your password has been changed IRC ! For your nickname $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) and your linked name . The Temp . Password file has been deleted. ,-oi,Watch out)
}
else { var %dummy $input(Keine Temporäre Passwort Datei Vorhanden / No temporary password file exists!,-oi,Error) }
}
; Tab 3 Basic Data
on 1:dialog:ssbm:SCLICK:74:{ FillQueryAnswerPart }
on 1:dialog:ssbm:SCLICK:154:{
if ($did(ssbm,157)) {
if ($QueryTime($did(ssbm,157))) {
var %dummy $input(ACHTUNG! $did(ssbm,157))
}
else {
w_QueryPart $did(ssbm,157)
did -r ssbm 157
FillQueryAnswerPart
}
}
else { var %dummy $input(Kein Passwort im #Password Editfeld vorhanden / No password in #password editfield available !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:155:{
if ($did(ssbm,152).sel) {
did -r ssbm 157
did -a ssbm 157 $did(ssbm,152).seltext
l_QueryPart $did(ssbm,152).seltext
FillQueryAnswerPart
}
else { var %dummy $input(Kein Passwort in der Liste markiert / No password marked in the list !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:156:{
if ($did(ssbm,152).sel) {
var %sa_del_qu $input(Soll $did(ssbm,152).seltext wirklich von der Liste gelöscht werden / Should $did(ssbm,152).seltext are really deleted from the list?,-yq,Danger!)
if (%sa_del_qu) {
l_QueryPart $did(ssbm,152).seltext
FillQueryAnswerPart
}
}
else { var %dummy $input(Kein Passwort im #Password Editfeld vorhanden / No password in #password editfield available!,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:158:{
did -r ssbm 157
}
Alias FillQueryAnswerPart {
did -r ssbm 152
var %fqul_zähler 1
while (%fqul_zähler <= $LinesQueryPart) {
did -a ssbm 152 $QueryNamePart(%fqul_zähler)
inc %fqul_zähler
}
ShowQueryPart
}
Alias ShowQueryPart {
did -r ssbm 159
did -a ssbm 159 $LinesQueryPart
}
Alias QueryPart {
$read(Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt,s,$1)
return $readn
}
Alias QueryNamePart { return $read(Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt,$1) }
Alias LinesQueryPart { return $lines(Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt) }
Alias w_QueryPart { write -s $1 Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt $1 }
Alias l_QueryPart { write -ds $1 Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt }
on 1:dialog:ssbm:SCLICK:157:{
write -l1 Support-Script-by-MoraSu\Nick+Message\QueryAnswer.txt $$?="Your new text?"
FillQueryAnswerPart
}
;************************** ALIASES *************************
;Tab 1 Channel Anzahl anzeigen
Alias ShowChannels {
did -r ssbm 9
did -a ssbm 9 $LinesChannels
}
Alias ShowAway {
did -r ssbm 46
did -a ssbm 46 $LinesAway
}
Alias FillChannelsList {
did -r ssbm 16
var %fqul_zähler 1
while (%fqul_zähler <= $LinesChannels) {
did -a ssbm 16 $ChannelsName(%fqul_zähler)
inc %fqul_zähler
}
ShowChannels
}
Alias FillAwayList {
did -r ssbm 39
var %fqul_zähler 1
while (%fqul_zähler <= $LinesAway) {
did -a ssbm 39 $AwayName(%fqul_zähler)
inc %fqul_zähler
}
ShowAway
}
;Main Sub Nick Anzeigen lassen
on 1:dialog:ssbm:SCLICK:94:{
FillMainSubNick
}
Alias ShowMainSubNick {
did -r ssbm 109
did -a ssbm 109 $LinesMainSubNick
}
Alias FillMainSubNick {
did -r ssbm 111
var %fqul_zähler 1
while (%fqul_zähler <= $LinesMainSubNick) {
did -a ssbm 111 $MainSubNickName(%fqul_zähler)
inc %fqul_zähler
}
ShowMainSubNick
}
Alias MainSubNick {
$read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt,s,$1)
return $readn
}
Alias MainSubNickName { return $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt,$1) }
Alias LinesMainSubNick { return $lines(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) }
Alias w_MainSubNick { write -s $1 Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt $1 }
Alias l_MainSubNick { write -ds $1 Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt }
;Main SUb Nick Ändern
on 1:dialog:ssbm:SCLICK:113:{
write -l1 Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt $$?="Your new Main-Sub-Nick ?"
FillMainSubNick
FillSubNick
}
;Sub Nicks Anzeigen lassen
Alias ShowSubNick {
did -r ssbm 96
did -a ssbm 96 $LinesSubNick
}
Alias FillSubNick {
did -r ssbm 95
var %fqul_zähler 1
while (%fqul_zähler <= $LinesSubNick) {
did -a ssbm 95 $read(Support-Script-by-MoraSu\Nick+Message\MainSubNick.txt) $+ $SubNickName(%fqul_zähler)
inc %fqul_zähler
}
ShowSubNick
}
Alias SubNicks {
$read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,s,$1)
return $readn
}
Alias SubNickName { return $read(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt,$1) }
Alias LinesSubNick { return $lines(Support-Script-by-MoraSu\Nick+Message\SubNicks.txt) }
Alias w_SubNick { write -s $1 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $1 }
Alias l_SubNick { write -ds $1 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt }
;Sub-Nicks Ändeurngs Buttons
on 1:dialog:ssbm:SCLICK:97:{
write -l1 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |Busy?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:99:{
write -l2 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |OTRS?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:100:{
write -l3 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |IG?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:101:{
write -l4 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |Away?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:102:{
write -l5 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |Semi?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:103:{
write -l6 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |DnD?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:104:{
write -l7 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |NA?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:105:{
write -l8 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |Meeting?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:106:{
write -l9 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |Trialteaching?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:107:{
write -l10 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |Work?"
FillSubNick
}
on 1:dialog:ssbm:SCLICK:108:{
write -l11 Support-Script-by-MoraSu\Nick+Message\SubNicks.txt $$?="Your new Sub-Nick for |[ZzZz]?"
FillSubNick
}
;HIER NEUE ALIAS FÜR SUPNICK ETC (TAB 5 ZUR ANSICHT etc)
Alias FillNickSupList {
did -r ssbm 52
var %fqul_zähler 1
while (%fqul_zähler <= $LinesNickSup) {
did -a ssbm 52 $NickSupName(%fqul_zähler)
inc %fqul_zähler
}
ShowNickSup
}
;Tab 1 Lock Zeilen...
Alias ShowNickSup {
did -r ssbm 11
did -a ssbm 11 $LinesNickSup
}
Alias FillUserpassList {
did -r ssbm 53
var %fqul_zähler 1
while (%fqul_zähler <= $LinesUserpass) {
did -a ssbm 53 $UserpassName(%fqul_zähler)
inc %fqul_zähler
}
ShowUserpass
}
Alias ShowUserpass {
did -r ssbm 11
did -a ssbm 11 $LinesUserpass
}
Alias FillRegMailList {
did -r ssbm 54
var %fqul_zähler 1
while (%fqul_zähler <= $LinesRegMail) {
did -a ssbm 54 $RegMailName(%fqul_zähler)
inc %fqul_zähler
}
ShowRegMail
}
Alias ShowRegMail {
did -r ssbm 11
did -a ssbm 11 $LinesRegMail
}
Alias FillMailSupList {
did -r ssbm 55
var %fqul_zähler 1
while (%fqul_zähler <= $LinesMailSup) {
did -a ssbm 55 $MailSupName(%fqul_zähler)
inc %fqul_zähler
}
ShowMailSup
}
Alias ShowMailSup {
did -r ssbm 11
did -a ssbm 11 $LinesMailSup
}
Alias Channels {
$read(Support-Script-by-MoraSu\Channels.txt,s,$1)
return $readn
}
Alias ChannelsName { return $read(Support-Script-by-MoraSu\Channels.txt,$1) }
Alias LinesChannels { return $lines(Support-Script-by-MoraSu\Channels.txt) }
Alias w_Channels { write -s $1 Support-Script-by-MoraSu\Channels.txt $1 }
Alias l_Channels { write -ds $1 Support-Script-by-MoraSu\Channels.txt }
Alias AwayTime {
$read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,s,$1)
return $readn
}
Alias AwayName { return $read(Support-Script-by-MoraSu\Nick+Message\AwayText.txt,$1) }
Alias LinesAway { return $lines(Support-Script-by-MoraSu\Nick+Message\AwayText.txt) }
Alias w_Away { write -s $1 Support-Script-by-MoraSu\Nick+Message\AwayText.txt $1 }
Alias l_Away { write -ds $1 Support-Script-by-MoraSu\Nick+Message\AwayText.txt }
;Alias für die Grunddaten...
Alias NickSup {
$read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt,s,$1)
return $readn
}
Alias NickSupName { return $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt,$1) }
Alias LinesNickSup { return $lines(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) }
Alias w_NickSup { write -s $1 Support-Script-by-MoraSu\Grunddaten\NickSup.txt $1 }
Alias l_NickSup { write -ds $1 Support-Script-by-MoraSu\Grunddaten\NickSup.txt }
Alias Userpass {
$read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt,s,$1)
return $readn
}
Alias UserpassName { return $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt,$1) }
Alias UserpassName if ($read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt, n, 1) isalnum ) { return $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt,$1) }
Alias LinesUserpass { return $lines(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) }
Alias w_Userpass { write -s $1 Support-Script-by-MoraSu\Grunddaten\Userpass.txt $1 }
Alias l_Userpass { write -ds $1 Support-Script-by-MoraSu\Grunddaten\Userpass.txt }
Alias RegMail {
$read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt,s,$1)
return $readn
}
Alias RegMailName { return $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt,$1) }
Alias LinesRegMail { return $lines(Support-Script-by-MoraSu\Grunddaten\RegMail.txt) }
Alias w_RegMail { write -s $1 Support-Script-by-MoraSu\Grunddaten\RegMail.txt $1 }
Alias l_RegMail { write -ds $1 Support-Script-by-MoraSu\Grunddaten\RegMail.txt }
Alias MailSup {
$read(Support-Script-by-MoraSu\Grunddaten\MailSup.txt,s,$1)
return $readn
}
Alias MailSupName { return $read(Support-Script-by-MoraSu\Grunddaten\MailSup.txt,$1) }
Alias LinesMailSup { return $lines(Support-Script-by-MoraSu\Grunddaten\MailSup.txt) }
Alias w_MailSup { write -s $1 Support-Script-by-MoraSu\Grunddaten\MailSup.txt $1 }
Alias l_MailSup { write -ds $1 Support-Script-by-MoraSu\Grunddaten\MailSup.txt }
; Schreibe die hinterlegten Channels in eine txt Datei für spätetren ns set join / per klick wird hier die channel datei erstellt für set join
on 1:dialog:ssbm:SCLICK:50:{
var %i = 1
var %out = ""
:L1
var %line = $read(Support-Script-by-MoraSu\Channels.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == 1) {
var %out = %line
}
else {
var %out = %out $+ , $+ %line
}
var %i = %i + 1
if (%i > 30) {
goto end
}
goto L1
:end
write -c Support-Script-by-MoraSu\ChannelsJoin.txt %out
channelchange
}
;Chännel wurden expotiert soll Savenicks ausgeführt werden?
dialog channelchange {
title "Channel change "
size -1 -1 408 216
option pixels
box "DE", 1, 8 8 388 76
text "", 2, 16 24 370 48
box "EN", 3, 8 88 388 76
text "", 4, 16 104 370 48
button "Nudge Savenick", 5, 64 176 107 25, ok
button "Cancel", 6, 272 176 75 25, cancel
}
alias channelchange {
dialog -m channelchange channelchange
}
on 1:dialog:channelchange:INIT:*:{
;DE
did -a channelchange 2 Eine Veränderung der zu joinenden Channel wurde festgestellt. $&
$crlf $+ Möchtest du den SaveNick ausführen? $&
;EN
did -a channelchange 4 A change in the to boarding the channels was found. $&
$crlf $+ Do you want to run the SaveNick?. $&
}
on 1:dialog:channelchange:SCLICK:5:{
savenick }
;Einbau Color Bar
alias colorinformation {
echo -a 09,1•---------- Informationen zur Colorbar und Schriftart / Information for Colorbar and Font ----------•
echo -a Colorbar: $chr(3) $+ 0,0 $+ $chr(3) $+ 1,0 0 $chr(3) $+ 0,1 1 $chr(3) $+ 0,2 2 $chr(3) $+ 0,3 3 $chr(3) $+ 0,4 4 $chr(3) $+ 0,5 5 $chr(3) $+ 0,6 6 $chr(3) $+ 0,7 7 $chr(3) $+ 1,8 8 $chr(3) $+ 1,9 9 $chr(3) $+ 1,10 10 $chr(3) $+ 1,11 11 $chr(3) $+ 0,12 12 $chr(3) $+ 0,13 13 $chr(3) $+ 0,14 14 $chr(3) $+ 1,15 15 $chr(15)
echo -a 04,1|---> DE Abschnitt
echo -a 09,1|---> Colorbar kann man mit STRG + K aufrufen
echo -a 09,1|---> Wenn du ein 12Wort / Satz in einer Farbe schreiben moechtest drücke STRG + K und waehle deine Farbe. Schreibe nun dein Wort / Text (12Wenn du eine weitere Einfärbung nicht möchtest drück STRG + O und die Einfärbung endet.
echo -a 09,1|---> Darüber hinaus gibt es auch Background Colors. Es ist das gleiche Format wie bei normaler color nur, dass wir zwei Zahlen (getrennt durch ein , ) verwenden. Die erste Zahl ist die Druckfarbe, die 2. Zahl die Huntergrundfarbe. STRG + K 4,1 = 4,1Beispiel
echo -a 09,1|---> Fett schreiben kann man mit STRG + B (Wenn es nur ein Teil vom Text sein soll muss der Text markiert sein)
echo -a 09,1|---> Unterstreichen kann man mit STRG + U (Wenn es nur ein Teil vom Text sein soll muss der Text markiert sein)
echo -a 09,1|---> Kursiv schreiben kann man mit STRG + I (Wenn es nur ein Teil vom Text sein soll muss der Text markiert sein)
echo -a 04,1|---> EN Section
echo -a 09,1|---> Colorbar you can call by pressing CTRL + K.
echo -a 09,1|---> Write fat you can use CTRL + B ( If there is to be only one part of the text , the text must be marked )
echo -a 09,1|---> Can underline it with CTRL + U ( If there is to be only one part of the text , the text must be marked )
echo -a 09,1|---> Italics text with CTRL + I ( If there is to be only one part of the text , the text must be marked )
echo -a 09,1|---> If I want to type a 12word in color, then I click on Ctrl + K and then type message (12If you want to stop the next word from being colorized, then click on the Ctrl + O, this halts anymore colors)
echo -a 09,1|---> In addition, there are also Background Colors . It's just using that we have two numbers ( separated by , ) the same format as in normal color . The 1st number is the print color, the 2nd number is the background color. CTRL + K 4,1 = 4,1Example
}
alias fireworks {
describe $chan shoots fireworks for4 $$1 *~~~~~|#####> `';:*,.,*:;'`12 $$1 *~~~~~|#####> `';:*,.,*:;'`9 $$1 *~~~~~|#####> `';:*,.,*:;'`7 $$1 *~~~~~|#####> `';:*,.,*:;'`13 $$1 *~~~~~|#####> `';:*,.,*:;'`11 $$1 *~~~~~|#####> `';:*,.,*:;
}
;UNNÜTZES ZEUGS ABER MUSS DA BLEIBEN
on 1:dialog:ssbm:SCLICK:40:{
if ($did(ssbm,44)) {
if ($AwayTime($did(ssbm,44))) {
var %dummy $input(ACHTUNG! $did(ssbm,44))
}
else {
w_away $did(ssbm,44)
did -r ssbm 44
FillAwayList
}
}
else { var %dummy $input(Kein #Channel im #Channel Editfeld vorhanden / No #channel in #channel editfield available !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:41:{
if ($did(ssbm,39).sel) {
did -r ssbm 44
did -a ssbm 44 $did(ssbm,39).seltext
l_away $did(ssbm,39).seltext
FillAwayList
}
else { var %dummy $input(Kein #Channel in der Liste markiert / No #channel marked in the list !,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:42:{
if ($did(ssbm,39).sel) {
var %sa_del_qu $input(Soll $did(ssbm,39).seltext wirklich von der Liste gelöscht werden / Should $did(ssbm,39).seltext are really deleted from the list?,-yq,Danger!)
if (%sa_del_qu) {
l_away $did(ssbm,39).seltext
FillAwayList
}
}
else { var %dummy $input(Kein #Channel im #Channel Editfeld vorhanden / No #channel in #channel editfield available!,-oi,Error) }
}
on 1:dialog:ssbm:SCLICK:45:{
did -r ssbm 44
}
; TEST Nick DROP
;Main Nick
alias NickDrop {
.timerNickDrop1 1 1 /NickDropS1 }
alias NickDropS1 {
write -l1 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l1 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $me }
;Busy
alias NickDrop2 {
.timerNickDrop2 1 1 /NickDropS2 }
alias NickDropS2 {
write -l2 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l2 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;HIER BEI BUSY GABS EINE TZESTÄNDERUNG
;OTRS
alias NickDrop3 {
.timerNickDrop3 1 1 /NickDropS3 }
alias NickDropS3 {
write -l3 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l3 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;IG
alias NickDrop4 {
.timerNickDrop4 1 1 /NickDropS4 }
alias NickDropS4 {
write -l4 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l4 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;Away
alias NickDrop5 {
.timerNickDrop5 1 1 /NickDropS5 }
alias NickDropS5 {
write -l5 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l5 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;Semi
alias NickDrop6 {
.timerNickDrop6 1 1 /NickDropS6 }
alias NickDropS6 {
write -l6 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l6 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;DnD
alias NickDrop7 {
.timerNickDrop7 1 1 /NickDropS7 }
alias NickDropS7 {
write -l7 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l7 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;NA
alias NickDrop8 {
.timerNickDrop8 1 1 /NickDropS8 }
alias NickDropS8 {
write -l8 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l8 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;Meeting
alias NickDrop9 {
.timerNickDrop9 1 1 /NickDropS9 }
alias NickDropS9 {
write -l9 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l9 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;Trialteaching
alias NickDrop10 {
.timerNickDrop10 1 1 /NickDropS10 }
alias NickDropS10 {
write -l10 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l10 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;Work
alias NickDrop11 {
.timerNickDrop11 1 1 /NickDropS11 }
alias NickDropS11 {
write -l11 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l11 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;ZzZz
alias NickDrop12 {
.timerNickDrop12 1 1 /NickDropS12 }
alias NickDropS12 {
write -l12 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $= $asctime(dd.mm.yyyy) | write -l12 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $= $$me }
;HIER DATEN FÜR Nick Drop Tab
on 1:dialog:ssbm:SCLICK:116:{ FillDropList | FillDropListTime | DropNick1 | DROPS }
Alias FillDropList {
did -r ssbm 117
var %fqul_zähler 1
while (%fqul_zähler <= $LinesDrop) {
did -a ssbm 117 $DropName(%fqul_zähler)
inc %fqul_zähler
}
ShowDrop
}
Alias ShowDrop {
did -r ssbm 133
did -a ssbm 133 $LinesDrop
}
Alias DropTime {
$read(Support-Script-by-MoraSu\Nick+Message\NickDrop.txt,s,$1)
return $readn
}
Alias DropName { return $read(Support-Script-by-MoraSu\Nick+Message\NickDrop.txt,$1) }
Alias LinesDrop { return $lines(Support-Script-by-MoraSu\Nick+Message\NickDrop.txt) }
Alias w_Drop { write -s $1 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt $1 }
Alias l_Drop { write -ds $1 Support-Script-by-MoraSu\Nick+Message\NickDrop.txt }
; Eintragung der Drop Zeiten (wann wurde der Nick benutzt)
Alias FillDropListTime {
did -r ssbm 143
var %fqul_zähler 1
while (%fqul_zähler <= $LinesDropTime) {
did -a ssbm 143 $DropNameTime(%fqul_zähler)
inc %fqul_zähler
}
ShowDropTime
}
Alias ShowDropTime {
did -r ssbm 142
did -a ssbm 142 $LinesDropTime
}
Alias DropTime {
$read(Support-Script-by-MoraSu\Nick+Message\NickDrop.txt,s,$1)
return $readn
}
Alias DropNameTime { return $read(Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt,$1) }
Alias LinesDropTime { return $lines(Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt) }
Alias w_DropTime { write -s $1 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt $1 }
Alias l_DropTime { write -ds $1 Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt }
Alias DropNick1 {
;on 1:dialog:ssbm:SCLICK:50:{
var %i = 0
var %out = ""
:L1
var %line = $read(Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt, n, %i)
if ($len(%line) == 0) {
goto end
}
if (%i == 0) {
var %out = ""
}
else {
var %out = %out $+ Nick dropped in $round($calc($calc($calc(2592000 + $ctime($read(Support-Script-by-MoraSu\Nick+Message\NickDropTime.txt, n, %i) 00:00:00)) - $ctime)/ 86400),0) days $&
$crlf $+
}
var %i = %i + 1
if (%i > 30) {
goto end
}
goto L1
:end
write -c Support-Script-by-MoraSu\Nick+Message\DROPS.txt %out
}
; Eintragung DROPS Zeiten (in wie viel Tagen der Nick futsch ist)
Alias DROPS {
;FillDropListTime {
did -r ssbm 145
var %fqul_zähler 1
while (%fqul_zähler <= $LinesDropsTime) {
did -a ssbm 145 $DropsNameTime(%fqul_zähler)
inc %fqul_zähler
}
ShowDropTime
}
Alias ShowDropsTime {
did -r ssbm 144
did -a ssbm 144 $LinesDropsTime
}
Alias DropsTime {
$read(Support-Script-by-MoraSu\Nick+Message\DROPS.txt,s,$1)
return $readn
}
Alias DropsNameTime { return $read(Support-Script-by-MoraSu\Nick+Message\DROPS.txt,$1) }
Alias LinesDropsTime { return $lines(Support-Script-by-MoraSu\Nick+Message\DROPS.txt) }
Alias w_DropsTime { write -s $1 Support-Script-by-MoraSu\Nick+Message\DROPS.txt $1 }
Alias l_DropsTime { write -ds $1 Support-Script-by-MoraSu\Nick+Message\DROPS.txt }
;EINBAU WHOIS INFO der scheint alles danach zu blocken. die Raw zählen durch. Also alles weitere oben drüber lassen :)
menu nicklist {
— $1 —:whois $$1 $$1
}
raw 311:*:{
haltdef
echo -a $timestamp 09,1___[Whois: $2 $+ ] -------------------------------------------------------------•
echo -a $timestamp 9|---› Nick: $2
echo -a $timestamp 9|---› FullName: $6-
echo -a $timestamp 9|---› Ident@Ip: $3 $+ 4 $+ @ $+ 01 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo -a $timestamp 9|---› 9Clones:1 (No Clone)
else echo -a $timestamp 9|---› 9Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
haltdef
}
raw 312:*:{
haltdef
echo -a $timestamp 9|---› Server: $3 04/01 $4 $5 $6
}
raw 313:*: {
haltdef
echo -a $timestamp 9|---› Network Info: $3 $4 $5 $6 $7 $8 $9
}
raw 39:*:{
haltdef
echo -a $timestamp 09,1¯°--------------------------------------------------------------------------------•
echo -a $timestamp 9|---› Nick: $2
echo -a $timestamp 9|---› FullName: $6-
echo -a $timestamp 9|---› Ident@Ip: $3 $+ 9 $+ @ $+ 01 $+ $4
var %clone = $kanalclone($2)
if (%clone == $null) echo -a $timestamp 9|---› Clones: (No Clone)
else echo -a $timestamp 9|---› Clone: ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
haltdef
}
raw 317:*:{
haltdef
echo -a $timestamp 9|---› Connect Time: $asctime($4) 04/1 $duration($calc($ctime - $4))
echo -a $timestamp 9|---› Idle: $duration($3)
}
raw 318:*:{
haltdef
.timer -h 1 200 echo -a $timestamp 09,1¯°--------------------------------------------------------------------------------•
}
raw 319:*:{
haltdef
echo -a $timestamp 9|---› Channels: $3-
echo -a $timestamp 9|---› Com Channels: $ortak_k($2) 04/01 Total:04 $comchan($2,0) 01Chan(s)
}
raw 338:*:{
haltdef
echo -a $timestamp 9|---› Real Ip: $4 $5 $6
}
raw 320:*:{
haltdef
echo -a $timestamp 9|---› Swhois: $2-
}
raw 330:*: echo -a $timestamp 9|---› NickServ: $2 $4 $5 $6 $7 $3 | halt
raw 378:*:{
haltdef
echo -a $timestamp 9|---› Real Ip: $3 $4 $5 $6 $7
}
raw 379:*:{
haltdef
echo -a $timestamp 9|---› Modes: $6
}
raw 671:*:{
haltdef
echo -a $timestamp 9|---› Connection: $3-
}
raw 276:*:{
haltdef
echo -a $timestamp 9|---› Client : $3 $4 $5 $6 $7
}
raw 327:*: {
echo -a $timestamp 9|---› Client Info: Java User
halt
}
raw 310:*: {
haltdef
echo -a $timestamp 9|---› 9Ircop:1 $3 $4 $5 $6
}
raw 335:*: {
echo -a $timestamp 9|---› 9Bot:1 Yes (+B).
halt
}
alias kanalclone {
if ($ial($address($1,2),0) == 1) return
var %nickler = 0 | var %clone = $1
while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
return %clone
}
;*************************************************************
;*************************************************************
;***** Tab 5 *****
;*************************************************************
;*************************************************************
Thank you ;)