onchat.txt excal

//VOXELMAP /TPto fix ******************
SPLIT(" ",%CHATCLEAN%,&a[]);
//VOXELMAP /TPto fix ******************


//************************************************************************
//************************************************************************
//TEMPORARY TESTING, TEMPORARY TESTING, TEMPORARY TESTING, TEMPORARY TESTING
//************************************************************************
//BELOW*******************************************************************

//STOP;
    //LOG(before script, @daytimeflag = %@daytimeflag%);
//STOP;
//ALWAYS DAY SECTION ******************
IF((%TICKS% > 12000) && (@daytimeflag = 1) && (@dayalways = 1));
    SET(@daytimeflag,false);
    //LOG(@daytimeflag = %@daytimeflag%);
    //LOG(/TIME DAY);
    ECHO(/time day);

ELSEIF((%TICKS% > 2500) && (%TICKS% < 12000) && (@daytimeflag = 0));
        //LOG(second ELSE);
        //LOG(DAY, daytimeflag FLAG=%@daytimeflag%);
        SET(@daytimeflag,true);
ELSE;
ENDIF;

IF((%TICKS% < 12000) && (%TICKS% > 0) && (@nighttimeflag = 1) && (@nightalways = 1));
    SET(@nighttimeflag,false);
    //LOG(@daytimeflag = %@daytimeflag%);
    //LOG(/TIME DAY);
    //ECHO(/time night);

ELSEIF((%TICKS% < 2500) && (%TICKS% > 12500) && (@nighttimeflag = 0));
        //LOG(second ELSE);
        //LOG(DAY, daytimeflag FLAG=%@daytimeflag%);
        SET(@nighttimeflag,true);

ELSE;
ENDIF;

STOP;


IF(@dayalways,1);
LOG(DAY is true "1");
ELSE;
LOG(false, DAY is false "0");
ENDIF;




LOG(abs value of dayalways=%@dayalways%);

//ALWAYS DAY SECTION ******************




//ADVERTISE SECTION ******************

IFMATCHES(%CHATCLEAN%,"^Coords\:\s[-?0-9]*\s[-?0-9]*\s[-?0-9]*\sin\sthe\s(Nether|Normal|End)\sworld$",&deathcoordsworld,1);
ENDIF;
//ADVERTISE SECTION ******************


//------------------------------------------------------------------
IF(%@&playerwholiveshereflag%="true");

//IFMATCHES(%CHATCLEAN%,"\bThe\sfollowing\splayers\slive\snear\shere\:",&test,1);
//unset(&pnamearray[]);
        IFMATCHES(%CHATCLEAN%,"^\s\*\s.{2,16}$",@&playernamewholiveshere,1);


    //LOG(%@&playernamewholiveshere%);
                SPLIT(" * ",%@&playernamewholiveshere%,&a[]); //works
        //LOG(FIRSTPART:%&a[0]%);
        //LOG(SECONDPART:%&a[1]%);
        //PUSH(@&pnamearray[],"%@&playernamewholiveshere%");
            PUSH(@&pnamearray[],"%&a[1]%");

        //ARRAYSIZE(@&pnamearray[],#size); //stores the array size in output var.
        //FOR(#i,0,%#size%);
        //LOG(%#i%);
        //LOG(%@&pnamearray[%#i%]%);
        //NEXT; // logs all elements - arraysize returns the size of an array
        ELSE;
            IFMATCHES(%CHATCLEAN%,"\B\([0-9]*\shomes\snearby\)",&test,1);
                    LOG(matched homes nearby);
                    EXEC(wholivespnamearray.txt);
            ENDIF;
        ENDIF;
ENDIF;




//ABOVE*******************************************************************
//************************************************************************
//TEMPORARY TESTING, TEMPORARY TESTING, TEMPORARY TESTING, TEMPORARY TESTING
//************************************************************************
//************************************************************************



//GOODNIGHT SECTION ****************** OLD version Verified works
IF(%TICKS% < 12000);
    IF(%TICKS% > 100);
        //LOG(DAYTIME);
        SET(@nightsaid,false);
    ENDIF;
ELSE;
    IF(%TICKS% > 12000);
        IF(@nightsaid, true);
            LOG(goodnight has been said);
                IF(%TICKS% > 100);
                LOG(DAYTIME);
                SET(@nightsaid,false);
                ENDIF;
            //do night stufff
        ELSE;
            IFMATCHES(%CHAT%,(\b.*says\sgoodnight.*.),);
            //ORIGNAL://IFMATCHES(%CHAT%,(\b.*says\sgoodnight\..*.),);
                ECHO(/time day);
                ECHO(/me "Let There Be LIGHT!");
                    //ECHO(/me "No LIght for you.");
                //LOG(./goodnight or ./settime day);
                SET(@nightsaid);
            ENDIF;
        ENDIF;
    ELSE;
    ENDIF;
