viewing paste Unknown #17869 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
-   script  Agit_Event  -1,{
    end;
 
OnClock2100:    //start time for Tues(2), Thurs(4)
OnClock2230:    //end time for Tues(2), Thurs(4)
//OnClock1600:  //start time for Sat(6)
//OnClock1800:  //end time for Sat(6)
 
OnAgitInit:
    // starting time checks
    if((gettime(4)==3) && (gettime(3)==21 && gettime(2)==00) )
        {
        if (!agitcheck()) {
            agitstart;
            callsub S_DisplayOwners;
setmapflag  "alde_gld", mf_bg_consume;
setmapflag  "alde_gld", bg_consume;
setmapflag  "aldeg_cas02",  mf_bg_consume;
        }
        end;
    }
    // end time checks
    if ((gettime(4)==3) && (gettime(3)==22 && gettime(2)==30) )
    {
        if (agitcheck()) {
            agitend;
            callsub S_DisplayOwners;
removemapflag   "alde_gld", mf_bg_consume;
removemapflag   "alde_gld", bg_consume;
removemapflag   "aldeg_cas02",  mf_bg_consume;
        }
        end;
    }
    end;
 
S_DisplayOwners:
    setarray .@maps$[0],"aldeg_cas02";
//  setarray .@maps$[0],"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05";
//  setarray .@maps$[5],"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05";
//  setarray .@maps$[10],"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05";
//  setarray .@maps$[15],"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05";
    for (.@i = 0; .@i <= 19; ++.@i) {
        if (getcastledata(.@maps$[.@i],1))
            announce "The [" + getcastlename(.@maps$[.@i]) + "] castle has been conquered by the [" + getguildname(getcastledata(.@maps$[.@i],1)) + "] guild.",bc_all|bc_woe;
        else
            announce "The [" + getcastlename(.@maps$[.@i]) + "] castle is currently unoccupied.",bc_all|bc_woe;
    }
    end;
}
Viewed 1162 times, submitted by milk.