diff --git a/README.md b/README.md
index d1f84a5e7..88247d331 100644
--- a/README.md
+++ b/README.md
@@ -758,8 +758,8 @@
 [**757**](scripts/[clientscript,if_flasher].cs2) `[clientscript,if_flasher]`  
 [**758**](scripts/[clientscript,duel_options_click].cs2) `[clientscript,duel_options_click]`  
 [**759**](scripts/[proc,duel_options_radio_buttons].cs2) `[proc,duel_options_radio_buttons]`  
-[**760**](scripts/script760.cs2)  
-[**761**](scripts/script761.cs2)  
+[**760**](scripts/[proc,worldswitcher_sortbutton_draw].cs2) `[proc,worldswitcher_sortbutton_draw]`  
+[**761**](scripts/[clientscript,worldswitcher_sortbutton_op].cs2) `[clientscript,worldswitcher_sortbutton_op]`  
 [**762**](scripts/[clientscript,trade_main_drawitems].cs2) `[clientscript,trade_main_drawitems]`  
 [**763**](scripts/[proc,trade_main_drawitems].cs2) `[proc,trade_main_drawitems]`  
 [**764**](scripts/[clientscript,duel_confirm_initworn].cs2) `[clientscript,duel_confirm_initworn]`  
@@ -891,7 +891,7 @@
 [**890**](scripts/script890.cs2)  
 [**891**](scripts/[clientscript,worldswitcher_draw].cs2) `[clientscript,worldswitcher_draw]`  
 [**892**](scripts/[proc,worldswitcher_draw].cs2) `[proc,worldswitcher_draw]`  
-[**893**](scripts/script893.cs2)  
+[**893**](scripts/[proc,worldswitcher_wipe_favourite].cs2) `[proc,worldswitcher_wipe_favourite]`  
 [**894**](scripts/[clientscript,barrows_nodnod].cs2) `[clientscript,barrows_nodnod]`  
 [**895**](scripts/[clientscript,barrows_nodnodoff].cs2) `[clientscript,barrows_nodnodoff]`  
 [**896**](scripts/[clientscript,mole_go_splat].cs2) `[clientscript,mole_go_splat]`  
@@ -2683,8 +2683,8 @@
 [**2682**](scripts/[proc,magic_stop_flash].cs2) `[proc,magic_stop_flash]`  
 [**2683**](scripts/[clientscript,options_bottom_appearance].cs2) `[clientscript,options_bottom_appearance]`  
 [**2684**](scripts/[clientscript,bond_prompt_init].cs2) `[clientscript,bond_prompt_init]`  
-[**2685**](scripts/script2685.cs2)  
-[**2686**](scripts/script2686.cs2)  
+[**2685**](scripts/[clientscript,telenexus_keyinput_listener].cs2) `[clientscript,telenexus_keyinput_listener]`  
+[**2686**](scripts/[proc,telenexus_keyinput_matched].cs2) `[proc,telenexus_keyinput_matched]`  
 [**2687**](scripts/script2687.cs2)  
 [**2688**](scripts/script2688.cs2)  
 [**2689**](scripts/script2689.cs2)  
@@ -3403,7 +3403,7 @@
 [**3402**](scripts/[clientscript,worldmap_key_toggle_transmit].cs2) `[clientscript,worldmap_key_toggle_transmit]`  
 [**3403**](scripts/[clientscript,prayer_flash_prayer].cs2) `[clientscript,prayer_flash_prayer]`  
 [**3404**](scripts/[clientscript,prayer_flash_timer].cs2) `[clientscript,prayer_flash_timer]`  
-[**3405**](scripts/script3405.cs2)  
+[**3405**](scripts/[clientscript,prayer_stop_flash].cs2) `[clientscript,prayer_stop_flash]`  
 [**3406**](scripts/[clientscript,highlight_noclick].cs2) `[clientscript,highlight_noclick]`  
 [**3407**](scripts/[clientscript,highlight_noclick_clear].cs2) `[clientscript,highlight_noclick_clear]`  
 [**3408**](scripts/[clientscript,highlight_start].cs2) `[clientscript,highlight_start]`  
@@ -3530,37 +3530,37 @@
 [**3529**](scripts/script3529.cs2)  
 [**3530**](scripts/script3530.cs2)  
 [**3531**](scripts/script3531.cs2)  
-[**3532**](scripts/script3532.cs2)  
-[**3533**](scripts/script3533.cs2)  
-[**3534**](scripts/script3534.cs2)  
-[**3535**](scripts/script3535.cs2)  
-[**3536**](scripts/script3536.cs2)  
-[**3537**](scripts/script3537.cs2)  
-[**3538**](scripts/script3538.cs2)  
-[**3539**](scripts/script3539.cs2)  
-[**3540**](scripts/script3540.cs2)  
-[**3541**](scripts/script3541.cs2)  
-[**3542**](scripts/script3542.cs2)  
-[**3543**](scripts/script3543.cs2)  
-[**3544**](scripts/script3544.cs2)  
-[**3545**](scripts/script3545.cs2)  
-[**3546**](scripts/script3546.cs2)  
-[**3547**](scripts/script3547.cs2)  
-[**3548**](scripts/script3548.cs2)  
-[**3549**](scripts/script3549.cs2)  
-[**3550**](scripts/script3550.cs2)  
-[**3551**](scripts/script3551.cs2)  
-[**3552**](scripts/script3552.cs2)  
-[**3553**](scripts/script3553.cs2)  
-[**3554**](scripts/script3554.cs2)  
-[**3555**](scripts/script3555.cs2)  
-[**3556**](scripts/script3556.cs2)  
-[**3557**](scripts/script3557.cs2)  
-[**3558**](scripts/script3558.cs2)  
+[**3532**](scripts/[clientscript,poh_costumes_init].cs2) `[clientscript,poh_costumes_init]`  
+[**3533**](scripts/[clientscript,poh_costumes_build].cs2) `[clientscript,poh_costumes_build]`  
+[**3534**](scripts/[proc,poh_costumes_build].cs2) `[proc,poh_costumes_build]`  
+[**3535**](scripts/[proc,poh_costumes_draw_big].cs2) `[proc,poh_costumes_draw_big]`  
+[**3536**](scripts/[proc,poh_costumes_draw_small].cs2) `[proc,poh_costumes_draw_small]`  
+[**3537**](scripts/[proc,poh_costumes_drawalternates].cs2) `[proc,poh_costumes_drawalternates]`  
+[**3538**](scripts/[proc,poh_costumes_drawitem].cs2) `[proc,poh_costumes_drawitem]`  
+[**3539**](scripts/[proc,poh_costumes_hideitem].cs2) `[proc,poh_costumes_hideitem]`  
+[**3540**](scripts/[proc,poh_costumes_countmembers].cs2) `[proc,poh_costumes_countmembers]`  
+[**3541**](scripts/[proc,poh_costumes_countalternates].cs2) `[proc,poh_costumes_countalternates]`  
+[**3542**](scripts/[clientscript,poh_costumes_opgraphic].cs2) `[clientscript,poh_costumes_opgraphic]`  
+[**3543**](scripts/[proc,poh_costumes_quicksort].cs2) `[proc,poh_costumes_quicksort]`  
+[**3544**](scripts/[proc,poh_costumes_rightborder].cs2) `[proc,poh_costumes_rightborder]`  
+[**3545**](scripts/[proc,poh_costumes_bottomfiller].cs2) `[proc,poh_costumes_bottomfiller]`  
+[**3546**](scripts/[clientscript,poh_costumes_heightstretch].cs2) `[clientscript,poh_costumes_heightstretch]`  
+[**3547**](scripts/[proc,poh_costumes_heightstretch].cs2) `[proc,poh_costumes_heightstretch]`  
+[**3548**](scripts/[clientscript,poh_costumes_buttons_dynamicsetup].cs2) `[clientscript,poh_costumes_buttons_dynamicsetup]`  
+[**3549**](scripts/[proc,poh_costumes_buttons_dynamicsetup].cs2) `[proc,poh_costumes_buttons_dynamicsetup]`  
+[**3550**](scripts/[clientscript,poh_costumes_buttons_draw].cs2) `[clientscript,poh_costumes_buttons_draw]`  
+[**3551**](scripts/[proc,poh_costumes_buttons_draw].cs2) `[proc,poh_costumes_buttons_draw]`  
+[**3552**](scripts/[clientscript,poh_costumes_buttons_1off_op].cs2) `[clientscript,poh_costumes_buttons_1off_op]`  
+[**3553**](scripts/[clientscript,poh_costumes_buttons_1off_reset].cs2) `[clientscript,poh_costumes_buttons_1off_reset]`  
+[**3554**](scripts/[proc,poh_costumes_buttons_1off_reset].cs2) `[proc,poh_costumes_buttons_1off_reset]`  
+[**3555**](scripts/[clientscript,poh_costumes_buttons_toggle_op].cs2) `[clientscript,poh_costumes_buttons_toggle_op]`  
+[**3556**](scripts/[clientscript,poh_costumes_buttons_toggle_reset].cs2) `[clientscript,poh_costumes_buttons_toggle_reset]`  
+[**3557**](scripts/[proc,poh_costumes_buttons_toggle_reset].cs2) `[proc,poh_costumes_buttons_toggle_reset]`  
+[**3558**](scripts/[clientscript,poh_costumes_buttons_searchop].cs2) `[clientscript,poh_costumes_buttons_searchop]`  
 [**3559**](scripts/script3559.cs2)  
 [**3560**](scripts/script3560.cs2)  