ENDIF;
//GOODNIGHT SECTION ****************** OLD version Verified works




//CEIL COMMAND SECTION ****************** -WORKS
IFMATCHES(%CHATCLEAN%,"^No\sfree\sspot\sabove\syou\sfound\.\s$");
    SET(@&noceiling,1);
ENDIF;
//CEIL COMMAND SECTION ****************** -WORKS

//First JOIN ****************** -Works
IFMATCHES(%CHATCLEAN%,"\bPlayer\s([a-z0-9_]{2,16})\sis\sconnecting\sfor\sthe\sfirst\stime\.",&playertwo,1);
    //ECHO("%&playertwo%, Welcome to Freedonia! Please READ and FOLLOW the rules of our server");
ENDIF;
//First JOIN ****************** -Works

//Player Left ****************** -Works
IFMATCHES(%CHATCLEAN%,"([a-z0-9_]{2,16}) left the game",&playerleft,1);
    //LOG("RIP %&playerleft%");
    //ECHO("RIP %&playerleft%");
ENDIF;
//Player Left ****************** -Works

//Player Joined ****************** -Works
IFMATCHES(%CHATCLEAN%,"([a-z0-9_]{2,16}) joined the game",&playerjoined,1);
    //LOG("Hi, %&playerjoined%");
    //ECHO("Hi, %&playerjoined%");
    //ECHO(/goodrep %&playerjoined%);
ENDIF;
//Player Joined ****************** -Works



//HOURLY Item Handout Announcer****************** - Works!
IFMATCHES(%CHATCLEAN%,"^\bEnjoy\syour\s(.{2,16})\!",&hourlyitem,1);
        ECHO(/me got a %&hourlyitem%!);
ENDIF;
//HOURLY Item Handout Announcer****************** - Works!




        //ECHO(/god on);
//GOD ON ALWAYS Section******************
IF(@godalways = 1);
    IFMATCHES(%CHAT%,(\b.*You\sare\sno\slonger\sinvulnerable*.),);
        ECHO(/god on);
    ENDIF;

    IF(@healfeed = 1);
        IF(%HEALTH% < 20);
            SET(@healfeed,0);
            ECHO(/heal);
        ENDIF;

        IF(%HUNGER% < 20);
            SET(@healfeed,0);
            ECHO(/feed);
        ENDIF;

        WAIT(200t);
        LOG(god on, and waiting);
        SET(@healfeed,1);
    ENDIF;
ELSEIF(@godalways = 0);
    IF(@healfeed = 1);
        IF(%HEALTH% < 20);
            SET(@healfeed,0);
            ECHO(/heal);
            WAIT(200t);
        ENDIF;

        IF(%HUNGER% < 20);
            SET(@healfeed,0);
            ECHO(/feed);
            WAIT(200t);
        ENDIF;


        //LOG(God off, and waiting);
        SET(@healfeed,1);
    ENDIF;
ENDIF;
//GOD ON ALWAYS Section******************

//DEATH WARP XYZ ****************** works
IFMATCHES(%CHATCLEAN%,"^Coords\:\s[-?0-9]*\s[-?0-9]*\s[-?0-9]*\sin\sthe\s(Nether|Normal|End)\sworld$",&deathcoordsworld,1);
    LOG(World=%&deathcoordsworld%);
    IFMATCHES(%CHATCLEAN%,"(([-?0-9]+)\s([-?0-9]+)\s([-?0-9]+))",&deathcoordsxyz,1);
        SPLIT(" ",%&deathcoordsxyz%,&deathcoordsmatrix[]);
        LOG(XYZ:%&deathcoordsmatrix[0]% %&deathcoordsmatrix[1]% %&deathcoordsmatrix[2]%);
    ENDIF;
    IF(((%&deathcoordsmatrix[1]% >= 123) || (%&deathcoordsmatrix[1]% <= 6)) && (%&deathcoordsworld% = "nether"));//to prevent trying to warp to the roof of nether. which we cant do.
        SET(&deathcoordsmatrix[1],121); //50 is like middle of nether
        LOG(ALL conditons met);
    ENDIF;
    IF(%@&deathcoordsflag%=1);
        LOG(/tpto %&deathcoordsmatrix[0]% %&deathcoordsmatrix[1]% %&deathcoordsmatrix[2]% %&deathcoordsworld%);
        ECHO(/tpto %&deathcoordsmatrix[0]% %&deathcoordsmatrix[1]% %&deathcoordsmatrix[2]% %&deathcoordsworld%);
        ECHO(/god on);
        UNSET(@&deathcoordsflag);
    ENDIF;
ENDIF;
//DEATH WARP XYZ ****************** works
STOP;
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
//\/\/\/\/\/\/\/\/\/\/\/\/\/\/
STOP;
//GOODNIGHT SECTION ****************** NEW2 version
IF(%TICKS% < 12000);
    IF(%TICKS% > 100);
        //LOG(DAYTIME);
        SET(@nightsaid,false);
    ENDIF;
