Sourcecode

[DopeFish]

momentan noch fast nur über popups, zukünftig soll soviel wie möglich in Dialoge ausgelagert werden, hier nur Code "Snippets" (Teilchen) die wichtig sind, wer das ganze möchte, kann es sich unter http://irc.dopy.de saugen



Memoserv
. Send
.. Nachricht hinterlassen:dialog -m memoserv.send.window memoserv.send.window
.. (hilfe):memoserv help send
. List
.. Alle Nachrichten:memoserv list
.. Neue Nachrichten:memoserv list new
.. (hilfe):memoserv help list
. Read
.. Neue Nacrichten:memoserv read NEW
.. Letzte Nachricht:memoserv read LAST
.. Bestimmte Nachricht:memoserv read $$?="Nummer der Nachricht oder Liste (x-y) angeben"
.. (hilfe):memoserv help read
. Del
.. Alle Nacrichten:memoserv del ALL
.. Bestimmte Nachricht:memoserv del $$?="Nummer der Nachricht oder Liste (x-y) angeben"
.. (hilfe):memoserv help del
.Set
.. Notify
... Ein:memoserv set notify on
... Bein einloggen:memoserv set notify logon
... Beim eintreffen von Nachrichten:memoserv set notify new
... Aus:memoserv set notify off
... (hilfe):memoserv help set notify
.. Limit
... Maximale Nachrichten anzahl:memoserv set limit $$?="Maximale anzahl von Nachrichten (nicht höher als 20)"
... (hilfe):memoserv help set limit
.. (hilfe):memoserv help set
Sonstiges
. Vhost
.. Vhost aktivieren:msg serv vhost $readini $ini sonstiges vhost.pass
.. Vhost Passwort einstellen (lokal):writeini $ini sonstiges vhost.pass $$?="was hattest du als Passwort gewählt?"
.. Infos zu Vhost:echo Infos zu Vhost gibts bei Http://vhosts.euirc.net
. (hilfe):memoserv help


dialog memoserv.send.window {
title "Nachricht versenden"
size -1 -1 300 170
button "&Senden", 1, 160 140 55 25 , default
button "&Ende", 2, 240 140 55 25, cancel

text "Empfänger:", 3, 7 9 60 20
edit "", 4, 65 5 230 20 ,

text "Nachricht:", 5, 7 30 60 20
edit "", 6, 5 50 290 80, multi
}
on 1:dialog:memoserv.send.window:*:1 {
set %i 0
set %text ""
:start
inc %i
set %text %text &+ $did( $dname , 6, %i ).text
if ( $did( $dname , 6).lines > %i ) goto start
set %text $remove( %text , &+ )
memoserv send $did( $dname , 4) %text
set %text ""
dialog -c memoserv.send.window memoserv.send.window
}

[DopeFish]

menu channel,status {
-
Update Script:update
-
}
alias -l update {
msgbox Diserve Dateien werden jetzt vom Server heruntergeladen und falls nötig die Scripte neu geladen.
echo 3 -a *** UPDATE: Liste mit Versionsnummern vom Server holen...
run -n $mircdir $+ update.bat server.ini
timerwait 0 2 checkfile server.ini updatefiles
}
alias checkfile {
; echo -a DEBUG: Checkfile if ( $exists( [ [ $mircdir $+ [ $$1 ] ] ] )) $$2-
if ( $exists( [ [ $mircdir $+ [ $$1 ] ] ] )) $$2-
}
alias loadremotes {
//timerupdate $+ $1 off
load -rs $2
}
alias serverini return $mircdir $+ server.ini
alias localini return $mircdir $+ local.ini
alias updatefiles {
timerwait off
echo 3 -a *** UPDATE: Versionsnummern der Dateien überprüfen....
set %update.localver $readini $localini updateinfo version
set %update.remotever $readini $serverini updateinfo version
set %update.remotefiles $readini $serverini updateinfo files
set %i $numtok( %update.remotefiles , 33 )
set %pos 1
:start
if ( %pos > %i ) goto end
; echo -a DEBUG: $gettok( %update.remotefiles , %pos , 33) || $gettok( %update.remotever , %pos , 33) || $gettok( %update.localver , %pos , 33)
if (( $gettok( %update.remotever , %pos , 33) > $gettok( %update.localver , %pos , 33) ) || ( %pos > $numtok( %update.localver , 33 ) )) {
echo 4 -a *** UPDATE: Hole eine neuere Version von $gettok( %update.remotefiles , %pos , 33)
run -n $mircdir $+ update.bat $gettok( %update.remotefiles , %pos , 33)
; Echo -a if ( $gettok( $gettok( %update.remotefiles , %pos , 33) , 2 , 46) isin mrc ) timerupdate $+ %pos checkfile $gettok( %update.remotefiles , %pos , 33) { timerupdate $+ %pos 0 120 { load -rs $gettok( %update.remotefiles , %pos , 33) | timerupdate $+ %pos off } }
if ( $gettok( $gettok( %update.remotefiles , %pos , 33) , 2 , 46) isin mrc ) timerupdate $+ %pos 0 10 checkfile $gettok( %update.remotefiles , %pos , 33) loadremotes %pos $gettok( %update.remotefiles , %pos , 33)
}
inc %pos
goto start
:end
unset %update.*
run -n $mircdir $+ version.bat
echo 3 -a *** UPDATE: Datein werden heruntergeladen falls nötig
}
on 1:load: {
if ($version < 5.5) { echo 4 -a *** Konnte die Scripte nicht laden, du muss mindestens version 5.5 benutzen | unload -rs update.mrc | halt }
load -rs buhairc.mrc
set.colors
if ( $exists( $ini ) ) goto further
write $ini
:further
if ( $readini $ini sonstiges nick1 == $null ) {
writeini $ini sonstiges nick1 $me
writeini $ini sonstiges nick2 [ [ $me $+ [away] ] ]
writeini $ini sonstiges nick3 leer
writeini $ini sonstiges nick4 leer
}
if ( $readini $ini sonstiges AutoReplyMsg == $null ) writeini $ini sonstiges AutoReplyMsg Away
set %help 0
euirc.welcome
}


dieser code snippet holt eien datei vom server mit eine liste der dateien und aktuelle versionen der Dateien. vergleicht dieser mit die lokale versionen der dateien und falls nötig lädt der dateien vom server herunter und tut diese im Client neu laden

der on load teil vom datei beinhaltet grundlegende dinge die beim installieren vom script im client ausgeführt werden müssen. z.B. wird eine .ini datei angelegt für das script falls keiner vorhanden ist und darin standard werte eingetragen.

die datei mit dateinamen und versionen sieht folgendermaßen aus:


[updateinfo]
files=update.mrc!buhairc.mrc!buhatool.mrc!buhamenu .mrc!buharaw.mrc!backgrnd.bmp!logo.bmp!readme.txt
version=1001!1003!1001!1003!1000!1000!1000!1001