07.08.2016 16:15
#func BotschaftAnRegion $text
{
; Sendet $text als Regionsbotschaft. Zeilenumbrüche werden automatisch
; erzeugt und der Text wird korrekt nach Eressearegeln umgebrochen.
;
; Parameter:
; $text : ANY
; RETURN : BOOLEAN
#var $bef
#var $result
; Parameter überprüfen und im Fehlerfall FALSE zurückgeben
#if ''==$text
{
#call Fehler 'Regionsbotschaft: Kein Text angegeben' TRUE
#return FALSE
}
; Befehl generieren
$bef='BOTSCHAFT AN REGION '+QUOTE+$text+QUOTE
$result=BefehlEintragen(UNIT.Nummer,$bef)
; Ergebnis zurückgeben
#return $result
}
#const QUOTE '\34'
#const SINGLEQUOTE '\39'
#const DOUBLEBACKSLASH '\\'
#const AT '\64'
12.08.2016 22:16
13.08.2016 21:47
#forever { BOTSCHAFT REGION '|Willkommen in '+region.Name+', wir grüßen Euch!|' }
BOTSCHAFT REGION Willkommen~in~Sovengarde,~wir~grüßen~Euch!
11.04.2017 12:07
Thoran1 hat geschrieben:Ich mache das in meinen Skripten wie folgt (z.B. in einer Funktion, die automatisch einen Text als Regionsbotschaft erzeugt):
- Code:
#func BotschaftAnRegion $text
{
; Sendet $text als Regionsbotschaft. Zeilenumbrüche werden automatisch
; erzeugt und der Text wird korrekt nach Eressearegeln umgebrochen.
;
; Parameter:
; $text : ANY
; RETURN : BOOLEAN
#var $bef
#var $result
; Parameter überprüfen und im Fehlerfall FALSE zurückgeben
#if ''==$text
{
#call Fehler 'Regionsbotschaft: Kein Text angegeben' TRUE
#return FALSE
}
; Befehl generieren
$bef='BOTSCHAFT AN REGION '+QUOTE+$text+QUOTE
$result=BefehlEintragen(UNIT.Nummer,$bef)
; Ergebnis zurückgeben
#return $result
}
Die Konstante QUOTE ist dabei wie folgt zu definieren (ich habe dafür ein eigenes vms-Modul, das alle notwendigen Konstanten enthält):#const QUOTE '\34'
#const SINGLEQUOTE '\39'
#const DOUBLEBACKSLASH '\\'
#const AT '\64'
16.04.2017 00:24
BENENNE EINHEIT '\''+$Name+'\''