ELSE;
    IF(%TICKS% > 12000); //IF Ticks is Greater than 12000, then it is NIGHT.
        IF(@nightsaid, true);
            LOG(goodnight has been said);
            IF(%TICKS% > 100);
                LOG(DAYTIME);
                SET(@nightsaid,false);
            ENDIF;

        ELSE; //do night stuff
            IF(@dayalways = 0); //Day Always OFF, Goodnight Enabled

                IFMATCHES(%CHAT%,(\b.*says\sgoodnight.*.),);
                    ECHO(/time day);
                    //LOG(./goodnight or ./settime day);
                    SET(@nightsaid);
                ENDIF;
            ELSEIF(@dayalways = 1); //Day Always ON, Goodnight Disabled
                ECHO(/time day);
                LOG(DAY ALWAYS Set day /settime day);
                SET(@nightsaid);
                WAIT(1000t);
            ENDIF;
        ENDIF;
    ELSE;
        //nothing here
    ENDIF;
ENDIF;
//GOODNIGHT SECTION ****************** NEW2 Version
STOP


stop
//GOODNIGHT SECTION ****************** NEW2 version
IF(%TICKS% < 12000);
    IF(%TICKS% > 100);
        //LOG(DAYTIME);
        SET(@nightsaid,false);
    ENDIF;
ELSE;
    IF(%TICKS% > 12000); //IF Ticks is Greater than 12000, then it is NIGHT.
        IF(@nightsaid, true);
            LOG(goodnight has been said);
            IF(%TICKS% > 100);
                LOG(DAYTIME);
                SET(@nightsaid,false);
            ENDIF;

        ELSE; //do night stuff
            IF(@dayalways = 0); //Day Always OFF, Goodnight Enabled

                IFMATCHES(%CHAT%,(\b.*says\sgoodnight.*.),);
                    ECHO(/time day);
                    //LOG(./goodnight or ./settime day);
                    SET(@nightsaid);
                ENDIF;
            ELSEIF(@dayalways = 1); //Day Always ON, Goodnight Disabled
                ECHO(/time day);
                LOG(DAY ALWAYS Set day /settime day);
                SET(@nightsaid);
                WAIT(1000t);
            ENDIF;
        ENDIF;
    ELSE;
        //nothing here
    ENDIF;
ENDIF;
//GOODNIGHT SECTION ****************** NEW2 Version



stop
//GOODNIGHT SECTION ****************** New verison. not yet verified
IF((%TICKS% < 12000) && (%TICKS% > 100));  //Check for Daytime
    //LOG(DAYTIME);
    SET(@nightsaid,false);  //Unset goodnight flag
ELSE;  //IF its nighttime do this.
    IF(%TICKS% > 12000); //Checkto be sure its night.
        IF(@nightsaid, true); //Goonight has been said, do nothing.
            //LOG(goodnight has been said);
            IF(%TICKS% > 100); //Goodnight has been said, but day happend. set goodnight flag.
                LOG(DAYTIME);
                SET(@nightsaid,false);
            ENDIF;
        ELSE;
            //For Day Always Script
            IF(@dayalways = 1);
                LOG(Setting Day, /time day);
                EXEC(TimeDayAlwaysLabelON.txt);
                ECHO(/time day);
                SET(@nightsaid)
            ELSEIF(@dayalways = 0);
                EXEC(TimeDayAlwaysLabelOFF.txt);
            ENDIF;
            //For Goodnight Script
            IFMATCHES(%CHAT%,(\b.*says\sgoodnight.*.),);
                ECHO(/time day);
                //LOG(./goodnight or ./settime day);
                SET(@nightsaid);
            ENDIF;
        ENDIF;
    ELSE;
    ENDIF;
ENDIF;
//GOODNIGHT SECTION ******************


STOP


//GOODNIGHT SECTION ****************** OLD version Verified works
IF(%TICKS% < 12000);
    IF(%TICKS% > 100);
        //LOG(DAYTIME);
        SET(@nightsaid,false);
    ENDIF;
ELSE;
    IF(%TICKS% > 12000);
        IF(@nightsaid, true);
            LOG(goodnight has been said);
                IF(%TICKS% > 100);
                LOG(DAYTIME);
                SET(@nightsaid,false);
                ENDIF;
            //do night stufff
        ELSE;
            IFMATCHES(%CHAT%,(\b.*says\sgoodnight.*.),);
            //ORIGNAL://IFMATCHES(%CHAT%,(\b.*says\sgoodnight\..*.),);
                ECHO(/time day);
                //LOG(./goodnight or ./settime day);
                SET(@nightsaid);
            ENDIF;
        ENDIF;
    ELSE;
    ENDIF;
ENDIF;
//GOODNIGHT SECTION ****************** OLD version Verified works

STOP;