-[**3561**](scripts/script3561.cs2)  
-[**3562**](scripts/script3562.cs2)  
-[**3563**](scripts/script3563.cs2)  
-[**3564**](scripts/script3564.cs2)  
-[**3565**](scripts/script3565.cs2)  
+[**3561**](scripts/[proc,poh_costumes_searchsort].cs2) `[proc,poh_costumes_searchsort]`  
+[**3562**](scripts/[clientscript,poh_costumes_searchresult].cs2) `[clientscript,poh_costumes_searchresult]`  
+[**3563**](scripts/[clientscript,poh_costumes_searchtimeout].cs2) `[clientscript,poh_costumes_searchtimeout]`  
+[**3564**](scripts/[clientscript,poh_costumes_buttons_search_reset].cs2) `[clientscript,poh_costumes_buttons_search_reset]`  
+[**3565**](scripts/[proc,poh_costumes_buttons_search_reset].cs2) `[proc,poh_costumes_buttons_search_reset]`  
diff --git a/scripts/[clientscript,poh_costumes_build].cs2 b/scripts/[clientscript,poh_costumes_build].cs2
new file mode 100644
index 000000000..efafa1cad
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_build].cs2
@@ -0,0 +1,3 @@
+// 3533
+[clientscript,poh_costumes_build](enum $enum0, int $int1, int $int2, int $int3, boolean $boolean4, component $component5, component $component6, int $int7, graphic $graphic8, component $component9, int $int10)
+~poh_costumes_build($enum0, $int1, $int2, $int3, $boolean4, $component5, $component6, $int7, $graphic8, $component9, $int10);
diff --git a/scripts/[clientscript,poh_costumes_buttons_1off_op].cs2 b/scripts/[clientscript,poh_costumes_buttons_1off_op].cs2
new file mode 100644
index 000000000..a8f710f41
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_1off_op].cs2
@@ -0,0 +1,9 @@
+// 3552
+[clientscript,poh_costumes_buttons_1off_op](int $int0, component $component1, graphic $graphic2, obj $obj3)
+if ($int0 ! 1) {
+	return;
+}
+sound_synth(synth_2266, 1, 0);
+~poh_costumes_buttons_draw($component1, $graphic2, $obj3, true);
+if_setontimer("poh_costumes_buttons_1off_reset($component1, $graphic2, $obj3, calc(clientclock + 30))", $component1);
+if_setonop(null, $component1);
diff --git a/scripts/[clientscript,poh_costumes_buttons_1off_reset].cs2 b/scripts/[clientscript,poh_costumes_buttons_1off_reset].cs2
new file mode 100644
index 000000000..2470d6ba8
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_1off_reset].cs2
@@ -0,0 +1,5 @@
+// 3553
+[clientscript,poh_costumes_buttons_1off_reset](component $component0, graphic $graphic1, obj $obj2, int $int3)
+if (clientclock >= $int3) {
+	~poh_costumes_buttons_1off_reset($component0, $graphic1, $obj2);
+}
diff --git a/scripts/[clientscript,poh_costumes_buttons_draw].cs2 b/scripts/[clientscript,poh_costumes_buttons_draw].cs2
new file mode 100644
index 000000000..be096a443
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_draw].cs2
@@ -0,0 +1,3 @@
+// 3550
+[clientscript,poh_costumes_buttons_draw](component $component0, graphic $graphic1, obj $obj2, boolean $boolean3)
+~poh_costumes_buttons_draw($component0, $graphic1, $obj2, $boolean3);
diff --git a/scripts/[clientscript,poh_costumes_buttons_dynamicsetup].cs2 b/scripts/[clientscript,poh_costumes_buttons_dynamicsetup].cs2
new file mode 100644
index 000000000..9e5aaa424
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_dynamicsetup].cs2
@@ -0,0 +1,3 @@
+// 3548
+[clientscript,poh_costumes_buttons_dynamicsetup](component $component0)
+~poh_costumes_buttons_dynamicsetup($component0);
diff --git a/scripts/[clientscript,poh_costumes_buttons_search_reset].cs2 b/scripts/[clientscript,poh_costumes_buttons_search_reset].cs2
new file mode 100644
index 000000000..04d5f93e5
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_search_reset].cs2
@@ -0,0 +1,5 @@
+// 3564
+[clientscript,poh_costumes_buttons_search_reset](enum $enum0, component $component1, graphic $graphic2)
+if (%varcint5 ! 17) {
+	~poh_costumes_buttons_search_reset($enum0, $component1, $graphic2);
+}
diff --git a/scripts/script3558.cs2 b/scripts/[clientscript,poh_costumes_buttons_searchop].cs2
similarity index 78%
rename from scripts/script3558.cs2
rename to scripts/[clientscript,poh_costumes_buttons_searchop].cs2
index a2ace3eee..f7f449235 100644
--- a/scripts/script3558.cs2
+++ b/scripts/[clientscript,poh_costumes_buttons_searchop].cs2
@@ -1,5 +1,5 @@
 // 3558
-script3558(int $int0, enum $enum1, component $component2, graphic $graphic3)
+[clientscript,poh_costumes_buttons_searchop](int $int0, enum $enum1, component $component2, graphic $graphic3)
 if ($int0 ! 1) {
 	return;
 }
@@ -24,5 +24,5 @@ if (~on_mobile = true) {
 if_clearops($component2);
 if_setop(2, "Search", $component2);
 if_setonop("opsound(event_opindex, 4)", $component2);
-~script3551($component2, $graphic3, null, true);
-if_setontimer("script3564($enum1, $component2, $graphic3)", $component2);
+~poh_costumes_buttons_draw($component2, $graphic3, null, true);
+if_setontimer("poh_costumes_buttons_search_reset($enum1, $component2, $graphic3)", $component2);
diff --git a/scripts/[clientscript,poh_costumes_buttons_toggle_op].cs2 b/scripts/[clientscript,poh_costumes_buttons_toggle_op].cs2
new file mode 100644
index 000000000..96135367a
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_toggle_op].cs2
@@ -0,0 +1,12 @@
+// 3555
+[clientscript,poh_costumes_buttons_toggle_op](int $int0, component $component1, graphic $graphic2)
+if ($int0 ! 1) {
+	return;
+}
+sound_synth(synth_2266, 1, 0);
+%varbit10581 = calc(1 - %varbit10581);
+def_boolean $boolean3 = ~int_to_bool(%varbit10581);
+~poh_costumes_buttons_draw($component1, $graphic2, null, $boolean3);
+if_setontimer("poh_costumes_buttons_toggle_reset($component1, $graphic2, calc(clientclock + 30))", $component1);
+if_setonop(null, $component1);
+if_setonvartransmit(null, $component1);
diff --git a/scripts/[clientscript,poh_costumes_buttons_toggle_reset].cs2 b/scripts/[clientscript,poh_costumes_buttons_toggle_reset].cs2
new file mode 100644
index 000000000..9c0724b49
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_buttons_toggle_reset].cs2
@@ -0,0 +1,5 @@
+// 3556
+[clientscript,poh_costumes_buttons_toggle_reset](component $component0, graphic $graphic1, int $int2)
+if (clientclock >= $int2) {
+	~poh_costumes_buttons_toggle_reset($component0, $graphic1);
+}
diff --git a/scripts/[clientscript,poh_costumes_heightstretch].cs2 b/scripts/[clientscript,poh_costumes_heightstretch].cs2
new file mode 100644
index 000000000..b4eccc2df
--- /dev/null
+++ b/scripts/[clientscript,poh_costumes_heightstretch].cs2
@@ -0,0 +1,3 @@
+// 3546
+[clientscript,poh_costumes_heightstretch](component $component0, component $component1, component $component2, component $component3, int $int4, int $int5, int $int6)
+~poh_costumes_heightstretch($component0, $component1, $component2, $component3, $int4, $int5, $int6);
diff --git a/scripts/script3532.cs2 b/scripts/[clientscript,poh_costumes_init].cs2
similarity index 76%
rename from scripts/script3532.cs2
rename to scripts/[clientscript,poh_costumes_init].cs2
index 04e073397..f792ebe48 100644
--- a/scripts/script3532.cs2
+++ b/scripts/[clientscript,poh_costumes_init].cs2
@@ -1,5 +1,5 @@
 // 3532
-script3532(enum $enum0, boolean $boolean1, int $int2)
+[clientscript,poh_costumes_init](enum $enum0, boolean $boolean1, int $int2)
 if ($int2 = 1) {
 	%varcint58 = 0;
 }
@@ -54,13 +54,13 @@ while ($int13 < $int12) {
 	}
 	$int5, $int13 = 0, calc($int13 + 1);
 }
