xscriptSD
xScript Secret heaDer.
;Datei wurde in MSL übersetzt.
;Bitte die Dateien nicht löschen.
;Überarbeitetes ON JOIN event. Geschrieben in: xsd.
;Mark - $mark;$i;$parameter
;Diese 3 Variablen gehören zu meinem Script. Bitte andere löschen. Sonst kann es zu konflikten kommen.
;File: join.h -> Trigger; join;Post Methode; xmsg
dialog xsd {
title "Script Editor (xsd) -> Automatically Remove & Save"
size -1 -1 195 194
option dbu
combo 1, 7 10 37 35, drop
box "Trigger", 2, 1 1 50 48
box "Post Methode", 3, 50 1 50 48
combo 4, 57 10 38 35, drop
box "Information && Settings", 5, 99 1 95 48
check "&Activate Helpbox (Empfohlen)", 6, 100 39 93 8
text "Der Editor speichert automatisch, bei Problemen neu installieren. ;Trigger und Post Methode ausfüllen, sonst wird Standart übernommen.", 7, 101 9 91 28
box "Script Editor ", 8, 1 45 193 117
box "Lil' Helpbox", 9, 1 158 193 35
text ";Allgemeine Variablen: #,&&,~,! Diese Zeichen vermitteln dem Script das etwas Aktiviert werden muss. ! Startet ein Event. ~Kürzt ein Event ab(Funzt noch nicht), && kann Variablen Setzen. Und # aktiviert Channelmodes. #mode etc. &temp 12 würde die Variable temp setzen. Pro Zeile bitte nur einmal: #,!,&&,~", 10, 3 165 188 25
edit ";Script generated@ [ $time ]", 11, 3 53 190 74, multi return hsbar vsbar
edit "", 12, 2 129 190 30, read autohs autovs multi return hsbar vsbar
}
on *:DIALOG:xsd:*:*:{
if ($devent == init) {
did -a $dname 1 JOIN
write -c tmp.xsd
write -a tmp.xsd ;Kein Datei Script angegeben
did -a $dname 1 TEXT
did -a $dname 1 PART
did -a $dname 1 CONNECT
unset %trigger.xsd
unset %methode.xsd
did -a $dname 4 /say
did -a $dname 4 /echo
did -a $dname 4 MSG
did -a $dname 4 Nothing
set %rchan $chan($rand(1,$chan(0)))
set %rnick $nick(#,$rand(1,$nick(#,0))
set %helpbox.xsd on
did -ra $dname 11 ;Script wurde erstellt am $date um $time
did -c $dname 6
}
if ($devent == sclick) {
if ($did == 1) { set %trigger.xsd $did($dname,1).seltext | convert | convert2 }
if ($did == 4) { set %methode.xsd $readini(post.ini,post,$did($dname,4).seltext) | convert | convert2 }
if ($did == 6) { set %helpbox.xsd $iif(%helpbox.xsd == on,off,on) | did $iif(%helpbox.xsd == off,-h,-v) $dname 10 }
}
if ($devent == edit) {
convert
convert2
}
if ($devent == close) {
.gload
}
}
menu * {
xsd Script Editor:dialog -m xsd xsd
}
###########Alias INI############
;include
;
;Now we're trying to make a .h file. Its easier, if you use the Scripteditor by Nick;
; New Vars code are & . All the Stars will now break with "~".
;A .h File is some difficult because, they are a little bit change.. 
.
convert2 {
set %i 1
write -c tmp.xsd
while (%i <= $did($dname,11).lines) {
write tmp.xsd $did($dname,11,%i)
inc %i
}
}
convert {
set %x 1
while (%x <= $did($dname,11).lines) {
did -ra $dname 12 $replace($did(xsd,11,%x),&var,set,##,$chr(36) $+ chan,!!,$chr(36),!event,%trigger.xsd,_i,set %i 1 $chr(124) while $chr(40) $+ %i <=,$ $+ chan,%rchan,$ $+ me,$me,.nick,$ $+ nick,_x,on *: $+ %trigger.xsd $+ :#:,_h,#h,.pm,%methode.xsd)
inc %x
}
}
gload {
set %i 1
while (%i <= $lines(tmp.xsd)) {
write temp.mrc $replace($read(tmp.xsd),&var,set,##,$chr(36) $+ chan,!!,$chr(36),!event,%trigger.xsd,_i,set %i 1 $chr(124) while $chr(40) $+ %i <=,_x,on *:!event:#:,_h,#h,_x,on *: $+ %trigger.xsd $+ :#:,. $+ pm,%methode.xsd,!event,%trigger.xsd,.nick,$chr(36) $+ nick)
inc %i
}
.load -rs temp.mrc
}
.
convert2 {
set %i 1
write -c tmp.xsd
while (%i <= $did($dname,11).lines) {
write tmp.xsd $did($dname,11,%i)
inc %i
}
}
convert {
set %x 1
while (%x <= $did($dname,11).lines) {
did -ra $dname 12 $replace($did(xsd,11,%x),&var,set,##,$chr(36) $+ chan,!!,$chr(36),!event,%trigger.xsd,_i,set %i 1 $chr(124) while $chr(40) $+ %i <=,$ $+ chan,%rchan,$ $+ me,$me,.nick,$ $+ nick,_x,on *: $+ %trigger.xsd $+ :#:,_h,#h,.pm,%methode.xsd)
inc %x
}
}
gload {
set %i 1
while (%i <= $lines(tmp.xsd)) {
write temp.mrc $replace($read(tmp.xsd),&var,set,##,$chr(36) $+ chan,!!,$chr(36),!event,%trigger.xsd,_i,set %i 1 $chr(124) while $chr(40) $+ %i <=,_x,on *:!event:#:,_h,#h,_x,on *: $+ %trigger.xsd $+ :#:,. $+ pm,%methode.xsd,!event,%trigger.xsd,.nick,$chr(36) $+ nick)
inc %i
}
.load -rs temp.mrc
}