pastebin - collaborative debugging tool
kpaste.net RSS


agit_controller.txt
Posted by Anonymous on Tue 29th Mar 2011 19:27
raw | new post
view followups (newest first): agit_controller.txt by Anonymous

  1. //======================================================================================================
  2. //= Toasty's WoE Controller (formerly WoE Info Banner)
  3. //===== By: ============================================================================================
  4. //= ToastOfDoom (aka: iHeart)
  5. //===== Current Version: ===============================================================================
  6. //= 1.20
  7. //===== Description: ===================================================================================
  8. //= A WoE Controller function which controls castle based WoE by utilising npc events.
  9. //= Includes a NPC that provides information on the next WoE session
  10. //=
  11. //= This script is kinda @reloadscript/@loadnpc safe, provided that someone clicks the NPCs afterwards
  12. //= to start the OnInit function. That said..it is recommended that you don't use @reloadscript/@loadnpc
  13. //= but reset your server.
  14. //===== Changelog: =====================================================================================
  15. //= 1.20
  16. //= - Project renamed to 'Toasty's WoE Controller'. The script originally was only used to display WoE
  17. //=   times then I 1st wrote it 3yrs ago and I feel it's purpose is more to control WoE these days. So
  18. //=   name change to better reflect purpose.
  19. //= - Added support for novice WoE. Region teleport goes to the Novice Warper NPC (default in prontera)
  20. //=   Change position in .region_maps, .region_x, .region_y if needed.
  21. //= - Region warp now only displays regions that have castles used at least once. (ie. If you don't
  22. //=   configure any castles for Payon region, payon will not show up)
  23. //= - Optimised WoE Active/Inactive map notifier. Old method used too many loops for something that
  24. //=   can happen alot.
  25. //= - Adjusted menus to be abit more friendly. 'next's will always display before 'menu's
  26. //= - Fixed bug with WoE autostarting when only configured for 2 sessions in one day
  27. //= - Added some nifty code that prevents catastrophic failure of the script if you try to run a trunk
  28. //=   version on a stable server (ie. if you do, it will show an error message, but script will still
  29. //=   run perfectly fine - check out WoEToggler function for those that want to peek at it =P)
  30. //= 1.11
  31. //= - Fixed timer glitch when players only configured sessions for one day of the week
  32. //= - Adjusted timer to show remaining time more accurately
  33. //= - Modified .num_woes calculation due to bug regarding 0's being counted as unset values in arrays
  34. //= 1.10
  35. //= - Expanded script to allow castle based configuration
  36. //= - Moved away from portal based woe control. Now using donpcevents to OnAgitEnd/2 events. Provided
  37. //=   castles are linked to the main agit commands in this manner, they will be controllable using this
  38. //=   script.
  39. //= - Added an onLoadMap WoE available notifier. Can be disabled by setting .notify_woe to 0 in the
  40. //=   CONFIG section.
  41. //= - Did some funky color coding.
  42. //= - Added Coordinate based warping per region (see .region_x & .region_y in the CONSTANTS section)
  43. //= 1.02
  44. //= - Added delwaitingroom to banner npc to prevent memory leaks from bug #2325
  45. //= - To reduce spamming of waitingroom packets to players banner NPC only now updates when the banner
  46. //=   text changes. Thus min time between updates is now 1sec regardless of setting.
  47. //= - Added setting for rate which banner time is updated (.banner_refresh_rate) in the CONFIG section.
  48. //= - Added agitstart2/end2 to provide WoE2 support (Hope it works
  49. //= 1.01
  50. //= - Hardcoded in refresh value for banner npc instead of getting it from config from WoEInfoBase. Had
  51. //=   issues starting the script after @reloadscript/@loadnpc
  52. //======================================================================================================
  53. -       script  WoEInfoBase     -1,{
  54.         function WarpRoutine;
  55.  
  56.         OnStart:
  57.                 if(.init == 0)
  58.                         donpcevent strnpcinfo(3)+"::OnInit";
  59.        
  60.         OnStart2:
  61.                 mes "The " + ((.state)?"^00DD00current":"^DD0000next") + "^000000 WoE session is: ";
  62.                 mes " ";
  63.                 mes "Day: ^0000DD" + .daysOfWeek$[.woe_day[.woe_index]];
  64.                 mes "^000000Start time: ^00DD00" + .woe_0_str$[.woe_index];
  65.                 mes "^000000End time: ^DD0000" + .woe_1_str$[.woe_index];
  66.                 mes "^000000Region:";
  67.  
  68.                 set .@state_strs$, ".woe_state_str_" + .woe_state[.woe_index] + "$";
  69.                 for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {
  70.                         set .@output$, getd(.@state_strs$ + "[" + .@i + "]");
  71.                         if(.@output$ != "")
  72.                                 mes "^000000- ^0000DD" + .@output$;
  73.                 }
  74.                 next;
  75.                
  76.                 if(getgmlevel() >= .gm_access)
  77.                         select(
  78.                                 "Warp to Castle Grounds",
  79.                                 "View Castle Owners",
  80.                                 "View all WoE times",
  81.                                 ((!.state)?"Start next WoE":"End current WoE"),
  82.                                 ((.state)?"":"Skip next WoE session")
  83.                                 );
  84.                 else
  85.                         select(
  86.                                 "Warp to Castle Grounds",
  87.                                 "View Castle Owners",
  88.                                 "View all WoE times");
  89.                        
  90.                 switch(@menu) {
  91.                         case 1:         //warp
  92.                                 mes "Which region would you like to warp to?";
  93.                                 next;
  94.                                 select(.region_warp$[.woe_state[.woe_index]]);
  95.                                 if(@menu < 1 || @menu > .num_regions)
  96.                                         close;
  97.                                                                
  98.                                 close2;
  99.                                 warp .region_maps$[@menu - 1], .region_x[@menu - 1], .region_y[@menu - 1];
  100.                                 end;
  101.                         case 2:         //view                 
  102.                                 set .@woe_state_array$, ".woe_state_" + .woe_state[.woe_index];
  103.                                 for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {
  104.                                         set .@k, 0;
  105.                                         set .@castles$, ".castles_" + .regions$[.@i] + "$";
  106.                                         set .@castle_check, getd(.@woe_state_array$ + "[" + .@i + "]");
  107.                                         while(.@castle_check && .@k < .num_castles[.@i]) {
  108.                                                 if(.@castle_check & (1 << .@k)) {
  109.                                                         set .@map$, getd(.@castles$+"["+.@k+"]");
  110.                                                         if (GetCastleData(.@map$,1)) {
  111.                                                                 dispbottom "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently held by the [" + GetGuildName(GetCastleData(.@map$,1)) + "] guild.";
  112.                                                         } else {
  113.                                                                 dispbottom "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently unoccupied.";
  114.                                                         }
  115.                                                         set .@castle_check, .@castle_check - (1 << .@k);
  116.                                                 }
  117.                                                 set .@k, .@k + 1;              
  118.                                         }
  119.                                 }
  120.                                 break;
  121.                         case 3:         //woe times
  122.                                 for(set .@i, 0; .@i < .num_woes; set .@i, .@i + 1) {                                                   
  123.                                         dispbottom "- " + .daysOfWeek$[.woe_day[.@i]] + " " + .woe_0_str$[.@i] + "-" + .woe_1_str$[.@i];
  124.                                         set .@woe_state_str_array$, ".woe_state_str_" + .woe_state[.@i] + "$";
  125.                                         for(set .@k, 0; .@k < .num_regions; set .@k, .@k + 1) {
  126.                                                 set .@output$, getd(.@woe_state_str_array$ + "[" + .@k + "]");
  127.                                                 if(.@output$ != "")
  128.                                                         dispbottom "        " + .@output$;
  129.                                         }
  130.                                 }
  131.                                 break;
  132.                         case 4:         //start next;
  133.                                 if(getgmlevel() <.gm_access) close;
  134.                                
  135.                                 mes "^FF0000Are you sure you want to " + ((!.state)?"start the next WoE session?":"end the current WoE session?");
  136.                                 next;
  137.                                 if(select("Yes:No") == 2) break;
  138.                                
  139.                                 set .remainTime, 0;     //might not work sometimes...you have like a 500ms window out of 505ms i guess..
  140.                                 sleep2 .timer_refresh_rate;     //wait abit so the menu doesn't screw up (how long it takes for the timer to update)
  141.                                 break;
  142.                         case 5:         //skip next;
  143.                                 if(getgmlevel() <.gm_access || .state) close;
  144.                                
  145.                                 mes "^FF0000Are you sure you want to skip the next WoE session^000000";
  146.                                 next;
  147.                                 if(select("Yes:No") == 2) break;
  148.                                 if(.state) {    //you really can't do this with woe active
  149.                                         next;
  150.                                         mes "Sorry, in the time you took making your decision, WoE started";
  151.                                         mes "Please either manually end it first or wait";
  152.                                         break;                 
  153.                                 }
  154.                                 set .woe_index, (.woe_index + 1) % .num_woes;
  155.                                 donpcevent strnpcinfo(3)+"::OnUpdateCountTick";
  156.                                 sleep2 .timer_refresh_rate;
  157.                                 break;
  158.                         default: close;        
  159.                 }
  160.                 goto OnStart2;
  161.        
  162.         OnInit:
  163.  
  164.                 //-----------------------------------------------------------------------------------------//
  165.                 //CONFIG START                                                                             //
  166.                 //-----------------------------------------------------------------------------------------//
  167.                
  168.                 set .gm_access, 60;
  169.                
  170.                 //WoE timings needs to be ordered ascendingly unless you want to do weird
  171.                 //stuff like skip a region every other week or so...
  172.                 //Also times can't overlap. Uses second of day(gettimetick(1)) for timing
  173.                 // eg 1am -> 3600, 2:30pm -> 52200, midnight -> 86400 (anything past that doesn't work)
  174.                 //Note: woe_0 is start times, woe_1 is end times. Ignore how it's called but
  175.                 //               don't change it either since it's dynamically used
  176.                 //               Also..woe has to end on the same day it starts (it's easier that way..)
  177.                 setarray .woe_day[0],   0,    2,    4,    6;
  178.                 setarray .woe_0[0],     68400,68400,68400,68400;
  179.                 setarray .woe_1[0],     75600,75600,75600,75600;
  180.                 setarray .woe_state[0], 0,    1,    2,    3;
  181.                
  182.                 //WoE state settings. Every WoE session can be defined as a particular state of castle configuration.
  183.                 //.woe_state_#[%] = $
  184.                 // # - state number
  185.                 // % - region number
  186.                 // $ - binary representation of castles that are active for that region in that state (
  187.                 //     (ie. 0 is no castles, 5 is castle 0 and 2  (2^0 + 2^2 = 5))
  188.                 setarray .woe_state_0[0],1,0,0,0,0,0,0;
  189.                 setarray .woe_state_1[0],0,0,2,0,0,0,0;
  190.                 setarray .woe_state_2[0],0,16,0,0,0,0,0;
  191.                 setarray .woe_state_3[0],0,0,0,2,0,0,0;
  192.                
  193.                 //Setting for if script handles WoE controller function. Disable agit_controller.txt if you are using this.
  194.                 //For if you want to use something else to handle your woe stuff but only this script
  195.                 //to show info (1 - on, 0 - off...duh)
  196.                 set .active_woe, 1;
  197.                
  198.                
  199.                 //WoE inactive on map notifier. Basically notifies player if the castle they are entering is
  200.                 //WoE active or not
  201.                 set .notify_woe, 1;
  202.                
  203.                 //-----------------------------------------------------------------------------------------//
  204.                 //CONFIG END                                                                               //
  205.                 //-----------------------------------------------------------------------------------------//
  206.                
  207.                
  208.                 //-----------------------------------------------------------------------------------------//
  209.                 //CONSTANTS START - Don't touch this unless you know what you are doing                    //
  210.                 //-----------------------------------------------------------------------------------------//
  211.                
  212.                 //castle maps by region
  213.                 setarray .castles_prtg$[0],"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05";
  214.                 setarray .castles_payg$[0],"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05";
  215.                 setarray .castles_gefg$[0],"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05";
  216.                 setarray .castles_aldeg$[0],"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05";
  217.                 setarray .castles_arug$[0],"arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05";
  218.                 setarray .castles_schg$[0],"schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05";
  219.                 setarray .castles_novi$[0],"nguild_alde","nguild_gef","nguild_pay","nguild_prt";
  220.                
  221.                 //woe kill functions for each castle
  222.                 setarray .woe_kill_prtg$[0],"Agit#prtg_cas01::OnAgitEnd","Agit#prtg_cas02::OnAgitEnd","Agit#prtg_cas03::OnAgitEnd","Agit#prtg_cas04::OnAgitEnd","Agit#prtg_cas05::OnAgitEnd";
  223.                 setarray .woe_kill_payg$[0],"Agit#payg_cas01::OnAgitEnd","Agit#payg_cas02::OnAgitEnd","Agit#payg_cas03::OnAgitEnd","Agit#payg_cas04::OnAgitEnd","Agit#payg_cas05::OnAgitEnd";
  224.                 setarray .woe_kill_gefg$[0],"Agit#gefg_cas01::OnAgitEnd","Agit#gefg_cas02::OnAgitEnd","Agit#gefg_cas03::OnAgitEnd","Agit#gefg_cas04::OnAgitEnd","Agit#gefg_cas05::OnAgitEnd";
  225.                 setarray .woe_kill_aldeg$[0],"Agit#aldeg_cas01::OnAgitEnd","Agit#aldeg_cas02::OnAgitEnd","Agit#aldeg_cas03::OnAgitEnd","Agit#aldeg_cas04::OnAgitEnd","Agit#aldeg_cas05::OnAgitEnd";
  226.                 setarray .woe_kill_arug$[0],"Manager#aru01_02::OnAgitEnd","Manager#aru02_02::OnAgitEnd","Manager#aru03_02::OnAgitEnd","Manager#aru04_02::OnAgitEnd","Manager#aru05_02::OnAgitEnd";
  227.                 setarray .woe_kill_schg$[0],"Manager#sch01_02::OnAgitEnd","Manager#sch02_02::OnAgitEnd","Manager#sch03_02::OnAgitEnd","Manager#sch04_02::OnAgitEnd","Manager#sch05_02::OnAgitEnd";
  228.                         setarray .woe_kill_novi$[0],"Agit_N01::OnAgitEnd","Agit_N02::OnAgitEnd","Agit_N03::OnAgitEnd","Agit_N04::OnAgitEnd";
  229.                
  230.                 //region prefixs
  231.                 setarray .regions$[0],"prtg","payg","gefg","aldeg","arug","schg","novi";
  232.                
  233.                 //region info
  234.                 setarray .region_names$[0],"Prontera", "Payon", "Geffen", "Aldebaran", "Arunafeltz", "Schwarzwald", "Novice Castles";
  235.                 setarray .region_maps$[0],"prt_gld", "pay_gld", "gef_fild13", "alde_gld", "aru_gld", "sch_gld", "prontera";
  236.                 //coords to warp player to region (0 is random)
  237.                 setarray .region_x[0],0, 0, 0, 0, 0, 0, 148;
  238.                 setarray .region_y[0],0, 0, 0, 0, 0, 0, 163;
  239.  
  240.                 setarray .waitMsg$[0], "WoE Starts: ", "WoE Ends: ";
  241.                 setarray .startMsg$[0], "WoE is Starting", "WoE is Ending";
  242.        
  243.                 set .ticks_in_day, 86400;       //mmm...magic numbers
  244.                 setarray .daysOfWeek$[0], "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday";
  245.  
  246.                 set .timer_refresh_rate, 500;   //how many ms per timer refresh...keep less than 1000 (in milliseconds)
  247.                 set .change_state_sleep, 3000;  //how long to show "WoE is Start|End-ing" msg for in ms. (in milliseconds)
  248.                                                                                 //Make sure WoE sessions are longer than this xD
  249.                 set .banner_refresh_rate, 10;   //how many seconds per banner refresh...keep 1 or above (in seconds)
  250.                
  251.                 //-----------------------------------------------------------------------------------------//
  252.                 //CONSTANTS END                                                                            //
  253.                 //-----------------------------------------------------------------------------------------//
  254.  
  255.                 set .num_regions, getarraysize(.regions$);
  256.                 set .num_woes, getarraysize(.woe_1);
  257.                
  258.                 for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {
  259.                         //count num castles per region
  260.                         set .num_castles[.@i], getarraysize(getd(".castles_" + .regions$[.@i] + "$"));
  261.                 }
  262.                
  263.                 //convert timestamps to readable format
  264.                 for(set .@i, 0; .@i < .num_woes; set .@i, .@i + 1)
  265.                 {
  266.                         set .@hrs, .woe_0[.@i] / 3600;
  267.                         set .@mins, .woe_0[.@i] % 3600 / 60;
  268.                         set .@output$, ((.@hrs % 12)?.@hrs%12:12) + ":" + ((.@mins < 10)?"0"+.@mins:.@mins) + " " + ((.@hrs > 12)?"PM":"AM");  
  269.                        
  270.                         set .woe_0_str$[.@i], .@output$;               
  271.                        
  272.                         set .@hrs, .woe_1[.@i] / 3600;
  273.                         set .@mins, .woe_1[.@i] % 3600 / 60;
  274.                         set .@output$, ((.@hrs % 12)?.@hrs%12:12) + ":" + ((.@mins < 10)?"0"+.@mins:.@mins) + " " + ((.@hrs > 12)?"PM":"AM");  
  275.                        
  276.                         set .woe_1_str$[.@i], .@output$;               
  277.                 }
  278.                
  279.                 //calc number of woe states and consolidate states to create list of castles used
  280.                 set .num_states, 0;
  281.                 while(getarraysize(getd(".woe_state_" + (.num_states)))) {
  282.                         set .@state$, ".woe_state_" + .num_states;
  283.                         set .@i, 0;
  284.                         while(.@i < getarraysize(getd(.@state$))) {
  285.                                 set .castleUsage[.@i], .castleUsage[.@i] | getd(.@state$ + "[" + .@i + "]");
  286.                                 set .@i, .@i + 1;
  287.                         }
  288.                         set .num_states, .num_states + 1;                      
  289.                 }
  290.  
  291.                 for(set .@i, 0; .@i < .num_states; set .@i, .@i + 1) {                                                 
  292.                         set .@woe_state_array$, ".woe_state_" + .@i;
  293.                         for(set .@k, 0; .@k < .num_regions; set .@k, .@k + 1) {
  294.                                 if(.castleUsage[.@k] > 0) {
  295.                                         set .@castles$, ".castles_" + .regions$[.@k] + "$";
  296.                                         set .@castle_check, getd(.@woe_state_array$ + "[" + .@k + "]");
  297.                                         if(.@castle_check == 0) { //region not in this state
  298.                                                 //region warp menu string
  299.                                                 set .region_warp$[.@i], .region_warp$[.@i] + "^DD0000" + .region_names$[.@k] + "^000000:";
  300.                                                 continue;
  301.                                         } else {
  302.                                                 if(.@castle_check >= ((1 << .num_castles[.@k]) - 1)) {
  303.                                                         //includes all castles...just list as region.
  304.                                                         setd(".woe_state_str_" + .@i + "$[" + .@k + "]", .region_names$[.@k]);
  305.                                                        
  306.                                                         //region warp menu string
  307.                                                         set .region_warp$[.@i], .region_warp$[.@i] + "^00DD00" + .region_names$[.@k] + "^000000:";
  308.                                                 } else {
  309.                                                         set .@j, 0;
  310.                                                         set .@output$, "";
  311.                                                         while(.@j < .num_castles[.@k]) {
  312.                                                                 if(.@castle_check & (1 << .@j)) {
  313.                                                                         set .@output$, .@output$ + GetCastleName(getd(.@castles$+"["+.@j+"]"));
  314.                                                                         set .@castle_check, .@castle_check - (1 << .@j);
  315.                                                                         if(.@castle_check) {
  316.                                                                                 if(.@output$ != "")
  317.                                                                                 set .@output$, .@output$ + ", ";
  318.                                                                         } else
  319.                                                                                 break;
  320.                                                                 }
  321.                                                                 set .@j, .@j + 1;
  322.                                                         }
  323.                                                         setd(".woe_state_str_" + .@i + "$[" + .@k + "]", .region_names$[.@k] + " ("+  .@output$ + ")");
  324.                                                        
  325.                                                         //region warp menu string
  326.                                                         set .region_warp$[.@i], .region_warp$[.@i] + "^00DD00" + .region_names$[.@k] + " ("+  .@output$ + ")^000000:";
  327.                                                 }
  328.                                         }
  329.                                 } else {
  330.                                         set .region_warp$[.@i], .region_warp$[.@i] + ":";
  331.                                 }
  332.                         }
  333.                 }
  334.                
  335.                 donpcevent strnpcinfo(3)+"::OnFindCurIndex";
  336.                 donpcevent strnpcinfo(3)+"::OnUpdateCountTick";
  337.                        
  338.                 if(.active_woe) {
  339.                         if(.notify_woe) {
  340.                                 //set mapflag for all castle maps
  341.                                 for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {
  342.                                         set .@region_array$, ".castles_" + .regions$[.@i] + "$";
  343.                                         for(set .@k, 0; .@k < .num_castles[.@i]; set .@k, .@k + 1) {
  344.                                                 setmapflag getd(.@region_array$ + "[" + .@k + "]"), mf_loadevent;
  345.                                                 setd(".loadmap_region_" + getd(.@region_array$ + "[" + .@k + "]"), .@i + 1);
  346.                                                 setd(".loadmap_castleIndex_" + getd(.@region_array$ + "[" + .@k + "]"), .@k);
  347.                                         }
  348.                                 }
  349.                         }
  350.                         //activates WoE if needed
  351.                         donpcevent strnpcinfo(3)+"::OnDoWoE";
  352.                 }
  353.                 //flag that init occured
  354.                 set .init, 1;
  355.        
  356.         OnWoETimer:
  357.                 //timer stuff
  358.                 while (1) {
  359.                         set .remainTime, .count_tick - gettimetick(2);
  360.                         set .bannerTimer, .remainTime - (.remainTime % .banner_refresh_rate) + .banner_refresh_rate;
  361.                         set .min, .bannerTimer / 60;
  362.                         set .sec, .bannerTimer - .min * 60;
  363.                         set .hr, .min / 60;
  364.                         set .min, .min - .hr * 60;
  365.                         set .roomMsg$, .waitMsg$[.state] + .hr + ":" + ((.min < 10 )?"0":"") + .min + ":" + ((.sec < 10 )?"0":"") + .sec;
  366.                         sleep .timer_refresh_rate;
  367.                        
  368.                         if(.remainTime <= 0) {
  369.                                 if(.active_woe) {
  370.                                         donpcevent strnpcinfo(3)+"::OnDoWoE";
  371.                                         }
  372.                                 set .roomMsg$, .startMsg$[.state];
  373.                                
  374.                                 set .woe_index, (.woe_index + .state) % .num_woes;      //go to next index if needed
  375.                                 set .state, (.state + 1) % 2;                                           //flip state
  376.  
  377.                                 donpcevent strnpcinfo(3)+"::OnUpdateCountTick";
  378.                                 sleep .change_state_sleep;
  379.                         }
  380.                 }
  381.                 end;    //obligatory end =D            
  382.  
  383.         OnUpdateCountTick:
  384.                 set .count_tick, getd(".woe_" + .state + "[" + .woe_index + "]");
  385.                 set .count_tick, gettimetick(2) + .count_tick - gettimetick(1) + (.woe_day[.woe_index] - gettime(4) + 7) % 7 * .ticks_in_day;
  386.  
  387.                 if(gettimetick(2) > .count_tick)
  388.                         set .count_tick, .count_tick + 7 * .ticks_in_day;
  389.                 end;
  390.        
  391.         OnFindCurIndex:
  392.        
  393.                 set .@cur_day, gettime(4);             
  394.                 set .@cur_tick, gettimetick(1);
  395.                
  396.                 set .woe_index, 0;
  397.                 set .state, 0;
  398.  
  399.                 for(set .@i, 0; .@i < .num_woes; set .@i, .@i + 1) {
  400.                         if(.woe_day[.@i] < .@cur_day)
  401.                                 continue;
  402.                
  403.                         if(.woe_day[.@i] == .@cur_day) {
  404.                                 if(.woe_0[.@i] >= .@cur_tick) {
  405.                                         set .woe_index, .@i;
  406.                                         set .state, 0;
  407.                                         break;
  408.                                 }
  409.                                 if(.woe_1[.@i] >= .@cur_tick) {
  410.                                         set .woe_index, .@i;
  411.                                         set .state, 1;
  412.                                         break;
  413.                                 }
  414.                         }
  415.                         if(.woe_day[.@i] > .@cur_day) {
  416.                                 set .woe_index, .@i;
  417.                                 set .state, 0;
  418.                                 break;
  419.                         }              
  420.                 }
  421.                 end;
  422.                        
  423.         //On map notifier
  424.         //Comment out OnPCLoadMapEvent label if .notify_woe is disabled to prevent unnecessary triggering
  425.         OnPCLoadMapEvent:
  426.                 if(.state && .notify_woe) {
  427.                         getmapxy(.@map$, .@x, .@y, 0);
  428.                         set .@region, getd(".loadmap_region_" + .@map$) - 1;
  429.                         if(.@region >= 0) {
  430.                                 set .@castleIndex, getd(".loadmap_castleIndex_" + .@map$);
  431.                                 if(getd(".woe_state_" + .woe_state[.woe_index] + "[" + .@region + "]") & 1 << .@castleIndex)
  432.                                         dispbottom "The [" + GetCastleName(.@map$) + "] castle is available for conquering during this WoE session";
  433.                                 else
  434.                                         dispbottom "The [" + GetCastleName(.@map$) + "] castle is NOT available for conquering during this WoE session";
  435.                         }
  436.                 }
  437.                 end;
  438.                
  439.         //------------------------------------------------------------------------------
  440.         // WoE Controller Stuff Here
  441.         //------------------------------------------------------------------------------
  442.                
  443.         OnDoWoE:       
  444.                 if((.state == 0 && .init) || (.state == 1 && !agitcheck())) {   //starting
  445.                         callfunc "WoEToggler", 1;      
  446.                        
  447.                         //kills WoE in all castles that shouldn't have WoE
  448.                         set .@woe_state_array$, ".woe_state_" + .woe_state[.woe_index];
  449.                         for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {
  450.                                 set .@castles$, ".castles_" + .regions$[.@i] + "$";
  451.                                 set .@castle_check, getd(.@woe_state_array$ + "[" + .@i + "]");
  452.                                
  453.                                 for(set .@k, 0; .@k < .num_castles[.@i]; set .@k, .@k + 1) {
  454.                                         set .@map$, getd(.@castles$+"["+.@k+"]");
  455.                                         if((.@castle_check & (1 << .@k)) == 0) {
  456.                                                 donpcevent getd(".woe_kill_" + .regions$[.@i] + "$[" + .@k + "]");
  457.                                         }
  458.                                 }
  459.                         }
  460.  
  461.                         announce "The War Of Emperium has begun!",bc_all;
  462.                         donpcevent strnpcinfo(3)+"::OnDisplayOwners";
  463.                 } else {                        //ending
  464.                         if(agitcheck()) {
  465.                                 callfunc "WoEToggler", 0;
  466.                                 announce "The War Of Emperium is over!",bc_all;
  467.                                 donpcevent strnpcinfo(3)+"::OnDisplayOwners";
  468.                         }
  469.                 }
  470.                 end;
  471.                
  472.         OnDisplayOwners:        //displays based on current region
  473.                 set .@woe_state_array$, ".woe_state_" + .woe_state[.woe_index];
  474.                 for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {
  475.                         set .@k, 0;
  476.                        
  477.                         set .@castle_check, getd(.@woe_state_array$ + "[" + .@i + "]");
  478.                         set .@castles$, ".castles_" + .regions$[.@i] + "$";
  479.                        
  480.                         while(.@castle_check && .@k < .num_castles[.@]) {
  481.                                 if(.@castle_check & (1 << .@k)) {
  482.                                         set .@map$, getd(.@castles$+"["+.@k+"]");
  483.                                         if (GetCastleData(.@map$,1)) {
  484.                                                 announce "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently held by the [" + GetGuildName(GetCastleData(.@map$,1)) + "] guild.",bc_all;
  485.                                         } else {
  486.                                                 announce "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently unoccupied.",bc_all;
  487.                                         }
  488.                                         set .@castle_check, .@castle_check - (1 << .@k);
  489.                                 }                              
  490.                                 set .@k, .@k + 1;              
  491.                         }
  492.                 }
  493.                 end;
  494. }
  495. //----------------------
  496. prontera,163,194,4      script  WoE Info        837,{
  497.         if(getwaitingroomstate(3, strnpcinfo(3)) == -1)
  498.                 donpcevent strnpcinfo(3)+"::OnInit";
  499.  
  500.         doevent "WoEInfoBase::OnStart";
  501.         end;
  502.        
  503.         OnInit:
  504.                 while (1) {
  505.                         //only updates if msg is different
  506.                         set .banner$, getwaitingroomstate(4, strnpcinfo(3));
  507.                         if(getvariableofnpc(.roomMsg$, "WoEInfoBase") != .banner$) {
  508.                                 delwaitingroom;
  509.                                 waitingroom getvariableofnpc(.roomMsg$, "WoEInfoBase"), 0;
  510.                         }
  511.                         sleep 500;
  512.                 }
  513.                 end;
  514. }
  515.  
  516. //zomg! it duplicates!!
  517. prontera,156,196,6      duplicate(WoE Info)     WoE Info#2winfo 837
  518.  
  519. //---------------------------------------------------------------------------------------------------------------------
  520.  
  521.  
  522. function        script  WoEToggler      { //<state> = 0|1
  523.         if(getarg(0)) {
  524.                 AgitStart;     
  525.         } else {
  526.                 AgitEnd;
  527.         }
  528.         return;
  529. }
  530. }

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with {%HIGHLIGHT}




All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at