-~script3534($enum0, $int12, $int4, $int6, $boolean1, interface_675:4, interface_675:5, $int8, $graphic10, interface_675:2, $int3);
-if_setoninvtransmit("script3533($enum0, $int12, $int4, $int6, $boolean1, event_com, interface_675:5, $int8, $graphic10, interface_675:2, $int3){inv_637}", interface_675:4);
-~script3565($enum0, interface_675:9, "bankbuttons,2");
+~poh_costumes_build($enum0, $int12, $int4, $int6, $boolean1, interface_675:4, interface_675:5, $int8, $graphic10, interface_675:2, $int3);
+if_setoninvtransmit("poh_costumes_build($enum0, $int12, $int4, $int6, $boolean1, event_com, interface_675:5, $int8, $graphic10, interface_675:2, $int3){inv_637}", interface_675:4);
+~poh_costumes_buttons_search_reset($enum0, interface_675:9, "bankbuttons,2");
 if ($boolean1 = true & $int11 = 1) {
 	if_sethide(false, interface_675:8);
 	if_setop(1, "Deposit mode", interface_675:8);
-	~script3557(interface_675:8, "bankbuttons,8");
+	~poh_costumes_buttons_toggle_reset(interface_675:8, "bankbuttons,8");
 	if_setposition(0, 210, ^setpos_abs_centre, ^setpos_abs_bottom, interface_675:7);
 } else {
 	if_sethide(true, interface_675:8);
@@ -69,6 +69,6 @@ if ($boolean1 = true & $int11 = 1) {
 	if_setposition(0, 140, ^setpos_abs_centre, ^setpos_abs_bottom, interface_675:7);
 }
 if_setop(1, "Deposit inventory", interface_675:10);
-~script3554(interface_675:10, "bankbuttons,0", null);
-~script3549(interface_675:7);
-if_setonvartransmit("script3548(interface_675:7){var262}", interface_675:4);
+~poh_costumes_buttons_1off_reset(interface_675:10, "bankbuttons,0", null);
+~poh_costumes_buttons_dynamicsetup(interface_675:7);
+if_setonvartransmit("poh_costumes_buttons_dynamicsetup(interface_675:7){var262}", interface_675:4);
diff --git a/scripts/script3542.cs2 b/scripts/[clientscript,poh_costumes_opgraphic].cs2
similarity index 68%
rename from scripts/script3542.cs2
rename to scripts/[clientscript,poh_costumes_opgraphic].cs2
index ea30f7fb9..88bf94f7a 100644
--- a/scripts/script3542.cs2
+++ b/scripts/[clientscript,poh_costumes_opgraphic].cs2
@@ -1,5 +1,5 @@
 // 3542
-script3542(int $int0, component $component1, int $int2, int $int3, int $int4)
+[clientscript,poh_costumes_opgraphic](int $int0, component $component1, int $int2, int $int3, int $int4)
 if ($int0 = 1) {
 	sound_synth(synth_2266, 1, 0);
 }
diff --git a/scripts/script3562.cs2 b/scripts/[clientscript,poh_costumes_searchresult].cs2
similarity index 77%
rename from scripts/script3562.cs2
rename to scripts/[clientscript,poh_costumes_searchresult].cs2
index 1ddf7d069..31431ebfa 100644
--- a/scripts/script3562.cs2
+++ b/scripts/[clientscript,poh_costumes_searchresult].cs2
@@ -1,5 +1,5 @@
 // 3562
-script3562(obj $obj0, enum $enum1, int $key2)
+[clientscript,poh_costumes_searchresult](obj $obj0, enum $enum1, int $key2)
 if ($key2 ! ^key_return) {
 	return;
 }
@@ -16,7 +16,7 @@ while ($int4 > 0) {
 	$int4 = calc($int4 - 1);
 	if (cc_find(interface_675:4, calc($int4 * $int3 + 3)) = ^true & compare(removetags(cc_gettext), $string0) = 0) {
 		cc_settext("<col=ff0000><$string0></col>");
-		cc_setontimer("script3563(event_com, event_comid, $string0, calc(clientclock + 250))");
+		cc_setontimer("poh_costumes_searchtimeout(event_com, event_comid, $string0, calc(clientclock + 250))");
 		~scrollbar_resize(interface_675:5, interface_675:4, cc_gety);
 		return;
 	}
diff --git a/scripts/script3563.cs2 b/scripts/[clientscript,poh_costumes_searchtimeout].cs2
similarity index 53%
rename from scripts/script3563.cs2
rename to scripts/[clientscript,poh_costumes_searchtimeout].cs2
index 5c377a7d7..b8acd6401 100644
--- a/scripts/script3563.cs2
+++ b/scripts/[clientscript,poh_costumes_searchtimeout].cs2
@@ -1,5 +1,5 @@
 // 3563
-script3563(component $component0, int $int1, string $string0, int $int2)
+[clientscript,poh_costumes_searchtimeout](component $component0, int $int1, string $string0, int $int2)
 if (clientclock >= $int2 & cc_find($component0, $int1) = ^true) {
 	cc_settext($string0);
 	cc_setontimer(null);
diff --git a/scripts/script3405.cs2 b/scripts/[clientscript,prayer_stop_flash].cs2
similarity index 82%
rename from scripts/script3405.cs2
rename to scripts/[clientscript,prayer_stop_flash].cs2
index ddc5727c7..0b1e39ae3 100644
--- a/scripts/script3405.cs2
+++ b/scripts/[clientscript,prayer_stop_flash].cs2
@@ -1,5 +1,5 @@
 // 3405
-script3405(int $int0)
+[clientscript,prayer_stop_flash](int $int0)
 def_component $component1 = enum(int, component, enum_859, $int0);
 if ($component1 = null) {
 	return;
diff --git a/scripts/script2685.cs2 b/scripts/[clientscript,telenexus_keyinput_listener].cs2
similarity index 54%
rename from scripts/script2685.cs2
rename to scripts/[clientscript,telenexus_keyinput_listener].cs2
index 3dda7655a..bf1aa840a 100644
--- a/scripts/script2685.cs2
+++ b/scripts/[clientscript,telenexus_keyinput_listener].cs2
@@ -1,5 +1,5 @@
 // 2685
-script2685(int $key0, char $char1, component $component2, int $int3, int $key4, string $string0, string $string1, int $int5, int $int6)
+[clientscript,telenexus_keyinput_listener](int $key0, char $char1, component $component2, int $int3, int $key4, string $string0, string $string1, int $int5, int $int6)
 if (clientclock < $int6) {
 	return;
 }
@@ -14,4 +14,4 @@ if ($key0 ! null & $key0 = $key4) {
 } else {
 	return;
 }
-~script2686($component2, $int3, $key4, $string0, $string1, $int5, $int6);
+~telenexus_keyinput_matched($component2, $int3, $key4, $string0, $string1, $int5, $int6);
diff --git a/scripts/[clientscript,worldswitcher_sortbutton_op].cs2 b/scripts/[clientscript,worldswitcher_sortbutton_op].cs2
new file mode 100644
index 000000000..7fa2b0419
--- /dev/null
+++ b/scripts/[clientscript,worldswitcher_sortbutton_op].cs2
@@ -0,0 +1,8 @@
+// 761
+[clientscript,worldswitcher_sortbutton_op](int $int0, int $int1, component $component2, component $component3, component $component4, component $component5, int $int6, int $int7, component $component8, component $component9, component $component10, component $component11, component $component12, component $component13, component $component14, component $component15, component $component16, component $component17)
+if ($int0 ! 1) {
+	return;
+}
+sound_synth(synth_2266, 1, 0);
+%varbit4596 = $int1;
+~worldswitcher_draw($component2, $component3, $component4, $component5, $int6, $int7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17);
diff --git a/scripts/script3545.cs2 b/scripts/[proc,poh_costumes_bottomfiller].cs2
similarity index 84%
rename from scripts/script3545.cs2
rename to scripts/[proc,poh_costumes_bottomfiller].cs2
index e12417ad7..6b824f0cd 100644
--- a/scripts/script3545.cs2
+++ b/scripts/[proc,poh_costumes_bottomfiller].cs2
@@ -1,5 +1,5 @@
 // 3545
-script3545(int $int0)
+[proc,poh_costumes_bottomfiller](int $int0)
 .cc_sethide(false);
 .cc_setgraphic("v2_borders_slim,8");
 .cc_settrans(0);
diff --git a/scripts/script3534.cs2 b/scripts/[proc,poh_costumes_build].cs2
similarity index 50%
rename from scripts/script3534.cs2
rename to scripts/[proc,poh_costumes_build].cs2
index e21c59819..c886cb89c 100644
--- a/scripts/script3534.cs2
+++ b/scripts/[proc,poh_costumes_build].cs2
@@ -1,5 +1,5 @@
 // 3534
-script3534(enum $enum0, int $int1, int $int2, int $int3, boolean $boolean4, component $component5, component $component6, int $int7, graphic $graphic8, component $component9, int $int10)
+[proc,poh_costumes_build](enum $enum0, int $int1, int $int2, int $int3, boolean $boolean4, component $component5, component $component6, int $int7, graphic $graphic8, component $component9, int $int10)
 def_int $intarray0($int1);
 def_int $int11 = 0;
 while ($int11 < $int1) {
@@ -7,7 +7,7 @@ while ($int11 < $int1) {
 	$int11 = calc($int11 + 1);
 }
 if ($int11 >= 2) {
-	~script3543(intarray0, 0, calc($int1 - 1), $enum0);
+	~poh_costumes_quicksort(intarray0, 0, calc($int1 - 1), $enum0);
 }
 def_namedobj $namedobj12 = null;
 def_namedobj $namedobj13 = null;
@@ -19,24 +19,24 @@ $int11 = 0;
 while ($int11 < $int1) {
 	$namedobj12 = enum(int, namedobj, $enum0, $intarray0($int11));
 	$int14 = calc($int11 + 1);
-	if ($int14 >= $int1 | ~script3540($namedobj12) > 4) {
-		$int15, $int16 = ~script3535($int15, $namedobj12, $intarray0($int11), $int11, $int1, $graphic8, $int2, $boolean4, $component5);
+	if ($int14 >= $int1 | ~poh_costumes_countmembers($namedobj12) > 4) {
+		$int15, $int16 = ~poh_costumes_draw_big($int15, $namedobj12, $intarray0($int11), $int11, $int1, $graphic8, $int2, $boolean4, $component5);
 		if ($int16 = 1) {
 			$int17 = calc($int17 + 1);
 		}
 	} else {
 		$namedobj13 = enum(int, namedobj, $enum0, $intarray0($int14));
-		if (~script3540($namedobj13) > 4) {
-			$int15, $int16 = ~script3535($int15, $namedobj12, $intarray0($int11), $int11, $int1, $graphic8, $int2, $boolean4, $component5);
+		if (~poh_costumes_countmembers($namedobj13) > 4) {
+			$int15, $int16 = ~poh_costumes_draw_big($int15, $namedobj12, $intarray0($int11), $int11, $int1, $graphic8, $int2, $boolean4, $component5);
 			if ($int16 = 1) {
 				$int17 = calc($int17 + 1);
 			}
 		} else {
-			$int15, $int16, $int3 = ~script3536($int15, $int3, 0, $int7, $namedobj12, $intarray0($int11), $int11, $int1, $graphic8, $int2, $boolean4, $component5);
+			$int15, $int16, $int3 = ~poh_costumes_draw_small($int15, $int3, 0, $int7, $namedobj12, $intarray0($int11), $int11, $int1, $graphic8, $int2, $boolean4, $component5);
 			if ($int16 = 1) {
 				$int17 = calc($int17 + 1);
 			}
-			$int15, $int16, $int3 = ~script3536($int15, $int3, 1, $int7, $namedobj13, $intarray0($int14), $int14, $int1, $graphic8, $int2, $boolean4, $component5);
+			$int15, $int16, $int3 = ~poh_costumes_draw_small($int15, $int3, 1, $int7, $namedobj13, $intarray0($int14), $int14, $int1, $graphic8, $int2, $boolean4, $component5);
 			if ($int16 = 1) {
 				$int17 = calc($int17 + 1);
 			}
@@ -52,10 +52,10 @@ def_int $int18 = 0;
 if ($int15 < 250) {
 	$int18 = ~max(40, calc(250 - $int15));
 	if (.cc_find($component5, $int3) = ^true) {
-		~script3545($int15);
+		~poh_costumes_bottomfiller($int15);
 	} else {
 		.cc_create($component5, ^iftype_graphic, $int3);
-		~script3545($int15);
+		~poh_costumes_bottomfiller($int15);
 	}
 	$int3, $int15 = calc($int3 + 1), calc($int15 + $int18);
 }
@@ -63,4 +63,4 @@ while (cc_find($component5, $int3) = ^true) {
 	cc_sethide(true);
 	$int3 = calc($int3 + 1);
 }
-~script3547(if_getlayer(interface_675:1), interface_675:1, $component5, $component6, $int15, ~min(800, calc($int15 + 54)), ^min_32bit_int);
+~poh_costumes_heightstretch(if_getlayer(interface_675:1), interface_675:1, $component5, $component6, $int15, ~min(800, calc($int15 + 54)), ^min_32bit_int);
diff --git a/scripts/[proc,poh_costumes_buttons_1off_reset].cs2 b/scripts/[proc,poh_costumes_buttons_1off_reset].cs2
new file mode 100644
index 000000000..8d55a696b
--- /dev/null
+++ b/scripts/[proc,poh_costumes_buttons_1off_reset].cs2
@@ -0,0 +1,5 @@
+// 3554
+[proc,poh_costumes_buttons_1off_reset](component $component0, graphic $graphic1, obj $obj2)
+~poh_costumes_buttons_draw($component0, $graphic1, $obj2, false);
+if_setontimer(null, $component0);
+if_setonop("poh_costumes_buttons_1off_op(event_opindex, $component0, $graphic1, $obj2)", $component0);
diff --git a/scripts/script3551.cs2 b/scripts/[proc,poh_costumes_buttons_draw].cs2
similarity index 86%
rename from scripts/script3551.cs2
rename to scripts/[proc,poh_costumes_buttons_draw].cs2
index 19fa8fe89..5af24e34b 100644
--- a/scripts/script3551.cs2
+++ b/scripts/[proc,poh_costumes_buttons_draw].cs2
@@ -1,5 +1,5 @@
 // 3551
-script3551(component $component0, graphic $graphic1, obj $obj2, boolean $boolean3)
+[proc,poh_costumes_buttons_draw](component $component0, graphic $graphic1, obj $obj2, boolean $boolean3)
 cc_deleteall($component0);
 def_int $int4 = 0;
 if ($boolean3 = true) {
diff --git a/scripts/script3549.cs2 b/scripts/[proc,poh_costumes_buttons_dynamicsetup].cs2
similarity index 80%
rename from scripts/script3549.cs2
rename to scripts/[proc,poh_costumes_buttons_dynamicsetup].cs2
index c1a339914..363873a28 100644
--- a/scripts/script3549.cs2
+++ b/scripts/[proc,poh_costumes_buttons_dynamicsetup].cs2
@@ -1,5 +1,5 @@
 // 3549
-script3549(component $component0)
+[proc,poh_costumes_buttons_dynamicsetup](component $component0)
 if_clearops($component0);
 if (%var262 ! -1) {
 	if_sethide(false, $component0);
@@ -20,7 +20,7 @@ if (%var262 ! -1) {
 			}
 		}
 	}
-	~script3554($component0, null, dummy_documents_10668);
+	~poh_costumes_buttons_1off_reset($component0, null, dummy_documents_10668);
 } else {
 	if_sethide(true, $component0);
 	cc_deleteall($component0);
diff --git a/scripts/[proc,poh_costumes_buttons_search_reset].cs2 b/scripts/[proc,poh_costumes_buttons_search_reset].cs2
new file mode 100644
index 000000000..394ab02cf
--- /dev/null
+++ b/scripts/[proc,poh_costumes_buttons_search_reset].cs2
@@ -0,0 +1,7 @@
+// 3565
+[proc,poh_costumes_buttons_search_reset](enum $enum0, component $component1, graphic $graphic2)
+if_clearops($component1);
+if_setop(1, "Search", $component1);
+~poh_costumes_buttons_draw($component1, $graphic2, null, false);
+if_setontimer(null, $component1);
+if_setonop("poh_costumes_buttons_searchop(event_opindex, $enum0, $component1, $graphic2)", $component1);
diff --git a/scripts/[proc,poh_costumes_buttons_toggle_reset].cs2 b/scripts/[proc,poh_costumes_buttons_toggle_reset].cs2
new file mode 100644
index 000000000..6cb100753
--- /dev/null
+++ b/scripts/[proc,poh_costumes_buttons_toggle_reset].cs2
@@ -0,0 +1,7 @@
+// 3557
+[proc,poh_costumes_buttons_toggle_reset](component $component0, graphic $graphic1)
+def_boolean $boolean2 = ~int_to_bool(%varbit10581);
+if_setonvartransmit("poh_costumes_buttons_toggle_reset($component0, $graphic1, 0){var1141}", $component0);
+~poh_costumes_buttons_draw($component0, $graphic1, null, $boolean2);
+if_setontimer(null, $component0);
+if_setonop("poh_costumes_buttons_toggle_op(event_opindex, $component0, $graphic1)", $component0);
diff --git a/scripts/script3541.cs2 b/scripts/[proc,poh_costumes_countalternates].cs2
similarity index 84%
rename from scripts/script3541.cs2
rename to scripts/[proc,poh_costumes_countalternates].cs2
index bb8c6f62b..8b79259ff 100644
--- a/scripts/script3541.cs2
+++ b/scripts/[proc,poh_costumes_countalternates].cs2
@@ -1,5 +1,5 @@
 // 3541
-script3541(obj $obj0)(int)
+[proc,poh_costumes_countalternates](obj $obj0)(int)
 if (enum(obj, boolean, enum_3305, $obj0) = true) {
 	return(1);
 }
diff --git a/scripts/script3540.cs2 b/scripts/[proc,poh_costumes_countmembers].cs2
similarity index 54%
rename from scripts/script3540.cs2
rename to scripts/[proc,poh_costumes_countmembers].cs2
index 079b704a2..f749b4068 100644
--- a/scripts/script3540.cs2
+++ b/scripts/[proc,poh_costumes_countmembers].cs2
@@ -1,14 +1,14 @@
 // 3540
-script3540(namedobj $namedobj0)(int)
+[proc,poh_costumes_countmembers](namedobj $namedobj0)(int)
 def_enum $enum1 = enum(obj, enum, enum_3077, $namedobj0);
 if ($enum1 = null) {
-	return(~script3541($namedobj0));
+	return(~poh_costumes_countalternates($namedobj0));
 }
 def_int $int2 = enum_getoutputcount($enum1);
 def_int $int3 = 0;
 def_int $int4 = 0;
 while ($int4 < $int2) {
-	$int3 = calc($int3 + ~script3541(enum(int, namedobj, $enum1, $int4)));
+	$int3 = calc($int3 + ~poh_costumes_countalternates(enum(int, namedobj, $enum1, $int4)));
 	$int4 = calc($int4 + 1);
 }
 return($int3);
diff --git a/scripts/script3535.cs2 b/scripts/[proc,poh_costumes_draw_big].cs2
similarity index 81%
rename from scripts/script3535.cs2
rename to scripts/[proc,poh_costumes_draw_big].cs2
index f9deecd68..5e2d52f99 100644
--- a/scripts/script3535.cs2
+++ b/scripts/[proc,poh_costumes_draw_big].cs2
@@ -1,5 +1,5 @@
 // 3535
-script3535(int $int0, namedobj $namedobj1, int $int2, int $int3, int $int4, fontmetrics $fontmetrics5, int $int6, boolean $boolean7, component $component8)(int, int)
+[proc,poh_costumes_draw_big](int $int0, namedobj $namedobj1, int $int2, int $int3, int $int4, fontmetrics $fontmetrics5, int $int6, boolean $boolean7, component $component8)(int, int)
 def_int $int9 = calc($int2 * $int6);
 def_int $int10 = calc($int9 + 4);
 def_int $int11 = calc($int9 + $int6);
@@ -14,7 +14,7 @@ def_enum $enum19 = enum(obj, enum, enum_3077, $namedobj1);
 if ($enum19 ! null) {
 	$int12 = enum_getoutputcount($enum19);
 	while ($int13 < $int12) {
-		$int14, $int15, $int10, $int16 = ~script3537($int14, $int15, $int10, 10, 3, $int0, enum(int, namedobj, $enum19, $int13), $boolean7, $component8, $int11);
+		$int14, $int15, $int10, $int16 = ~poh_costumes_drawalternates($int14, $int15, $int10, 10, 3, $int0, enum(int, namedobj, $enum19, $int13), $boolean7, $component8, $int11);
 		if ($int16 = 1) {
 			$int17 = 0;
 		} else {
@@ -23,7 +23,7 @@ if ($enum19 ! null) {
 		$int13 = calc($int13 + 1);
 	}
 } else {
-	$int14, $int15, $int10, $int16 = ~script3537($int14, $int15, $int10, 10, 3, $int0, $namedobj1, $boolean7, $component8, $int11);
+	$int14, $int15, $int10, $int16 = ~poh_costumes_drawalternates($int14, $int15, $int10, 10, 3, $int0, $namedobj1, $boolean7, $component8, $int11);
 	if ($int16 = 1) {
 		$int17 = 0;
 	} else {
@@ -62,7 +62,7 @@ if (cc_find($component8, $int9) = ^true) {
 		cc_settrans(120);
 		if ($boolean7 = true) {
 			cc_setop(1, "Set");
-			cc_setonop("script3542(event_opindex, event_com, event_comid, 0, 120)");
+			cc_setonop("poh_costumes_opgraphic(event_opindex, event_com, event_comid, 0, 120)");
 			cc_setonmouserepeat("cc_settrans(event_com, event_comid, 40, null)");
 			cc_setonmouseleave("cc_settrans(event_com, event_comid, 120, null)");
 			if (.cc_find($component8, calc($int9 + 1)) = ^true) {
@@ -83,7 +83,7 @@ if (cc_find($component8, $int9) = ^true) {
 		cc_settrans(0);
 		if ($boolean7 = true & $int17 = 0) {
 			cc_setop(1, "Set");
-			cc_setonop("script3542(event_opindex, event_com, event_comid, 120, 0)");
+			cc_setonop("poh_costumes_opgraphic(event_opindex, event_com, event_comid, 120, 0)");
 			cc_setonmouserepeat("cc_settrans(event_com, event_comid, 80, null)");
 			cc_setonmouseleave("cc_settrans(event_com, event_comid, 0, null)");
 			if (.cc_find($component8, calc($int9 + 1)) = ^true) {
diff --git a/scripts/script3536.cs2 b/scripts/[proc,poh_costumes_draw_small].cs2
similarity index 82%
rename from scripts/script3536.cs2
rename to scripts/[proc,poh_costumes_draw_small].cs2
index a253b2537..99bc34874 100644
--- a/scripts/script3536.cs2
+++ b/scripts/[proc,poh_costumes_draw_small].cs2
@@ -1,5 +1,5 @@
 // 3536
-script3536(int $int0, int $int1, int $int2, int $int3, namedobj $namedobj4, int $int5, int $int6, int $int7, fontmetrics $fontmetrics8, int $int9, boolean $boolean10, component $component11)(int, int, int)
+[proc,poh_costumes_draw_small](int $int0, int $int1, int $int2, int $int3, namedobj $namedobj4, int $int5, int $int6, int $int7, fontmetrics $fontmetrics8, int $int9, boolean $boolean10, component $component11)(int, int, int)
 def_int $int12 = 3;
 if ($int2 = 1) {
 	$int12 = calc($int12 + $int3);
@@ -18,7 +18,7 @@ def_enum $enum23 = enum(obj, enum, enum_3077, $namedobj4);
 if ($enum23 ! null) {
 	$int16 = enum_getoutputcount($enum23);
 	while ($int17 < $int16) {
-		$int18, $int19, $int14, $int20 = ~script3537($int18, $int19, $int14, 4, $int12, $int0, enum(int, namedobj, $enum23, $int17), $boolean10, $component11, $int15);
+		$int18, $int19, $int14, $int20 = ~poh_costumes_drawalternates($int18, $int19, $int14, 4, $int12, $int0, enum(int, namedobj, $enum23, $int17), $boolean10, $component11, $int15);
 		if ($int20 = 1) {
 			$int21 = 0;
 		} else {
@@ -27,7 +27,7 @@ if ($enum23 ! null) {
 		$int17 = calc($int17 + 1);
 	}
 } else {
-	$int18, $int19, $int14, $int20 = ~script3537($int18, $int19, $int14, 4, $int12, $int0, $namedobj4, $boolean10, $component11, $int15);
+	$int18, $int19, $int14, $int20 = ~poh_costumes_drawalternates($int18, $int19, $int14, 4, $int12, $int0, $namedobj4, $boolean10, $component11, $int15);
 	if ($int20 = 1) {
 		$int21 = 0;
 	} else {
@@ -66,10 +66,10 @@ if (cc_find($component11, $int13) = ^true) {
 		cc_setsize($int3, $int24, ^setsize_abs, ^setsize_abs);
 		cc_setposition(0, $int0, ^setpos_abs_left, ^setpos_abs_top);
 		if (.cc_find($component11, $int1) = ^true) {
-			~script3544($int3, $int24, $int0);
+			~poh_costumes_rightborder($int3, $int24, $int0);
 		} else {
 			.cc_create($component11, ^iftype_graphic, $int1);
-			~script3544($int3, $int24, $int0);
+			~poh_costumes_rightborder($int3, $int24, $int0);
 		}
 		$int1 = calc($int1 + 1);
 	}
@@ -78,7 +78,7 @@ if (cc_find($component11, $int13) = ^true) {
 		cc_settrans(120);
 		if ($boolean10 = true) {
 			cc_setop(1, "Set");
-			cc_setonop("script3542(event_opindex, event_com, event_comid, 0, 120)");
+			cc_setonop("poh_costumes_opgraphic(event_opindex, event_com, event_comid, 0, 120)");
 			cc_setonmouserepeat("cc_settrans(event_com, event_comid, 40, null)");
 			cc_setonmouseleave("cc_settrans(event_com, event_comid, 120, null)");
 			if (.cc_find($component11, calc($int13 + 1)) = ^true) {
@@ -103,7 +103,7 @@ if (cc_find($component11, $int13) = ^true) {
 		cc_settrans(0);
 		if ($boolean10 = true & $int21 = 0) {
 			cc_setop(1, "Set");
-			cc_setonop("script3542(event_opindex, event_com, event_comid, 120, 0)");
+			cc_setonop("poh_costumes_opgraphic(event_opindex, event_com, event_comid, 120, 0)");
 			cc_setonmouserepeat("cc_settrans(event_com, event_comid, 80, null)");
 			cc_setonmouseleave("cc_settrans(event_com, event_comid, 0, null)");
 			if (.cc_find($component11, calc($int13 + 1)) = ^true) {
diff --git a/scripts/script3537.cs2 b/scripts/[proc,poh_costumes_drawalternates].cs2
similarity index 56%
rename from scripts/script3537.cs2
rename to scripts/[proc,poh_costumes_drawalternates].cs2
index 880370359..1acf472b6 100644
--- a/scripts/script3537.cs2
+++ b/scripts/[proc,poh_costumes_drawalternates].cs2
@@ -1,5 +1,5 @@
 // 3537
-script3537(int $int0, int $int1, int $int2, int $int3, int $int4, int $int5, namedobj $namedobj6, boolean $boolean7, component $component8, int $int9)(int, int, int, int)
+[proc,poh_costumes_drawalternates](int $int0, int $int1, int $int2, int $int3, int $int4, int $int5, namedobj $namedobj6, boolean $boolean7, component $component8, int $int9)(int, int, int, int)
 def_boolean $boolean10 = enum(obj, boolean, enum_3305, $namedobj6);
 def_int $int11 = 0;
 def_namedobj $namedobj12 = null;
@@ -14,12 +14,12 @@ if ($enum15 ! null) {
 		if ($namedobj12 ! null) {
 			$int13 = invother_total(inv_637, $namedobj12);
 			if ($int13 > 0) {
-				$int0, $int1, $int2, $int14 = ~script3538($int0, $int1, $int2, $int3, $int4, $int5, $namedobj12, $int13, $boolean7, $component8, $int9), 1;
+				$int0, $int1, $int2, $int14 = ~poh_costumes_drawitem($int0, $int1, $int2, $int3, $int4, $int5, $namedobj12, $int13, $boolean7, $component8, $int9), 1;
 				if ($boolean10 = true) {
 					return($int0, $int1, $int2, $int14);
 				}
 			} else if ($boolean10 = false) {
-				$int2 = ~script3539($int2, $component8, $int9);
+				$int2 = ~poh_costumes_hideitem($int2, $component8, $int9);
 			}
 		}
 	}
@@ -28,22 +28,22 @@ if ($enum15 ! null) {
 	if ($namedobj12 ! null) {
 		$int13 = invother_total(inv_637, $namedobj12);
 		if ($int13 > 0) {
-			$int0, $int1, $int2, $int14 = ~script3538($int0, $int1, $int2, $int3, $int4, $int5, $namedobj12, $int13, $boolean7, $component8, $int9), 1;
+			$int0, $int1, $int2, $int14 = ~poh_costumes_drawitem($int0, $int1, $int2, $int3, $int4, $int5, $namedobj12, $int13, $boolean7, $component8, $int9), 1;
 			if ($boolean10 = true) {
 				return($int0, $int1, $int2, $int14);
 			}
 		} else if ($boolean10 = false) {
-			$int2 = ~script3539($int2, $component8, $int9);
+			$int2 = ~poh_costumes_hideitem($int2, $component8, $int9);
 		}
 	}
 }
 $int13 = invother_total(inv_637, $namedobj6);
 if ($int14 = 0 | $int13 > 0) {
-	$int0, $int1, $int2 = ~script3538($int0, $int1, $int2, $int3, $int4, $int5, $namedobj6, $int13, $boolean7, $component8, $int9);
+	$int0, $int1, $int2 = ~poh_costumes_drawitem($int0, $int1, $int2, $int3, $int4, $int5, $namedobj6, $int13, $boolean7, $component8, $int9);
 	if ($int13 > 0) {
 		$int14 = 1;
 	}
 } else {
-	$int2 = ~script3539($int2, $component8, $int9);
+	$int2 = ~poh_costumes_hideitem($int2, $component8, $int9);
 }
 return($int0, $int1, $int2, $int14);
diff --git a/scripts/script3538.cs2 b/scripts/[proc,poh_costumes_drawitem].cs2
similarity index 65%
rename from scripts/script3538.cs2
rename to scripts/[proc,poh_costumes_drawitem].cs2
index ed2253831..9c5ebe243 100644
--- a/scripts/script3538.cs2
+++ b/scripts/[proc,poh_costumes_drawitem].cs2
@@ -1,5 +1,5 @@
 // 3538
-script3538(int $int0, int $int1, int $int2, int $int3, int $int4, int $int5, obj $obj6, int $int7, boolean $boolean8, component $component9, int $int10)(int, int, int)
+[proc,poh_costumes_drawitem](int $int0, int $int1, int $int2, int $int3, int $int4, int $int5, obj $obj6, int $int7, boolean $boolean8, component $component9, int $int10)(int, int, int)
 if ($int2 >= $int10) {
 	return($int0, $int1, $int2);
 }
@@ -10,14 +10,14 @@ if (cc_find($component9, $int2) = ^true) {
 	if ($int7 > 0) {
 		cc_setobject($obj6, $int7);
 		cc_settrans(0);
-		cc_setonop("script3542(event_opindex, event_com, event_comid, 100, 0)");
+		cc_setonop("poh_costumes_opgraphic(event_opindex, event_com, event_comid, 100, 0)");
 		if ($boolean8 = true) {
 			cc_setop(1, "Take");
 		}
 	} else {
 		cc_setobject_nonum($obj6, 1);
 		cc_settrans(140);
-		cc_setonop("script3542(event_opindex, event_com, event_comid, 180, 140)");
+		cc_setonop("poh_costumes_opgraphic(event_opindex, event_com, event_comid, 180, 140)");
 	}
 	cc_setop(10, "Examine");
 	cc_setopbase("<col=ff9040><oc_name($obj6)></col>");
diff --git a/scripts/script3547.cs2 b/scripts/[proc,poh_costumes_heightstretch].cs2
similarity index 62%
rename from scripts/script3547.cs2
rename to scripts/[proc,poh_costumes_heightstretch].cs2
index 8b57d312a..5ffbd12d2 100644
--- a/scripts/script3547.cs2
+++ b/scripts/[proc,poh_costumes_heightstretch].cs2
@@ -1,5 +1,5 @@
 // 3547
-script3547(component $component0, component $component1, component $component2, component $component3, int $int4, int $int5, int $int6)
+[proc,poh_costumes_heightstretch](component $component0, component $component1, component $component2, component $component3, int $int4, int $int5, int $int6)
 def_int $int7 = if_getheight($component0);
 if ($int7 = $int6) {
 	return;
@@ -14,4 +14,4 @@ if ($int4 > if_getheight($component2)) {
 }
 ~scrollbar_vertical_rebuild($component3, $component2);
 ~scrollbar_resize($component3, $component2, %varcint58);
-if_setontimer("script3546($component0, $component1, $component2, $component3, $int4, $int5, $int7)", $component0);
+if_setontimer("poh_costumes_heightstretch($component0, $component1, $component2, $component3, $int4, $int5, $int7)", $component0);
diff --git a/scripts/script3539.cs2 b/scripts/[proc,poh_costumes_hideitem].cs2
similarity index 68%
rename from scripts/script3539.cs2
rename to scripts/[proc,poh_costumes_hideitem].cs2
index faa98e662..ac848cfc5 100644
--- a/scripts/script3539.cs2
+++ b/scripts/[proc,poh_costumes_hideitem].cs2
@@ -1,5 +1,5 @@
 // 3539
-script3539(int $int0, component $component1, int $int2)(int)
+[proc,poh_costumes_hideitem](int $int0, component $component1, int $int2)(int)
 if ($int0 >= $int2) {
 	return($int0);
 }
diff --git a/scripts/script3543.cs2 b/scripts/[proc,poh_costumes_quicksort].cs2
similarity index 77%
rename from scripts/script3543.cs2
rename to scripts/[proc,poh_costumes_quicksort].cs2
index e5abffb76..26888f0c9 100644
--- a/scripts/script3543.cs2
+++ b/scripts/[proc,poh_costumes_quicksort].cs2
@@ -1,5 +1,5 @@
 // 3543
-script3543(intarray $intarray0, int $int1, int $int2, enum $enum3)
+[proc,poh_costumes_quicksort](intarray $intarray0, int $int1, int $int2, enum $enum3)
 def_int $int4 = calc(($int1 + $int2) / 2);
 def_int $int5 = $intarray0($int4);
 $intarray0($int4) = $intarray0($int2);
@@ -23,8 +23,8 @@ while ($int9 < $int2) {
 $intarray0($int2) = $intarray0($int8);
 $intarray0($int8) = $int5;
 if ($int1 < calc($int8 - 1)) {
-	~script3543(intarray0, $int1, calc($int8 - 1), $enum3);
+	~poh_costumes_quicksort(intarray0, $int1, calc($int8 - 1), $enum3);
 }
 if (calc($int8 + 1) < $int2) {
-	~script3543(intarray0, calc($int8 + 1), $int2, $enum3);
+	~poh_costumes_quicksort(intarray0, calc($int8 + 1), $int2, $enum3);
 }
diff --git a/scripts/script3544.cs2 b/scripts/[proc,poh_costumes_rightborder].cs2
similarity index 76%
rename from scripts/script3544.cs2
rename to scripts/[proc,poh_costumes_rightborder].cs2
index 6b9fc52b6..e3ae4af80 100644
--- a/scripts/script3544.cs2
+++ b/scripts/[proc,poh_costumes_rightborder].cs2
@@ -1,5 +1,5 @@
 // 3544
-script3544(int $int0, int $int1, int $int2)
+[proc,poh_costumes_rightborder](int $int0, int $int1, int $int2)
 .cc_setgraphic("v2_borders_slim,1");
 .cc_settrans(0);
 .cc_settiling(true);
diff --git a/scripts/script3561.cs2 b/scripts/[proc,poh_costumes_searchsort].cs2
similarity index 81%
rename from scripts/script3561.cs2
rename to scripts/[proc,poh_costumes_searchsort].cs2
index 94cc6694e..b99752c96 100644
--- a/scripts/script3561.cs2
+++ b/scripts/[proc,poh_costumes_searchsort].cs2
@@ -1,5 +1,5 @@
 // 3561
-script3561(intarray $intarray0, int $int1, int $int2)
+[proc,poh_costumes_searchsort](intarray $intarray0, int $int1, int $int2)
 def_int $int3 = calc(($int1 + $int2) / 2);
 def_int $int4 = $intarray0($int3);
 $intarray0($int3) = $intarray0($int2);
@@ -31,8 +31,8 @@ while ($int8 < $int2) {
 $intarray0($int2) = $intarray0($int7);
 $intarray0($int7) = $int4;
 if ($int1 < calc($int7 - 1)) {
-	~script3561(intarray0, $int1, calc($int7 - 1));
+	~poh_costumes_searchsort(intarray0, $int1, calc($int7 - 1));
 }
 if (calc($int7 + 1) < $int2) {
-	~script3561(intarray0, calc($int7 + 1), $int2);
+	~poh_costumes_searchsort(intarray0, calc($int7 + 1), $int2);
 }
diff --git a/scripts/[proc,telenexus_keyinput_matched].cs2 b/scripts/[proc,telenexus_keyinput_matched].cs2
new file mode 100644
index 000000000..65a6cd171
--- /dev/null
+++ b/scripts/[proc,telenexus_keyinput_matched].cs2
@@ -0,0 +1,6 @@
+// 2686
+[proc,telenexus_keyinput_matched](component $component0, int $int1, int $key2, string $string0, string $string1, int $int3, int $int4)
+if ($int1 ! -1 & cc_find($component0, $int1) = ^true) {
+	cc_resume_pausebutton;
+	cc_setonkey("telenexus_keyinput_listener(event_keypressed, event_keytyped, event_com, event_comid, $key2, $string0, $string1, $int3, calc(clientclock + 20))");
+}
diff --git a/scripts/[proc,worldswitcher_draw].cs2 b/scripts/[proc,worldswitcher_draw].cs2
index aec4f2b3b..6eef3d600 100644
--- a/scripts/[proc,worldswitcher_draw].cs2
+++ b/scripts/[proc,worldswitcher_draw].cs2
@@ -3,11 +3,11 @@
 if_setsize(0, $int5, ^setsize_minus, ^setsize_abs, $component6);
 if_setsize(16, $int5, ^setsize_minus, ^setsize_minus, $component0);
 if_setsize(16, $int5, ^setsize_abs, ^setsize_minus, $component1);
-~script760($component7, 2, 3, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
-~script760($component8, 0, 1, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
-~script760($component9, 4, 5, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
-~script760($component10, 8, 9, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
-~script760($component11, 6, 7, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
+~worldswitcher_sortbutton_draw($component7, 2, 3, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
+~worldswitcher_sortbutton_draw($component8, 0, 1, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
+~worldswitcher_sortbutton_draw($component9, 4, 5, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
+~worldswitcher_sortbutton_draw($component10, 8, 9, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
+~worldswitcher_sortbutton_draw($component11, 6, 7, $component0, $component1, $component2, $component3, $int4, $int5, $component6, $component7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15);
 switch_int (%varbit4596) {
 	case 2 :
 		worldlist_sort(7, false, 0, false);
@@ -82,10 +82,10 @@ if (%varbit4597 > 0) {
 		}
 		~worldswitcher_entry_draw($component13, 0, 0, $component13, -1, $int25, $int26, $string0, $int27, $int28, $int4, $int17, $int18, $int19, $int20, $int29, $int22, $int23, $component15);
 	} else {
-		~script893($component13);
+		~worldswitcher_wipe_favourite($component13);
 	}
 } else {
-	~script893($component12);
+	~worldswitcher_wipe_favourite($component12);
 	if (%varbit4598 > 0) {
 		if_sethide(true, $component14);
 		$int25, $int26, $string0, $int27, $int28, $string1 = worldlist_specific(%varbit4598);
@@ -95,6 +95,6 @@ if (%varbit4597 > 0) {
 		~worldswitcher_entry_draw($component13, 0, 0, $component13, -1, $int25, $int26, $string0, $int27, $int28, $int4, $int17, $int18, $int19, $int20, $int29, $int22, $int23, $component15);
 	} else {
 		if_sethide(false, $component14);
-		~script893($component13);
+		~worldswitcher_wipe_favourite($component13);
 	}
 }
diff --git a/scripts/[proc,worldswitcher_sortbutton_draw].cs2 b/scripts/[proc,worldswitcher_sortbutton_draw].cs2
new file mode 100644
index 000000000..6e2447ad2
--- /dev/null
+++ b/scripts/[proc,worldswitcher_sortbutton_draw].cs2
@@ -0,0 +1,26 @@
+// 760
+[proc,worldswitcher_sortbutton_draw](component $component0, int $int1, int $int2, component $component3, component $component4, component $component5, component $component6, int $int7, int $int8, component $component9, component $component10, component $component11, component $component12, component $component13, component $component14, component $component15, component $component16, component $component17, component $component18)
+if_sethide(false, $component0);
+cc_deleteall($component0);
+cc_create($component0, ^iftype_graphic, 0);
+cc_setsize(7, 5, ^setsize_abs, ^setsize_abs);
+cc_setposition(0, 0, ^setpos_abs_centre, ^setpos_abs_centre);
+if (%varbit4596 = $int2) {
+	cc_setgraphic("sortarrows,1");
+	cc_settrans(0);
+	if_setonmouseover("cc_settrans(event_com, cc_getid, 120, null)", $component0);
+	if_setonmouseleave("cc_settrans(event_com, cc_getid, 0, null)", $component0);
+	if_setonop("worldswitcher_sortbutton_op(event_opindex, $int1, $component3, $component4, $component5, $component6, $int7, $int8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17, $component18)", $component0);
+} else if (%varbit4596 = $int1) {
+	cc_setgraphic("sortarrows,0");
+	cc_settrans(0);
+	if_setonmouseover("cc_settrans(event_com, cc_getid, 120, null)", $component0);
+	if_setonmouseleave("cc_settrans(event_com, cc_getid, 0, null)", $component0);
+	if_setonop("worldswitcher_sortbutton_op(event_opindex, $int2, $component3, $component4, $component5, $component6, $int7, $int8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17, $component18)", $component0);
+} else {
+	cc_setgraphic("sortarrows,0");
+	cc_settrans(100);
+	if_setonmouseover("cc_settrans(event_com, cc_getid, 200, null)", $component0);
+	if_setonmouseleave("cc_settrans(event_com, cc_getid, 100, null)", $component0);
+	if_setonop("worldswitcher_sortbutton_op(event_opindex, $int1, $component3, $component4, $component5, $component6, $int7, $int8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17, $component18)", $component0);
+}
diff --git a/scripts/script893.cs2 b/scripts/[proc,worldswitcher_wipe_favourite].cs2
similarity index 56%
rename from scripts/script893.cs2
rename to scripts/[proc,worldswitcher_wipe_favourite].cs2
index 49796c0af..abfa93ab1 100644
--- a/scripts/script893.cs2
+++ b/scripts/[proc,worldswitcher_wipe_favourite].cs2
@@ -1,4 +1,4 @@
 // 893
-script893(component $component0)
+[proc,worldswitcher_wipe_favourite](component $component0)
 if_setonop(null, $component0);
 if_setonmouserepeat(null, $component0);
diff --git a/scripts/script2675.cs2 b/scripts/script2675.cs2
index 1bb4b73ec..cb7e03d17 100644
--- a/scripts/script2675.cs2
+++ b/scripts/script2675.cs2
@@ -45,7 +45,7 @@ if ($int9 = 1 & $int8 < 36) {
 	}
 	$string0 = append("<col=ffffff><$string1></col> :  ", $string0);
 	if ($struct7 ! null) {
-		.cc_setonkey("script2685(event_keypressed, event_keytyped, $component0, cc_getid, null, $string1, $string2, 16777215, 0)");
+		.cc_setonkey("telenexus_keyinput_listener(event_keypressed, event_keytyped, $component0, cc_getid, null, $string1, $string2, 16777215, 0)");
 	}
 }
 cc_settext($string0);
diff --git a/scripts/script2686.cs2 b/scripts/script2686.cs2
deleted file mode 100644
index 6fd9af86b..000000000
--- a/scripts/script2686.cs2
+++ /dev/null
@@ -1,6 +0,0 @@
-// 2686
-script2686(component $component0, int $int1, int $key2, string $string0, string $string1, int $int3, int $int4)
-if ($int1 ! -1 & cc_find($component0, $int1) = ^true) {
-	cc_resume_pausebutton;
-	cc_setonkey("script2685(event_keypressed, event_keytyped, event_com, event_comid, $key2, $string0, $string1, $int3, calc(clientclock + 20))");
-}
diff --git a/scripts/script3533.cs2 b/scripts/script3533.cs2
deleted file mode 100644
index cd62889dd..000000000
--- a/scripts/script3533.cs2
+++ /dev/null
@@ -1,3 +0,0 @@
-// 3533
-script3533(enum $enum0, int $int1, int $int2, int $int3, boolean $boolean4, component $component5, component $component6, int $int7, graphic $graphic8, component $component9, int $int10)
-~script3534($enum0, $int1, $int2, $int3, $boolean4, $component5, $component6, $int7, $graphic8, $component9, $int10);
diff --git a/scripts/script3546.cs2 b/scripts/script3546.cs2
deleted file mode 100644
index 8e38ee3bd..000000000
--- a/scripts/script3546.cs2
+++ /dev/null
@@ -1,3 +0,0 @@
-// 3546
-script3546(component $component0, component $component1, component $component2, component $component3, int $int4, int $int5, int $int6)
-~script3547($component0, $component1, $component2, $component3, $int4, $int5, $int6);
diff --git a/scripts/script3548.cs2 b/scripts/script3548.cs2
deleted file mode 100644
index 2301a4c78..000000000
--- a/scripts/script3548.cs2
+++ /dev/null
@@ -1,3 +0,0 @@
-// 3548
-script3548(component $component0)
-~script3549($component0);
diff --git a/scripts/script3550.cs2 b/scripts/script3550.cs2
deleted file mode 100644
index 741094a1e..000000000
--- a/scripts/script3550.cs2
+++ /dev/null
@@ -1,3 +0,0 @@
-// 3550
-script3550(component $component0, graphic $graphic1, obj $obj2, boolean $boolean3)
-~script3551($component0, $graphic1, $obj2, $boolean3);
diff --git a/scripts/script3552.cs2 b/scripts/script3552.cs2
deleted file mode 100644
index 0d1f38463..000000000
--- a/scripts/script3552.cs2
+++ /dev/null
@@ -1,9 +0,0 @@
-// 3552
-script3552(int $int0, component $component1, graphic $graphic2, obj $obj3)
-if ($int0 ! 1) {
-	return;
-}
-sound_synth(synth_2266, 1, 0);
-~script3551($component1, $graphic2, $obj3, true);
-if_setontimer("script3553($component1, $graphic2, $obj3, calc(clientclock + 30))", $component1);
-if_setonop(null, $component1);
diff --git a/scripts/script3553.cs2 b/scripts/script3553.cs2
deleted file mode 100644
index 8e988657e..000000000
--- a/scripts/script3553.cs2
+++ /dev/null
@@ -1,5 +0,0 @@
-// 3553
-script3553(component $component0, graphic $graphic1, obj $obj2, int $int3)
-if (clientclock >= $int3) {
-	~script3554($component0, $graphic1, $obj2);
-}
diff --git a/scripts/script3554.cs2 b/scripts/script3554.cs2
deleted file mode 100644
index eb7658298..000000000
--- a/scripts/script3554.cs2
+++ /dev/null
@@ -1,5 +0,0 @@
-// 3554
-script3554(component $component0, graphic $graphic1, obj $obj2)
-~script3551($component0, $graphic1, $obj2, false);
-if_setontimer(null, $component0);
-if_setonop("script3552(event_opindex, $component0, $graphic1, $obj2)", $component0);
diff --git a/scripts/script3555.cs2 b/scripts/script3555.cs2
deleted file mode 100644
index fdca9ec2f..000000000
--- a/scripts/script3555.cs2
+++ /dev/null
@@ -1,12 +0,0 @@
-// 3555
-script3555(int $int0, component $component1, graphic $graphic2)
-if ($int0 ! 1) {
-	return;
-}
-sound_synth(synth_2266, 1, 0);
-%varbit10581 = calc(1 - %varbit10581);
-def_boolean $boolean3 = ~int_to_bool(%varbit10581);
-~script3551($component1, $graphic2, null, $boolean3);
-if_setontimer("script3556($component1, $graphic2, calc(clientclock + 30))", $component1);
-if_setonop(null, $component1);
-if_setonvartransmit(null, $component1);
diff --git a/scripts/script3556.cs2 b/scripts/script3556.cs2
deleted file mode 100644
index 0846b1a06..000000000
--- a/scripts/script3556.cs2
+++ /dev/null
@@ -1,5 +0,0 @@
-// 3556
-script3556(component $component0, graphic $graphic1, int $int2)
-if (clientclock >= $int2) {
-	~script3557($component0, $graphic1);
-}
diff --git a/scripts/script3557.cs2 b/scripts/script3557.cs2
deleted file mode 100644
index e79f3cf42..000000000
--- a/scripts/script3557.cs2
+++ /dev/null
@@ -1,7 +0,0 @@
-// 3557
-script3557(component $component0, graphic $graphic1)
-def_boolean $boolean2 = ~int_to_bool(%varbit10581);
-if_setonvartransmit("script3556($component0, $graphic1, 0){var1141}", $component0);
-~script3551($component0, $graphic1, null, $boolean2);
-if_setontimer(null, $component0);
-if_setonop("script3555(event_opindex, $component0, $graphic1)", $component0);
diff --git a/scripts/script3560.cs2 b/scripts/script3560.cs2
index 5ca18c551..812779862 100644
--- a/scripts/script3560.cs2
+++ b/scripts/script3560.cs2
@@ -34,8 +34,8 @@ while ($int4 > 0) {
 					if (string_length(%varcstring359) <= 0 | string_indexof_string(lowercase($string0), lowercase(%varcstring359), 0) ! -1) {
 						cc_create(interface_162:53, ^iftype_rectangle, $int3);
 						cc_setopbase("<col=ff9040><$string0></col>");
-						cc_setonop("script3562($obj6, $enum0, ^key_return)");
-						cc_setonkey("script3562($obj6, $enum0, event_keypressed)");
+						cc_setonop("poh_costumes_searchresult($obj6, $enum0, ^key_return)");
+						cc_setonkey("poh_costumes_searchresult($obj6, $enum0, event_keypressed)");
 						$int3 = calc($int3 + 1);
 						cc_create(interface_162:53, ^iftype_graphic, $int3);
 						cc_setobject_nonum($obj12, 1);
@@ -53,8 +53,8 @@ while ($int4 > 0) {
 					if (string_length(%varcstring359) <= 0 | string_indexof_string(lowercase($string0), lowercase(%varcstring359), 0) ! -1) {
 						cc_create(interface_162:53, ^iftype_rectangle, $int3);
 						cc_setopbase("<col=ff9040><$string0></col>");
-						cc_setonop("script3562($obj6, $enum0, ^key_return)");
-						cc_setonkey("script3562($obj6, $enum0, event_keypressed)");
+						cc_setonop("poh_costumes_searchresult($obj6, $enum0, ^key_return)");
+						cc_setonkey("poh_costumes_searchresult($obj6, $enum0, event_keypressed)");
 						$int3 = calc($int3 + 1);
 						cc_create(interface_162:53, ^iftype_graphic, $int3);
 						cc_setobject_nonum($obj12, 1);
@@ -70,8 +70,8 @@ while ($int4 > 0) {
 			if (string_length(%varcstring359) <= 0 | string_indexof_string(lowercase($string0), lowercase(%varcstring359), 0) ! -1) {
 				cc_create(interface_162:53, ^iftype_rectangle, $int3);
 				cc_setopbase("<col=ff9040><$string0></col>");
-				cc_setonop("script3562($obj6, $enum0, ^key_return)");
-				cc_setonkey("script3562($obj6, $enum0, event_keypressed)");
+				cc_setonop("poh_costumes_searchresult($obj6, $enum0, ^key_return)");
+				cc_setonkey("poh_costumes_searchresult($obj6, $enum0, event_keypressed)");
 				$int3 = calc($int3 + 1);
 				cc_create(interface_162:53, ^iftype_graphic, $int3);
 				cc_setobject_nonum($obj9, 1);
@@ -94,8 +94,8 @@ while ($int4 > 0) {
 					cc_create(interface_162:53, ^iftype_rectangle, $int3);
 					cc_setopbase("<col=ff9040><$string0></col>");
 					$int3 = calc($int3 + 1);
-					cc_setonop("script3562($obj6, $enum0, ^key_return)");
-					cc_setonkey("script3562($obj6, $enum0, event_keypressed)");
+					cc_setonop("poh_costumes_searchresult($obj6, $enum0, ^key_return)");
+					cc_setonkey("poh_costumes_searchresult($obj6, $enum0, event_keypressed)");
 					cc_create(interface_162:53, ^iftype_graphic, $int3);
 					cc_setobject_nonum($obj12, 1);
 					$intarray0($int5) = $int3;
@@ -112,8 +112,8 @@ while ($int4 > 0) {
 				if (string_length(%varcstring359) <= 0 | string_indexof_string(lowercase($string0), lowercase(%varcstring359), 0) ! -1) {
 					cc_create(interface_162:53, ^iftype_rectangle, $int3);
 					cc_setopbase("<col=ff9040><$string0></col>");
-					cc_setonop("script3562($obj6, $enum0, ^key_return)");
-					cc_setonkey("script3562($obj6, $enum0, event_keypressed)");
+					cc_setonop("poh_costumes_searchresult($obj6, $enum0, ^key_return)");
+					cc_setonkey("poh_costumes_searchresult($obj6, $enum0, event_keypressed)");
 					$int3 = calc($int3 + 1);
 					cc_create(interface_162:53, ^iftype_graphic, $int3);
 					cc_setobject_nonum($obj12, 1);
@@ -129,8 +129,8 @@ while ($int4 > 0) {
 		if (string_length(%varcstring359) <= 0 | string_indexof_string(lowercase($string0), lowercase(%varcstring359), 0) ! -1) {
 			cc_create(interface_162:53, ^iftype_rectangle, $int3);
 			cc_setopbase("<col=ff9040><$string0></col>");
-			cc_setonop("script3562($obj6, $enum0, ^key_return)");
-			cc_setonkey("script3562($obj6, $enum0, event_keypressed)");
+			cc_setonop("poh_costumes_searchresult($obj6, $enum0, ^key_return)");
+			cc_setonkey("poh_costumes_searchresult($obj6, $enum0, event_keypressed)");
 			$int3 = calc($int3 + 1);
 			cc_create(interface_162:53, ^iftype_graphic, $int3);
 			cc_setobject_nonum($obj6, 1);
@@ -147,7 +147,7 @@ if ($int5 <= 0) {
 	return;
 }
 if ($int5 >= 2) {
-	~script3561(intarray0, 0, calc($int5 - 1));
+	~poh_costumes_searchsort(intarray0, 0, calc($int5 - 1));
 }
 def_int $int13 = calc($int1 / 3);
 def_int $int14 = calc($int1 - $int13);
diff --git a/scripts/script3564.cs2 b/scripts/script3564.cs2
deleted file mode 100644
index 9be521de0..000000000
--- a/scripts/script3564.cs2
+++ /dev/null
@@ -1,5 +0,0 @@
-// 3564
-script3564(enum $enum0, component $component1, graphic $graphic2)
-if (%varcint5 ! 17) {
-	~script3565($enum0, $component1, $graphic2);
-}
diff --git a/scripts/script3565.cs2 b/scripts/script3565.cs2
deleted file mode 100644
index 1e81ae1a5..000000000
--- a/scripts/script3565.cs2
+++ /dev/null
@@ -1,7 +0,0 @@
-// 3565
-script3565(enum $enum0, component $component1, graphic $graphic2)
-if_clearops($component1);
-if_setop(1, "Search", $component1);
-~script3551($component1, $graphic2, null, false);
-if_setontimer(null, $component1);
-if_setonop("script3558(event_opindex, $enum0, $component1, $graphic2)", $component1);
diff --git a/scripts/script760.cs2 b/scripts/script760.cs2
deleted file mode 100644
index be9379bf9..000000000
--- a/scripts/script760.cs2
+++ /dev/null
@@ -1,26 +0,0 @@
-// 760
-script760(component $component0, int $int1, int $int2, component $component3, component $component4, component $component5, component $component6, int $int7, int $int8, component $component9, component $component10, component $component11, component $component12, component $component13, component $component14, component $component15, component $component16, component $component17, component $component18)
-if_sethide(false, $component0);
-cc_deleteall($component0);
-cc_create($component0, ^iftype_graphic, 0);
-cc_setsize(7, 5, ^setsize_abs, ^setsize_abs);
-cc_setposition(0, 0, ^setpos_abs_centre, ^setpos_abs_centre);
-if (%varbit4596 = $int2) {
-	cc_setgraphic("sortarrows,1");
-	cc_settrans(0);
-	if_setonmouseover("cc_settrans(event_com, cc_getid, 120, null)", $component0);
-	if_setonmouseleave("cc_settrans(event_com, cc_getid, 0, null)", $component0);
-	if_setonop("script761(event_opindex, $int1, $component3, $component4, $component5, $component6, $int7, $int8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17, $component18)", $component0);
-} else if (%varbit4596 = $int1) {
-	cc_setgraphic("sortarrows,0");
-	cc_settrans(0);
-	if_setonmouseover("cc_settrans(event_com, cc_getid, 120, null)", $component0);
-	if_setonmouseleave("cc_settrans(event_com, cc_getid, 0, null)", $component0);
-	if_setonop("script761(event_opindex, $int2, $component3, $component4, $component5, $component6, $int7, $int8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17, $component18)", $component0);
-} else {
-	cc_setgraphic("sortarrows,0");
-	cc_settrans(100);
-	if_setonmouseover("cc_settrans(event_com, cc_getid, 200, null)", $component0);
-	if_setonmouseleave("cc_settrans(event_com, cc_getid, 100, null)", $component0);
-	if_setonop("script761(event_opindex, $int1, $component3, $component4, $component5, $component6, $int7, $int8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17, $component18)", $component0);
-}
diff --git a/scripts/script761.cs2 b/scripts/script761.cs2
deleted file mode 100644
index 51540d07b..000000000
--- a/scripts/script761.cs2
+++ /dev/null
@@ -1,8 +0,0 @@
-// 761
-script761(int $int0, int $int1, component $component2, component $component3, component $component4, component $component5, int $int6, int $int7, component $component8, component $component9, component $component10, component $component11, component $component12, component $component13, component $component14, component $component15, component $component16, component $component17)
-if ($int0 ! 1) {
-	return;
-}
-sound_synth(synth_2266, 1, 0);
-%varbit4596 = $int1;
-~worldswitcher_draw($component2, $component3, $component4, $component5, $int6, $int7, $component8, $component9, $component10, $component11, $component12, $component13, $component14, $component15, $component16, $component17);