26 lines
653 B
Plaintext
26 lines
653 B
Plaintext
/************************************************************************
|
|
* script name : pat_tst
|
|
* created by : eyesolated
|
|
* date : 2018/7/31
|
|
*
|
|
* description : Test script for PAT
|
|
*
|
|
* changes : 2018/7/31 - eyesolated - Initial creation
|
|
************************************************************************/
|
|
#include "pat_cfg"
|
|
|
|
void main()
|
|
{
|
|
object oUser = GetLastUsedBy();
|
|
string sTest = GetTag(OBJECT_SELF);
|
|
|
|
// Get target CR
|
|
int nCR = StringToInt(GetStringRight(sTest, 2));
|
|
|
|
// Get Area
|
|
object oArea = GetArea(OBJECT_SELF);
|
|
|
|
// Set PAT CR on the Area
|
|
SetLocalInt(oArea, PAT_VAR_CR, nCR);
|
|
}
|