By NoreII on Jan 19, 2016All you need for easy use :)
Script with GUI
The Script can...
and many more
Kind regards / liebe Grüße
NoreII
PS: This is my script ^^ MoraSu is my Nickname on euIRCnet
;Installation
on *:load:{
echo -a X4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ X
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\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 }
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 3.0
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.
/SupportScriptByMoraSu
}
#menueNickChange on
;--------------- Menue ---------------
menu * {
Support Script by MoraSu
.Nick Menue
..wieder da / back there (Nickname): /wiederda | if ( $group(#awaynachrichten) == on ) /wiederda2
..Busy (|Busy): /busy | if ( $group(#awaynachrichten) == on ) /busy2
..Tickets (|OTRS): /otrs | if ( $group(#awaynachrichten) == on ) /otrs2
..Ingame (|IG): /ig | if ( $group(#awaynachrichten) == on ) /ig2
..Weg / Away (|Away): /wegaway | if ( $group(#awaynachrichten) == on ) /wegaway2
..Semi (|Semi): /semi | if ( $group(#awaynachrichten) == on ) /semi2
..Nicht stoeren / do not disturb(|DnD): /Donotdisturb | if ( $group(#awaynachrichten) == on ) /Donotdisturb2
..Nicht verfuegbar / Not available (|NA): /Nichtverfuegbar | if ( $group(#awaynachrichten) == on ) /Nichtverfuegbar2
..-
..Meeting(|Meeting): /meeting | if ( $group(#awaynachrichten) == on ) /meeting2
..Trialteaching(|Trialteaching): /trialteaching | if ( $group(#awaynachrichten) == on ) /trialteaching2
..-
..arbeiten / to work (|Work): /arbeit | if ( $group(#awaynachrichten) == on ) /arbeit2
..schlafen / sleep ([ZzZz]): /schlafen | if ( $group(#awaynachrichten) == on ) /schlafen2
; .Save-, Regg. u. Unban der Nicknamen
; ..Savenicks(Nicknamen sichern): /savenick
; ..Regestrieren(Nicknamen registrieren): /regnick
; ..Entbannen(Channel Ban aufheben): /entbannen
; .Preferences
; ..Preferences und Optionen: /SupportScriptByMoraSu
; ..Variable bearbeiten (Direkt in der vars.ini): /valiable
; .Stuff
; ..Whois von — $1 —: /whois $$1 $$1
; ..Colors: /colorinformation
}
#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
}
#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. If you need Support, please open a Ticket at flosupport_de@gamesinflames.com or write me a mail to: 3( $+ $+ $read(Support-Script-by-MoraSu\Grunddaten\MailSup.txt) $+ $+ 3). Thank you. 12::: }
else { msg $nick 12::: I am away, reason: 3( $+ $awaymsg $+ 3) $+ . Since: 3( $+ $duration($awaytime) $+ 3). Your message will be logged. If you need Support, please open a Ticket at flosupport_de@gamesinflames.com or you can write me a mail to: $read(Support-Script-by-MoraSu\Grunddaten\MailSup.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.
alias savenick {
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 join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Busy
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |OTRS
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |IG
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Away
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Semi
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |DnD
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |NA
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Meeting
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Trialteaching
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Work
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |[ZzZz]
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
ns set join $read(Support-Script-by-MoraSu\ChannelsJoin.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
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 {
timer1 1 1 /amsg brb
timer2 1 2 /partall
timer3 1 3 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
timer4 1 4 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer5 1 5 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Busy
timer6 1 36 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer7 1 37 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer8 1 38 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Away
timer9 1 68 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer10 1 69 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer11 1 70 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Semi
timer12 1 101 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer13 1 102 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer14 1 103 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |DnD
timer15 1 134 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer16 1 135 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer17 1 136 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |NA
timer18 1 167 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer19 1 168 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer20 1 169 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Meeting
timer21 1 200 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer22 1 201 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer23 1 202 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Trialteaching
timer24 1 233 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer25 1 234 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer26 1 235 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Work
timer27 1 266 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer28 1 267 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer29 1 268 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |[ZzZz]
timer30 1 299 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer31 1 300 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer33 1 301 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |IG
timer34 1 332 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer35 1 333 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer5 1 334 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |OTRS
timer6 1 365 /ns register $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) $read(Support-Script-by-MoraSu\Grunddaten\RegMail.txt)
timer7 1 367 /ns link $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
timer36 1 368 /nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt)
timer36 1 369 /ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt) nojoin
timer36 1 370 /var %dummy $input(Regnick work. Please wait a few minutes. After Regnick is done Savenick start automaticly.) !,-oi,Watch out)
timer36 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\Grunddaten\NickSup.txt) $+ |Busy
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias otrs {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |OTRS
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias ig {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |IG
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias wegaway {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Away
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias semi {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Semi
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias Donotdisturb {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |DnD
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias /Nichtverfuegbar {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |NA
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias meeting {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Meeting
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias trialteaching {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Trialteaching
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias arbeit {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Work
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
alias schlafen {
tnick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ [ZzZz]
ns identify $read(Support-Script-by-MoraSu\Grunddaten\Userpass.txt)
}
;--------------- Nickmenü Away Nachrichten BISHER NICHT FUNKTIONSFHIG ---------------
#awaynachrichten on
alias wiederda2 {
away
}
alias busy2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,1)
}
alias otrs2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,11)
}
alias ig2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,2)
}
alias wegaway2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,3)
}
alias semi2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,4)
}
alias Donotdisturb2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,5)
}
alias /Nichtverfuegbar2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,6)
}
alias meeting2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,7)
}
alias trialteaching2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,8)
}
alias arbeit2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,9)
}
alias schlafen2 {
away $read(Support-Script-by-MoraSu\AwayText.txt,10)
}
#awaynachrichten end
;Hier Dialog ssbm
alias SupportScriptByMoraSu {
dialog -ma ssbm SupportScriptByMoraSu
}
dialog SupportScriptByMoraSu {
title "SupportScriptByMoraSu"
size -1 -1 848 352
option pixels
tab "Overview", 1, 5 5 822 310
box "Infos", 7, 12 40 315 52, 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 94 212 200, tab 1
box "Hilfe zum Scrip / Help for script", 67, 336 40 484 260, tab 1
text "", 68, 344 56 466 232, 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
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 "About", 38
text "", 35, 244 52 266 240, tab 38
box "DE Abschnitt", 34, 236 36 284 268, tab 38
box "EN Section", 32, 532 36 284 268, tab 38
text "", 37, 540 52 266 240, tab 38
text "", 93, 24 64 194 208, tab 38
tab "Initialize and Remove", 47
button "Channel hinzufuegen | Add channel", 40, 710 322 114 25, hide tab 47
button "Channel bearbeiten | Channel edit", 41, 702 322 114 25, hide tab 47
button "Eingabefeld leer | edit field empty", 45, 714 324 114 20, hide tab 47
edit "", 44, 292 319 150 20, hide tab 47 autohs
button "Channel loeschen | Clear channel", 42, 710 322 114 25, hide tab 47
list 46, 300 316 68 28, hide tab 47
list 11, 346 321 40 20, hide tab 47
box "Initialize", 10, 16 40 404 260, tab 47
box "Remove", 12, 432 40 388 188, tab 47
text "", 43, 24 56 386 88, tab 47
button "Remove Support Script by MoraSu", 80, 504 192 243 25, tab 47
text "", 79, 444 60 362 120, 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
box "Basic Data", 87, 24 176 236 92, tab 47
box "Channels / Away", 88, 272 176 124 92, tab 47
box "General Initalize", 89, 432 240 388 60, tab 47
button "Initialize Support Script by MoraSu", 90, 528 264 195 25, tab 47
button "Fenster schliessen / Close window", 33, 4 320 232 25, cancel
}
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\AwayText.txt
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\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)
}
;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 3.0
echo -a Variables und ausgelagerte Daten werden erhoben bzw. geshrieben
echo -a Erreichen könnt Ihr mich im euIRCnet im Channel #florensia.de :=)
echo -a Die Anzahl der Query´s (querynumber) werden in den Variables automatisch erfasst
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
;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 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 3.0 $&
$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 MoraSu $&
$crlf $+ A special thanks to my friends Chibisuke and Skybird . $&
$crlf $+ Both have helped me with a few codes . $&
$crlf $+ $&
$crlf $+ Script Version 3.0 $&
$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 $&
}
;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 5 ***************************
;FillAwayList
on 1:dialog:ssbm:SCLICK:29:{ FillAwayList }
;Ändere Busy Nachricht
on 1:dialog:ssbm:SCLICK:57:{
write -l1 Support-Script-by-MoraSu\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\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\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\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\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\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\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\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\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\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\AwayText.txt $$?="Your new away message for OTRS is?"
FillAwayList
}
;*************************** dddd *******************************
;*************************** 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 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\Grunddaten\NickSup.txt) $+ |Busy
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\Grunddaten\NickSup.txt) $+ |OTRS
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\Grunddaten\NickSup.txt) $+ |IG
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\Grunddaten\NickSup.txt) $+ |Away
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\Grunddaten\NickSup.txt) $+ |Semi
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\Grunddaten\NickSup.txt) $+ |DnD
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\Grunddaten\NickSup.txt) $+ |NA
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\Grunddaten\NickSup.txt) $+ |Meeting
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\Grunddaten\NickSup.txt) $+ |Trialteaching
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\Grunddaten\NickSup.txt) $+ |Work
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\Grunddaten\NickSup.txt) $+ |[ZzZz]
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\Grunddaten\NickSup.txt) $+ |Busy
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |OTRS
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |IG
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Away
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Semi
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |DnD
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |NA
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Meeting
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Trialteaching
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |Work
ns identify %userpasstemp nojoin
ns set password $read(Support-Script-by-MoraSu\Grunddaten\UserpassTemp.txt)
nick $read(Support-Script-by-MoraSu\Grunddaten\NickSup.txt) $+ |[ZzZz]
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) }
}
;************************** 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
}
;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\AwayText.txt,s,$1)
return $readn
}
Alias AwayName { return $read(Support-Script-by-MoraSu\AwayText.txt,$1) }
Alias LinesAway { return $lines(Support-Script-by-MoraSu\AwayText.txt) }
Alias w_Away { write -s $1 Support-Script-by-MoraSu\AwayText.txt $1 }
Alias l_Away { write -ds $1 Support-Script-by-MoraSu\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
}
;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
}
;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
}
