50 lines
2.0 KiB
Plaintext
50 lines
2.0 KiB
Plaintext
object oSelf = OBJECT_SELF;
|
|
|
|
void fbpaostorerandom()
|
|
{
|
|
location lstore = GetLocation(GetWaypointByTag("fbpaostoreWP"));
|
|
switch ( d6(1) ) {
|
|
case 1:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore1", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore1", lstore, FALSE, "fbpaostore1");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore1");
|
|
break;
|
|
case 2:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore2", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore2", lstore, FALSE, "fbpaostore2");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore2");
|
|
break;
|
|
case 3:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore3", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore3", lstore, FALSE, "fbpaostore3");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore3");
|
|
break;
|
|
case 4:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore4", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore4", lstore, FALSE, "fbpaostore4");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore4");
|
|
break;
|
|
case 5:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore5", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore5", lstore, FALSE, "fbpaostore5");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore5");
|
|
break;
|
|
case 6:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore6", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore6", lstore, FALSE, "fbpaostore6");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore6");
|
|
break;
|
|
default:
|
|
DestroyObject(GetNearestObjectByTag("fbpaostore1", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "fbpaostore1", lstore, FALSE, "fbpaostore1");
|
|
SetLocalString(OBJECT_SELF, "store", "fbpaostore1");
|
|
break;
|
|
}
|
|
DelayCommand(3600.0, fbpaostorerandom());
|
|
}
|
|
|
|
void main ()
|
|
{
|
|
fbpaostorerandom();
|
|
}
|