pastebin - collaborative debugging tool
kpaste.net RSS

Difference between
modified post 77d799e0a5 by Anonymous on Tue 29th Mar 2011 19:28
original post 189497c1 by Anonymous on Tue 29th Mar 2011 19:27
Download diff
Show old version | new version | both versions

    
11
//======================================================================================================
22
//= Toasty's WoE Controller (formerly WoE Info Banner)
33
//===== By: ============================================================================================
44
//= ToastOfDoom (aka: iHeart)
55
//===== Current Version: ===============================================================================
6-
//= 1.20
6+
//= 1.21
77
//===== Description: ===================================================================================
88
//= A WoE Controller function which controls castle based WoE by utilising npc events.
99
//= Includes a NPC that provides information on the next WoE session
1010
//=
1111
//= This script is kinda @reloadscript/@loadnpc safe, provided that someone clicks the NPCs afterwards
1212
//= to start the OnInit function. That said..it is recommended that you don't use @reloadscript/@loadnpc
1313
//= but reset your server.
1414
//===== Changelog: =====================================================================================
15+
//= 1.21
1517
//= 1.20
1618
//= - Project renamed to 'Toasty's WoE Controller'. The script originally was only used to display WoE
1719
//=   times then I 1st wrote it 3yrs ago and I feel it's purpose is more to control WoE these days. So
1820
//=   name change to better reflect purpose.
1921
//= - Added support for novice WoE. Region teleport goes to the Novice Warper NPC (default in prontera)
2022
//=   Change position in .region_maps, .region_x, .region_y if needed.
2123
//= - Region warp now only displays regions that have castles used at least once. (ie. If you don't
2224
//=   configure any castles for Payon region, payon will not show up)
2325
//= - Optimised WoE Active/Inactive map notifier. Old method used too many loops for something that
2426
//=   can happen alot.
2527
//= - Adjusted menus to be abit more friendly. 'next's will always display before 'menu's
2628
//= - Fixed bug with WoE autostarting when only configured for 2 sessions in one day
2729
//= - Added some nifty code that prevents catastrophic failure of the script if you try to run a trunk
2830
//=   version on a stable server (ie. if you do, it will show an error message, but script will still
2931
//=   run perfectly fine - check out WoEToggler function for those that want to peek at it =P)
3032
//= 1.11
3133
//= - Fixed timer glitch when players only configured sessions for one day of the week
3234
//= - Adjusted timer to show remaining time more accurately
3335
//= - Modified .num_woes calculation due to bug regarding 0's being counted as unset values in arrays
3436
//= 1.10
3537
//= - Expanded script to allow castle based configuration
3638
//= - Moved away from portal based woe control. Now using donpcevents to OnAgitEnd/2 events. Provided
3739
//=   castles are linked to the main agit commands in this manner, they will be controllable using this
3840
//=   script.
3941
//= - Added an onLoadMap WoE available notifier. Can be disabled by setting .notify_woe to 0 in the
4042
//=   CONFIG section.
4143
//= - Did some funky color coding.
4244
//= - Added Coordinate based warping per region (see .region_x & .region_y in the CONSTANTS section)
4345
//= 1.02
4446
//= - Added delwaitingroom to banner npc to prevent memory leaks from bug #2325
4547
//= - To reduce spamming of waitingroom packets to players banner NPC only now updates when the banner
4648
//=   text changes. Thus min time between updates is now 1sec regardless of setting.
4749
//= - 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
50+
//= - Added agitstart2/end2 to provide WoE2 support (Hope it works ^_^;)
4951
//= 1.01
5052
//= - Hardcoded in refresh value for banner npc instead of getting it from config from WoEInfoBase. Had
5153
//=   issues starting the script after @reloadscript/@loadnpc
5254
//======================================================================================================
5355
-	script	WoEInfoBase	-1,{
5556


56-
	OnStart:


57+
	OnStartMenu:


5758
		if(.init == 0)


5859
			donpcevent strnpcinfo(3)+"::OnInit";


5960


60-
	OnStart2:


61+
	OnStartMenu2:


6162
		mes "The " + ((.state)?"^00DD00current":"^DD0000next") + "^000000 WoE session is: ";


6263
		mes " ";


6364
		mes "Day: ^0000DD" + .daysOfWeek$[.woe_day[.woe_index]];


6465
		mes "^000000Start time: ^00DD00" + .woe_0_str$[.woe_index];


6566
		mes "^000000End time: ^DD0000" + .woe_1_str$[.woe_index];


6667
		mes "^000000Region:";


6768


6869
		set .@state_strs$, ".woe_state_str_" + .woe_state[.woe_index] + "$";


6970
		for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {


7071
			set .@output$, getd(.@state_strs$ + "[" + .@i + "]");


7172
			if(.@output$ != "")


7273
				mes "^000000- ^0000DD" + .@output$;


7374
		}


7475
		next;


7576


7677
		if(getgmlevel() >= .gm_access)


7778
			select(


7879
				"Warp to Castle Grounds",


7980
				"View Castle Owners",


8081
				"View all WoE times",


8182
				((!.state)?"Start next WoE":"End current WoE"),


8283
				((.state)?"":"Skip next WoE session")


8384
				);


8485
		else


8586
			select(


8687
				"Warp to Castle Grounds",


8788
				"View Castle Owners",


8889
				"View all WoE times");


8990


9091
		switch(@menu) {


9192
			case 1:		//warp


9293
				mes "Which region would you like to warp to?";


9394
				next;


9495
				select(.region_warp$[.woe_state[.woe_index]]);


9596
				if(@menu < 1 || @menu > .num_regions)


9697
					close;


9798


9899
				close2;


99100
				warp .region_maps$[@menu - 1], .region_x[@menu - 1], .region_y[@menu - 1];


100101
				end;


101102
			case 2:		//view


102103
				set .@woe_state_array$, ".woe_state_" + .woe_state[.woe_index];


103104
				for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {


104105
					set .@k, 0;


105106
					set .@castles$, ".castles_" + .regions$[.@i] + "$";


106107
					set .@castle_check, getd(.@woe_state_array$ + "[" + .@i + "]");


107108
					while(.@castle_check && .@k < .num_castles[.@i]) {


108109
						if(.@castle_check & (1 << .@k)) {


109110
							set .@map$, getd(.@castles$+"["+.@k+"]");


110111
							if (GetCastleData(.@map$,1)) {


111112
								dispbottom "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently held by the [" + GetGuildName(GetCastleData(.@map$,1)) + "] guild.";


112113
							} else {


113114
								dispbottom "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently unoccupied.";


114115
							}


115116
							set .@castle_check, .@castle_check - (1 << .@k);


116117
						}


117118
						set .@k, .@k + 1;


118119
					}


119120
				}


120121
				break;


121122
			case 3:		//woe times


122123
				for(set .@i, 0; .@i < .num_woes; set .@i, .@i + 1) {


123124
					dispbottom "- " + .daysOfWeek$[.woe_day[.@i]] + " " + .woe_0_str$[.@i] + "-" + .woe_1_str$[.@i];


124125
					set .@woe_state_str_array$, ".woe_state_str_" + .woe_state[.@i] + "$";


125126
					for(set .@k, 0; .@k < .num_regions; set .@k, .@k + 1) {


126127
						set .@output$, getd(.@woe_state_str_array$ + "[" + .@k + "]");


127128
						if(.@output$ != "")


128129
							dispbottom "        " + .@output$;


129130
					}


130131
				}


131132
				break;


132133
			case 4:		//start next;


133134
				if(getgmlevel() <.gm_access) close;


134135


135136
				mes "^FF0000Are you sure you want to " + ((!.state)?"start the next WoE session?":"end the current WoE session?");


136137
				next;


137138
				if(select("Yes:No") == 2) break;


138139


139140
				set .remainTime, 0;	//might not work sometimes...you have like a 500ms window out of 505ms i guess..


140141
				sleep2 .timer_refresh_rate;	//wait abit so the menu doesn't screw up (how long it takes for the timer to update)


141142
				break;


142143
			case 5:		//skip next;


143144
				if(getgmlevel() <.gm_access || .state) close;


144145


145146
				mes "^FF0000Are you sure you want to skip the next WoE session^000000";


146147
				next;


147148
				if(select("Yes:No") == 2) break;


148149
				if(.state) {	//you really can't do this with woe active


149150
					next;


150151
					mes "Sorry, in the time you took making your decision, WoE started";


151152
					mes "Please either manually end it first or wait";


152153
					break;


153154
				}


154155
				set .woe_index, (.woe_index + 1) % .num_woes;


155156
				donpcevent strnpcinfo(3)+"::OnUpdateCountTick";


156157
				sleep2 .timer_refresh_rate;


157158
				break;


158159
			default: close;


159160
		}


160-
		goto OnStart2;


161+
		goto OnStartMenu2;


161162


162163
	OnInit:


163164


164165
		//-----------------------------------------------------------------------------------------//


165166
		//CONFIG START                                                                             //


166167
		//-----------------------------------------------------------------------------------------//


167168


168169
		set .gm_access, 60;


169170


170171
		//WoE timings needs to be ordered ascendingly unless you want to do weird


171172
		//stuff like skip a region every other week or so...


172173
		//Also times can't overlap. Uses second of day(gettimetick(1)) for timing


173174
		// eg 1am -> 3600, 2:30pm -> 52200, midnight -> 86400 (anything past that doesn't work)


174175
		//Note: woe_0 is start times, woe_1 is end times. Ignore how it's called but


175176
		//		 don't change it either since it's dynamically used


176177
		//		 Also..woe has to end on the same day it starts (it's easier that way..)


177178
		setarray .woe_day[0],	0,    2,    4,    6;


178179
		setarray .woe_0[0],	68400,68400,68400,68400;


179180
		setarray .woe_1[0],	75600,75600,75600,75600;


180181
		setarray .woe_state[0],	0,    1,    2,    3;


181182


182183
		//WoE state settings. Every WoE session can be defined as a particular state of castle configuration.


183184
		//.woe_state_#[%] = $


184185
		// # - state number


185186
		// % - region number


186187
		// $ - binary representation of castles that are active for that region in that state (


187188
		//     (ie. 0 is no castles, 5 is castle 0 and 2  (2^0 + 2^2 = 5))


188189
		setarray .woe_state_0[0],1,0,0,0,0,0,0;


189190
		setarray .woe_state_1[0],0,0,2,0,0,0,0;


190191
		setarray .woe_state_2[0],0,16,0,0,0,0,0;


191192
		setarray .woe_state_3[0],0,0,0,2,0,0,0;


192193


193194
		//Setting for if script handles WoE controller function. Disable agit_controller.txt if you are using this.


194195
		//For if you want to use something else to handle your woe stuff but only this script


195196
		//to show info (1 - on, 0 - off...duh)


196197
		set .active_woe, 1;


197198


198199


199200
		//WoE inactive on map notifier. Basically notifies player if the castle they are entering is


200201
		//WoE active or not


201202
		set .notify_woe, 1;


202203


203204
		//-----------------------------------------------------------------------------------------//


204205
		//CONFIG END                                                                               //


205206
		//-----------------------------------------------------------------------------------------//


206207


207208


208209
		//-----------------------------------------------------------------------------------------//


209210
		//CONSTANTS START - Don't touch this unless you know what you are doing                    //


210211
		//-----------------------------------------------------------------------------------------//


211212


212213
		//castle maps by region


213214
		setarray .castles_prtg$[0],"prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05";


214215
		setarray .castles_payg$[0],"payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05";


215216
		setarray .castles_gefg$[0],"gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05";


216217
		setarray .castles_aldeg$[0],"aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05";


217218
		setarray .castles_arug$[0],"arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05";


218219
		setarray .castles_schg$[0],"schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05";


219220
		setarray .castles_novi$[0],"nguild_alde","nguild_gef","nguild_pay","nguild_prt";


220221


221222
		//woe kill functions for each castle


222223
		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";


223224
		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";


224225
		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";


225226
		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_arug$[0],"Manager#aru01_02::OnAgitEnd2","Manager#aru02_02::OnAgitEnd2","Manager#aru03_02::OnAgitEnd2","Manager#aru04_02::OnAgitEnd2","Manager#aru05_02::OnAgitEnd2";


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_schg$[0],"Manager#sch01_02::OnAgitEnd2","Manager#sch02_02::OnAgitEnd2","Manager#sch03_02::OnAgitEnd2","Manager#sch04_02::OnAgitEnd2","Manager#sch05_02::OnAgitEnd2";


228229
			setarray .woe_kill_novi$[0],"Agit_N01::OnAgitEnd","Agit_N02::OnAgitEnd","Agit_N03::OnAgitEnd","Agit_N04::OnAgitEnd";


229230


230231
		//region prefixs


231232
		setarray .regions$[0],"prtg","payg","gefg","aldeg","arug","schg","novi";


232233


233234
		//region info


234235
		setarray .region_names$[0],"Prontera", "Payon", "Geffen", "Aldebaran", "Arunafeltz", "Schwarzwald", "Novice Castles";


235236
		setarray .region_maps$[0],"prt_gld", "pay_gld", "gef_fild13", "alde_gld", "aru_gld", "sch_gld", "prontera";


236237
		//coords to warp player to region (0 is random)


237238
		setarray .region_x[0],0, 0, 0, 0, 0, 0, 148;


238239
		setarray .region_y[0],0, 0, 0, 0, 0, 0, 163;


239240


240241
		setarray .waitMsg$[0], "WoE Starts: ", "WoE Ends: ";


241242
		setarray .startMsg$[0], "WoE is Starting", "WoE is Ending";


242243


243244
		set .ticks_in_day, 86400;	//mmm...magic numbers


244245
		setarray .daysOfWeek$[0], "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday";


245246


246247
		set .timer_refresh_rate, 500;	//how many ms per timer refresh...keep less than 1000 (in milliseconds)


247248
		set .change_state_sleep, 3000;	//how long to show "WoE is Start|End-ing" msg for in ms. (in milliseconds)


248249
										//Make sure WoE sessions are longer than this xD


249250
		set .banner_refresh_rate, 10;	//how many seconds per banner refresh...keep 1 or above (in seconds)


250251


251252
		//-----------------------------------------------------------------------------------------//


252253
		//CONSTANTS END                                                                            //


253254
		//-----------------------------------------------------------------------------------------//


254255


255256
		set .num_regions, getarraysize(.regions$);


256257
		set .num_woes, getarraysize(.woe_1);


257258


258259
		for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {


259260
			//count num castles per region


260261
			set .num_castles[.@i], getarraysize(getd(".castles_" + .regions$[.@i] + "$"));


261262
		}


262263


263264
		//convert timestamps to readable format


264265
		for(set .@i, 0; .@i < .num_woes; set .@i, .@i + 1)


265266
		{


266267
			set .@hrs, .woe_0[.@i] / 3600;


267268
			set .@mins, .woe_0[.@i] % 3600 / 60;


268269
			set .@output$, ((.@hrs % 12)?.@hrs%12:12) + ":" + ((.@mins < 10)?"0"+.@mins:.@mins) + " " + ((.@hrs > 12)?"PM":"AM");


269270


270271
			set .woe_0_str$[.@i], .@output$;


271272


272273
			set .@hrs, .woe_1[.@i] / 3600;


273274
			set .@mins, .woe_1[.@i] % 3600 / 60;


274275
			set .@output$, ((.@hrs % 12)?.@hrs%12:12) + ":" + ((.@mins < 10)?"0"+.@mins:.@mins) + " " + ((.@hrs > 12)?"PM":"AM");


275276


276277
			set .woe_1_str$[.@i], .@output$;


277278
		}


278279


279280
		//calc number of woe states and consolidate states to create list of castles used


280281
		set .num_states, 0;


281282
		while(getarraysize(getd(".woe_state_" + (.num_states)))) {


282283
			set .@state$, ".woe_state_" + .num_states;


283284
			set .@i, 0;


284285
			while(.@i < getarraysize(getd(.@state$))) {


285286
				set .castleUsage[.@i], .castleUsage[.@i] | getd(.@state$ + "[" + .@i + "]");


286287
				set .@i, .@i + 1;


287288
			}


288289
			set .num_states, .num_states + 1;


289290
		}


290291


291292
		for(set .@i, 0; .@i < .num_states; set .@i, .@i + 1) {


292293
			set .@woe_state_array$, ".woe_state_" + .@i;


293294
			for(set .@k, 0; .@k < .num_regions; set .@k, .@k + 1) {


294295
				if(.castleUsage[.@k] > 0) {


295296
					set .@castles$, ".castles_" + .regions$[.@k] + "$";


296297
					set .@castle_check, getd(.@woe_state_array$ + "[" + .@k + "]");


297298
					if(.@castle_check == 0) { //region not in this state


298299
						//region warp menu string


299300
						set .region_warp$[.@i], .region_warp$[.@i] + "^DD0000" + .region_names$[.@k] + "^000000:";


300301
						continue;


301302
					} else {


302303
						if(.@castle_check >= ((1 << .num_castles[.@k]) - 1)) {


303304
							//includes all castles...just list as region.


304305
							setd(".woe_state_str_" + .@i + "$[" + .@k + "]", .region_names$[.@k]);


305306


306307
							//region warp menu string


307308
							set .region_warp$[.@i], .region_warp$[.@i] + "^00DD00" + .region_names$[.@k] + "^000000:";


308309
						} else {


309310
							set .@j, 0;


310311
							set .@output$, "";


311312
							while(.@j < .num_castles[.@k]) {


312313
								if(.@castle_check & (1 << .@j)) {


313314
									set .@output$, .@output$ + GetCastleName(getd(.@castles$+"["+.@j+"]"));


314315
									set .@castle_check, .@castle_check - (1 << .@j);


315316
									if(.@castle_check) {


316317
										if(.@output$ != "")


317318
										set .@output$, .@output$ + ", ";


318319
									} else


319320
										break;


320321
								}


321322
								set .@j, .@j + 1;


322323
							}


323324
							setd(".woe_state_str_" + .@i + "$[" + .@k + "]", .region_names$[.@k] + " ("+  .@output$ + ")");


324325


325326
							//region warp menu string


326327
							set .region_warp$[.@i], .region_warp$[.@i] + "^00DD00" + .region_names$[.@k] + " ("+  .@output$ + ")^000000:";


327328
						}


328329
					}


329330
				} else {


330331
					set .region_warp$[.@i], .region_warp$[.@i] + ":";


331332
				}


332333
			}


333334
		}


334335


335336
		donpcevent strnpcinfo(3)+"::OnFindCurIndex";


336337
		donpcevent strnpcinfo(3)+"::OnUpdateCountTick";


337338


338339
		if(.active_woe) {


339340
			if(.notify_woe) {


340341
				//set mapflag for all castle maps


341342
				for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {


342343
					set .@region_array$, ".castles_" + .regions$[.@i] + "$";


343344
					for(set .@k, 0; .@k < .num_castles[.@i]; set .@k, .@k + 1) {


344345
						setmapflag getd(.@region_array$ + "[" + .@k + "]"), mf_loadevent;


345346
						setd(".loadmap_region_" + getd(.@region_array$ + "[" + .@k + "]"), .@i + 1);


346347
						setd(".loadmap_castleIndex_" + getd(.@region_array$ + "[" + .@k + "]"), .@k);


347348
					}


348349
				}


349350
			}


350351
			//activates WoE if needed


351352
			donpcevent strnpcinfo(3)+"::OnDoWoE";


352353
		}


353354
		//flag that init occured


354355
		set .init, 1;


355356


356357
	OnWoETimer:


357358
		//timer stuff


358359
		while (1) {


359360
			set .remainTime, .count_tick - gettimetick(2);


360361
			set .bannerTimer, .remainTime - (.remainTime % .banner_refresh_rate) + .banner_refresh_rate;


361362
			set .min, .bannerTimer / 60;


362363
			set .sec, .bannerTimer - .min * 60;


363364
			set .hr, .min / 60;


364365
			set .min, .min - .hr * 60;


365366
			set .roomMsg$, .waitMsg$[.state] + .hr + ":" + ((.min < 10 )?"0":"") + .min + ":" + ((.sec < 10 )?"0":"") + .sec;


366367
			sleep .timer_refresh_rate;


367368


368369
			if(.remainTime <= 0) {


369370
				if(.active_woe) {


370371
					donpcevent strnpcinfo(3)+"::OnDoWoE";


371372
					}


372373
				set .roomMsg$, .startMsg$[.state];


373374


374375
				set .woe_index, (.woe_index + .state) % .num_woes;	//go to next index if needed


375376
				set .state, (.state + 1) % 2;						//flip state


376377


377378
				donpcevent strnpcinfo(3)+"::OnUpdateCountTick";


378379
				sleep .change_state_sleep;


379380
			}


380381
		}


381382
		end;	//obligatory end =D


382383


383384
	OnUpdateCountTick:


384385
		set .count_tick, getd(".woe_" + .state + "[" + .woe_index + "]");


385386
		set .count_tick, gettimetick(2) + .count_tick - gettimetick(1) + (.woe_day[.woe_index] - gettime(4) + 7) % 7 * .ticks_in_day;


386387


387388
		if(gettimetick(2) > .count_tick)


388389
			set .count_tick, .count_tick + 7 * .ticks_in_day;


389390
		end;


390391


391392
	OnFindCurIndex:


392393


393394
		set .@cur_day, gettime(4);


394395
		set .@cur_tick, gettimetick(1);


395396


396397
		set .woe_index, 0;


397398
		set .state, 0;


398399


399400
		for(set .@i, 0; .@i < .num_woes; set .@i, .@i + 1) {


400401
			if(.woe_day[.@i] < .@cur_day)


401402
				continue;


402403


403404
			if(.woe_day[.@i] == .@cur_day) {


404405
				if(.woe_0[.@i] >= .@cur_tick) {


405406
					set .woe_index, .@i;


406407
					set .state, 0;


407408
					break;


408409
				}


409410
				if(.woe_1[.@i] >= .@cur_tick) {


410411
					set .woe_index, .@i;


411412
					set .state, 1;


412413
					break;


413414
				}


414415
			}


415416
			if(.woe_day[.@i] > .@cur_day) {


416417
				set .woe_index, .@i;


417418
				set .state, 0;


418419
				break;


419420
			}


420421
		}


421422
		end;


422423


423424
	//On map notifier


424425
	//Comment out OnPCLoadMapEvent label if .notify_woe is disabled to prevent unnecessary triggering


425426
	OnPCLoadMapEvent:


426427
		if(.state && .notify_woe) {


427428
			getmapxy(.@map$, .@x, .@y, 0);


428429
			set .@region, getd(".loadmap_region_" + .@map$) - 1;


429430
			if(.@region >= 0) {


430431
				set .@castleIndex, getd(".loadmap_castleIndex_" + .@map$);


431432
				if(getd(".woe_state_" + .woe_state[.woe_index] + "[" + .@region + "]") & 1 << .@castleIndex)


432433
					dispbottom "The [" + GetCastleName(.@map$) + "] castle is available for conquering during this WoE session";


433434
				else


434435
					dispbottom "The [" + GetCastleName(.@map$) + "] castle is NOT available for conquering during this WoE session";


435436
			}


436437
		}


437438
		end;


438439


439440
	//------------------------------------------------------------------------------


440441
	// WoE Controller Stuff Here


441442
	//------------------------------------------------------------------------------


442443


443444
	OnDoWoE:


444445
		if((.state == 0 && .init) || (.state == 1 && !agitcheck())) {	//starting


445446
			callfunc "WoEToggler", 1;


446447


447448
			//kills WoE in all castles that shouldn't have WoE


448449
			set .@woe_state_array$, ".woe_state_" + .woe_state[.woe_index];


449450
			for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {


450451
				set .@castles$, ".castles_" + .regions$[.@i] + "$";


451452
				set .@castle_check, getd(.@woe_state_array$ + "[" + .@i + "]");


452453


453454
				for(set .@k, 0; .@k < .num_castles[.@i]; set .@k, .@k + 1) {


454455
					set .@map$, getd(.@castles$+"["+.@k+"]");


455456
					if((.@castle_check & (1 << .@k)) == 0) {


456457
						donpcevent getd(".woe_kill_" + .regions$[.@i] + "$[" + .@k + "]");


457458
					}


458459
				}


459460
			}


460461


461462
			announce "The War Of Emperium has begun!",bc_all;


462463
			donpcevent strnpcinfo(3)+"::OnDisplayOwners";


463464
		} else {			//ending


464465
			if(agitcheck()) {


465466
				callfunc "WoEToggler", 0;


466467
				announce "The War Of Emperium is over!",bc_all;


467468
				donpcevent strnpcinfo(3)+"::OnDisplayOwners";


468469
			}


469470
		}


470471
		end;


471472


472473
	OnDisplayOwners:	//displays based on current region


473474
		set .@woe_state_array$, ".woe_state_" + .woe_state[.woe_index];


474475
		for(set .@i, 0; .@i < .num_regions; set .@i, .@i + 1) {


475476
			set .@k, 0;


476477


477478
			set .@castle_check, getd(.@woe_state_array$ + "[" + .@i + "]");


478479
			set .@castles$, ".castles_" + .regions$[.@i] + "$";


479480


480-
			while(.@castle_check && .@k < .num_castles[.@]) {


481+
			while(.@castle_check && .@k < .num_castles[.@i]) {


481482
				if(.@castle_check & (1 << .@k)) {


482483
					set .@map$, getd(.@castles$+"["+.@k+"]");


483484
					if (GetCastleData(.@map$,1)) {


484485
						announce "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently held by the [" + GetGuildName(GetCastleData(.@map$,1)) + "] guild.",bc_all;


485486
					} else {


486487
						announce "The [" + GetCastleName(.@map$) + "] castle of the [" + .region_names$[.@i] + "] region is currently unoccupied.",bc_all;


487488
					}


488489
					set .@castle_check, .@castle_check - (1 << .@k);


489490
				}


490491
				set .@k, .@k + 1;


491492
			}


492493
		}


493494
		end;


494495
}


495-
//----------------------


496496
prontera,163,194,4	script	WoE Info	837,{


497497
	if(getwaitingroomstate(3, strnpcinfo(3)) == -1)


498498
		donpcevent strnpcinfo(3)+"::OnInit";


499499


500-
	doevent "WoEInfoBase::OnStart";


500+
	doevent "WoEInfoBase::OnStartMenu";


501501
	end;


502502


503503
	OnInit:


504504
		while (1) {


505505
			//only updates if msg is different


506506
			set .banner$, getwaitingroomstate(4, strnpcinfo(3));


507507
			if(getvariableofnpc(.roomMsg$, "WoEInfoBase") != .banner$) {


508508
				delwaitingroom;


509509
				waitingroom getvariableofnpc(.roomMsg$, "WoEInfoBase"), 0;


510510
			}


511511
			sleep 500;


512512
		}


513513
		end;


514514
}


515515


516516
//zomg! it duplicates!!


517517
prontera,156,196,6	duplicate(WoE Info)	WoE Info#2winfo	837


518518


519519
//---------------------------------------------------------------------------------------------------------------------


520520


521+
//These two functions handle WoE's activation/deactivation. Since stable does not have AgitStart2/AgitEnd2,


521524


522525
function	script	WoEToggler	{ //<state> = 0|1


523526
	if(getarg(0)) {


524527
		AgitStart;


525528
	} else {


526529
		AgitEnd;


527530
	}


528531
	return;


529532
}


533+








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