50 lines
2.0 KiB
Plaintext
50 lines
2.0 KiB
Plaintext
object oSelf = OBJECT_SELF;
|
|
|
|
void gdpaostorerandom()
|
|
{
|
|
location lstore = GetLocation(GetWaypointByTag("gdpaostoreWP"));
|
|
switch ( d6(1) ) {
|
|
case 1:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore1", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore1", lstore, FALSE, "gdpaostore1");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore1");
|
|
break;
|
|
case 2:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore2", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore2", lstore, FALSE, "gdpaostore2");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore2");
|
|
break;
|
|
case 3:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore3", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore3", lstore, FALSE, "gdpaostore3");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore3");
|
|
break;
|
|
case 4:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore4", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore4", lstore, FALSE, "gdpaostore4");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore4");
|
|
break;
|
|
case 5:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore5", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore5", lstore, FALSE, "gdpaostore5");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore5");
|
|
break;
|
|
case 6:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore6", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore6", lstore, FALSE, "gdpaostore6");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore6");
|
|
break;
|
|
default:
|
|
DestroyObject(GetNearestObjectByTag("gdpaostore1", oSelf));
|
|
CreateObject(OBJECT_TYPE_STORE, "gdpaostore1", lstore, FALSE, "gdpaostore1");
|
|
SetLocalString(OBJECT_SELF, "store", "gdpaostore1");
|
|
break;
|
|
}
|
|
DelayCommand(3600.0, gdpaostorerandom());
|
|
}
|
|
|
|
void main ()
|
|
{
|
|
gdpaostorerandom();
|
|
}
|