14 lines
287 B
Modula-2
14 lines
287 B
Modula-2
#permission=255
|
|
// setup some default values
|
|
SET,lang ${@0}
|
|
SET,msg ${@def}
|
|
|
|
DEFAULT,#DEFAULTLANG ?{GETSCPVALUE,race,{${@myrace}} defaultlang}
|
|
DEFAULT,lang ${#DEFAULTLANG}
|
|
|
|
LOGDEBUG * Yelling '${msg}' in lang ${lang}
|
|
|
|
SENDCHATMESSAGE,5,${lang},{${msg}}
|
|
UNSET lang
|
|
UNSET msg
|