3100f68a30
* added script to support /me-like emotes (scriptname is "me")
* changed the permission system: now a script cant be used as game command f no permission is explicitly set
* implemented threadsafe CLI queue to solve crashes with short-intervalled events that ran on 2 threads
* fixed name return at "getitemprotovalue" script
* iplemented DrawObject class and a Mgr for those objects; they will ease object drawing once implemented. the Mgr works under control of the GUI thread and is threadsafe.
* implemented auto-loading of SCP files if a name-tag is present somewhere in the file ("#dbname=...") and no explicit db name was passed to "loadscp" script.
* changed internal ObjMgr storage to std::map (instead of list) for faster access
* fixed call of "_enterworld" script
* fixed handling of MyCharacter(), which could cause crashes after newly changes
* fixed GetFileList() func in tools.cpp (this fixes also related "lgetfiles" script func). now it will only parse files, not directories. might still need some fixing for linux.
101 lines
2.6 KiB
Modula-2
101 lines
2.6 KiB
Modula-2
// scripts used for configuration! DO NOT MODIFY unless you know what you do!!
|
|
|
|
#onload
|
|
log * Loading core scripts (internal config)...
|
|
#/onload
|
|
|
|
//--------------------------------------------------------
|
|
#script=exit
|
|
#permission=255
|
|
//--------------------------------------------------------
|
|
// just a name alternative
|
|
QUIT
|
|
|
|
|
|
//--------------------------------------------------------
|
|
#script=quit
|
|
#permission=255
|
|
//--------------------------------------------------------
|
|
// quit PseuWoW, say goodbye when logged in
|
|
IF ${@inworld}
|
|
SAY Terminating proc...
|
|
ENDIF
|
|
SHDN
|
|
|
|
|
|
//-----------------------------------------------
|
|
#script=cleanupvars
|
|
//-----------------------------------------------
|
|
// purpose: unset all variables that could be abused by someone
|
|
LOGDETAIL * Cleaning up variables...
|
|
UNSET #ACCPASS
|
|
UNSET #ACCNAME
|
|
LOGDETAIL * Dangerous variables removed.
|
|
|
|
|
|
//-----------------------------------------------
|
|
#script=config
|
|
#permission=255
|
|
//-----------------------------------------------
|
|
// Load all conf files from directory /conf/
|
|
// get all *.conf file names from /conf/ directory, store the names in list 'fl' and the amount in 'fcount'
|
|
LOG ** Configuring PseuWoW...
|
|
SET,fcount ?{LGETFILES,fl,conf conf}
|
|
// sort the list, load conf files alphabetically.
|
|
LSORT fl
|
|
|
|
IF ?{NOT ${fcount}}
|
|
LOGERROR No conf file found! Can't load.
|
|
RETURN
|
|
ENDIF
|
|
|
|
LOG * Loading ${fcount} conf files.
|
|
// iterate over all files and load them; if counter i is equal to the amount of files we are done.
|
|
SET,i 0
|
|
LOOP
|
|
IF ?{EQUAL,${i} ${fcount}}
|
|
EXITLOOP
|
|
ENDIF
|
|
SET,fn ?{LINDEX,fl ${i}}
|
|
LOG * Loading conf file [ ${fn} ]
|
|
LOADCONF ${fn}
|
|
ADD,i 1
|
|
ENDLOOP
|
|
|
|
UNSET fcount
|
|
UNSET i
|
|
UNSET fn
|
|
LDELETE fl
|
|
|
|
// Apply the configuration
|
|
APPLYCONF
|
|
LOG * Configuration applied.
|
|
|
|
// Apply user permissions
|
|
APPLYPERMISSIONS
|
|
|
|
// remove dangerous variables
|
|
CLEANUPVARS
|
|
|
|
// set permissions for internal functions
|
|
INTERNAL_PERM
|
|
|
|
// if its not set in the conf file, default it to "." (WoWEmu & MaNGOS style)
|
|
DEFAULT,#CMDCHAR .
|
|
|
|
LOG ** All Config done.
|
|
|
|
|
|
//--------------------------------------------------
|
|
#script=internal_perm
|
|
#permission=255
|
|
//--------------------------------------------------
|
|
// purpose: set script permissions for internal functions that cant be set otherwise.
|
|
// if you don't set a permission for a script manually, it will have permission 255 (highest)
|
|
|
|
LOG * Assigning permissions for internal functions...
|
|
// emotes are hard to abuse, allow for everyone
|
|
setscriptpermission,emote 0
|
|
// ... set more permissions here ...
|
|
|