Jaysyn/Ancordia_PRC8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Initial Commit

Browse Source 
Initial Commit
This commit is contained in:
Jaysyn904
2023-09-21 19:51:32 -04:00
parent 65b5bd7fd3
commit 102ba7dab6
6400 changed files with 5741850 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

274
_module/nss/bell_hb.nss Normal file
View File

@@ -0,0 +1,274 @@
//::///////////////////////////////////////////////
//:: Custom User Defined Event
//:: FileName: HourBell
//:://////////////////////////////////////////////
/*
OnHeartbeat script for an invisible object
The bell tolls every hour counting the time.
*/
//:://////////////////////////////////////////////
//:: Created By: Ayath The Loafer
//:: Created On: October 26th 2002
//:://////////////////////////////////////////////
void main()
{
int nHour = GetTimeHour();
//Purely for testing purposes
//SpeakString(IntToString(nHour));
if (nHour==0 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",0);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(9.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(10.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(11.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==1 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",1);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==2 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",2);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==3 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",3);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==4 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",4);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==5 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",5);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==6 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",6);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==7 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",7);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==8 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",8);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==9 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",9);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==10 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",10);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(9.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==11 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",11);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(9.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(10.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==12 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",12);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(9.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(10.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(11.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==13 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",13);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==14 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",14);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==15 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",15);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==16 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",16);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==17 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",17);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==18 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",18);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==19 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",19);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==20 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",20);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==21 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",21);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==22 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",22);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(9.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
if (nHour==23 && GetLocalInt(OBJECT_SELF,"Called_Time")!=nHour)
{
SetLocalInt(OBJECT_SELF,"Called_Time",23);
DelayCommand(0.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(1.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(2.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(3.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(4.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(5.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(6.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(7.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(8.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(9.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
DelayCommand(10.0,AssignCommand(OBJECT_SELF, PlaySound("as_cv_bell1")));
}
}