SRL Archive - OSR Help

Simba for 07 isn't working for me.


Protential

2013-05-05 09:56:44

G'day! I've been trying to get Simba to work for the past 2 hours, I've went through countless tutorials and re-installations to try and get it to work.
I've decided to just seek help by posting a thread.
The script I'm attempting to use:
ineedbot's AIO Chopper
program AIO_Chopper;
{$DEFINE SMART}
{$I SRL-OSR/SRL.Simba}
{$I SPS/sps-osr.simba}
{$I SRL-OSR/srl/misc/SmartGraphics.simba}
var
Location, TreeName: string;
Banking, PowerChop, InitWait, AxeFailSafeToggle, Started, Wielding:boolean;
BankDTM, X1, Y1, X2, Y2, BankTol, TreeTol, AxeFailSafeTime, LocFailSafe, AxeFailSafe, LastHP, AxeFailSafe1, AxeFailSafe2, XP, Money, CurrentTree, LastTree, Chopped, StartTime, Lagg, ChopWaitTime, AnimationCheck, AmountOfTreeLocs, BankBoothColor, TreeColor: integer;
TreeLoc1, TreeLoc2, TreeLoc3, TreeLoc4, LastToBank, LastToTrees:TPoint;
PathToTrees, PathToBank: TPointArray;
DsgnForm:TForm;
TLabel15,TLabel16,TLabel17,TLabel18,TLabel19,TLabel20,TLabel21,TLabel24: TLabel;
TEdit0,TEdit1,TEdit2,TEdit3,TEdit4,TEdit5,TEdit6,TEdit7,TEdit8,TEdit9,TEdit10: TEdit;
TImage11,TImage12,TImage14: TImage;
TButton22: TButton;
TCheckBox23: TCheckBox;
TComboBox13: TComboBox;
bmps0,bmps1,bmps2: TMufasaBitmap;
bmp0,bmp1,bmp2: TBitmap;
const
default = 'Comic Sans MS';

procedure DeclareThings;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := TEdit0.TEXT ;
Players[0].Pass := TEdit2.TEXT ;
Players[0].Nick := TEdit1.TEXT;
Players[0].Active:= True;
Players[0].Pin:= Tedit3.TEXT ;

Wielding := TCheckBox23.CHECKED;
AnimationCheck := strtoint(TEdit6.TEXT);
ChopWaitTime := strtoint(TEdit5.TEXT);
Lagg := strtoint(TEdit4.TEXT);

X1 := strtoint(Tedit7.TEXT);
Y1 := strtoint(Tedit8.TEXT);
X2 := strtoint(Tedit9.TEXT);
Y2 := strtoint(Tedit10.TEXT);

case TComboBox13.ITEMINDEX of
0: Location := 'Falador Yews';
1: Location := 'Rimmington Yews';
2: Location := 'Draynor Yews';
3: Location := 'Edgeville Yews';
4: Location := 'Draynor Willows';
5: Location := 'Seers Magics 1';
6: Location := 'Seers Magics 2';
7: Location := 'Varrock Palace Yews';
8: Location := 'Varrock Prayer Yew';
9: Location := 'Seers Yews';
10: Location := 'Catherby Yews';
11: Location := 'Seers Maples';
12: Location := 'Barbarian Assault Willows';
13: Location := 'Powerchop Willows';
14: Location := 'Seers Willows';
15: Location := 'Draynor Oaks';
16: Location := 'Lumbridge Courtyard Yew';
17: Location := 'Varrock Oaks';
18: Location := 'Catherby Willows';
19: Location := 'Catherby Yews 2';
20: Location := 'LEGACY Draynor Willows';
21: Location := 'LEGACY Seers Maples';
end;

writeln(Location);

PowerChop := false;
TreeTol:= 5;
BankTol:= 10;

if(Location = 'LEGACY Seers Maples') then
begin
BankDTM := DTMFromString('mQwAAAHicY2ZgYOBnYWAQBmJpIH7IgMB//jDBMSuQD8OMSBgIAFujCPA=');
TreeName := 'Maple';
TreeColor := 12892;
BankBoothColor := 8229016;
end;

if(Location = 'LEGACY Draynor Willows') then
begin
BankDTM:= DTMFromString('mQwAAAHicY2ZgYGhmYmDohmIZBgiWAOK3bxGYiwGBGZEwEAAAMdAHog==');
BankBoothColor := 2578800;
TreeColor := 2524788;
TreeName := 'Willow';
end;

if(location = 'Catherby Yews 2') then
begin
SPS_Setup(runescape_surface, ['6_6', '6_7', '7_6', '7_7']);
PathToBank := [Point(2889, 2870), Point(2895, 2874), Point(2895, 2888), Point(2898, 2898), Point(2900, 2908), Point(2900, 2916), Point(2902, 2922), Point(2902, 2933), Point(2906, 2933), Point(2912, 2933), Point(2916, 2933), Point(2933, 2933), Point(2938, 2931), Point(2952, 2931), Point(2959, 2931), Point(2966, 2932), Point(2976, 2939), Point(2981, 2939), Point(2999, 2943), Point(3008, 2943), Point(3018, 2943), Point(3025, 2943), Point(3029, 2942), Point(3040, 2938), Point(3050, 2936), Point(3051, 2934), Point(3053, 2922), Point(3053, 2920), Point(3054, 2916)];
PathToTrees := [Point(3057, 2916), Point(3057, 2927), Point(3058, 2933), Point(3053, 2936), Point(3040, 2937), Point(3036, 2939), Point(3022, 2944), Point(3010, 2946), Point(2990, 2946), Point(2984, 2944), Point(2977, 2931), Point(2972, 2925), Point(2969, 2921), Point(2961, 2921), Point(2957, 2921), Point(2946, 2928), Point(2936, 2929), Point(2932, 2930), Point(2926, 2932), Point(2915, 2933), Point(2913, 2931), Point(2905, 2931), Point(2902, 2930)];
AmountOfTreeLocs := 2;
TreeLoc1 := Point(2902, 2930);
TreeLoc2 := Point(2889, 2870);
LastToTrees := Point(2902, 2930);
LastToBank := Point(3057, 2916);
TreeName := 'Yew';
TreeColor := 2195311;
BankBoothColor:= 6517883;
end;

if(Location = 'Catherby Willows') then
begin
SPS_Setup(runescape_surface, ['6_6', '6_7', '7_6', '7_7']);
PathToBank := [Point(2956, 2969), Point(2965, 2966), Point(2975, 2965), Point(2979, 2963), Point(2980, 2953), Point(2981, 2946), Point(2993, 2943), Point(3007, 2944), Point(3018, 2945), Point(3027, 2945), Point(3034, 2942), Point(3047, 2933), Point(3052, 2924), Point(3054, 2917), Point(3054, 2915)];
PathToTrees := [Point(3054, 2915), Point(3054, 2917), Point(3052, 2924), Point(3047, 2933), Point(3034, 2942), Point(3027, 2945), Point(3018, 2945), Point(3007, 2944), Point(2993, 2943), Point(2981, 2946), Point(2980, 2953), Point(2979, 2963), Point(2975, 2965), Point(2965, 2966), Point(2956, 2969)];
AmountOfTreeLocs := 1;
TreeLoc1 := Point(2956, 2969);
LastToTrees := Point(2956, 2969);
LastToBank := Point(3054, 2915);
TreeName := 'Willow';
TreeColor := 5684134;
TreeTol := 5;
BankBoothColor:= 6517883;
end;

if(Location = 'Varrock Oaks') then //SPS FIX!!
begin
LastToBank := Point(4582, 2935);
LastToTrees := Point(4497, 2998);
TreeLoc1 := Point(4497, 2998);
TreeLoc2 := Point(4479, 3023);
AmountOfTreeLocs := 2;
TreeColor := 4689022;
TreeName := 'Oak';
BankBoothColor := 2706778;
SPS_Setup(runescape_surface, ['10_6', '10_7', '11_6', '11_7']);
PathToBank := [Point(4479, 3023), Point(4485, 3024), Point(4491, 3024), Point(4496, 3024), Point(4498, 3021), Point(4499, 3018), Point(4499, 3010), Point(4499, 3003), Point(4499, 3000), Point(4499, 2994), Point(4504, 2987), Point(4510, 2980), Point(4516, 2974), Point(4520, 2969), Point(4525, 2966), Point(4538, 2960), Point(4544, 2960), Point(4553, 2957), Point(4563, 2955), Point(4566, 2955), Point(4567, 2952), Point(4567, 2946), Point(4568, 2941), Point(4575, 2935), Point(4577, 2935), Point(4582, 2935)];
PathToTrees := [Point(4583, 2935), Point(4580, 2935), Point(4576, 2935), Point(4573, 2935), Point(4571, 2939), Point(4571, 2945), Point(4571, 2949), Point(4564, 2954), Point(4552, 2956), Point(4537, 2956), Point(4525, 2957), Point(4518, 2960), Point(4516, 2967), Point(4514, 2971), Point(4512, 2977), Point(4509, 2983), Point(4505, 2988), Point(4502, 2992), Point(4500, 2997), Point(4497, 2998)];
end;

if(Location = 'Lumbridge Courtyard Yew') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(4821, 3887);
TreeName := 'Yew';
TreeColor := 2195311;
BankBoothColor := 2772570;
SPS_Setup(runescape_surface, ['10_8', '10_9', '11_8', '11_9', '12_9']);
end;

if(Location = 'Seers Willows') then
begin
LastToBank := Point(2723, 2705);
LastToTrees := Point(2665, 2635);
TreeLoc1 := LastToTrees;
AmountOfTreeLocs := 1;
TreeColor := 3698276;
TreeName := 'Willow';
BankBoothColor := 6187887;
SPS_Setup(runescape_surface, ['5_5', '5_6', '6_5', '6_6']);
PathToBank := [Point(2665, 2635), Point(2672, 2643), Point(2672, 2652), Point(2672, 2652), Point(2679, 2672), Point(2684, 2682), Point(2685, 2686), Point(2688, 2700), Point(2689, 2709), Point(2690, 2717), Point(2688, 2727), Point(2695, 2736), Point(2700, 2736), Point(2715, 2736), Point(2723, 2735), Point(2723, 2723), Point(2723, 2714), Point(2723, 2705)];
PathToTrees := [Point(2723, 2705), Point(2723, 2714), Point(2723, 2723), Point(2723, 2735), Point(2715, 2736), Point(2700, 2736), Point(2695, 2736), Point(2688, 2727), Point(2690, 2717), Point(2689, 2709), Point(2688, 2700), Point(2685, 2686), Point(2684, 2682), Point(2679, 2672), Point(2672, 2652), Point(2672, 2652), Point(2672, 2643), Point(2665, 2635)];
end;

if(Location = 'Powerchop Willows') then
begin
TreeColor := 3698276;
TreeName := 'Willow';
PowerChop := true;
end;

if(Location = 'Barbarian Assault Willows') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(1889, 2356);
TreeName := 'Willow';
BankBoothColor := 11584459;
TreeColor := 3698276;
SPS_Setup(runescape_surface, ['4_5']);
end;

if(Location = 'Falador Yews') then
begin
AmountOfTreeLocs := 3;
TreeLoc1 := Point(3810, 3437);
TreeLoc2 := Point(3901, 3419);
TreeLoc3 := Point(3991, 3406);
TreeName := 'Yew';
BankBoothColor := 4612986;
BankTol := 5;
TreeColor := 807752;
TreeTol := 2;
SPS_Setup(runescape_surface, ['8_7', '8_8', '9_7', '9_8']);
LastToBank := Point(3875, 3261);
PathToBank := [Point(3993, 3406), Point(3986, 3407), Point(3976, 3407), Point(3963, 3409), Point(3954, 3411), Point(3940, 3414), Point(3929, 3417), Point(3905, 3421), Point(3893, 3424), Point(3878, 3426), Point(3865, 3430), Point(3858, 3437), Point(3843, 3438), Point(3822, 3440), Point(3810, 3437), Point(3816, 3430), Point(3821, 3416), Point(3831, 3407), Point(3839, 3407), Point(3852, 3403), Point(3851, 3395), Point(3850, 3385), Point(3848, 3372), Point(3849, 3365), Point(3852, 3352), Point(3852, 3341), Point(3851, 3324), Point(3851, 3313), Point(3851, 3295), Point(3848, 3290), Point(3849, 3267), Point(3854, 3253), Point(3854, 3242), Point(3860, 3242), Point(3871, 3238), Point(3875, 3247), Point(3875, 3261)];
LastToTrees := Point(3810, 3437);
PathToTrees := [Point(3875, 3261), Point(3875, 3247), Point(3871, 3238), Point(3860, 3242), Point(3854, 3242), Point(3854, 3253), Point(3849, 3267), Point(3848, 3290), Point(3851, 3295), Point(3851, 3313), Point(3851, 3324), Point(3852, 3341), Point(3852, 3352), Point(3849, 3365), Point(3848, 3372), Point(3850, 3385), Point(3851, 3395), Point(3852, 3403), Point(3839, 3407), Point(3831, 3407), Point(3821, 3416), Point(3816, 3430), Point(3810, 3437)];
end;

if(Location = 'Rimmington Yews') then
begin
AmountOfTreeLocs := 3;
TreeLoc1 := Point(3586, 3768);
TreeLoc2 := Point(3558, 3789);
TreeLoc3 := Point(3555, 3760);
TreeName := 'Yew';
BankBoothColor := 2904671;
TreeColor := 4936537;
SPS_Setup(runescape_surface, ['7_8', '7_9', '8_8', '8_9', '9_8', '9_9']);
LastToBank := Point(3875, 3258);
PathToBank := [Point(3583, 3761), Point(3595, 3753), Point(3606, 3740), Point(3618, 3731), Point(3630, 3724), Point(3642, 3718), Point(3656, 3704), Point(3663, 3692), Point(3673, 3678), Point(3687, 3664), Point(3696, 3657), Point(3705, 3650), Point(3713, 3643), Point(3720, 3632), Point(3724, 3620), Point(3721, 3609), Point(3731, 3596), Point(3744, 3588), Point(3756, 3582), Point(3772, 3576), Point(3784, 3570), Point(3801, 3556), Point(3809, 3552), Point(3821, 3537), Point(3831, 3530), Point(3834, 3528), Point(3839, 3514), Point(3841, 3498), Point(3842, 3481), Point(3842, 3467), Point(3843, 3454), Point(3848, 3440), Point(3851, 3424), Point(3852, 3409), Point(3851, 3385), Point(3847, 3371), Point(3847, 3353), Point(3847, 3333), Point(3852, 3317), Point(3852, 3298), Point(3852, 3283), Point(3852, 3269), Point(3852, 3255), Point(3851, 3243), Point(3859, 3237), Point(3873, 3239), Point(3878, 3248), Point(3875, 3258)];
LastToTrees := Point(3583, 3761);
PathToTrees := [Point(3875, 3258), Point(3878, 3248), Point(3873, 3239), Point(3859, 3237), Point(3851, 3243), Point(3852, 3255), Point(3852, 3269), Point(3852, 3283), Point(3852, 3298), Point(3852, 3317), Point(3847, 3333), Point(3847, 3353), Point(3847, 3371), Point(3851, 3385), Point(3852, 3409), Point(3851, 3424), Point(3848, 3440), Point(3843, 3454), Point(3842, 3467), Point(3842, 3481), Point(3841, 3498), Point(3839, 3514), Point(3834, 3528), Point(3831, 3530), Point(3821, 3537), Point(3809, 3552), Point(3801, 3556), Point(3784, 3570), Point(3772, 3576), Point(3756, 3582), Point(3744, 3588), Point(3731, 3596), Point(3721, 3609), Point(3724, 3620), Point(3720, 3632), Point(3713, 3643), Point(3705, 3650), Point(3696, 3657), Point(3687, 3664), Point(3673, 3678), Point(3663, 3692), Point(3656, 3704), Point(3642, 3718), Point(3630, 3724), Point(3618, 3731), Point(3606, 3740), Point(3595, 3753), Point(3583, 3761)];
end;

if(Location = 'Draynor Yews') then
begin
AmountOfTreeLocs := 4;
TreeLoc1 := Point(4414, 3668);
TreeLoc2 := Point(4434, 3767);
TreeLoc3 := Point(4490, 3811);
TreeLoc4 := Point(4566, 3783);
TreeName := 'Yew';
BankBoothColor := 4936537;
TreeColor := 807752;
TreeTol := 2;
SPS_Setup(runescape_surface, ['10_8', '10_9', '11_9', '9_8', '9_9']);
LastToBank := Point(4194, 3712);
PathToBank := [Point(4568, 3783), Point(4559, 3786), Point(4547, 3791), Point(4535, 3794), Point(4524, 3802), Point(4517, 3805), Point(4507, 3809), Point(4494, 3813), Point(4487, 3813), Point(4476, 3809), Point(4460, 3801), Point(4457, 3799), Point(4449, 3789), Point(4444, 3782), Point(4436, 3772), Point(4435, 3766), Point(4429, 3752), Point(4428, 3741), Point(4423, 3726), Point(4419, 3716), Point(4417, 3704), Point(4414, 3686), Point(4412, 3676), Point(4411, 3665), Point(4406, 3663), Point(4390, 3663), Point(4371, 3663), Point(4360, 3669), Point(4349, 3677), Point(4341, 3678), Point(4327, 3682), Point(4320, 3682), Point(4312, 3683), Point(4297, 3684), Point(4287, 3685), Point(4277, 3686), Point(4263, 3690), Point(4252, 3688), Point(4233, 3688), Point(4216, 3692), Point(4214, 3692), Point(4205, 3693), Point(4195, 3697), Point(4195, 3701), Point(4194, 3712)];
LastToTrees := Point(4412, 3669);
PathToTrees := [Point(4195, 3718), Point(4196, 3701), Point(4208, 3694), Point(4226, 3689), Point(4259, 3687), Point(4280, 3687), Point(4294, 3687), Point(4311, 3687), Point(4326, 3685), Point(4344, 3684), Point(4354, 3681), Point(4382, 3678), Point(4394, 3675), Point(4412, 3669)];
end;

if(Location = 'Edgeville Yews') then //SPS FIX!!!
begin
AmountOfTreeLocs := 2;
TreeLoc1 := Point(4201, 2712);
TreeLoc2 := Point(4171, 2757);
TreeName := 'Yew';
BankBoothColor := 2904671;
TreeColor := 2195311;
SPS_Setup(runescape_surface, ['10_5', '10_6', '10_7', '9_5', '9_6', '9_7']);
LastToBank := Point(4201, 2712);
PathToBank := [Point(4201, 2712), Point(4187, 2714), Point(4178, 2713), Point(4174, 2730), Point(4183, 2738), Point(4196, 2741), Point(4199, 2759), Point(4200, 2771), Point(4201, 2785), Point(4194, 2795), Point(4185, 2795), Point(4174, 2794)];
LastToTrees := Point(4201, 2712);
PathToTrees := [Point(4201, 2712), Point(4187, 2714), Point(4178, 2713), Point(4174, 2730), Point(4183, 2738), Point(4196, 2741), Point(4199, 2759), Point(4200, 2771), Point(4201, 2785), Point(4194, 2795), Point(4185, 2795), Point(4174, 2794)];
end;

if(Location = 'Seers Magics 2') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(2626, 3089);
TreeName := 'Mag'; //srl fix !!
TreeColor := 7579819;
BankBoothColor := 6187887;
TreeTol:= 5;
SPS_Setup(runescape_surface, ['5_6', '5_7', '6_6', '6_7']);
LastToBank := Point(2723, 2708);
PathToBank := [Point(2626, 3089), Point(2624, 3104), Point(2632, 3111), Point(2645, 3113), Point(2659, 3113), Point(2672, 3103), Point(2675, 3093), Point(2676, 3078), Point(2673, 3063), Point(2671, 3043), Point(2671, 3029), Point(2668, 3014), Point(2669, 3000), Point(2670, 2984), Point(2670, 2954), Point(2667, 2936), Point(2669, 2919), Point(2671, 2906), Point(2677, 2892), Point(2689, 2879), Point(2699, 2865), Point(2704, 2851), Point(2713, 2836), Point(2716, 2817), Point(2717, 2800), Point(2719, 2783), Point(2722, 2765), Point(2722, 2740), Point(2722, 2722), Point(2723, 2708)];
LastToTrees := Point(2626, 3089);
PathToTrees := [Point(2723, 2708), Point(2722, 2722), Point(2722, 2740), Point(2722, 2765), Point(2719, 2783), Point(2717, 2800), Point(2716, 2817), Point(2713, 2836), Point(2704, 2851), Point(2699, 2865), Point(2689, 2879), Point(2677, 2892), Point(2671, 2906), Point(2669, 2919), Point(2667, 2936), Point(2670, 2954), Point(2670, 2984), Point(2669, 3000), Point(2668, 3014), Point(2671, 3029), Point(2671, 3043), Point(2673, 3063), Point(2676, 3078), Point(2675, 3093), Point(2672, 3103), Point(2659, 3113), Point(2645, 3113), Point(2632, 3111), Point(2624, 3104), Point(2626, 3089)];
end;

if(Location = 'Seers Magics 1') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(2591, 2980);
TreeName := 'Mag';//srlfix!!
TreeColor := 7579819;
BankBoothColor := 6187887;
TreeTol:= 5;
SPS_Setup(runescape_surface, ['5_6', '5_7', '6_6', '6_7']);
LastToBank := Point(2722, 2710);
PathToBank := [Point(2591, 2980), Point(2607, 2977), Point(2623, 2974), Point(2639, 2964), Point(2649, 2949), Point(2657, 2935), Point(2663, 2924), Point(2670, 2908), Point(2675, 2893), Point(2680, 2882), Point(2688, 2866), Point(2696, 2854), Point(2702, 2838), Point(2706, 2822), Point(2709, 2800), Point(2710, 2781), Point(2715, 2763), Point(2717, 2750), Point(2720, 2738), Point(2723, 2724), Point(2722, 2710)];
LastToTrees := Point(2591, 2980);
PathToTrees := [Point(2722, 2710), Point(2723, 2724), Point(2720, 2738), Point(2717, 2750), Point(2715, 2763), Point(2710, 2781), Point(2709, 2800), Point(2706, 2822), Point(2702, 2838), Point(2696, 2854), Point(2688, 2866), Point(2680, 2882), Point(2675, 2893), Point(2670, 2908), Point(2663, 2924), Point(2657, 2935), Point(2649, 2949), Point(2639, 2964), Point(2623, 2974), Point(2607, 2977), Point(2591, 2980)];
end;

if(Location = 'Varrock Palace Yews') then //SPS FIX!!!!
begin
AmountOfTreeLocs := 2;
TreeLoc1 := Point(4656,2664);
TreeLoc2 := Point(4716,2668);
TreeName := 'Yew';
BankBoothColor := 2904671;
TreeColor := 2195311;
SPS_Setup(runescape_surface, ['10_6', '10_7', '11_6', '11_7']);
LastToBank := Point(4576, 2936);
PathToBank := [Point(4714, 2675), Point(4700, 2674), Point(4684, 2669), Point(4665, 2665), Point(4651, 2668), Point(4638, 2668), Point(4622, 2666), Point(4613, 2679), Point(4613, 2697), Point(4612, 2712), Point(4612, 2726), Point(4612, 2742), Point(4612, 2760), Point(4612, 2773), Point(4612, 2786), Point(4612, 2798), Point(4612, 2811), Point(4612, 2830), Point(4618, 2850), Point(4630, 2868), Point(4642, 2882), Point(4656, 2887), Point(4667, 2901), Point(4677, 2914), Point(4672, 2937), Point(4657, 2948), Point(4652, 2963), Point(4639, 2962), Point(4624, 2961), Point(4610, 2961), Point(4594, 2957), Point(4577, 2959), Point(4570, 2944), Point(4576, 2936)];
LastToTrees := Point(4714, 2675);
PathToTrees := [Point(4576, 2936), Point(4570, 2944), Point(4577, 2959), Point(4594, 2957), Point(4610, 2961), Point(4624, 2961), Point(4639, 2962), Point(4652, 2963), Point(4657, 2948), Point(4672, 2937), Point(4677, 2914), Point(4667, 2901), Point(4656, 2887), Point(4642, 2882), Point(4630, 2868), Point(4618, 2850), Point(4612, 2830), Point(4612, 2811), Point(4612, 2798), Point(4612, 2786), Point(4612, 2773), Point(4612, 2760), Point(4612, 2742), Point(4612, 2726), Point(4612, 2712), Point(4613, 2697), Point(4613, 2679), Point(4622, 2666), Point(4638, 2668), Point(4651, 2668), Point(4665, 2665), Point(4684, 2669), Point(4700, 2674), Point(4714, 2675)];
end;

if(Location = 'Varrock Prayer Yew') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(4823, 2785);
TreeName := 'Yew';
TreeColor := 2195311;
BankBoothColor := 2772570;
SPS_Setup(runescape_surface, ['11_5', '11_6', '11_7', '12_5', '12_6', '12_7']);
LastToBank := Point(4842, 3000);
PathToBank := [Point(4823, 2785), Point(4820, 2786), Point(4813, 2789), Point(4811, 2792), Point(4810, 2799), Point(4810, 2802), Point(4809, 2809), Point(4809, 2814), Point(4808, 2818), Point(4806, 2823), Point(4806, 2830), Point(4806, 2836), Point(4807, 2843), Point(4807, 2845), Point(4809, 2848), Point(4810, 2852), Point(4811, 2855), Point(4811, 2858), Point(4811, 2866), Point(4811, 2872), Point(4811, 2879), Point(4811, 2886), Point(4811, 2891), Point(4810, 2898), Point(4810, 2902), Point(4810, 2907), Point(4810, 2915), Point(4810, 2920), Point(4810, 2924), Point(4812, 2931), Point(4812, 2938), Point(4813, 2944), Point(4816, 2950), Point(4817, 2956), Point(4817, 2958), Point(4819, 2961), Point(4825, 2962), Point(4833, 2964), Point(4839, 2965), Point(4841, 2972), Point(4841, 2977), Point(4842, 2986), Point(4842, 2993), Point(4842, 3000)];
LastToTrees := Point(4823, 2785);
PathToTrees := [Point(4842, 3000), Point(4842, 2993), Point(4842, 2986), Point(4841, 2977), Point(4841, 2972), Point(4839, 2965), Point(4833, 2964), Point(4825, 2962), Point(4819, 2961), Point(4817, 2958), Point(4817, 2956), Point(4816, 2950), Point(4813, 2944), Point(4812, 2938), Point(4812, 2931), Point(4810, 2924), Point(4810, 2920), Point(4810, 2915), Point(4810, 2907), Point(4810, 2902), Point(4810, 2898), Point(4811, 2891), Point(4811, 2886), Point(4811, 2879), Point(4811, 2872), Point(4811, 2866), Point(4811, 2858), Point(4811, 2855), Point(4810, 2852), Point(4809, 2848), Point(4807, 2845), Point(4807, 2843), Point(4806, 2836), Point(4806, 2830), Point(4806, 2823), Point(4808, 2818), Point(4809, 2814), Point(4809, 2809), Point(4810, 2802), Point(4810, 2799), Point(4811, 2792), Point(4813, 2789), Point(4820, 2786), Point(4823, 2785)];
end;

if(Location = 'Seers Yews') then
begin
AmountOfTreeLocs := 2;
TreeLoc1 := Point(2638, 2828);
TreeLoc2 := Point(2681, 2827);
TreeName := 'Yew';
BankBoothColor := 9082264;
TreeColor := 2195311;
SPS_Setup(runescape_surface, ['5_6', '5_7', '6_6', '6_7']);
LastToBank := Point(2720, 2702);
PathToBank := [Point(2682, 2827), Point(2694, 2830), Point(2705, 2834), Point(2721, 2826), Point(2724, 2811), Point(2724, 2794), Point(2724, 2778), Point(2724, 2764), Point(2724, 2751), Point(2724, 2733), Point(2723, 2721), Point(2720, 2702)];
LastToTrees := Point(2682, 2827);
PathToTrees := [Point(2720, 2702), Point(2723, 2721), Point(2724, 2733), Point(2724, 2751), Point(2724, 2764), Point(2724, 2778), Point(2724, 2794), Point(2724, 2811), Point(2721, 2826), Point(2705, 2834), Point(2694, 2830), Point(2682, 2827)];
end;

if(Location = 'Catherby Yews') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(2854, 2955);
TreeName := 'Yew';
TreeColor := 2195311;
BankBoothColor := 6517883;
SPS_Setup(runescape_surface, ['6_6', '6_7', '7_6', '7_7']);
LastToBank := Point(3058, 2917);
PathToBank := [Point(2854, 2955), Point(2865, 2944), Point(2879, 2941), Point(2889, 2941), Point(2903, 2938), Point(2919, 2936), Point(2935, 2937), Point(2957, 2937), Point(2976, 2940), Point(2996, 2943), Point(3009, 2948), Point(3028, 2943), Point(3044, 2937), Point(3057, 2934), Point(3058, 2917)];
LastToTrees := Point(2854, 2955);
PathToTrees := [Point(3058, 2917), Point(3057, 2934), Point(3044, 2937), Point(3028, 2943), Point(3009, 2948), Point(2996, 2943), Point(2976, 2940), Point(2957, 2937), Point(2935, 2937), Point(2919, 2936), Point(2903, 2938), Point(2889, 2941), Point(2879, 2941), Point(2865, 2944), Point(2854, 2955)];
end;

if(location = 'Draynor Willows') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(4182, 3757);
TreeName := 'Willow';
TreeColor := 2770507;
BankBoothColor := 4936537;
SPS_Setup(runescape_surface, ['10_8', '10_9', '9_8', '9_9']);
LastToBank := Point(4193, 3714);
PathToBank := [Point(4182, 3757), Point(4181, 3749), Point(4180, 3743), Point(4176, 3737), Point(4170, 3733), Point(4170, 3729), Point(4170, 3725), Point(4170, 3719), Point(4170, 3716), Point(4170, 3710), Point(4171, 3699), Point(4172, 3699), Point(4181, 3699), Point(4188, 3699), Point(4193, 3699), Point(4193, 3710), Point(4193, 3714)];
LastToTrees := Point(4182, 3757);
PathToTrees := [Point(4193, 3714), Point(4193, 3710), Point(4193, 3699), Point(4188, 3699), Point(4181, 3699), Point(4172, 3699), Point(4171, 3699), Point(4170, 3710), Point(4170, 3716), Point(4170, 3719), Point(4170, 3725), Point(4170, 3729), Point(4170, 3733), Point(4176, 3737), Point(4180, 3743), Point(4181, 3749), Point(4182, 3757)];
end;

if(location = 'Seers Maples') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(2729, 2676);
TreeName := 'Maple';
TreeColor := 11102;
BankBoothColor := 9540245;
SPS_Setup(runescape_surface, ['5_5', '5_6', '6_5', '6_6']);
LastToBank := Point(2723, 2707);
PathToBank := [Point(2729, 2676), Point(2721, 2676), Point(2715, 2677), Point(2709, 2678), Point(2706, 2678), Point(2694, 2680), Point(2690, 2681), Point(2690, 2687), Point(2690, 2692), Point(2691, 2701), Point(2691, 2708), Point(2691, 2716), Point(2691, 2720), Point(2692, 2726), Point(2699, 2733), Point(2705, 2736), Point(2709, 2736), Point(2713, 2736), Point(2723, 2735), Point(2722, 2729), Point(2722, 2721), Point(2722, 2712), Point(2723, 2707)];
LastToTrees := Point(2729, 2676);
PathToTrees := [Point(2723, 2707), Point(2722, 2712), Point(2722, 2721), Point(2722, 2729), Point(2723, 2735), Point(2713, 2736), Point(2709, 2736), Point(2705, 2736), Point(2699, 2733), Point(2692, 2726), Point(2691, 2720), Point(2691, 2716), Point(2691, 2708), Point(2691, 2701), Point(2690, 2692), Point(2690, 2687), Point(2690, 2681), Point(2694, 2680), Point(2706, 2678), Point(2709, 2678), Point(2715, 2677), Point(2721, 2676), Point(2729, 2676)];
end;

if(location = 'Draynor Oaks') then
begin
AmountOfTreeLocs := 1;
TreeLoc1 := Point(4234, 3710);
TreeLoc2 := Point(4252, 3700);
TreeName := 'Oak';
TreeColor := 2066039;
BankBoothColor := 4936537;
SPS_Setup(runescape_surface, ['10_8', '10_9', '9_8', '9_9']);
LastToBank := Point(4194, 3714);
PathToBank := [Point(4234, 3710), Point(4228, 3706), Point(4226, 3704), Point(4223, 3700), Point(4212, 3699), Point(4208, 3699), Point(4203, 3699), Point(4199, 3699), Point(4194, 3701), Point(4194, 3707), Point(4194, 3714)];
LastToTrees := Point(4234, 3710);
PathToTrees := [Point(4194, 3714), Point(4194, 3707), Point(4194, 3701), Point(4199, 3699), Point(4203, 3699), Point(4208, 3699), Point(4212, 3699), Point(4223, 3700), Point(4226, 3704), Point(4228, 3706), Point(4234, 3710)];
end;

if(TreeName = 'Willow') then
begin
xp := 68;
money := 16;
end;

if(TreeName = 'Maple') then
begin
xp := 100;
money := 100;
end;

if(TreeName = 'Yew') then
begin
xp := 175;
money := 480;
end;

if(TreeName = 'Mag') then //SRLFIX!!!
begin
xp := 250;
money := 1100;
end;

if(TreeName = 'Oak') then
begin
xp := 38;
money := 20;
end;

if(PowerChop) then
begin
money := 0;
end;

end;

procedure WaitHumanClick;
begin
case random(600) of
1..450: Wait(RandomRange(0, 100));
451..570: Wait(RandomRange(0, 200));
571..590: Wait(RandomRange(0, 600));
591..600: Wait(RandomRange(400, 1100));
end;
end;

procedure SetupScript;
begin
Chopped := 0;
MarkTime(StartTime);
LastTree := 1;
CurrentTree := 1;
SPS_AnyAngle := True;
AxeFailSafe := 0;
LocFailSafe := 0;
AxeFailSafe1 := invcount;
AxeFailSafe2 := invcount;
InitWait := false;
Banking := false;
AxeFailSafeToggle := false;
MarkTime(AxeFailSafeTime);
end;

procedure ClearThings;
begin
if((Location = 'LEGACY Draynor Willows') or (Location = 'LEGACY Seers Maples')) then
begin
FreeDTM(BankDTM);
end;
end;

procedure YourClickProcedure(Sender: TObject);
begin
if(Sender = TButton22) then
begin
DsgnForm.CLOSE;
Started:= True;
end;
end;

Function AntiBan: Boolean;
begin
case random(500) of
0: RandomRClick;
1: HoverSkill(skill_Woodcutting,False);
2: PickUpMouse;
3: BoredHuman;
4: MMouseOffClient('top');
5: MMouseOffClient('left');
6: MMouseOffClient('right');
7: MMouseOffClient('bottom');
8: SmallRandomMouse;
9: SetRun(true);
end;
end;

procedure InitForm;
begin
//DsgnForm\\
DsgnForm:=TForm.Create(nil);
with DsgnForm do
begin
BORDERSTYLE:=bsSingle;
Caption:='ineedbots AIO Chopper';
Left:=312;
Top:=325;
Width:=420;
Height:=340;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel15\\
TLabel15:=TLabel.Create(DsgnForm);
with TLabel15 do
begin
Parent:=DsgnForm;
Caption:='Lag Time';
Left:=88;
Top:=133;
Width:=50;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel16\\
TLabel16:=TLabel.Create(DsgnForm);
with TLabel16 do
begin
Parent:=DsgnForm;
Caption:='Chop Wait Time';
Left:=85;
Top:=164;
Width:=87;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel17\\
TLabel17:=TLabel.Create(DsgnForm);
with TLabel17 do
begin
Parent:=DsgnForm;
Caption:='Animation Check';
Left:=86;
Top:=193;
Width:=93;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel18\\
TLabel18:=TLabel.Create(DsgnForm);
with TLabel18 do
begin
Parent:=DsgnForm;
Caption:='X1';
Left:=85;
Top:=223;
Width:=14;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel19\\
TLabel19:=TLabel.Create(DsgnForm);
with TLabel19 do
begin
Parent:=DsgnForm;
Caption:='Y1';
Left:=83;
Top:=254;
Width:=14;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel20\\
TLabel20:=TLabel.Create(DsgnForm);
with TLabel20 do
begin
Parent:=DsgnForm;
Caption:='X2';
Left:=84;
Top:=286;
Width:=14;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel21\\
TLabel21:=TLabel.Create(DsgnForm);
with TLabel21 do
begin
Parent:=DsgnForm;
Caption:='Y2';
Left:=85;
Top:=316;
Width:=14;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TLabel24\\
TLabel24:=TLabel.Create(DsgnForm);
with TLabel24 do
begin
Parent:=DsgnForm;
Caption:='Welcome!';
Left:=243;
Top:=189;
Width:=54;
Height:=16;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TEdit0\\
TEdit0:=TEdit.Create(DsgnForm);
with TEdit0 do
begin
Parent:=DsgnForm;
Text:='Username or eMail';
Left:=1;
Top:=3;
Width:=203;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
//TEdit0.MaxLength:=x;
//TEdit0.PasswordChar:=*;
end;
//TEdit1\\
TEdit1:=TEdit.Create(DsgnForm);
with TEdit1 do
begin
Parent:=DsgnForm;
Text:='Screen Name';
Left:=1;
Top:=33;
Width:=203;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
//TEdit1.MaxLength:=x;
//TEdit1.PasswordChar:=*;
end;
//TEdit2\\
TEdit2:=TEdit.Create(DsgnForm);
with TEdit2 do
begin
Parent:=DsgnForm;
Text:='Password';
Left:=1;
Top:=61;
Width:=203;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
//TEdit2.MaxLength:=x;
TEdit2.PasswordChar:='*';
end;
//TEdit3\\
TEdit3:=TEdit.Create(DsgnForm);
with TEdit3 do
begin
Parent:=DsgnForm;
Text:='Pin';
Left:=1;
Top:=91;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit3.MaxLength:=4;
//TEdit3.PasswordChar:=*;
end;
//TEdit4\\
TEdit4:=TEdit.Create(DsgnForm);
with TEdit4 do
begin
Parent:=DsgnForm;
Text:='500';
Left:=2;
Top:=130;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit4.MaxLength:=5;
//TEdit4.PasswordChar:=*;
end;
//TEdit5\\
TEdit5:=TEdit.Create(DsgnForm);
with TEdit5 do
begin
Parent:=DsgnForm;
Text:='15';
Left:=2;
Top:=160;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit5.MaxLength:=3;
//TEdit5.PasswordChar:=*;
end;
//TEdit6\\
TEdit6:=TEdit.Create(DsgnForm);
with TEdit6 do
begin
Parent:=DsgnForm;
Text:='90';
Left:=1;
Top:=190;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit6.MaxLength:=4;
//TEdit6.PasswordChar:=*;
end;
//TEdit7\\
TEdit7:=TEdit.Create(DsgnForm);
with TEdit7 do
begin
Parent:=DsgnForm;
Text:='20';
Left:=2;
Top:=220;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit7.MaxLength:=3;
//TEdit7.PasswordChar:=*;
end;
//TEdit8\\
TEdit8:=TEdit.Create(DsgnForm);
with TEdit8 do
begin
Parent:=DsgnForm;
Text:='35';
Left:=1;
Top:=251;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit8.MaxLength:=3;
//TEdit8.PasswordChar:=*;
end;
//TEdit9\\
TEdit9:=TEdit.Create(DsgnForm);
with TEdit9 do
begin
Parent:=DsgnForm;
Text:='20';
Left:=2;
Top:=284;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit9.MaxLength:=3;
//TEdit9.PasswordChar:=*;
end;
//TEdit10\\
TEdit10:=TEdit.Create(DsgnForm);
with TEdit10 do
begin
Parent:=DsgnForm;
Text:='10';
Left:=3;
Top:=314;
Width:=80;
Height:=23;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
TEdit10.MaxLength:=3;
//TEdit10.PasswordChar:=*;
end;
//TImage11\\
TImage11:=TImage.Create(DsgnForm);
with TImage11 do
begin
Parent:=DsgnForm;
Left:=111;
Top:=230;
Width:=107;
Height:=98;
bmps0:=GetMufasaBitmap(BitmapFromString(107,98,'meJzt3N9rHFUUB/A8+rKwD4WyEAIhhBBCSAhZQpYNWSpJSMSEbEMalya1Idl27bJNG9rSFkN/SGlrldY8lIqtFrSWomgREaWUgKI+CPVHUZEigk++CP4F+t2ceDOdnXvnzv0xO9ksfB/yy9R8OOfcM5PJDu8rDO8rjM4XWZ47cIRlvLDMMlE8jkyWTrJMHV1hmTlxnmXv6YsssyuXxRkoHd5z7OzupdN4g4V926HZvPPjnkkXC7wMF3YLPoukCnnNDAcERPDDsvga+gKSoWfwPfHv6gD6piqALkMEJcTywskLLAI0Z5Uivko1CegsPxlDF1odUKaF5bM9AaNgWAOAvP4NrwgPFQMldbCglv78vKUKrK5hUEBlQwC6EqkWVjZUAFQzDBMwTEM1QAXDcAB1WjhkwKCGoVXglgCMeAtHHzCyLbyFAMNsYed9mBoANLvGIGOLJZaghs4l0GUYWUBTLeysPZ6hs3l59wN5hhEH1Dd09a/TMOgA9LwYiSygWgt7Am7bQ8QIoG//1megJOB2m4GmWli+/JRbuKHh32oltBbmARppYfwgtivQswh9AQ22sABQv4WjDKi/xggAef0rY+hcYyIOGNSwKjOwhgGddGLAmpyBpgAr554LsN7CPEPfqqu3sA6gE81Ve9u3hRfzaoBOvVpaY0KrwErA+gxEBAeHALA+A12AMgcHD1A8BrchoOvgEAPaaOGdPRkk3p6kbGlAz7lntYUbM9nEwDhLrLl9OwAaXGMAyJJIjcZbu+ZbWmoDsHLu8Z7OUpuBb/X3IW7A9uSpzo7IATpWQbWDw9m2yjOw0NbKktwRfzvVh8Ct6dlphAwxDF/p7jrb1cmSbWqUNJQH1ClChYNDcHYEauHb6f7VZC8L3kUY4O0Hv1OAdi3Zg1zu6Uamm5oMAgZ1sw3oerxN3MLvD6QIjXzeTaeQ83cf3/z8SXF1bfHSJ/MXPkJe6+253pdkmWtpNluBxgGDnryegDItfG8wDUNXGr//e/nWI2TpxrfpbLHxx3/QwqOJBBiphQVnSmgzUB5QfHCIK9AXkDqXGhOBJwJAktwYid/9tbI+98BIwcCM+AwMdHDoAKLMSte/QujdDwcHyDCx9iTx8Ldy1p7gXD7R0Y7A5+X3fjp8/WskUi1s5OAQACI8wDN3HlPwdne2EQOQai/x4JePEzsoKNHljo1dGuPx2Ds/IDKAg7Njplo4nRvxBTQy91zxBcSUo+DtnukmNCydI7QQInS4LLW3kQ8q8KVrDxGpCsyNlAFzI5qG5e8gAWhw9FUacvfAqw8QejuZa4IYHco3+pMsmI255s295eDrX2SX3pBvYdShzhjMvPg8RbKFzU4/cQXGsqWFi/ehQe/2zTUjKEKX3sWertbMTkaUf/XTkfkzAWbg0xXo6Slo3l0LE0igGWjD0BPw/jd/oiXZu+l8C5Ka3wyaGukcT7QNbQLe+/KPSx/83JYcVjtEAMirSc1DBFy7cguUoDPQ6Z/O5ijiGYiD4Or9X2P7zznLjwI69jZOFgojgjnCK0JJQLOG9IPTLQXlc4R9AT1t6DsDsYrg7IjnL8X2nqIB6Ar0qAIpMjcT5AEx0/TXGBcgoDTPEfoIbZUyMxCJH7oam1uhHcYVfLBjNMHSlIwbAaQTobIC9QF513GB9kCU3JTX39rwAGMLFygYdBQmtvf/u/oN/SnEVAXiRGAHq9kWFlwI21tjYjPH44UrCHPDeYH0j+c3AQczBgHVRp/nHugLqH8V7FuB5S4urWISIthVKC2pHfSpTcDBjFXAcjhE5ewZLkepAq2uMRtFuP8czhHshDhWZk7cRKaPvVkJqGYYCNDbkK8XFNDGtXAZcPpobOIQsnzrEa5K5s7cnV254wTcMGzl3oGxB0ijkrdICwCZgO1LOcrKkam+7tbi6hqLCzBQdABdhmOlGYqRCrTUwpTZqcEDVz7DlR3CPhgaIF2vYbcxfgq7AOlZVrMtjDT09uYm07SuOD8eagXaWWMqW3hssWS8hZ8ZGq7U2xKAZBgIEFcZZteYcgXSOdvZWduAJDb59PNs+jMQ/UurMs7ZyAJyF+n1X6+rHSKmZmC5f9crsPJTxgA1b0r7rYK+l3JDs3nE+A1VBkixCMi5jyoFKNSTbGF6hNXSGsMuNKwCbqx5AQF9F2kZQBBNrD+TLwMoaOFqheHIFKELx3eRlqxAKLkAna0ts8aIt2he9CvQGcGNaB4g/SdmT2EXI1pbZgZGATAia4zaDKwDKgBGrYUtASI2AKvYwuEb1lgLh28YWcCtYhhZQB29MA1rGDAcwxAAFQyN6LkMZXZp19fw0JwL9lYHdP744i8TPxjjMhQzOi9SeDdhFJ5MMNXFBstPwdDza3wBfe9F6/xWLiKAG+UqcVvGE9kX0F7/BgK0p1fZ8gJA8bHiBLT6iH4EASUNxUdzJWB0ZmBQgWoZsrAKjMIMDEfPLKOzhas+A8PUM2UYnRlode4FNpT+NYr4Lw3DnIHVAuQZ4pgYymd9DT0Bw5+BVdQTGHo+CSwDGP4MlP/pQjWU6GLBC1RKlp+RFq66nrgUjQDaa+Ho6CkYyrzMrO0WNquXOXKUJQRDhdf5NLvGGKwcJ50kID2/oWOo8GKzZmeg8eaVBGS3rVJ7vP90UdIw0KvuGJ+BxvU869BqOwd92SI1w0CANvR0AMWGmi8YqDMDw9TTBBQYqgEamYFh6hnBZP9vNDyTkxm8/R/HumVW'));
bmp0:=bmps0.ToTBitmap;
Picture.Bitmap.handle:=bmp0.handle;
end;
//TImage12\\
TImage12:=TImage.Create(DsgnForm);
with TImage12 do
begin
Parent:=DsgnForm;
Left:=216;
Top:=32;
Width:=200;
Height:=130;
bmps1:=GetMufasaBitmap(BitmapFromString(200,130,'meJzsvGez4+h95v3iefFY0kz3Ccw5E2AEc84ECRIgCYAgQRAEc47nnD6hT4dJylpbssteabWWkywrjpKjHLa89u5akiXN9ERF21/BH+G52T0ajWRp1G9cT22VUP9i4bA5JHjjd1//67oJzL//+6+2X22/2n61/Wr71far7Vfb/63bg1df/v/7EP7v3h68/up/9ke8+J/8EQ9+8P3/jLf97J9++T/jbf9Tt//6Z8+Dxwff/+6bz0w+9J439z/zl3/+aOdbL3znzSf5+xffeuWlx/+Il7/3xpu/9Oorb/OyT//ZV7714MXHf9u3bq/8248efO/1R/snH3rvnQ//F7Dz6r/86IVXfxak8MnstR98723e6psvPXjptVfHV7deeP01Tcj3nZd/zjd98MOf5efFH3zv43/5lb//9iuv/fBf3/r8J7/yp995/bWfefGrP/zBKw/f4XN/9RePnnn5tdfGt8//8K/+7GcP5sfD3r+89Z0HD0C9+PLLP/cAXv3RD1/7lx/9oi/12g9/+Iv+6Y1v9KMf/Mnf/uXbv+bxt4/92fPHrayqnjX2uX965cGjJ4XnntJX8U986Ytg/w++/Pzug+8GO99+5WUnWe5c3vqDz39Jlo3K/a4Pf+LjH/nEx7/z8gNdNvI7f/JH3344/n/4/Gf/fT8IJ6Nbu09/5cuf/fM9lvP/8n7hmesXHw7v4s7F11/cj9WLr736yc9/Duz87leeB+/z4iv74Rrfufy9z376J4f3hc+Al4Gdl3/0g0/93dfAzks/+uHr//ovn/3qlx+8BdFvf//11/71R5/6+7996uMf+52vPn/1mx8JjEfIsv+7X/0SerGxceSnvvT8q9///rceNpR/fvlBcdb75ms/+c+f/5u/fvV73/3k5z7zTy++8ODV1+2VAr9dqjIRbT5hiIdVEX/7ZP31By+8MTi/88EPfekzsmnzn7/72sPT8f2vv/6y8FvvB/u9D7+XfPr9rbsf/Pzf/P2bb/4HX/nKUR3/4J/8kbXX+PjnP/voSXAk8Iz/7c/88Uvfe/3/dZr+4ev/9GiEZSHEiuWb69n+m77+6sc/+6nl+5+FiKzW68pwDZkb+p1P/7HIDn3kYx8FL/juD3/43YcgfeKLz3/x7/6h/dyHyHt3n/+rrwHCd7/1619/aX82v/lw+n/+b/761m9+GN+ev/BwMF96bT8BzWO+/+77j8bk2w9HY3L/avvre0l5dKb+/n//4//6+j+9+LZS8Nbt/7z8Ive+y+Z7btHP7D78hU8e1xPSRuYmX1F1yNZztz78uT/8zF98rSgsAyXyo3/yRw8P+3PrD3wI7NjJuqVEaaNY4+RUlwyZsJy1WrDSmKaSt1ElczayfO6eNh8TzrfgxVKnVZ+J2rAcPV/3r562N0lzOra9ffmNF7+jz8Y+9fwXX379tfnVxfrqcvbu+1Aqps4lF/fv7L9vOokUiopc9KOf/8zHPvdpb6U8vXcHaEj/Ix+k7l7TF7diu2W+w0XpWv/u7Ze+990v/9P/iVxtw6tR8GyK7pbR7RifL4LjYWjc9Ux7qc0o1G652oyDZ1wc5R9yX/jaX2fn4/hm8fl/+DvwcZ/726/Rd86RHusgSx4C91QIG46akxFTIqLLxoyZuCYW1EYD2lT0N57/XOM335d67lw5bbm7XS/LqcasfMb+xp9+QTRimA/c/62vfF7Sqai6tFKgJC38wUNV/PhXv3RMl1wT3n8yharF7tNXn/wfX7v83f/qHbIWqggPW8pcXFVIzd/9NHixFU3aa2V13KeK+ORhryLsV2XDViKn8DvUAY/cBUu9bkc+JXbB2pAv0Beyt3bffMjA6P77W7fvly8usfEYFprpW6uDcvYbLz/4va9++eQje+m299ni+XVo0Bs+e/e/f/mLomZVLpDIiNPVCh/77Kf2c/+p2x//k09ZSFSHZ8Fp1cYCyjCi87q/+e1vPyZXYJs985QTxy14QUfmpY2Sqpw8quRvUBkRFT2qRVX1oqGBe9q0s1Vb/PZv9O9fhEYXrvoELnGOCgu40kczMFnSU0Vzs2LKxA2ljKmaN6EJqFE2FpKqTJg/337npQeqqBf86SBxRwGzlVFHpRDOZ5BkFMqnvFQNxjK9uxemUFgT9FgSEX0uYc8ljcmIPB21ZFO6XEKViyubuInBbYmohC4djFrySSd8tvDOOmG2kWRZqNuI315979/+LXi1Dm7H2NkiNBZSs1l8KoSn/ehi6B1yns04wJA2jnJUMXOLdDIkPj8p9QeJ7aRwuT7777995/c+lhv04tNesE1ZCdRTRi1oyoZlbGgGLmUNqaghHtQBtGIhbS5zo9eAVoMI13dUaqrJHiogXJJx43jUEA3qkm5N1MbfqGZJ1MCYZ26LaUxVx7VYRk6i7hEPTzjk7oZ9793kemzo1l27sfPeVk5m1ZmgIhHQFdNQo2TD0oqETx/0mNIxbSJkKMSVYbfCDcntkDoVVsd8Uq9D4oDiPS63msX7PW2NmH3gv5H37pXPTmLDfljoalq1o3LOSuP6etXab1oatUCn6WzRpnIOqpVMdcIIBnbCGYWauVF2zTr2fhPZDD3zXmjUsbcIM5bWZuKqVFCBJhRh3z9+65t7ZX7l7eLDi997/X+98K3vvP6KtBRxtEgFEZM2i7Jqwst331lL36QSB5XwYSWhqWWBEFkahGvdQ5a9yPwO0pwDrqxYzZDE9bEcXC1aqJK+RRiwjBaLafG0GU3AJKYrpfQ4Kk/4tfGAPhGUxvzaZMgQCruKGVMy4oiGoXTMXMoipbKtUjAX0iY0q0tGQLvRpWKmfEabjEhSIWkxqcZSpnxaUS9qS1mILMvqZfGwdThup3ZzaNoRjdrwdpZ+5rr49EViPYrN+qlZP33/xDMRstN5cCIEZkJkPfTxjL1Th6gKTJXcDGEpJGG8UD49T08G+TvX+eUouZn4+20/RwVmnRRDmaiCCUtBRUBUHsJylkJaF/Kq4kF1IWWIBvXZFEzWEnQHQKWcsvJ5a8/VmJEO60eTlqRPiXniDaha5T1XdOGYzGtahK1VVZfS2kE9cL31XK+Q3UDPU1CzGtiMPNOO7dkz64TVF5L6eNBaSGmTQUsl7+ky9ioOV0pmPKMBIxn1H9lNCr9dUU4deW1Ar25CBh2WiixH8cE0OV1jd+8Udht0sUKYSmIkpBZbW4c3cJRnLMB83Tzu+IYdPU2Y8nGoWnCNO8imb64WzAJlXAuhu9vwnRPzUnBuB+5WxUgVDfWiLOpVJYKKbFgZCaoz8W++8MLbK9Vn/uJP1UEgI/Fsu+4iCuZcTBL2yYOIOBV5F5M/qIYPiNABEQNoiWtpGVuGFh3PfvpfB3oXgCtQhgSh9qUsWN5WKziwrKdBuCctC5EzF5O2OqYppYxoSpONmkEHiYblPkQVD9kINIDmDGGfNZ9KEiVvnfRVcAuaBgbGHAsr83FdJKAL+03ZhDmTNEWDykxECUxFOqohcrJKzlRIKYSabNySTjvaZV884qTjduB8E3763Hdni19uM1db6rn3Bu5uI6NBfr0KnywAYKl2A2FJRKBjbQaqYVGWgtGEuYHnT0/yt89S965yl5voVPDzdU+zGmSpLNPw4RiUitiLKEQUtdmYPOwDR6WOh9y5vKeEQfksXEThTks55/ZQTVnpaA8VKEmfPhizPyVWTFFEoWBewOMmMHjglPlvb53rkbvPBic9S7Nq5UgNlkI4yn0+c85aOrKgSEfgeslTJyxk0bLtuzcDcPwGPGvDc5poUIumVH63PB9TR/1yn1MEmSU+p6ZSqq1u0+tboeW4cH5emM0DfANpMbneojo99XCMh2+52JqjXQ/3BK/Q1FKYmSlbgJRVS/ZaCVl2XJueZ9Txnk4d845jJTg2XcOwCVNlI5E3N0uKmB8cFTibv/X7v/tLm2DzZKnB08ZyRhVwK8IeZcCt93uVQY+IRG/W4gfl4AEWPihGlNUsPO8AuQ6s+uH53UD/Da4seUbtSZpyWXeXCo5YZCkEh1xyMfaMOWe75mQroPu4R2xo2LH1KQtV0JaSdrrk5ihrOgplEtFyESGKzmLWVisiZdRXxMw11JKMqgIeE5Y2puK6ZFiVjWmSEW0FFbMl0FwAgSo8K5s05XNOMuPFE954Ms09dx14+pZj2U3fvkW85z777AfCs254NcjvTmK3Nki3gbRJP0ubu7Rt0bM1K3awQ6CuGoaMW4nLTfp8RTx7173uxQa8fdjyCA1rMW0sArFK2yplZ7VkTIVV0YA6iMDRkIUoImzLjZUURNFQLQKZku6VqvEIKmm3BupoyBy3ib1SsWVRYy9WolrOKJBwnzEthMD5zD4VXHMeGra8q767xxq4iq6UcXIUEMMjxCHyOiAGM637zl5TMW4gk5Z70Q20aUMhaUhFDr32I7tZ7nOrYgHQKVTZyA3YfEOnOoj5o9NV8/J2db3Jn5zVFlcZfqCuEXCzGWwxwaGQGg5STdbfacY51tomDQPONW3D9SrMk+Csuc/GieuN72wKjZpAPXygFZ7N7RytKCZ0aMxDE7pEeHrn8tNf+dInHnqwt9++8e1vG/JxoBXagEvusQEXpEsExG5I4oVlBUCU/6AYOirHrQwRPp2Dw0Dm3cjuDa6gImvO0ipPUp/AvINJcjMF8us9myXHQuh0YR9yRqpk7Nac06Z11oZHLXujok+GtNmEMR235GKGdNSeTwEzBlcxK5aB0IwDTdsJVBePqkM+fchnSsUs6bgxHISiIUMmrmhXpANa3cSVdUw2rIMSDxn5lMOevY1fn0HLnv/2Mnq5br3/A5Xbd7PbdX23xTa7wGKUHgiuHuPu1IPzgfvWwipQVhaH2EqQbcZno/itVW45jl2tcuNeqN+yj1uBKg4cIJyLW/G8vUYYK6ghHVdn48ZY0BoJmUMBK1M1MKSSxA1oRtmuiaatN6Aa0HuuhOpBlzrs1R/ZKlG9AMRKXsdMDczZqVsHDWTI20HLm/LeWzMLX7MOW4YGASaCc9Q0NDB9PKwvJjUcYZkLwe3EKFDqZtnSxPVguNiKmUCVmZgxHdGFEIkbVrvgA6P6yGkV2SwHfhd+627l+gJ8i+J0U5tf5lqTVH8REPqRDhtv1X1t1t1kw52Wq1FxNquOeQ/Q5VoKnnE7PO2AXhy8NY9drT1gJMdcYNF378b+3cQ2apnKGXe7ZsxGwQR/zMWfj37yD2WpoDruF9mtUr9L5LRKAk6J2yZy2SQOqyjhOSwGDU3c0SYdE8455EJL4NvvOKo9GGsBrqxoQ+1Lq70pJzWKdweZ+SCw6ILUHB/xgEB3v+Xtc3a6bMzFgd4qIl5F0C0JI5ZMwpiJAbuiiXqVmag3n/NSFVth75Ad5SxAyJCIKaN+gJ85GjInoqZYSJEOg6Qp65HiHiXp1MRdEpxB0HFc1yel69Pw+dw4aqbuncafvSy/5/3ly6fSt07w01VhtCyNR7Em7V8PXZt+bDeNnU7SfDPYpGGgpSwdfeYi+cxl+nThvVxkukJ4PfB1GiGqDHM1F5EPVmrGdAx8OpRJqtJRQ8CvD3gNRMFSxeU1FBLawPeaixn5ow7Ypx6JlbhTOeCrh8PGHirQAekCcOnGaiG87nvurAJXS/us492OfOcTa5tyTjtm8HHrrnXVgSZNUw3VYWlo0ID6ddt2EuyyEFc1NkoQiUKtiqldNU9aVjwHFVM6YNqTQYndooz6xFGfNOJTBLyde7/eeub95O179Ml9YnKW5yYJkg8TtIOtulhSQZUVddzFM/4Rl769Dt7bgTExDequZtWzHJlnveTZLP3cheNi5pgLzlUfGXCWDmPFiw66ZMGy5l4dAPO7b1n5eftteHGiQOySgPvYZjm2GuWIXRZ0ie2Q2A3L/C45GkamncC8h+wWvvWVv3vLRggQ1rICqApNUCpfUu4MgZ3QYOi/mEfnAjIXYI40jJtmsmBlq1a+pi8kgBIqYz5FKiIJeTSRgDwW0GQi8qgP9FyZHdIAgUqGrYCoMIjVfmM8YQj49uIQCxljYUM4qMHSmhoKpEAEcOrWDrsU2DGsBeeyb9/0bEM2uhr7zhfBZ8/jFyfMvfdhZxfR3bIwWOX4fnI6Sq3mpZO5cz0wDpt+Eof6rLldDZ6Mw/d3ydUkBMLjahDttoLzLiIw3hYJ1XFrNm7Hins7F3CbkzFTMKDKJS2phAbLK1qUrlYM9vvGFqkiciCk/xgqUiLsY+BBCz/u1I5axB6qRsnRb7iHrG/IBc4WjtOJfdVDtkObQCoKaQtD2ABdAmNfdpF1Txz3OnqMY9J2jdjgsA3XMIglLG3SxBEGughTBV+fNeQTmlzUTKJyvxPYeHMpLctEDKUsOFnZwaL/7G9xl+9rnjxdGmxRfhap80a6BjdqthalbVRFVElMlXVtUl4npAzuOpsFLlfpq21kNU6uZ8XzZeL2xnu9Dj994l/14ycLd4+BmJKBRE3lrKffGjxzGwDzaOHrcTZuPhE7YZkDlrrt8pgflASxySM+sccu9tkV2Yit1w7Nrz3cxoI2rAXWjj9E6yFXmmAOcGXMVlKXF4nzVXjIIVPeVMd1OOqb865R2z9og1Aj9zkOrEaRCzqCTDKPQxH2i4JusccmckCHFqPUZhE5YIXPDcWiunjImogbYmFzKmICBj4W0cdCKiytrmPglB229znrkK/cEEj7biQTaCmPBxe93NU2eW+rW7Qq5xeV6zu13SY+H5eGm3x3HN8sY6uhczUw73rg7EMD1job6KZs4f49/Gxdun3pf+ok3G+HR52g0AA65uJoaz6ZbrSNhbQ5H1cGEE06ChfyhnhMRxRsubScq2nosq9S83a6qioq79bkIEp0yeNBHYiVpE3cbOKHnZpd6NjYZnA9cXYbJrZi6tHwomOb8I5+C4CkIbKuBuUYdVyrnn/WsQp1h0CDAAi1a4Za0cNVoXLO3ecMbdzSJKwMDjUJG0+aSylLOWsspU1ERmTRA1dmLeeV6Yg2GlQHPCqfh7t4L3fxPmp1jfXXhc7cQ7MPWSqJ/kNJG4RjwIV2E+jd5+bdxDcdJN93O/fBu+jtTXw78gxbqR4XnQ4T6wWgzjfl7fWyOZ/62GPr1W9+7KOObFIWRsAZPzIbDhCb2Oc8hs0yn1PiggEJEpvFVKpCGGfOUgAkGO/Yq/39OsNDrvTxkszu1wTTsdNVaDPyTzq6BgGiFpiAnuut/XQCmpSt3xA7IZHHIXbbRS6H2OM49jjkXqfIZgbP73USdGEHdGQzq8I+bdBriIcNkZAxFTXGozpg49NRbSmrT8ck9eLRPmSVjvjyO7q0bNx+ksNNk3pw3fcuecu2Y+7XgLNCt5vCehJaDpFBtzCfIdMREHb3qq8a0Eqh4psKllk7dn/rvLNO3LssPn0/cjYLLQfIduoesI4OAwm0tZR1E2WIxvTljC7o1Ub9VqyozsQUpawzk1EVM0pgwEg8M1pay6iCRJW9unjC6boNqN1U8/TNPnPULANbpWWr/rkQGLQcM5CjBc9uaB80gLPyrYcmuhicCMikA8070nxMX81H+y03jUe3Y0unZuvXrUQO7tYt/YZn3DGwZbhL25myIuTRojF5MWkqZZQelyYVUYXdhnhI7rRJ9mMLx5lO++K9oAmW+5sCPwvSHBConwNVHfcOhcyknz/Z+s430d2Mee4e8dQFce8ytVet0+BuFOu3ouc7z1gIc5SNrdiwHFwu/vODB4/J1bHVZIgmFBHfTbvhyG4CiVXi3qvKsd0stluOjTqQNUSwRe2LgPQHlVsw3XNSY1uZf8SVIUnIXRGlJ+Jfj/2LPszXbUwV4klwjpwtCmKr3mYVrhVFoNVGA7JoQB7wg1YLEJIgjiPIKHHZAMMAMInXIbWZRUb9Ta36UKM0RoPAt5viERBDdAAzEANj+3x9zBZE7cIRjz0h1N4h0E+2yv5d39KnQI7T8kRo3guuRjEgAvMeNOy4JkJg2IF6tL9esQ/qkl5FPKq7R5z3Ylq/2mU2k+jdXWg+SC8n5c2ssBjE+Gak3/H2GiaQwUsZF427K0VTLAyOwZzPiatFdTFjymXsRVRewSCiDGQh2R17ajTS5E0kDRNVRavyZJ85buEAKh1PIruBu99AQONbCNHrTeBk5AUdcNV3nQxtTQLicF+bgZmqFk046HJkM/aPO56rtW87ylxu4S5jJFEDlvXNe3aWgFtVkPGVUe+Bwwx03pKJaeMhM13Qg51CwhgNiQNuechjSWfIzV1icVHorzPcyE03fxYqugxKzdHNp5+h7tzj7j/nvFyn7u7o99yrvuc+errKnG+SJ2v/6bSwXsROF+5pO8pQoUrRA3xgvWyk0F9K1De/8+1vvfiCJOI9tFsOoz5ZCEiW9RCBpUBJ7GYgI0dO0KR0YgcEXL0ScaoSSVGbUvOUk57YK709V2jDnKvLnWEZErLNO8DnAJeOtOq2NhlY9ixc1cmRINTbwZSxW0B+EQcQddgncUIHJs0BbDo2G44cFrFJJ4ZNIodVBl5j0h+o5DcUMnkQAcMFojQQKyAUwOHowgF12K/MxsTN/HG7+K4u+Wvd+kG7AvRK0cWjg3FK6JVO1undAr+8TA8m5gHvHHPAGMfXffeyaxjTKh53gOgBpONymd7NwMTETtep9bR4fgYsa/ZimRjw/lEnJjRsVMlGoPYqFi7kIRBgi2lrIS+myzbAVSoWpIF5rtpjCTiaNIbjhmhcgRXkBLpfUmDLTzBlkAFlDJa+feq/XNp52rOdQA9XFcxC3TrhkPXQ06oY67itS4cmIKs2NOWEvUcji66r0zRUQWykYYGycBVgAi0NwkmXkEbFUSloAh5dMixyQ0qP01xMGVJhI1O21EtOmtAV07JE4AgBgQuWYTlFoyZnqvJGVcpURAzxU9WsgJJ2KNdunNid1k6vsauTyr3L5NU6ff9WfD3OnS+TYG7OesX1PLWdhie8r0VbG/izn/jY+IPv9tzdvvgffub+jxu/XSgKCX0iJPXYJT7Xkcl45ILEiO3QrD+GjIdW47HFsD/jHudNo/bIrH8yFxJ3MCc93bdCjAN2a7+EFcgqfcnIamoe0OA8uoWmFcTYcdPaBh6DAXRZ8awUyKDPcQxarUV/U6+6YdUD/yb3uA69dlEQASSL7SYFCMt69U2DRuRzgOwMIqEmGdUA5wBMfjxkSITVIZ8m7APB3zHin+hRAK0nu5RKqARmY+ryOryZRQdctCGEK00NVYC7ZL7PuyecYUiqB1VZt2xhcc+At4wbjlErOOaJ6/P8vduh37iX3kzj22lg1A5sxiDDJmfDCFe31UpuvOCiK65qybgPqijw8Htjk47pi/mbdFmF55SljITBvKMhOj1JdiYRthcgWxBOiOtFaNY2TTnnyQjIjhocAzDAm759Kdh2A7NAgziPzDpOoRG9swnfXmnoIrIU4H7D0aaNLA4MgB3k+lbZMqjbKNyIZ5w1zNgiAOfmSk7sgaFqAaYwUyoCYvt+oa+YlEc96lxUFQ/JEKcEPP8QnrcvWZsyjQXf5bp45xS7PInvxtnTVelsXbjYptaj5LwHdiJXS++0bR+07H3W22UBMKPf/IA45v/f3/jG20D14ssvz26dyRGnOOk78sEi2Cx1wUBVgPMBtufIYRU7bcD2yNywBN6v6AIPdsAUj8ZNFzNz1Ib2smDO0pZ83ZyjgXZ5+GnoZOmYcTbQfRYToBVWAoWaZSuWtVZKWg+iDHtVEd+h3SR32w+Cbnk8IAt4gBgC+ZKCtgsZxVbjAUBOoxRbTeAAlC6bJuJXJUL6ZEweD4IepMonFHG/KhUONFgQCZ/sUe/sM4ou6HHt1GIZ6nT8bP04FZFW0zpA+FwIDlidQEi7ZVDqLmEFk7RRAy7LzVH5xTg46hQvT+N3tpntJLDb/46TOFkEpkJiPUe4mhvoVSFtRZNOvGDKJY1oUhvxq4FDxpKaKiqpZvcLU/S+jC06PVqGmh1XuWqIJTSRqKiWE9GonKu4z6e6fv0AT0FTzn8xzVxvvbuRoYb6NkNLhwRz0Hu1ct3b6Mo5CHRqpuI5n0BAgnJxBPxrlwayb6rl3UwF0GUa1GHgKNqkMuSGCVSTDMGZhCIbVSXDNrygwpLqfFwR9ylA7Ap6RPXyL+VK2qz4Thf+d5+j837m/DS4Geefux2+WgXWg8S4DdpNqM8FZz1Lv+k/n4Nk4Vt0X354AdXX33KV1C/aQJuWeR2gzclAHvQ4JAHkCDaBfbnfLQfy5bIe2/ZnXITASp9bjKWeEKoHsw7SXDziypiqmrIUoGvv50vt4NnOdbH0TRfB8dYvNJ31sqVVsTAlR7OmAZqTjOrDoUOzDiiVNIzIwx7wQccgD8KmI9goBQFhHw8tEshwZDXc0KsOdCopYtcno1rg24NefTioKiQtLAmMliEV1zcqhwL+rh4t71AOirKlshoSVXdwS49NLNd5Ye5hGv5JS94npKAGhH5Ys7Ur8hZ5o08benU3IGfAFi932GqWO52FpnxmMUyPWoEeG1z0EYawkyWonDElo3Y0acvGzamoLuS3xOMupqbAc+JaHjioN0tM7xc/j6qZg0r6zTqsZjSd2lEte0ykvZtB8GoRulw5T8euSRs5HZuAJ+9Q3tMlAk4cR4G+s7+OYiFYiCyMphOrPedWqmDskK4OhfC0jSxYeNrYrosCTkPMr09E9OBf0YQpEYMqeTuNGQpJWcQDLJY65pcWM79ErDq099Y8fLXMXWwTu1XyapVYj4LPnMXOpqEpsHNUcNn3j9rh0wmYEe4JH1kPdSzOX579UqIebcP7lwq/R+yEddmYKhUESU0Z8Urd8IHDKjKbZLBFFwkAU33ohhQBt5Qp3qwXRQPay22c5MiOd00ZypiqGBKEMV2zoAyEsS5m6CBHLnYSmA9UXeDbwaSrWWp5QIgIMqtAIwMV9cv8bkXEK7ZBcr9L7HVK7NYD2Cj2Og7M+psWvcQJP6FRHABr54Q00ZAyE1XGArJkQJYJWPHCPhsmohosr+/VTYNunOmq03Epi2r6ZHF7jnVXsRoHZ1BTLi3r4tJh5VFphqRqRD0x5p4cMNCYQ8Zt9GJXuL4oXO7iT51GrreV6dgxYEOdZrjD+XotqJCGkmFzKuREEy40a41FdMmYxuuONjvm9sO19HrxrWiBOiZzb+XqUckaJdf5VCuQqhYhZzDP1QK0ZjmZt83awMBbFh01ng9sR/ZlL9hrh5ZdPZ4NLEfedi+06Nr4mjbmdTAlM1WwAE1jcFMpa93/9opb0JSuiurROLAHvh7r7bNWLKnC0wrErggikrBPxOC/CCoxW0VWw+jtVfxs5lmM8JMlsVkmzubpy51nN4lM+snJxDtoh1YjkBdC8y5E5Jwc7TqZCHfPH5MrmMiGiZIKcajiQXA8cmBsQAa0GqRO27FFLzLpdKmILh1VhRAgvPJcFCIJ6GQa7N7aW3fAVZbSJ3BQ2hgG6AINESq27GQP6fP+2QhAbu3VbQ0cqDdczcs8dk08KA+6gUwBhNTxgMTvBjEQREW11yl124F23dAo3qmS3dCqDrUqkdlwbDVKIJOukNaGvcZkRFdIKOicmi7JgYmtV9LzjaTTkHGERNh3OlW/6uxy1hal7BCyHvEmUaBk45piSkkm9DuGraN+DaBVunefuncvezrPX5ylT5a+SScptFwDHum0EJA1KMzLkPZiFrgpWy5pxXL2XA70QWsha4jHgi1ewqAAraM69gZUD/VqL1m17M9wpevSOoF8Y39Qt54MZM3SIZHW8rXEM7f82wGIzAYyb+Srvhnv2w687UZgOIXr7ejp1ELi2krW3CFNwMbTmLaSkwad+kJSnY1aC0k3V9VhCXuDMNYKRvBYTkmBSfC5lEH3EYhaRP7nK1WL8p0sIpeb8HaSvtqkT9e+p7aB+5vk5SqzW/rmfW+PD6yG7k3f2WcdvYaLo9R4xtasWc/G/+2rzz8OVH/w+c8Mbp9D+bQhGtAVU/pcQp+LiZwwiP9AXiQOm9wJAceu2V8tGVNFfQYsBTcroN2HBjtXffaIK220qI+X1aG8wh1zUoy1VENagrfXRZiOfyhEJoKdwZEBa67hQJe0Mb/YZtUE3IqASwSZZJG94zoGvc9iOIbMoEAHPNCpAVdHRp3IbDzeWz7bsdOqSYWQTBp4CXMuBmPZgxGrZMoaHJW1S4AoUa8CaAHN7q0sPcSpKpuSclAzSjmlj8aNX+sxmjZzPOTSlyfJq11k1iusFuXTZQ549VkvMGg7WCrONq1czZVLwcWUC6QzsmIppl1EQZWJapJhLeKAcwV9HT9oYEcgAD6E6ojBfixZ+cOf7obA2L/ZFsG/ypgi2BdTaHAzLH/kPYHbS+R84t2OHF3G3aoF1wP/eOwg+6HJJH5rAXTMzRDGKWdmK6A9AbtlINLKuF8N5njI4+rXreUciK7AuJrKWVMlr8knZOmwLB9T+NyKQvLncqXtNN2nUxD0Anc28WfPAycT5GIGDiO7WwQW4+R45AaReTN2jngHQ5o6FPhoZ62YuFx61wPhg88+Dled3XJ/msiiIRfTJkPaVESeDEmA8wl59hoSQmSAKxdsTEWsFGapFU3ltI2rJbcTz+wEYVf2Sh/kQX2S0MVK6v2qe9jK0u5mJTzrh1cTz2qAdCjgkF1t0tGqqrIxGQKBD1IH3fr9hUwBYOfU2RjoiWK3bW/d3fZDh0WE7FfgDwyam0CyDNoDkxbk0EOrXhpBtHhch8YsVdSEJsX1sqZZ1JIFdSWraKCiYe1gzByN6T1Lo+qj0oxo3bSpnzZ0k4Zx0gx0utoe/2sdSj1gPRcn9fc9m7g+K5ye5kAfvNqWlutIv+1jCB9dc49acKvqJ2t2EjNlY8Z83FTOxWq0KZtUR/26RESTiWuq5cO9ZO1/ATxksOMf98SjWu4RV+DxsJoFfz4qQNSb4EkbWOTuJn33NP7sme9qoevVQ8+d24ZNZCH4pn2Em9sIwSW0PAshuJs4Zu3wbg6mc+bOmWvVs48bMFfTAsmK+JwMYalkDQm/NZcAh4p0aBOe06AJPZYyZeMwUZAAkNjqW6GyDLj46SazHqfuXCH3zjJ3TsL3TyIn08Kdi/L1LWTVzVxt/FPBNxYcjaqXrrp5BmIJf68V6bV9s75j3F7+/kcfB63+nXMgm5ZEeP/7nd9tSoQVqZAi7JEDC+RzHtvNx3arMhk0V9D4aJTqDIOLrmvddwzmXv7EXhvCZd4MJCuGqf0Zqc1vwwj/mLOPWsXF1DvrQE0CIjF3k/SyNWcd12aj2kRAGfGog15grgDGYJbps3G51wVYkgaRI5sJJAgRsHYWw5FeewweDdobKoUUtGabWVQOy+tpE1EAHcGA5dVN4pDDNaWMqpQSDyqiEXlzzh1Om4/USTtveCZ90I7Ns5Zp0jKOm7oxczhh3tEmxV3SeTIpvu9pYNSx2xehaTfSa6Um3fB2DmI+iGMuquJtVr1F1FksWtJxfTaligaQQgFOZ03JFLCI1mwayLsJKAlNyBr4Da7y0y4r/yZFP7e0Pdp7MVW0iEd/OrYD552N584q/NRpeH3iZuYQxiHziXc3DuwmvmUvc3sX24wCgLrVYP+DjtDQV3J6PAOVctZyxpiNmrNxfTJgb+AG8GS1aCrEbWQRUKemSiKOFLVqj6CSNyvKadu+GyG7cezuiet64x8Lye08tpvg926n7p5gp7vUra13LNh7DDRiQbtxsjUrWTAX03a86MBL7acuw/Pe43D1yT/9siEbMWWi+nRY4bA7cNRQSMiARX9opxVRH4j56kzEXEWNNBbvD5AGLeXL3tVlcHAF/Lmt0jXn60CvVN6U3BG0JrOhIW/useFJz15BXXurWfbVSl6W3LssCnOxVVUhoUkGVHG/Ds9oKllds2TKxEHEk8eCUrdNEwnsYbbunZXUZgHhVAKbQawQAVfvc0YHw3CtESyWzNmUHssdt3AtljXQBXmXAMyIp3XRQnBuh5H5LNufh4mmLV9Qj2n1nDFNW9oBJRuTT7QIzUnfcD6Dl3zu9Fby7u3QapCbDLH1FBhUR7MCcRVPi7KRGFBCJ1VRo0nQ/sBE2ButYkmZjtpSKW+5AsciaaYXJ3lNlThs4SL6F1L0H0tSL0oa2KM1ClD6YcN/Mg7d28VPL7381lmfWgtMaDr0r/r+dc/Wr8culkiDMNTypnrJwVZgoWFgCZinrI2SqZDUZmMKj1sb9liInKGUNGJZR72kAnarVZPXcTFD7NHiSODVjaOW73xh3Y48d04yz15qFt3Yepx/9zMgMhSeveefdOOLif9k41n1feuRb9J19zvmetlRLtqwPMLUXHXSO2kn2vVfCtWDV19RgxCRCJpLGW0+asjG3V3GjOcMmajY71bGgsZC2tAm9U3CKlSV7Xxw3PN2OP9mEji9H57e/wlX4YLKkwRcKTzRxHoSWE3hHnALBEQVnVXM3ihD9QLM4MD7aYspMA52uuxuVu1C3dyhHDSuwzKgLWpycXXIq0+GgWxKELvU6zw268U2834p3mIQW42ANBWCWMuoGU0qCykQsQ/bhD6fNJQzylFtD9WUsczHzO6pXGscJZoJkkf5mYkmoIUQZTp6qiQDstansTsXyFoI7Pqh91wGbs38fdbfb8fBePZZex3z9BqWPmPFs3AmbgJWmSkBu66LBy3pKBglRSZiKuasVcKB5v0EHcDIA4Y4Bt2wsfdXqkZJw1UlP5MTH/EDngTFFPevBAXi5MMSN8sgJ5rYqm8kBLqnHm7tqA3NhTqI9umLFTIT7GMWFuomsqQEpwnP+gTGRpatDRwcoYupAPjVfkSbiarSEaiW1+ejymxUD0hDk6JGRdQgxPTDhaxWDRryyHLkATHwYoFenjjPFkCXclc7aDMKPXsRG/Ke5ci4HoCeWxwPMptZUGhbyAIy4mxC01jFTDUsPe0FB63IxfJx9Kr39LUyHwcdSpeLWquoA5xrHHU3CSOa1CRCwK9K2yWxUNK3UUOnDOQxPh0E5/3U7io6f9rFzPZc5WhdCFUhCbkjJLV7kVE7POnDLOYopbxNysfVo10+sRroO7S9UbGQqBHPu6sla7vm5GpmLGsi8oZcwggMXim1vzo0hEg9DlnYK3bDR4hNYjffNBsOjPoDjeKmSXdDJRd5YR3QkFpRR+Vv9mtKFgNDquLLoPcdzFvwbJIfbWJ13o/Wss0he/YsiHjmEetpcwAqaQ+3LfjopudZC/m7W8fVzLvu+sZ8AIztySQx4MDRevoNz5AD7duVSZrqmIsumdGErZDW11BFLasg0joC1YA4T2U1xZSilH+SB6cvB1CRsDjM1qBeQ04VjtJhVQ39GYR+blkGTQuDQe2Ksz8KdM88rRUwVxayaRmzyKTt6bI2gXZ2m54Rr06FrDUUIotG0PuKaQtXsVTzUAXVAkOViXs7tKWGagpJadgrC3kkEZ+UwcVvWR0199norXlsMQmvxpH1WCEwrpMJ9fR14v655WJmHLTgRc+1m6i6jfxmHTlbQYCo87lryiNzwTMHkYGCODo/H3km/ONw9eV//B8Wvgo01lxJIzQOV/MGCkMGHLDo9nrJ3qpJuuWbnaKylVJyILcmoAHtHa0iq2fCk/sPueqZM5Qe9EFPXOEMi61uF7Duw+ZRMQDeE2rVkG49cboMX0xtQs1AFix1zNTCoXLOCABr1wylrKlWUBcSOjynr+ZM+zW00KHNJA44gGMX2czHevUNjfImeFTKDk06kUV/oFMqskElgR4L1ZsjSjyuKJs5HV1UzOnjJS+aCGGmEyYaNpqExzx79d7caGUdtaKdAeiVIDn6FrysWw4ve+mzBXgmcLF2zzuhi5lpXPcLTGLER8e8rw4yLwFXC5pWWdEqavGkppaHqSIg/5jJy+icHE/Ky0kJkTyk0QOuBLhStUqOCRdZjJzDpktgII5ChpyuXdU1y5JfjJaiXXXd3UA86eo23O2FXzh11adQmXfzwEqNbB02vr7r5TsWjjJXCm66hLRJb7ehr+XtwPZUi9pk2ESV1GRRnYki9YqpgsrosqKQlteKskJK3CCklcKbXEnALF50zZOOqE2J25R3NUzd2aafueU8nUk69dB8EluOfduxbw7azQDhaPuYM7ZJ39nEverZRiw85+B1z7kdffO1x7qR/4//+i/tw1Zg3LH16hYKdZJlS4twUEULgbp7bUOPPO6VAFeiZkTCJo1cw9PdBPuXoeF1ZPaUt711UCNrgTWkKsC3gz4otrhcFdzAEzeqSX2v7qaK7n2wrZh4wrXpWhsYEHBbk3B0yOCIN1bAvEsZCmkrgYKkLPXaDek4yH1yr/PQrDuwGERG3U0PfGjRH1mMe99utx6aNDf1muOkR19KKkrZJyYt8bQqn5WlY+p4zqjXA8tuLR91TT1GNqyCbGiZtW0TXj6oyntv/JoDoJL3K9pRXT8g7etO+PbGvR36l0N9twoiiRvUmIsup/npwkYSNrqkI/OyRt5JVwIMDVWxQzInaubkRArIrBiPazjKNxmr6phvJiDDlowjDKOmd9E30mUTS4BvCldQDZDicvqYSO9ZYstvlpzF3bcmhm4d7jKWejXQveXjd8BaAF/h6Ar+q1VkeR0aniUuVvsr4dtVC4Pr8zF3v6lpV2RMGWJwA1U04llZs6KpodpmVdvApc2KuvXz10LlHKUUGDFPA64Ms07yYmMY8fJpW9ptqNp1x6wDcIpvtunTE7hVsXYbIFwgA9Z+MvB1WTe3/93Ztxl9/Etf+OO/+vO33g7/i7YHr79qZkkLONdtytWmrE3c3qXdPO1geBczsdF9mO7bmKGjMXKzM09r7eE2ACdf5yQ4vI00lzDeMSQJUNowKncEJJBH6QtLs1E1X7c1K6FROz4QlPWsuAjSCubs0Z4G4WzVrDTqaJNQOQsMgwlL7y9zysdkLlgP0qjHqU9HNDG/1OcGLAGNOoKMRy74ptV4aNIC7XqHQvKkWi4uxeVY8njESqZV5QyXzis3FvyRUDkeMsdD8idLWIM3cHqzxHzRMmWNfUrexlLXO99uFF70vZOWoosjq55/PVSNKOb6fmo2T3FNJ4jYLdI37IG84KwSunTM22adfc6Yj6uJtKSe9S6X7q5gFihzn1ZwmJQr+c6mji6jx3PyXFyHpxRoTJkIaCJecTogL8SP06EjAFirJBeq5iETeeYUPum77yxdszXgytve2GsD4Cvswzay3Pg6p7p6Q96pyrmKbS7o+3V4yiu4qpTFxc2SrlVRtGq6Di1hK4rGL1xaf6OAdW9Tb5Zm1oF340f7lm4jMeyo+Lph3DYOWFOX8U3ayJS3z/noYhC6Xu2vTGNpEN6hWjHQZ1/88f+g4G22b73y0ouvvvz7X/2SQ2C8XD086jknHcegAd5ZxaLOxtjJTME3tVf7DlDk0EmNXfTEzcyQxsLHv5GIH13sZ0jgMntAbHFLbT6ZzS/3RDWplJEomMH0KfihSlqDx9zjlo+jLdWMG6gWXzcBh1Avm9EsXMPVUb8+HlLH/KpEwAR8eNR7BJnEiA14dZEbPoZNR2bdTa3y0Kg9MumeVCtuIA4zx+jnXfGyqZ5WZGPseEodzZgjvqQc1EWD6p6oHn7crbxJlEQoAahE7cKjss9avkkLnoBe09f2SdekHdpOjFNWwmPZ5Sw6ake6/UCtGuWFLNN1VytOFNNgaPPqPeXB2tCoismMtJE38FU9i7tmHWjKmuacna+5eCowYM10UVKIqrIxQz5mRdOGZMSIZXTljDobBalWhsYUWEoOPDyHi3lC3iXdgy1ogu7GHPgKMEk9y01gcOVkJjLgvbk37kCUtCvKHg2tBvYZiGn7y0e1ALB66ZcQxVb39dNcvVm6QQta9wOroUpg5G1KEvVAbAVp00ifcU87/u3QezK2LTtAGNVo3NSmjGx5/Oz14/RBfSV9/fsf9Y/bEEtAZRQhqfCsq0z4984Hx99RBE41r6mV1ETBUmYs5QZc480kleh3M72Nu7GAS20Y29+YY0xWgL86NjkAVEp3VO4Mg1L7QEhHZVkwuxNWgXSOeuZ6yT/mnDzlFdhoT4jNJrYmqU+HDYmgIerXBbzaoMdQSKkyQbnHDgRKZNbJHDBofwd69ZM69YFJd6hVHek0YoMhPhwZZuzBvCEdYdJhEbRC3WwQmMydHCviSwAqwNJhtyrp4uIuIe5gbxL1qCSdkrpbCQw5lYBL+WJixOm7FQCVhisnFqPEeBDvDDKNXqzS8udwV7lgzKckjdLgAx9tXb83xHVUtbwF9KY6nr7cWTnSweBGqqStZpFxyztqm+qENh0Gk0VVSACfpo4GVT4XKJHVII8FQYZVxYPyTFBRSCjxlKZZ9XSAOu2AqQCmHXCFcGtg4NVF4s2bECUcDvM1c7tmG3Gu0wkEnDCI0u2anq+JmuVHP/lJf3oJ9A2ofgFRe5fF0/Juw7pfkByquoycwpRVoAOkd9Z3TNrgnS0gW7Vq7m7dVC9pclFnveLkSWTMffF//t0v5ar/nvvBdd/ClN1C3VspmYopN0fp/IgmFzwoBf+fXOwG4T/APQcYclB0HxS8xyymGTa8866XWwDhsuECGArr/oYvSumOicxOkdmt8qX35U3tC0moPAlztGDGKs426+uwZhLL9ReR/tbXWoIZ6uIEYBK0qYCplDKhGRC+9IW4Mh/RZCJiu+UIMohh86FRdwj6IGQEO08qZUc67U2lXIwFRUP8yT6lGOLueRdbX8hajKfOKTNpdR2XdXFAFNArcQ8/FIifgeoNtHjMPKAf7hTtQ0bfLoN967iJjWfY+hSp4WlGCNfbRrKsYPKaOiZm0djZSe32u5ODiZWv2EdN20II7IZuYGhB1KUwK1nwNKv2fsOApdSxgDoZ1GWi1krBnI2rwog2GVR5XSCsycDzpawy7lemQiD5gvyrjIZtNRa0BlOWAspvStd0cVxKYG9wxeHyJu7e35LJ2HnKKtDaRFCPZc0UZiRymkpOQ5eUbE1N5OWpiLRWBI79caCSCHVpl9EMWDVP+4VG4Hrj7DBWnrR3m9Y6bmlUdR0KAtlNYMyltLacBWhF2/UXH+Omidt/+LHwnRN4yiInAz2b1ZUSplREWQ7Kki5Nxnuz5H0n6rtZfEgU6jzIOw5yrgMsoJh1fOOxl9u46hMr2oQf3kOxX3UP5kVm1w2lUelLaSIFTRgFpQ7l1cHco9JGC8ZM1VbtQqU2cKfmLG3KkGaUhhuUtYjDZQImMBdZkgeckpBHtV/wR6SwReyEj836Q5MeGPgnDZobOuUNlfwJpezAqpP1MBFPFbbntcVVnp8dk7g5h9qImq5OSIXScZc47FZEQvlAqPwEJw4Vsfk3qvWwOFTMFVR8SfKwS6Knp43dXXJ1HWt3/Y2WrFkQsTnw4kMQY/steNgLcF2IpfzzTmQztm/70EZwLgQlntFXcuZGyd1lHH1GS4CWF9YVM5Z8wkSg2nzUUkhqo579zVk+lyYW0GZihmTYiOfUIZ884jUX07Yat1+0ydL6eBkMpi6Fi9mHUPGEhMUt0xaYO3ADt/Ckia+o0YSllNdX8+ANrYWkBZz0fEJfTGsSQYXHLsnH92vsPw3SMU8fd+hH+yAAAqIelaLbUAo1IFOBHXCGdRWWtLSqjhZp4mp6GgOqGD5dmIspkD6UIY8+4utf33qcPtj/yPtkVFpbjIvIgKIQU5aj4rLvuIjIwy555pFGuR5BdTNju5l23Ei6DtiSe7gCHt5e6QPRdjy8hwIQog3mJBbPkwqD2ILo04QuRRgS+9In8Ec7P/kzVQGvt6INR4nz17oRUkhRfJJsQDThwFF1Pi6P+qV+txSxA7ESwWbgr9Qe5DAZftJuflIjPzRogGoBupAapeHYKDeM0G1buaRkiHB/CHfrEgEVtfMAqoMOfsxjT/Tpn3DVQkGg+zn1Bmko/dT7OtcfYjb3i52Fm66DZ2SdMjTm3ZNJZrJVUcT+tlC2Bvca9mkLBj6Hxo1VVFdKG0hUW0zpsLSJKliKaVXcp06GrY2SsZjWowlDPqGLeqRBjyLgVgUcoCeCc2RoV2GWNBMlW41xUEN7pWdBG7pYCYwqGBxVtQrcl2XMgobrAjGQwVwC5akT+8bElmEaM+FZPZYyZCOKkEcZDYijXoCrLOo7inhF7M9yBeqg2zh6GAkfKRUoWb8B/L+lU4WEur1BQhQO8VTsbG4Hrfxs7L9c20ct325irOS02bA+G1Wmo4pY9HG4at++ZShmTOmwhAhKi35NNnyMeQBO4hwizbgeapT9Rhq+kYKeTFifjIFH541CxN3dgfCij5WtxZajOrCV25YcrQnmZbbADYVRDHsOm5XDKiauEKYybS7RlkLDur9B7I1Hd7Ubb6/y/S3W35R66xw7yjT6EbJhIfMaOq1roRosqQfxPOKThT0ij0NiNarTYSmevmk3vUuvPjTuuXqXQqa0O7RUVQ7OY5fMrXblxS17lxF3smI+c9TKPCFUgY3/CVeth+T8XKjeUsYe7R53HUPeytc1LA56ZXq1jU83cLvj5gT76RTu0Y5OHRIomC7bGUyLxkx1zFbI6IopbTyoS4cV+ZgqFdaicS14LKdBHlSmIwYso3TZRJBJF/Fpgm5jJmJFU5p2Be6PPO2Zqzl6dD2bEXTAh1zZiK6lxJqGbc+iF+g0YZpQFeIQVbDXS64GYWzgBqpkaZStzYq+kjHkEmowUPt76Ixyv0sd9Ejr5f/IFZCsm2NO3G8+gkrTa0ED3sBW96v6DcrYqNpOJ/aLWeLOmWPZde2GjmkHnrSgHmOq1ww0bhs2jBVUSmQfS6/OdoZEVIWnjgjfQQlR5ALyvO/HXc9+nHeJiaiiWQSqaKhmoHbV3msYuaq5WnbxDIzlzRXMiBflAZ/c7QQBUJ3OPqkxHlqcNxjisIY+wWCyStpGgSSVkBeSpjJhwasyLJ1dbJmL56rzC3x0Wh5s0+1Rgu1CDC5ppURcStROi/iMjMspmKyEzcsKMXHI7e8L1MXTPoKUOqD9APrhd+0bokKMp5zdTm1zm1icB0c9cTttHTdUAnbczr5TII/bRcDVOweNoza2b2e/DKp97TvjTzyYlMcy01VktiksL+KDkZ2j4DELkgXUIKzNqout6vGUC7QMPK0KemR+lzITgco5eQQxl3PWNqkn8oAx4KO0IOT6XNp4WBPxmZIhaz5hRZOKFuGdnPt7Z0D8H93iBKDSRoqALrjMgwDuno4hgTb2GCDg4qjHkI8bUxFjLg6VcmYst789J4SYY/scLYt7j2CzeH/Fr1vsd4nQ5M/1VOJB8+awJXnIlRr4qG5Dh6MWEkeAxRq1HXM+MBeCk651xrvGPPho16rvBomGBEYO1dIlBZ75wo//n41vs33jpRd8o5qKw2WFpKQYAi3vEHUd5Z0HWTvoegdJm6mJ65iSvl0102UdX3H2Geuk7W7WdPmYpYXrCklof1NkTBXxKt37u+/BqKrDPrHTrksnXGhJCgwPVnQUMCUaOcghhwXfUTFwUPQfVyJSKmltV61AhJu4opmRNtPiPVTp/4+39/6OLLvu/X6RpWk0UDnncOvWvXXrVriVc84554BCFTK60blnhpzhkKJIkdKTHBT9lPUkWfJakp9lezm8H2xJFClpSIqS7PdsPy//Kd6nCigUQgM9lJax9sKqRgNoNOpT3/3d+5yzD4KqHwXBEY9T61COcrHTs/aLz5z5Cp5Ox/dPiN0mP+XkM+bgZC8y3Qf1wHpF26QHXxt59tQ4a/AGyUfjOr+fXnLV5vUy70dUatPYC8HPL4bJ02fG00N8r88sBkS3oilE1c2C9cmcPB75v/zcsT8k6jlDIaEC0QgDP3FZGJ0hEkTchlGVquWV2bAxn1QlwtKwU5wICH1OXTQgcFqkCa9+0HTP3zrR8s2puTgBOwFQAVraTBVU3VwdMQcT66BGjJuioEOeChGDiroMRj2tj/jViYDUaRVRuNJlVzpoCU1wKUzgtPIspJChhF5G0C1vQrXOfbxuBR5j04FtMfR+6QxMlHG3aZm2TNOu9/Wx5aBnPBqZT2bOkxlzPPG+PfU/O8AGFdOsqyjEwNeNXp+/j17VPz5il7xb8JMXwyBQ7DiYKBMrTLBChLad9j4/cj7fdx6NrYOGeVAnS0m8W9JmYzK3WRvzCxhaypiVHpfK79T40E5FhYcRmUiljxG5bBzKILXRCsYmdlkEASs3ZuMmGTRIJOfiFN2ckodf9QlqfkEjIGiHUHTCK6gE/ZhomLjiapISzzKS3Yxyt2Ac1shxO3PwLH3yKvvkdWJ2bOiXRf04fBW8N42b8CD24pn7aI/XTzwa1fi9GL+Xfrzb5KB5QfdDlbpRLQqHWXTaYrcqn5YF+23doGw+GZP9iudkZn1z5Hp6gB0OLIdDqJ7A5CjSIX0upmsWZcWYppbVeN3qfARrZjUht64Q02TDUGhj6bDK75YHnOh4cjZqrORNkwPP7I1r8pKuzCAJEpmO2pdW5oqSUUXVqNO1nvtkl2qXFcdDdaegSob1mZAi7dfkYmStoAT/aaXQHD8XLXWY5TaTmKE4pB5Ui2cmeBQuLMGvpbJWqgtDNW6FT541Xn4WOTil5wP6eOKa9w3NCr3b17YLllmXOuybFl3P07n1cGR5MrOOmnirSBwOTLO2rpFBG9Iauf6rp/dD1f3Gl+A9O+d41C89biRZERKZqJCRFTEpOnnP2R7RLBn7RU01wk87iGHJuduRFxPKkFsTdKFtWh6b2u+SMDTanehlpHZaajULaAI+IrCauA5Kjg41mzlmo8hhlrqsAo+Fk3ai2UdrqCBawZtcDWKi0XWuJumrP45S4mFK3csRi6Hz6ESBirgLldMNoCSPEP2qsZYHf7UzyC+/c2x7XGOh1uL7QiUCoka5zS69CnJfOUWBFZm0mLOZedqmF33TMehJ33U8pk4mRDOrTPm1yYAyigo9ideG1bOadBSvF1TwGyvFDfm4ASxWwE1XC1S9a6537L0j1/iFe/oa3tPlXaowMiTqSm8STU5Yzg+h9yaQPS2tknHapsY9vJzmOwkurRcHHLp8HA95jbGA1EGLPVYpTYggBfsdUOnIXXau2Qgvan7QuZztVkFQjS6qP9W0Fz58Ej04Cz45jH3lDTao0sOKbVBznu8x467rfOE628MmNUOvwuwPmWnbUE4rUiFZIUHkUppyxtQuGjv5X/6j37ufq9pXX38wqu+Ug49r0Uet/E6UWnHFj1jwQd1+PjcPKvyUffVBkC9DMamLeKlKXp+NK5IBidMqt1t4FkpkJvkmXOphZA4L/NekLruQMrK0SrZaztarJCZc4bLxcC06ghpzAlTcspcPRNUvleqaWEESjF/TqyuikvBxSJGrT5ON0qU3n2afvpSAXsGXd+D7hLXDAjPoSlvRDa4i28Myq5O7qwZM3Eh8q9x3belnWpTvVtwvD4ge8pbWUdv+6tBytkuejc2HY9Nu2/n6CEQMH9ZAssCo65MBQyklh2IwETD3ynSnoi/F9ZmwqpiWJgKKhJ8oF62tA1v7GHIfEOWavnQOz1dcQY2s8Cclo5p4WpPOoEDL04OqppKUhX2GWEwWDinCgG4ISwQgO0CNoAy7tVaL3A6/cFrqobGoT0gZFDQU0bjIiLFNmKhfFAyKwmF53VVAebBVVI9a6r1+4M2L2JtXzldH4BXNp7PIqyfmk4X1+X7gxYl9NnSfL8z7vcDbY1U67DgYmtpl67BNTRvf+fzvPv/RDx/Mg6BUj3rF7bTjg0Z+O2YBfoQZp6XXxNolEsqBUYkVJiEtirNOXTEGgq+MelSZkD4ekiQCIjfDp0k+ZeSbjUimgCubWWg0CNGJLUpo0HE1KoHFxCfQHio2cOWhuSkXcIVkqr7MgM3gFVqX5mrlr1ZoiYClVQwTkmHKf3YoHiTQ54C974SV41Lro2849kbCdhi+g3qQ0w+Lq++GuLp8vD0o3sHVDagGGdEoJ9qUqd3icsN8mdjvkrtdardNDSr4pAHpw3Q8NEHJfzalz2ZEMaWtJC2LPlFMqqtZI3itdESR9GMRvyodwvIJbSKI1zJUp2rslq39qrk3sHWO7P0zR//MNX3l2n2NlptLu+jQXLik8CUk47pktw6Fkr6eogZVXSaqzIRUIbc2H1WADxnWDeMmWcmqqklNu6AtxI3FNPytiDFLoQy0m3kmA6RCPq5/rJYJ4H+9atePyiLAdcmVfNSkjhbFl5+U91/Gpvuuo5n72VHl+UeDN9+ovvkk8dU33ldPieOJcdx0Hk/Nrw8hD5pbZRLkt5QyFOK/9sf/5n381c/8yR98MGk+znkelZNbGR9QpJ5U7bOuedHF97umaUtVi8lyPryRg1+RxO9YboP3ShxWYcAp8zBim0lA6vkGtO9ObKcENrRALDTjfMogsJAchhJQaKYHn8IFTlqc9PCzbiRWqyS4CRWoTTd8UQxeorWWplWoJoX2hz9jnnXh07j91FKjwqphiRrWxZ0ofBNhN7b+hrzOkiv4Jxrh7W6e1c5ea1XdkKklVNdl6uKAmHa/GfvKS+vJxDzvOuZ957wfPF8EXh6Ri57neEYfTUyjJpglx6jlmg2wVoGq5rURnyzggHoQLyQgM2KJoDEXB2tqbObJalaVDGliAVAzkCDfwSfO6Sumd2YuTU35kS6YV3jj0nFd1soqywlNN0+OKsqIWx710pOm7WiMj6umRZ+c9OhGUVaKaUoJVTsPtaE24lb47VCQiik0YG2HwsHSCzxWYTm2XgkSIuGC9NqQjJv5V5/0X3093p55q11y0LUcHbRef2344bcGH34z8+lHnrcnzjen3pfH3tOZsVf1vj6xA8mQ7hsFQyJsHFS+/x77GX71z/4IUuFWK/M443tUSsprCdOkbT0cO/YHpkZBn4/raxlNKkhlY9qEX2QhhIwVao2LktZCLg816DgkBllPRBjEDBrlwSHQmgukQi6uE1I416AV2ih1wCXMei/EaqVX9et6BbHuM9wVokE8dvyE2T9UdJLsXprdz1z72laIAx8BDayj4DWjaMddPSpoxbc7eVYru9H8TG5mPUTUJlToEOvlcZ69ivnNnHy1S76Y0kcj5/7Q+WLuOp87Xx6qukXrrId3ysSHp+Swatpru2cD67BlquZlPgffYTIUwF1ntYUYVk2bgah8Aqo5sp3XVTLwi5XFffpcwn/4qWvyytY5Aa7IbF/tTsoTGfW4Ls7GFPEgoOJsFPVhn6WOVpnpUdPar1HVHJVP4bmEJhVSFiP6TEThc4BeyR02OWNB/Su3lU9gQqgKvXZ+zHM15vSCrpJoVPc8PS89+cg73lONOysRU+72Amfn5U8/i3/5ZfH8NdAV/eRt4tO3NLj30yk5qDhfHzsPRs4nc6DLPnh4KzK8PS4GPhg3tpMMPx9WZSLeoyn16siyGNK9uqGaU9ez+hi86ELGRAhSucRlQWMcTDjfTrHVCpZGCQluSyHeUcoe65QccFAmXISh3elsg4ZrMXIMahRoTA3Fy7h4FR+/6r9AaxU30VqqVm+Z6eDxKjoXYRm3DfsLfaeGXNOozG+F1yAJagFONw3vBbWgoBbhNZM7w4qgGQectlu5C666N9sIq6LvKiaFG8fEpAc1COVJizofm1/uGQ775lHD++lzx/MF82xuOZri46bndGrc64KSmBsl825HE/eT7ZI25rN1S7pc1Nwu4pkwXkwYS0myXzLVs1g5rSwliFoD9Apx1T4GroypttIV1zWb4a+9JJoZTdxnbRZc8x4UkvRi5DgcEr2SuVXSR/xEPq2qpOW5iKYYV6dCWDamSYc18aAuGZBCyoA8aDYKcQwsvTTmkTbTaEfENbqKomFFMelAbbjpuySTFn6yG335OvvkjWt+oJh28L2R40vnxOmu43hMHw4Nx2P98qjX7/0P//Z9uPqFf/MbW1AMZlzm/a5+3jUMa/TBmH6yJ09HJIzZWCvoi2m6XVZF/UL4sXGjwGKGvMZ2W0GpdkyGLYNyRyUVmSgOhoE0AUI8vZpvNLBJUC0dz4TxTHp4L3LS/NSFab/GFYDRCl1D690B+c63d8iZdPgFH78RXlK0/lZBTjcDRAlqUQjgijUoiVuowb7Tyu5AHrye+24mPiBq99o5VsmisoJqFYrTluqwZToY2aZt35fOot/4MPTVl9lvfsV6ONDXM7ZB3brb8p7uQUllyMeIcRu1m8oJopgmmnminKJ7FaKRI0/G9LyrKsRl5Zh1d+E/+sw5fmFtHJiLE0OyicVygddnzNffqrJxA/i0StJYiGnTYX08TAzqzO7APekayjmsnsPLqCNtquXVmYguFzM0coZyUhFyyT02lcsuQPN/cLZOxXOYFTGvMhuRQDl8S7jE4/omV3eGfNZVLfrG8z3Zskuvmvf/y/eDCt6qz/e2E1Z51q+c1rXtMtUs6CspdavAiXvEYQ9RzuGZqKlbFYXckM74FpJv1PLRnBk9W6d8bNbvUAaQKbGF5mu0Oxo55EQOpkGDF3CdAATZQ4ucZn7YLnCahX4Lp+y/1mRY58QbqnU7WsFV6LsF9n6XNa6iawuaEX49uBQoYCzK6eVXUKGowxM3pqa9Vfrj99IXXfSlRt2ECrn0de4rA1SbREmP6tLjhuKkhR/0sXHN9XLhe3Mc+dIT++HY/ubE+2zBvDxwHAxsxwP7x2eulwdaECV40ntVy16HGDfxXkWRCrr2etSipzjukycj26JLT9vO+SFwZW0fr1Zw8EqLebZvO9ulBy1jKRU63cVrWVOrqB9V4OnAsnGimtNVkrpSXFOMQSVINgpkOaVK+LFCQpkMy32M1M8o3DZ0ZDXgZOM6Dq7nkAZ5wo8yZiIgbGVuoIVWtIfVB9G6oWnvCdXqDRyUZbdDDhqytJfq143lJFQf4pBLkYlowRwWY5pWQe62o5MyFCG2kgJCL4A0p1PzrSbIdwI7LcD0HLUCXiM7CilPr+FgWnjP16hEFiMv7eTm3RBiv5UFz37Jc9Fq2EyIq54D0LWKdXa7iGupkzvI7ez3QKz49Qi7k71kKYaan5dcgaFN7z+V9/LXlmYGWcHwbn++lqlrRB0ioiBkJy33p+exz17aXy9CX3pqOxgFz/cDHz017Dacp1Pf+dz19ph4MTe82Xd8dEbvd+luJf7hU8+zM+f8yHFyRO0NTIOW/LArPe7pDnv0uK7aA3H7sv/ws+Vknl1Haxb98svyz33VdjI1jRrGbsm837cNG8AVyCMB3iwVsfUqVKdANLLGasZYSZuTUSIV1hRS6oBHQhtljJlvNSo8dpWXkbusbJUcnhq5z6kNeFFTIuCQhVyyZlbUvEmXaFgWjxrvBRW497Pd9yTqd/7oT37pD/7w1/70vzYf9rFikuqWLcM6VkuTrZwi4sXbBRz12Cv6VIhP6pdbVnRCxqxwWrh6FQsZJxz++NiEczQqLqbh4BqeERdqVQL96pyyTgh0OU3cHGovsCrhnfoFV3erVu29gttKbk2a/CU/3Faa086suGINywJ0/UpU0cqk9k6pQFyZj19Vf8PcaozDnW5KNCuL98obRNVWRElPmtKztuxJV/dyTL1dGF9MzR8fml4fmJ9Nw9/8yPB6AbyZns3wl3PFiz31ixl5NnU8mULlaH6x0B7v2QdnzvET5+iEqky0w6H0oIPN29oFmvfuPv6yd/4xVdm1NGaB6SlZqLmBwNGA3h/ZXxwYx3WJ127fH0IlSJRS7oOx/WhknbQ0uSgGyTGDGvjgew2ZOKRCudMCbopHaMUmXEoTSodFiGmFVhPfZAA1gA+q435tIihFW8hyN1Vr5bguuxD3x/hffeN9oPqLv/vuydc+lrby/EJU2y0Z+zVs1jVPmlglpW8XVKmQuhjTF+LowGPcL6QJKGP5tFHsMPMthMRMwI/NRxuiFPDq4OFajlEPzooDoVWDcLFUCqFRh65CMIK5MrHLgUfDKruC8iC7EoC4abRuBQga+HxexbuO5ZcgB7XVzHErF1Zqp1cUdAviRnK7j7iSNlLJ2YmhkIFUKGxeNqkGGd5e/ZpMbQ5z2CuLFrVrUB1dQSV90lmF6llf+2ygfN7XvhprX44Uz3qKFyPV64X+zYHy1Vzxaq57MrEBEi8WxMuF+vmu7OlYc7Br7R4z/ScQIE360Vi235Eu2lLQq5NPvWhi+S5aGcz0pLQHQkK7PGf79IsDHSqaUs69LtYp2g9HmllLNixZ5l2imhHnQlp0UjgJhQBUncqoV5NP6HMRtkknc1qVYRcwJrNbpCGPzGkRuSwSr00V9Uk9jCTmFddSt2z82nGVhYOrZcR3xef//j2aDH/8u+wIKetn8EHJOmxaDseWLz+lwTycHthHLWXEpwn5NEGvzMvoA26JCRebjAJMI/cwQvjJLSaWSi4w6rl69Y5MzKeM3GUXi63X7CilbLWco5SLSQyoQ6P/zEZ2IbrVL3LKXnbZz2pE1tlwWSGigMfrWGvajeCWPYJaCLFUirFLF1yxOjkdmk97Lhi2JPWkop2l+x3heil52VXgj/IctDiy1KglVMJZ5Sr97VeFi/olUfULok5ba6JkT7vy8y4CaR0vhyhejRSvxopXu4o3C8VrhJby5Z7i2RQCoJI+GUGo52Oqu7B3ThyDp7busbbZ1u1OyP0T//FnLtS8OjXlh0S6g7gyu8QmJ57Pq6MxAp6Op3v0sKVtVSSDkrBXIA76ztMZ3S2Dk1dEPNpKSp4MyUMepdOiKma06ajIQuoCLmXApfY6eDq1gCZB8SAtSn12bcir8DlEFNhg1H9Ap7PvQkvQL23uJn0XYw/e1/kH//2f4s2oYdYFuxh6eug73nOd7mmezSzne9SooW/lpE4r30YKaaPSZpFZKZENUrZLEw2Il5ONpcvhjXwrydEp+To1z2SQMahIZBu1HJORQxjYSilHLRMyFC9g2anHt9splA0b0TVXP0YAh1fmfJUKmymQLOt0KB12sVYFadS6o965cFb8fpY/LFzWfUipeLOaeK+0GuYg3q/xgatbRK1wkp9v4PS8v2TpMl6PFR/OVkSheDFbQbUiCsVJHzyV/KBHdGaW5qFz9Mw5eu6evg4cf9V38Im9e0LX9shc35hqSs1uCLTD1hlTOKKGVEHliak8CW0gp0wXxPWCsJ0XdvK2vS4xqJjaRW2/rMsn1KWELhcR+hgZY8KCLp2bUbls6rBH5rdznWioNfguWdgtDXvEHjtIAReNcjXAEypovAuta7sghMP6enOpfLfjf/3kQrXubY3+3O/9OrlXN+92TaMy1Snb35yRgNOiZ9/t27s1fTkhDjv5DCEJOXg0LnPRKqdFngwIol4RZRQ5aXToD7IhQwoplOz4BIY2DKNqUbfceidmqZGgCRkLN+nYqSe2GwlOwcsaFtF1Tj8uV8tUGN7kil+PPx5W4P1WqxA6eBoa7RGNiqKZEV52q0RQAA6ywkF2qVQXiQ/SonT/IvGBWIkOGheGagOqazhBXGnUkqg3U8XbOVIqIApkCqB6vgtQyc8nF1CdDRFXy6u+5Isu1h1BKrSBcA2f+Q8+dc/emAp9stw1ZCtyT1gdDKijAU00pYuX9ZGyFm2sRXtrNcE82jkTLupKNcu0Rw8b1KhmPRraxk1TPeeaD6haHg3nYeAlb5f5GDBdyogHiwdEZiOXwJSQ/mxotifPQnBMaHI+lF1isDQhl+BW8+FOtG7IF2Dzy3/+p3917w25f/uPf68b5i2HA+OwbN7t2M73iKdoHxd1ODR0yuZ5h++mBF6KZ9KLaCMWD2KQskNuvtMqtJkFDlrqsnJN2I4OMp0GDeXGtBxMLSEMSo9XSGA7GuWOVsEz6kSUlZtwAlc75Qi7EYdAW2UKbrRb5p54B1fLKjJ4XbJi4Kx4zcRWI8dvZchhi+60rKWqqplbb3e5UfpB3ccCk3PZRmDvNcRHS6KWbmqpUd0rol4MrmvUSPFmovjwkqi1Ul1CdZEBl0olPUJQyQ6Qp1LMW/hgYG4MmcmZpTvEyyV9IojlM/pYSBEMaCMhZdApj/lFzZysUtLmaoZUA0+uo0bX6vZph+xU6d6QmU19B2Nzp2Tp16h6ASQLA+1KhlQeRuC0EqWMOLCai+hS+J3g6iGVcC0kDzILVPEkJqSIHVLPcZqvjvkDY70bCfGOMxfY/qjzza/enwRXVxN+87d/hdirk7st+7hrPdvF5z3Dftf98tDUruD7A0UuJs9GlEGHwGWSRLxoF7ffI7CbpR672GmRuKwgUNvg2zE1G9dKLSaeQSOhCSxZlTnsYqsZDcKlSDFpFQTdrGKAXQqwWmlWPrC8zumhyEK4UCxryQ2xWrn6yCZa7F6B08lt1bKcZvLaCuAgc7XpZXpt6tr2QX/VRpAcNdh7V/78bqJerwRqrHg7VXy4p3gLbmoDqiVRK08FIX86VjwZySH9HfWws7HuZIhmI7cLZCeP1nA7ZUMpYeqVTc0iXkhoailNOqZLRGV+h4yh5S6bMB9ZPdeSelFbquO5NrG8iojMdSztHpnrGjJN46CJVQuWw6Fn3tOlo7KQx1DJqFJhVYCReu3aqF8Z9ejyUXU5roC04rbxaCNajEYKpufoVTwK39EodqQiHmSf9bn+zvI49kaReAMtUC3L2WL2C9/a/Vc/ew9XP/inf/zNP/7DX/mT39dOq9ajgW2/F351bJ+0mfMFdTqxzrq6XhFLR9UhD9ds4OE6ediNlZLakJ/jtIgdtNhplbmtQjO+rHD1aAY7rhNaSUiRRKGr8kXlDhcUjGwVxlEbxYwH7bzKINViZX3vxdU68u5Nri67XqFNrnitFLed3qmnucsG+7phJVxDNblWAIJRR1wt3ZTouMUCrhBRvQsrBTit890KqrcgUFNkpT5cXLkpyH2v5pavPDM/3TO9mIMcqZ9MTC/2yOMJ3iiqGjlB0ovPu9ZmmRg3NbmYJhWx9RtgxS3DpqqZUaSC8iSaMClbbrKVOawSxizy2Nl2Ck1abmSWsyXTolpGXa7hpY6pOKKKI3N9bGiVnedzolEnexVzr26spFBnvpQmSmmsGNMlfQq/QxPxypJedSVhSEXQN3dZxRQBYsWxkcjS6zVshWRbItxWy7lJ/83BEb270RIPG7Wf/uS3/seH7xP//Ed/L4japbWI7WQkLvqJkxGx2yIbOVU2DC8oVcIni7s0AafQYZE6LPpkyBgPgFeXum1yhlY4bSBZfAcNOiYgcZmdAu0SmAmF201VpvpYVeEKiG20AKO5akJgtPESaAfyTiXKyni+AFTZa1xtSFbghnsXtOI3thNf66tvcLVqfm4dDIAokCnOfot/2L6QqZVGXZmo0VKjwJzvIqI+3F8q1SVUz3fVL2bM2xN6t6nrFBTpoGFQN59OsF4NT4f1uw3dXst8NtOWM+BU1cUY1s7rCwl1NkZX88ZCSux3arJxkZUQmHCl166MeCUMDa9Enk4lSAVvjMwS1tKKesW+t09OOvp22Tbb9Z0fY40slo8wgxroniziMaSj1n5Dlw5pEgF5xKuIuPUBdLmq3GWRWk3gdTkq+WOtAqz7DoRC8lgifCwW7Jjxm1ytJkjchZZ01PzVP/+zB7mCt//8d39Tlvby005RwUecjYhRHRs15OmAOuXXRL10v4quvAw4ZGGfIuxRB53quB9yN2Amtpsgm0vttMyJLtbh4mCxcD6m1gTCdH1O5PoKT1DhDEgpD0eFi4w2QWDJVTH8hbkqXONqWQ+uJGvDvTdiV3tgLu361Q69jbU/yar5eVR/dDAUnXakZ53tWVN40rmAatOWI42aLImaL4nav2monk0Nbw7MRyPzom0e1a3TNpqXVU4aumBW28T5rulsClnP3K3S4xa12zJWkng+TeTS5lpRnokaEgE1yn1mhQdtg4SyWmyl0NZimuQ5zIJS7PZANv2sLW/mRPWMtJ43TFvUwVBfT+HFOFZNq6J+IhXFSiltKaEMuNCU+7BXHfEqY3613ylyW9HhcYeFayG4tBFSIUshRVzJxNuk/u55Squ02MvfQKv1M197H67gjee2cGN2XsrBHA7NhwPiZKotRMhCkh43sUVfU0jAj630ObBsFFK2IRUQuS1iFxIrhcsqcVgkThu4ApGHFnkZgYs2lbu2zjFVnuoixeX8ojBXQ4JqiRgnJ2Hfzvi2k05O0s5JMSgyDhTp5XugKL3x+CoPuq779jVXgdU64GrTwgVUm1uqNvcqrMQKoNq/WJ0BrniHbfFp5/FuU/Kke0HUSp2QQK0S3x4i6sMNopYytTJUymdTx4entsMhWmrZH1AvD0zne4Z6xjSqYYsO/fyAfLrLjBvGRg4rp8DByqd118lHnvlbuttUwCs05NLFwAj5ZVAHWU0yGy13WgU0KYWaCNcLQ84lS2gKLq8S35xQugp5p4Dvdal+2TNuE5AQB028W4F/HatmFTGvMRVVZ8LqqF8bD2mSIbGdggKKy5g5uI6NoWXc1QFM0KstqNnhO0PObWbuGKYEaHVXwlVZDjiq/+7/9L/803/8f9+Hq87hnO+gtPWU5XTsfr5PHY2to4Z3NqC7ZeO8bSyhi+20YY8q5MHCAYWHUYd9oFRonh4ka7dV4XHosnF+0ikJOwRJl2vywjk8pyq7eKqlC+aVTERMOnlak9Tq40WZ7aT7cdzBSdjuixTzLn91Xa+W7n2tVDfE6sYGmKVplyyqF6t+4NUPe5zduuikvTVtyl8ML1sHa6JmF4nvwztkahVQ+qmeTuk3h7aTielg6Ngfu96cMvMhVgN/XrAcT62vji2dCuREvJbBZm3Vbi/45Ov23qmxVJWG3UILIfYzMrdd4rYDSFBTQ6piG9GtMcgCmXB+OQ78bIxWjq1m4QJs63mSym5RWktLm1llp0D2qupSQlNMYAm/PIRyisxmljhoVdzHw/U7atm2Vsk34RxCz9Mq2So5KNgWcCURotsx1qMF75zWhejKC3sV/e78D//nv3yQqF/9nd+E5IXWkY16edgrywWzX31DVnLGZMiQiJh2m+ZGXhFy75j0xkxM63dLvTa5jcJSYXnGr4HXWjygTgTlETcv6UASlLDxUy7P4iP39JWlviCzfX2kpHCEJWY3SJbIyAiDnp0Esx1nvhhXOdd1rjZXf4LXuNrYXoWS4Npc7a6gqmzuT2Afdjmzuvi0uwVK8nLZOrhKfJdE3VaqS6hQnE8gfJ8+w5/NiP2u6bBPPZnBq1LfzKPDDp2CsZI2VLMgVsZ2UdUv0fvH/sNPbd2FfdCA16ncz2giPqWbEbmgArKji3S1KglFCggDGthr1In8jttTu9cjuwGwzQG50mYOHzSUcZ8k7lX57MqgC8+G+SSa0ar1MgASz6jn4FqOWs4yqKEq3NYqthUylly6rZDwoQK9MbjyFl2SXtW6/zz05BvB06+/j1g9lgqBYYFBKyFxaYQxzRom1HNrWVpF07hBzTvadFjkoIh0RO60QSWrdTGKpE+W9enzUU06JE14xSn3JhXmwb5n9621vm/KD7FYVemOS2mPELcKjTapP/wAUatIb+TBrGuzibph2kMXsbbr1/PgDaguk2D1gqvTFvugw92tS866W2BaVm7qo6nyo/0rosBQrWVqo5mw6lBBeD46sb89wcYNrF/1QRE9rFOzru3Zwr7f14Ji5KJEt4DuZG9kiW5JnYkYywWmv6fPxKQhh8hKot1rBMYG20wbuSaMq9ewcC2PMnKMOj6a1ouJYr7VdOXbXG0Gv5LAuiXTqEnDDzCo6fNxRcCjDPlUyzFiWr8Hj/nFLisX1/INGp5GwdLI2bh2WyHdkol2ZJJHIgHHbb1jvu4GVNrRwHvyaeT8Z4Gr7/8f//f7cPVf/Pqv8k16kcME/01QHnU+YhrXiEbeXEzTvaqxV3LtjyBrKxiTKRvTxvx4KiLP+FYAyJNeSdR1gwpdo+5ZfGxrHZnyI0OioQsXVd4USJYAtyhdcV7c+TBXIH0IKtdF5L2ckn8ZQW45xKtca7Zfmav21TkI4Y396quO6OXmzxVXnHmTO61JnvS39jry18vO+Yf712Tq9R0yddVLfzIyfXjk+fjcejjF0bXyE9fZrmXYNHbL5KRF7rZpNPuraO6VmW5VFXZjPqfSY1WHXWq/Xe20aXxOMYHLGBvHhPHQjWkEGphDEyxch+jCdWgPEqYVpAJ36tU17SrF1J28opkVVBP6btGILsvIgXVRZcIqr1XuY6BUV4IBtlIcvWbHgLYwsXTKLal4Wybekoi2dUqW23KZW9OyRknX7ZODOYrhwj174z/8SvjpNyPPvgXvQaz+5h/+/f1Efe9HP/zr73/+S7/3W3KnhWtQs0kM3J0szBDtPNbKEOOWY69HThrmUYNsFvVxnyYbUzK0IR4QXhokfTEqS3luUCEvpdFxgPFLqjA2ptH8IpUvLbeHhEarzOKVxu6ULOYyHCjA2Ge8HKB3FVlE1DqucVW/yRV/kOUN86Ib5goka6+MzNX+pb86a3Nnde6kJnk62Jr35G8W12Rqs0N1aaiuGumXazTGV4vgV57TT2aAk76VtUxalkFNG/crIf3lY/pa2lTLG2oZMhMzFFJYyK9x2zVhnzTkUrrswJWEsXAMWnThIyCEYyyl/DGh3dYp2GrljlLG06KNRmhiYdL/IFrXMYuqGxldPi500lg8AOYKPa2MhW3UsjAViCFbq9xRyR8rpSyl7JGA94GAyyGw5RUYGeNw5tp95Zl9iGLvQ+/iY//RV8LnPxt9/u2VWPkPPn3+C7/5oFj9xd/+Dd/nVHsdYjMuRpfh4iKakEXdhlZOVgkb2nlIeeZaQZuNy/x2PdQXYY8m6RelLzRHlHTxEzfNEjfJOPdeuyavzcUJkeniyYban1UwYQnllFAubTjHu+nbwZg5b0b6nVxdk6x67LZYsSZV7saYvtUmK4AKxepCk5O27ElfeNQVHfak57s7i7785XJRZrOF/mouPRtLTkd3QHU2lB73ZCd93bNdw17TOm2beiX9pGEcVOhxSx4PyB1mYzpCtHPWXtUwqEJ5qK1nDOkIHvIrHTY1eKooKv8lYbfUZYH0JCBwrlrBVkp3pKJtpfSxXLytlbPQBjYVuGs2hXHfG6qLm1MqCVkmLF9WhaKQS5ONalJBEaFnKWR8QieijGzIuWoFxCMB/5FE+FgtX32hGI1rWzCzl579j0Ec/EefRZ99O/r854ErgCp09jPAzD/8h//4Pnnwf/3edyV2M5chOWErx0GyTQYBQwljjLQcBreJw0uvX7GN28p6WlmLaUoxZSHCRSQgJFhRy13iY6fHR779L9uaR6bCkMh0dOGS2puUmt2AltKdkAdismxMkPJufInjJlfg2dZcQRSvccWvRu7g6vKUDUjW40VHsFu5gmq1CxRk6rApPelIz/qypyPZ04kcrblMhCcjxNWmlXo5kz/fFe5375Cpy4U/7dOJ7aMT06RGjhrMrG8sp+Rhh33eVdbSklRQ08gZS0m8kVFFAqpUCKtlwO3IbRYlus7DpfPDyzMidFhEBDoRICYNHK2Cq5KzVDLIGjsaOeJKJd8S8Dnw7JN6bj70hbhCpqsYFebCApCvYlRSiCujPq4OzTxk4RoglrU8L8wCiyUVgWSB0eKk4Xeb4JSgTEiJakWsP/UefhJ99nOxF78Qff5z4adLsTr67MnP/8b7QPW9v/3b6eGBENd9IBX8J3wWRyNHZ7KsJM+gFQTtdK+GV5NUuwIvSU0jxU87ZYUAN2lf88COWyFuo2Vod32HnzpHzy21OZnrY9GKNpCTO8Iyi09m9SucMWS6Mrn7JCvpusZV3n8HV/WNHjuI1arHvnRWABXraMgdl4Wzsmh+6dWPW9LjrvR0sMJDdjpUHfTlR335kxFKdpDyNnpTwNKNbVToC4Go1WryYVd3OqTOJtbDofPpwnMys59MDVADvj5U99DFENpClKrmIBmpIh5J1KsJuuRuGyq6fTblslcpSwaEYNpVcqgBBcttBmj/rUaxI5dsw7OM9kYqd9C9ZjIupuFngl+Uq80Q5MJy4Gp50zEa1mrUcQEw0CiF9LFU/IGA91gkYMcDnFJqHbxKxjx/Ent5BVXw9Kd9B192TV/+3p//uwe5+o0/+H2Dh7FFA1sy8WMhT0Ya2DLJsnmCgT6rK0liXDc0S8SgwtnA6RpXsTu4wlodtLmod2qpL0z5AZ5saoN5uT24kiwoD8FuKTwxXszxTq5upkIfpxC4xVVsY+3mqsOwcuz8vQZ73ubP0IY9CdoD01nuLgAketKTAUAiP+gq5x34owwen0+uNRCeTYXw8etu6oKoyy0K0v2Oar9DHY1tRyP3GZqW79gbmuddA5T8bqsqFSQ6JUMyrM5EZSGX1GmTQbFvwtDKl82kCriVHgbVgFoVBMegERJ6AQaOWs1Ry3dUMo5Ohc4IaFUslRSMEJcxcfLhL0wUZJZSVFaIySIe+eXwGQniSs+jjVsKCVsh/SkB95GQt03hnGLyBlf64RSgijz79squg1i5pq+co2fu2du//ccHrPtffe+7pJMREPptvfKxSgZ16JZUuKNR8qzocITQYSb6FbJTkaT9qKd0Z+0Wv+ODWKvtnX+EjvFWZstNay1tqKBgQqBXErQl0gFGS2b1iX1fJBVecnWVBBt3JMH18o1wWt4aNXamDeGiLYLY76x0Rro8vADvVbM22hJ81AWuVKdj/GSmuGwgAEXcUfUuoi6gksOD/bb9oxPny33TvGuf9siTCVbPqBy0JOSSxbxEIU4U4/pCEitnRAwl8zGKiIfnMov8NoHVJGbMSsYiMGh3VAqBTiOmjEIThsYOYBqeUc9WyoXLA5hQD7K1CtQN0ChYNuI+tIqRd2TDmD4QULlBM/0Sl4VH6nnLvbv8oBPdxweSqFdvqeVQD25CBcEtp4W1gm3/BZSBSKxOfhpsPJqvPnj6D//n//P6P/2tByXrL77zV2xMxTNoRBYjlzTsaGQclQI8vMRk5BI6sZ/R5aKSpOduruK223rFT7no4YFn/tHq+BKZGxDpNhrw7kkqbCG5LSAxOUWETWJygHAJvO+QLMiDm1zl/CuLdd20X8+Dm2uCyFZVHrcLj0aIKyCBP28LF0hkVmgBVPL58vERAkZ2mRxXARBy+yVE1A2oQKYOOobnM+8nT+1vjq3ne+b9gQq9tGv6YV2RCBmbRXE5oR6WnaMW1Sph/RKeieuSQV06oor5If3x0X3xBJ/E0OhUuxV+w0ILKXJZ4BcuIA0io4FrMYLp4ijlbIWMp1EJ3FY2QAXWyGV5Fzz3By8fESYCooBbYqdFbisfAawXxHzwk/Dge4adOyY9J+nl5CM3JAtCUMtb589Dp1/3HXzqROPln7imr5/94sNQ/d3f/wDeV0YDKEPYBs2OVvFYJhKoVXwCk5rBw6PzpIKwbd1Of1CveCmnebBw777x7L6la3OqNDHlR8Z0G1ksqAqXO2wV1iBqk+IWodEmod3CK7Ru65X3Nld361VvLVZZ8Xg552da43SLH0zbvL02aAvwIJi3xMsHinlHPW1daNeSK+lxX3p2qU5nQ8lRV7KStXWsct8yZIdd5UHX9fET+/HUvNfRZmN4o2BFewx69pOJYdbAFj3rpKuZNcmTsWs+0Oaj2gQqEuVuRkQY4CUstFN8j41H4mgcPU3wbKSA0PFpnGsybCslIpApKAPlUjAkokxIEPNyffZ/jr9CwpULyyJeUSogctB8h4WbCfKCDkiUiNWVDF6IYfKGaonqRWWnQ44OzINDZvDEM//Yu/jS5//7//UgWiwbKXZZpbSJo5J/IBL8xM5jlNZNBpGNQgMWoNo1ajlxhpNyobYSylYbjSZ4EGNYUTsrCrWhjRNz4q0eKBWw7Zq8QlyVp6txYVisorSHla64ClTLHpGaPcuJ3DQABo6LH7BfdrE2Jct9ZbEuffs1rjaXm3trc1VYDY8ST6qiaf3RXo89aUiWOIFw8eaQ+7q6UQtt4FxxhWL5eO3Jr1jqXaXOwyuuJPOWZK/JHIx8n7zA9tpkr+I9nrqOJ5bFyNqpOLoVe7MM5krVyJj6JUs7b2xktEGPlKFEJgOX1D2mDKpQUmKzgo0Xm0movtmQF8xGHmVA83gVYrZKxlWgAgqJ23KZhleOf6EW1h2qVYjws2EZbRHTtCDuF4ac3IT3HZ+c2OSKX80KajkIYS2varXI0X7pw5+ffeu3H+Tq13//d3lmnE8THFK/IxP/BJe1DcKLzi9TXFz3WAU6puXbTdz4LV8NEXeyIvadkA2CHXbglZ5jeM4Mnjr6T+GBGfJgCXEF/soQrymdcaU7ofKlUavBFhQRdr6OEmBmodHKC9vvSIXrPHgpViuu7u60X/orETp2WlmFaLf+aNpij2qSRUuyaAvmbc5eWzVsKhadC5wuUZGu1WnloI6ugXQtFi3pXtN4NHCdTMn9EZhP67BOzjtojX5U957P8eUZTN2gSHSKxnzEUM/gqRC6Iz7kVgZdskxQ7LbJQgG53wu/XiBH7LTC719qpXigV+hWIC1bLhGjM+Narte2cQfrzWujfxwbnw1x8xFJPMRLBbiFewqB+KZqrdFaBT0/+9k/fGBrX286EmiUjkREaML5pJ6vgdpWui3g8dVKNGOBxLbVaFg6W6fkOk23uWJHGSCKFWaU2by5OoOwtA7RLSftYzQjBfSqsrucSV5DA8kDWaUnCe9V3hSUh+Dh+XozV0PwTDQrYlsFGyrEuOMO375RDF7rt7c2VpwvN4iKRhfz7kTT2qNhjT2oSOZNSIXy/QFr1FRP2hfkrMUH1OyWKL0rlEd9+6uDyDc+jnxybuxXPed7zsOJ/cncvBgaWkV9r4j1SvZxzdSvEF3kr7BhRd3IoB2SDotoeX3bjl7F89o1kRgX8qCdEpFGEVgsNJ1At9wnbEBH5PQqllLGDzCbd7BySv8syfqCEd/MiZtoPahU8MbDNEIjJiQxPmVQeBk+phHoNSyJiCOT8NRyqEeEZlxmJqAE5moUAo91EyrWEipu1EPUx/SyT2XKD6EABI2y1PfR8fA1V4k6Fq1qAjlIgtpgThPMg4Lpw0UJ5eaqCbbVvFK8VbDCl6qFWlgb/moDrQ3Jil3bJnplsZZcjSuPumV2ryyeNRT7Xd/xKXe3C95ppUuAE4Jq3pIujf17xX5bvNdE3+2gaxy1nMdzZtw2L/qB8wO6UbaN6sZp0zxq6PsVw7BJDMqWWY8EV5+OgIgpEz60oOy3i6wmkQkHdyG2meROq8xC8WkjujmdJlCDFNPwCb3YY+MzZmHxamvfv4BefeGIrdHa5OpX/uzhK+l/7Xd+Swi1J6FXehk0qEoplxCYCNNsi4UAEvyXOVYCjOXqwmUBPPZZuCj9OeDZBwb4MR/VnFka+1R5YojX9dEKkekS2S5dX0CAfCGuyhPk2+M10Ci1P6MLl1b3NKE+fDAvsrtZQdsmVyilxtaS5bmz677Rb797KUc0zF9w1SywOyVEwrzj2F/s7HZEa2e15GRl6ZFwLQCzJsLsHUTBJ8D3WQf9+sD+4pCedS3HI3LU8B3NPOcL67iJNbLqbJio5Yydkjri4/ms+lwUK6XVfjRSj6VTcE2YyEpywFzZzBAyv0PgpHkmww5lQL9nEhcFXaJcBE2dvX5n9P/vXK0ise5ordH663sPea3eoIxFnTeDRoLrOAopX6cW6jSPpCKuWimB/6PZuG3G0PEHM86FRGk38YN2VgQpFS/qBahsrUOquLyKN5STe+PKSEoajuhzDYDtGlfLcfcQ6JqJdBuCzKHbmiSx2A2okGRFmA3J2uy6B+5aet7YL3rVHc2Ix2XRqPKolmW1CuLdumTWlM7bW7ttwf4NWpBkrVQIxV5Tun8LqutErULVq1rrVdvrA/1eS7XXUndLjtNdU6ukLSft/TrZL5O9siwR4DvMilQQz8ekHkafj4sCDvBaAptJ5LQAQuiuHJqSQX6kjWydSuhE01lvEHXJVeJfFphlIfCeiTVxQ7V++U//5EGuflIs+Ak+e0cu4Rv1LJWUo5SpnBaocNFF8EqZjDCywLerlFAkouF7JCawmzh+m9Bjl9OMxOoQhQPCoFfgd3O8NpbHvOOhIFheWhaPG4s9sjwmigNDqqGLFNWBtDqQMSTrCKpsnyqMIHUaMg1e2HMTrbDtWlW4Vq3c1WoOSNYdDYeN/VfCYR64YrXyvEEZuFoxAyXhMv2BLjVvo7IKyS207vjkaU2TTikzCcmkCsIoHBQV0zp1ODTudTXtItGv6Opp86htapckTtqQSxgTIaKQxCtZXSIs9btENrOUQRtXhAa90GxS+bwyp0PMWKV+hzgVesdt4z+GXq32l662MV/sZF7HWgaXkYBPuJe02Fqymp9+9D4W62vf/tmfEnC2RXxw7GyNclsuhVQopUkRrt9RyXhKxbaQz5VLIekLSZwtl+5olBKXReNwCTCM5aJ2vBcs3Q62z8r1MxAcnx2o44A986KPSCMRWTSmSmQN2ZY+VVXGMuwQc2cq5MecvLj7moEvXknWtdXnlcu6NooWSdZFbTitrdACZsR7d+N0nav2FVF716GC7wPfbVLVJ1OyDioQhMOSYFCUDEvkfs++3zft98x9dA0W0akqAh5dwr+6t9rQzGOtvLGY0nhcfDO5rVWI7GbRcquwNhySe73iZFAadL7rCvsv3mdAON3YEv9gwOcDfqu49S/GlqvS6f7XPvnX/+2fvQ9apW57WyJ6LOaj9UeNHFw6avXjaFlBaDI8FvA+EPFEBt0OlIcqxbZSKsQxdcgFXuseqN4jzCyfBcwVK2S/MxVKQm6tza2xOqUeBy/huVEY3pENb/WyhIPcupeFYNhQm5sfuYHWorV0XK07/ha+cKlRklHlAqp+QTWpBZ7NKSDqaOR9uu87P2DmXWXMT7WKeCqszyXUMZ8+FzO2S7piWhP1iywmjgkT04TcYVX4XUpvQBAOiItxSdx7zzP+RdPcFyLqXf/okrSV3K0ELfkXP/j8++9xZer3f4ha7sVO85GY/wGfw9LKpWjerPYxpuTq1RyNUqjXsjGVwKBlGXQcpZynQiGhjOqIlxew/TO4WgaQ6bfsBK230eIE7RKfU2tzaSmHyu4UhTzc9LUF6Juq1YzdXisUjUrXJOuSigvYVvnxTrQ2TddaqdZfu26RLbkSD0vYvCselmXjqnraMMy7xkUXa2SUMZ8xmzQUk9pEUBfz6fIxrJpSRNzqmF8d9RniAQBMAY7CHRCA9aokhffKCzyz788VpLZ/Ple3Is2vok7pd95jfvvq7Tvf+94HEsEHUiFHJROBUhk0jzXyHZGAo1YI0dxsRBpXowRjj64rVci5OqXAjPNdFmUqAMrz2EU+chCreOwyrWPbbXovuvz0ba5WPQdezCnxO9UWRmtmlDZG4GH4HjsfynCfne9n+H4Hmk6ZD124rNbNMdrrnsPdcS9aNwzV7S8Xjcp3DM3o5IXtvKxfohZDVSZMFDNEPWvMxeh2mWgX8HJKnYnqgj5tPCBzUHKvQ+a2y5xeYfFhDCA3fRGx+mIZ8H6cBDVwVte6o3/9owdKwsnxocBKdQ7nzcngp1QSMPBCCof0B+bqkYALAiXQa7kUvmMx8rUqjgZta3ws4nNNBgljZpN6WdjFC9g/YIzvCiBty0k8wJXPvBOw3InWqk3KjTmh+lZRNonNyvfaeR4rz2+Df5fjs/GDDkE+eHPbTC91h2T92FzB59z6WnRFyKB4jaheAZ3ivDi9UtSMquhGlXpW3c4pekVZr0g1SppSXJsKacIebcynToTUqYg2FlU4Qu/D1Xu2sP7llCotKSQl+dQmThC/8Md/+D5K9Teffy600xoodU0Gtlb5WCp6DHadwsCis6RilkHDVcrRyRHKICQN4uX5I7ZMLDWT6BAlQ3EsxkcM8dgJQd5D15aT/PFUixW96jkIA04FSQNId2/H2lzZuWg4ZAT97JXLujPe7bLuyX0rW3UTqusHo2S9knZYEXcQaeJugTkckaWM1M8Ys3FZxGttVc3VIZmv6qNlhSMsLD4sL3e2GkTxiy1/vALa2Q5K9UW9+jvUKSeq5nTxJO4KanwhSS4lrGTfs9/+y7/9m9Vh/zvf/e5/9lv/mmuneXYzx0axlLItARdcuhhMu0bF16n4eg1fp9lWSYUEprBRbBO2LROJKVzisGxDsrPhLBuhjLjJUoLrt90vXA+j5aNveK2r9vsyhAGHDDdBBkSb3m934JF7Ty0jszwAfjmadVS+T7K+SPoT3SbqMv3dcZxzIwyDirFbVhai+nRQGXZbWmNLY0HmeogrJiwsvQ9XyduSJYgH+KmgMOKTW6z8TJhX+bHF6o5kByEpZrXROM749U6/IhkX1vI/+A8PbOr74T/+QxUqQbmUDAfweJhlQ2gJMe2WkMdTy7Veu8ptQ2sKBCbGtFAngtFSOa0sTM2SicVWUsLQWw4CgNlxklzGJPba+GHHPVwt0TKCE3sPtK73HOKOzcVoUC0pbuKmvBvuHfQqgRxFfePU2+bkzOG7UyHEnalw0+HfSH+3oeo+AJWsUyAHdXMX0mJOE/MbiilHb2EuT4lMRxPIKVwxZSYvKWfFaNtA+l6ubnYbuMWo1uERUCZu7l2Nrwdx2mCpnkfRKAiaRRSti3vtJZW8LhjFbV6dw/cbf/RfvU8eBIES6DRy2sSz0WILxdchbMC9o30dDhoc1JZKKtCpQawEFpPazaAJXcs98BIbtW1f0sIYIRuyzdgHtP4Dm+EhtJCxfxitwFWRCJJ1lQ0T6AgYP+pB2zzQinxkaVPjF6ZiPWSgk7ucKnBxNYz4C0nW0lBJBiXx6OrTbropNA2jjAZi9Mr3QwUh7Vbo2aHv8K13MbcNh/buyN45oat7ZLarDRXEJpfcHtaFi0S2J6nkvhBXwlRYbmc4udAXayzAL6qeFTRygsaSolZRsLrC/noI0TbFrDSbUgaDKpdXRdnlhNkVS70PV//bX/0lRy3naVVCkuCbjTtKGUAF5pyPa9GeDUy1pZSx5OItsZCtVkhoUkjiAopAB7Ft+OM1LXbjYxrbonSPLNj9XF3aLeLhUjFwnSu0UceDdjZmApxMkJMNbjjVyyTS3Jg+d3PYb3FNiGRUVuaSqkRMXkhK23nw2FeN015J3MxJo0FJ0CNx2MWDpdCNytcNVfHaOLteVdB+p16JOyX9cMLsvfQffQbh3f/YM3vtmjyxt0/MlV1jugNcSa1+nsak8iSVzqio8M6EeLvPwC1EVYyLH/fzivCFMVH5wWS6THZNsIJ3UHQ7JOWcNBmTxqLgtYTVnHHUJkZtbNR+H64+/8EPWOhstYJH6FmE/qcEXLZa9pMCLpoOKhdDVbgFjJkMPynibwk4PL0KlE1pNe8opSxqAyHAidJCPKJ0SLLs+H1QMYTAaWW7HuqpXiREhhV2sqMeTsKHIulHUCGuQuua+oqr9VSB26OkB8W1y9ImErjNp6edWoqBUFudSpdb4XTLHE6JkRSTJqHXKSolwGzfZahuDUjsVpZP002iRO2Cvj9kxueeXZCpL/mPvuo/+opn8bFn/pF7+to5eo64SrX1kbLSFeNpTSIjI7X57i8Mb+iVLBFWmK0AlSQfx1x+jdUpc7pE0YAwF72DKCRQhTt16Z3RKaP/3Tp61dG3v/6df/zR+3D1d9//PgfTQMUnoHG2UbelkHB0arZavqORsRSSHfgjrhWa8G2VbFsuhtqQo1cLDNptmfhOri7C+k7VYjOUxu7SmR3wDLLsDzn5AHDlhGDdwVVwuY12xdXlDB+UBNdovVOyVOWsqphR5lOaYEjj8avdXo3FoTJaJG6nuJkV94qbWfI6UZUrnECmekvALp6Fi3pQ0iljvRHem5DdGTN46p6+WnEVOP6q/xBx5d5FF++iQ3D1BbojNVZVOiICPc2S6wU0c7/g3JAsUS4qTIZW/3cQK2kyIgn6xBQtDHo2vurSjT9IFFC0ikuKbs8XhfjuP/3D+3DVmU05OhXLoJHYl1fo0iQ4cy6Brn4Do84nDTwrLWVoHqbhGHU8rVKI69jwcULPpfQIFbBYFv01qCAs+ttEbTOkgnHorS4FRgoUarZWvWPFH2hqBS+5CrsuuIJY61VxWV9XLuf2NDKbU1Bkg5Jx0VROqptO+10GXlrNKK2MwmSRpMLiYfmWRb9O1E2xWj0vRWE7r+g2bMNTpndmax9bmwf23plz+Myz+8Z/8Gng6Ku+w089ex+i01Lj547hub17SpUmhkQDMqDUGtiRgvEw3V8P3u5/vttWbRhyMFHvgmpF0fo18lDwB3V4/yBU3/+HHzUWu1y9ehtTSRwWsOV6j5ODayAh8q0kmnMChZ6dltjpbXR1F8alDBwaX14Xhe2srBSkPPoWV2Yd+rgdtbZAoDiMGSpNjdWxJEqzo1E9Aq2zrzz8O8pDBNXKXzkQVxE3J36pV+mlWOXDSK+WbcBLsboaOkfMmuHn887PvI28OdTuNa9dB/MOAy/pFhQBvwynxD63sJW9hKp4N1HrZwGel5XFbZexwcQxfgZQWVtHdH1urswszQPn8ByyHigVQOWFJDh76xq/cI6eoesnanNTbqCLlNT+rNIVB65YSoyfvDkB8h69uqtVdatdALnvHnV6D5Y2gzds7P7itx4Wq9NDjpUQ4Xqo+KRoBpdN52GEZqOIMUMxyHJTO24TGqbqsO5QRh6J8c04y0bKHFY+bXhkX2XAm1DxzAQXU4tMJiVllZO0irQqCYuasAJRLCDKfC1FAlrb7nesG6652hSrdOBCry4PPV11bBpX4+ZyH51+8tu/9G+/8+/63/ok+PpIvOGR7us5jCrSQkJGW0V+z51jzN8tViiknbqy28K6I6I2IStjotg3VSf24RmkwsDRZ76DTzxzxBX8EZ0C6D9ZHq4cYJEyOrTriLIVBiRZ1rtGBt1lsW4p1UU/81rT4F1QQXTfocAb049RDFFsXjzxq//df3M/VL2jRXUxQ4OYDFq2Uia2kDKnVe1nFC6b3GnjuenVUyxxWRBINjObxllWI9diVDitLDt5IVYgTRtQQUmoMFBilV6g0fK0Wo5Bv20ysEwGmYHcNt1turac5M3aEKAKrLujdtArdsx7jStIgoVVhyF2wdX1MYa73/7s2a/8/OIXf7rzzS+ZT0Y3jNa7eg7oEuQhFNdZYT135/Tym3p1KVYbgVwWuhjiMqAedO29CZ58Dbjyzj+CnAjOCqCyd09MpQmR7eGpFp5sKpkIV008yNVq+8qqVLkUq7v7mQiqe3LfXVkPDf8fNu65vmQV9W985X6ufoCS4FTGoE2wyI3ThNxllbitYpdV4LasnmLQE7aD4jOU1GFlM+SqW8V3mB/fadcv0UINh1U2BANvw8FZSXDyke3uIvHujtblciErwrCj7guuUv4LrgqRy9fsZeeqkb7Wh+yXdNOG43RXO23e7mTeKVmXi8jvnRpQe+FOKbjZc8Cn88CSK2TaZ2/AXIGzsjT20VT2bI8qjCHU3hRHhQNXbJISVO5pFyQ3lCp9B07vk/tuK9Wghi4rGb2TJdH1P1a//cDo2r/5/udypxVsuZgmpBQhdNDrZxae6y0nsX72WYxpiyGuIWE1fGC+CdUdYdYJGIvURIEurfc8PLq+mAh/dYXWVQZcrw9eFoOpy2IwF74jF9Qv0BKVkuJ05Gqo713XV92WLOGg8oBG3Yg7xOrCwN/gClRLPew552+QaR+/ADOPDitV0QETurZH1+Z0fWFMtnhaE/grXvw+f7VqjfKrqbtxWslU890y9Y589+AdXrxpWzRpiS+j/q0HrpyAt7/83nchzal9Dr3bKdLpuXpU7j22GbfsD7U3rXeIFWphgUyZdTs2I8tOiPyMLBNUdcracoboV/TtgqaclnXyWL/KDlhFMbc47uWHHdsuE9dv5QVtLK8ZxcbeBrQ+iDqiG02G/Bqqm/vAodYWuR18l33N2LvaWZtt0uX9aF+EqA2xkuXSdz2JN9egUf+hWzaNFo7RMyRWy8NKlsYBOHxr+9jeOSELQyHJ8KL++7ua/Gr6PqLuaU/dk/vuhGpN0bQt3u2IZ13OrCuadcWX8YN7r/T6/Ic//O7nf9c7O1K40axsHm3cseCr2LLdC9WGXX9E67ftRraH5kdcsmJEDykp7nXuj/+/9q78u23rSv84ta2FG0CCCwiSIAFwAfd9X0VxE0WJkihqs3avsbMnTTNNszRpJ3vqOHHauMlpm6RZ3OyZptNO06S2Ey9xEjtJM51/Yf6EuSAsWRJBSU4nZ2bO8Tv38IAQSOEIn7773fveu9c6OcxODjMLTWq2Tk8MMY1By75p594JZrRkGivr60VNLqxJhk2AuoEsPVy0VHLqfEyfiymjHkWQ5dLslyedW7o9s8JX7eJqMItUs/JkBIIFGcRT7XXIBSmL831VpHl1AdHlp7Oi2FV9mQ38gAyXFIWcrC6Ufh/O46N1y+i8rb4I+goiR3fzEGh4CA9t1TlNIC0TToq2CXJBUG2eSbgqpgI4tbC01pDZsd6FcWRu7Jn33hp78D44szlf9QbA91nFPqvIa0EtXNQPKnqHm96CrNbgShZ1eW5YZGZG6JlRx+wo1Z8y1fLsSJmu5olKVlNK6FI+dmLYuzjhu2k/NTtCFFPO6RFzc8BQTJmr/eRgPzWYpys5qi9hyCeViYA66tNVspI4t5tsZdI5IJhp5zNXyEBGEwzKSUqaDKKVrLySRYbWl/MVbFzVLMEfVnZVuNqYCy2rcxm0L7X6Fq3klS6P3EjJiumNoAKktSJWdKhfUSsQIyP60YZ75gbf7ltBzAOD0cWmnFuLshZRQoL8H1dTK6ASRtQKQbWbbK7RtdjkYfPk21t0Dz91/uyqphI7zN1u89YTfGsSVjttBnnKT+6uW4cKQEHsZN27d8Z1aM40WydreetEzTJYYOpFqlawzYwyhxc9e6asjQpVzhpSEbpeNPYlgOWQpE8cdfb6rbpiwljJKUIeLO5T+JyixOpKBl8rGOTTofEN0zeKQkplYbnudZWM3h8mHF6l24N5PbJyegtodcp2djL+Ga1JL8irBSwea9FUUZ6IKkhapjPI8ilBAX/ZaldWLGhGhrwLXCVPx+hetrZgLI2i1T6uJ04lh1S3gahN1NSmmYQNqQNBmkLnGujcmHyusWqK+XHpYvPft7F5kB/lfXOr0d/WoHJeVlY7rAZlNmwoJOlSzrDYNI8NssszzoUJ7+0H2JuXXYsTluaAa2wQGIkZKunTUcfkiH2u4Zyq09UCmYsaYgFbNU8O9vWs2XyBJr3KsFvlshAhVy9j6A2yVzaoQiSYa/HVmmwzHwwiYJXLHgQd4FrJ8LauCLkwrkpXByqer9Z6vaESHggh5T653cFlV2xWaSEtrLL4NMjwBkbKqkdq7PR+Pv0OGh6vDKIDeVM4oY3G0fKm7u/qMwlbM1UbRykWmmDY0iSYannaeuO++iObNfNaO37y8ychHNsWqFzULjcNBGWarNnmxtiRKjXYZxsf0I5X8dECvTBmnhnxHphzfP8gu9A0FNNUtc/Ul6BKCW0mTBQS5v4UmQprYj6ykqeLGWZsAE14RSH2MrRacl0adxtjPg1XKt+BOixo1LVSq2Fd5mpjUnStcbksoW4vguvxtk9ZQrhCh0tGV0hJWVCClLA2bsZEUMCvNqCpCSyvQmt5YmTMNr4HvCFVasirRVU+Z/LHDO6Qor9D6Ld5wrMDqDYTVEKODwiKR9QKrqZe+PMfJx776TZx9cHHp3Z5N1tFzGeZxHG3drRsnqo7FiaMjapuZICpl9C419go6SppQ71A5OPU7rrl8ILn+iXH8gQ5NQwyiSymlMmAMmBXZcNgmrhPHw3ocgl9JqZ021R+lshHtfmYOGzvidjRTFAD0j0WVHjsRDKEhNzKILd1orXJK7Q2c7ViQstua0KyuUOz7O1S1qqyWp9eUGczBpsH1Rqk8XBr/cmmOYd6+9qqKwoKrZXUtSHDwBhQFryVl/NkKGFyhdTJpACuBH7XZhIdZCSfPBcAFfi+dkE118CAphYn1uIK7NNvuMpXz/7hvS1B9eCzT9euW+pEVtziYZ8FibhNIwX24KxnvkEUkngmTNXLTL1iaA5hIbe6L6LOhpVRt6mY1BTirulBx/y4rTEEgZ66L4bnY4ZclOiPqwayeCnrGBkA0U5ko7pEEPexdC6GOhjzQB9eyihTfmUqiLUaUWEeVmZnlDE/6mUlPttKIaxIey1EYcra0EJorBOoiv9ILlQ+0E+6g2rKKo2HOrLHWm8Id7WNEA+tFi4fDOSJeMrkDOoCEXmp74r7E9RUnX0fn0jvmExoZ6qWlFrFknx5EuUBtjyF7Z3ZJlndf+yIMEe5GVncS9b6TNPDxFiZGi1TlZwy6dtp1e9iSXq07FucINIxhdOiTgfpdBj12BQ+VuW0aRN++3BFFfUrom5VIYb3J0ypOJNLqCHcy6WM8YipnNFmIpqQV+Zk1H4HZmPUybDa78QhDEwGMae110goIj4M1Du3t84ptdGg6lu4Cov6N1acFsDVhuTVyMZlyUKUtVX+SoisiGBUS7Eyt6szqMrrBHytw5xLB8PyGVUqSTr8eqtbY3bIfV4kExfWVJsKKuFsZyffB0y1nqPARM0ad7BnGnA1feTh7eDqudd+K4tc2ai1w8PIE34kGTCNlpjxQT3IJ6DWgLPLRXe7aGqsTM/VvTcuWJab3j0T2kpGE/GYB3JUfwKPeLX9CU3cD/6LHioqPKwm7NYlQ/pUiCqkLPWiAlRWLg7URKYjeDKgz0Y1Xpc+5kPtlDITUfidWNiLOi0ySi/3sGLGKLJRUocFcVjELCN3WkQZP7dXoq3GpgCuhtr6nY0WOvvBbVPWerJSZdOE2SmnLJtFZFcoq8At+t0KSEilDy1kVYkE7g8RrFvL2DWUTWW0KElGZTQrDYxCZ0ItNiQW5q5f/f5ON8zPznQClZBKb3d8vEnhR3tnKg/eY7vlIBz8/P13t8TV8Vde1GbD4O9kEZeinEQH0kQ5CeoaVLd5vEJwXRoHuiBUdBhFQdZ5aJZZbDoOzTtnRlx7p0z1kqEYZ/IJIug2ZeP0aMUwBCoroYsHFQ5aF/QYUlFLNc/k087RQboxoCnGDQM5FfBeJkT2xTErgwMdkYTcxS3FAThJTAaVuzWv5DD36PGdelxsNkqtJonLIvHa1q493mytyAbR3upxtimotqKs9blQ3gPqWI/aZEXika1AVb7MMPAKYrtW2AxXxaw8l0KzSd6AnXiTpWNIMiq3spieBlMQJrmRRl0upJDhtjZ0cHwdZ2euhql43ycFt7h3Buzov759/puti4ueOn9OFnJG5ieIcs7aqOonq8Ro2TI5oM9E6YmqbWZYX05rMyHT+IAqFwXVHbllX6v784z/tn2GeklXy1ubNVXErQq7zbm0qZzWF9OawQwNYWDMb0zFtFGfPh3SlzLAS3jIo8lGNDG/mmvA6gXKEtsYru0sy/QwpDzgIhMhzO/CPFw/PgVrlujxXqNWxtIyG6Ww0XIrJY57t+arWm4jX20NqtXFe5sq9tXcQr1E+MME45BarVe3rJe34RbAtucK11k1j2QTqN+nMFmAuORaUk4YUaer3QMK63PehGiKU+ntTAWIajk+Dlfwdv8sdmAOOzi/HScI4+ivn3eODFqGSqZmFW+UrPVybN8s06yS5Yyp2s8OF02FhCritY1VrdPDnj0zxnLSOlkzDvUT6SBbLbgaNXqgj+lLGeJh8FmalB/PRNWlrD4VlPvtmrBTE3LruG4LdrmFwewM5jRrfK12e1aq24BLLRQScMq8dsTPNfPFbGal04Z4WFBr3J5rNcY1+DBq4VhmJuV2hpNY60DVVjJF0AluC1dCOQd4ZG25UGUpb3QE1bQNHvRVg2otiQHA+H1V2wHV2rk/cJfBgMJqV+go1O5Yi6sNuSnZdB1p831oa1Lmiu9bSU+10xRv8oUmAgA7OM/bmb9tNjO4drBTdedYVVsvMGMDhv6UcbRCjBTIdNyQjpDRoDbqx5w22/AAkYsTKS6IU4VdQFAaj13lcyhdNjwdIsH3Bb3asA8cnD4LfjAAn0XTAdxp0QZcyoBTG3TKWDPh82gcVuAizAMwA4CFehijxGFGfFw/XyX4QZcN8zpkblbmtEjMhh411kPrJSzHVxKzSWY2SdaXMW8tQl4LqraGjB0mB6+OstYrdkWtpCnm5UXBGedvZdxmva0YrN7+wQqSS8lqxU3SU2hrKcKVfMJqLn12TALoamXRN2cqjqwmh3mmUl63APbQWye2A6pDP7m3duMB//45slmhhov2kQFzX4ospKjBgq4vRoAfBP+VSxKZsAqiM4j+Yl5D0m8r5/SJoJLzUCYi6MFBhBeSdDlvKqbo/gwR8ugSYSLu1WUiahBLfqfCy6r8bsAnhw2TXulkewgVtzHf60CttIwhpZRe5GSkTgtXEpBry26SkFqE0ov1mi4c68aVECTuIrVdpLY34upY4EIwErwKXLVRVpuy+g6t3iIxQQarFTZeLLToRVBQAWWJhdQUIEqyOCFamkQ3gGoNorB9u+V7Z3bWS/L9s4Ao1aFF9eGlR7aaGVwd6aWZxgM/Mi6MmKdq3vlJulHB8wmqmDFkwmQuorDT+EC/IRlSxgN4MqgPesiIj3Da8LAH89g0MZ8hFgLvhliNmMOs8bAItwjQpgg45BE3mgkSfXF13I9HvXjQq7QxKOhwG8VVLjXpQDuJLEaRx8ZpJwuJspTUbVc4rQhl6CVxro2LQSvWqsU6rjiziDLs1CjFGnWXTtXbyjYI1yKob2PG+Wopq+NSq+8MYOD1htaga0PI2Zb/7KjSW1N+ovlx6XxDUKIDqER7psTLk+DsNiCK5yh038yOZlWyNAmI4q355CPbxNWRF593DhbJpQY5ViLHB/GhnLlRZfrTxkTQEPMjdtrUl+DYJhEwhPxKu0Vh0Bn8XlBQyoDLkAyog05jNCg30zK7GUQ4ajf3MgaJnZZ5WbnbBnIdAj2Q6xqfA3VakIAD8ztRhwUcH3hA1GEWu61cLxhKj9kYBcsgLCUitSDaxaSuV6PqVmFiHQ5IQ/U6ruI3rt5pNnSHnMLBYLu4Wo0Hx4rbJq6BdWTVYV0oMlxC2jIMyFBJmc9+t6hb3UGzXqhvMo+Mzo3tWpxA5tbn0tdwFLJnCl0LKpDoK2oK3b97x+5R9ODcKq4aRx761Qd/2hxRFy5+sXTvDyK7Rw0Rn3UgSwNNTQ8bawVqqIDnYhqvQx+OIVYKC7qJuN9ezBF9UWU2pIsF8FTEVErrUmFTJKR1sYTLorVblA6rlDGiASce9ChDbiTgkjjNKodFDprK45BbadRKaRIhpc8Blykdtm4j0a1V72JIsRZHTQbEQKBGg5gxACylQFB6znoUaI8el9EkD7BerhujahdNiApCNS7apwUFYcZb2wZD4ZmdDmRFRGI6X0jtC6i8PsztQTIJOInH4gqK+Yf0/JYmtIp4yzVU4vnxnqUJ+fz4him/Vd8nBZXF09QKU/GOT7pv967lCfS6efX1y+ob94D9dHv6auHO2+hk0FBMKKMeIsJlnPC+qNzL9lJ6hd+hDgclZhIJ2bXxAAOSKREkkoArv8bvNKYiyqhXFfPp+hKaZEgVcItpcocak9kYCUv3ANvYaNRCKewWoCngJQyozEoDxWn8gDEKYc0So04MvETpe/RcYcCdGNpLEghtFBOaHrVCpFUDcfUSGq5aIHhP2gBndqkVUpIQ0YYur00oIyqkr7aE2VjL1sGscoWyOjxfjq+GivJCFkvE5LEIUs6pCn1K2irLJr5bvtrAVO1zNB1ynqI9k7I9U53iPhnw1QqieANcATtJD8x2H5xFDy+qb9ijvmkv2NjRbflBoCxN0ENkoqa+pCkV1sYCaNAupUnc61BH3LpkWBnzalJ+TSasT4RICOg8DiLgMaXj+mJamQ3L/HYgKEnQKQ+6JDamR6vuIlQKxiiidDKnWe1zaBMhLOpXhD1g4ChFVqOUpQBgvQYcpchdaqybJMStTta9pLbbqO3G5MBd3L5+raZLJe9Ry7k6gaRWZNLLDEQvrQcE9ti4xivi/tj6zFXbtOC3MJ7KuPnEVtpq28pKPljUBaNr1/h9V05wA6ja3Z/gcpf5cWRxonff9BVorQ/6kPWI4iU6mOy6ecAVsneaBxXY+FOPfrK9VMP0bTeqI16534FHQng2LrUw+nSfgnVgXqsi6tHEfaqgSxFwAkIAaeqw1xAN4iEfkU3Io36pzwmwEYc9cjcrc1vEjBG4BXEwvTo1YjeDpxPbKJmVEjHGHqsRj/p6uV48FAR3vSY95rJ8T4vtcph3GIkujxXIqgfOEyrgPZFOA1TG1bohOPiJTITMpAekSUiii6tMohLBlSvtYzYLBr89wErbVOxAXMpsGre51B4/8i3SpNs3wbz6ZBtZCS5O4Kdj9kz1TA5tQJQgTV2265fkNyx3H9gt2zejvnmf+pb9qpv2/vXi58998G/n/mOLrPszL/3GUitoo34yHjSEfaa+lNRuVjmt2kiAcNn1AZc24FT67cqgRxb2iAMuroh90CUKuZCoD3NaQaXLLbSUIhXg8lgGGEnKtXoxiM1GmZ0WW4yAN0As4rBA6CdjTBKjXsqQO1CJxEKhMZ8EaMfL9pj0vSYdKKtuXPk9VNqt1YCUAh0l5lsw2GiJkasg0YurdkolO6XiXXKkG0yjlK52+qi1Za7+cRvfuNpK0NTxmIK1y8o5LJ9tV/LbMaxRte+dvSqmWjuhjE4Ny4SSVO1rqBTLU71Tw9tCFNiK41PesAymvnW/+rYDypv3Fh+4aztkhUe9sZlRfcilinrxWEBhpcFh9Zh0Oq4LlWNoeR5wgnucWp9z/vabh284qIoHsYhfHfEXZiYwu0VsNnUbdRIrpbJbEBslAYQYtKjLijgtw7NTo/uWsJAbxFgPS+1UYRDTKUzkTkTCtcMmNN2MsYshu006hcuuDXtBO3Up0J2oBLhOolFKdHgXpQOWE7M0YjKIWlVzgax6MLlIo+zG0G6VotfHbrLmyrC7rhwvr741zo5uuGDknu/zB0irVOPq+cZ9d7YSquVNKAsZrdDzE9xBOcfnAeQD/Vz1qm0ASdGo6mdG134VNj74sxMvd7peOT7oO7TcTlarNIXM1DlotU38bVDp8uUWX7VApQZErYn7Vh0fT1OcRF9xfBxT3XoAQAWGXr+0Y/fIB9so/fHhqZNEzDd2/QFlNtK85dDUbTfPff8WzGeTuK0yLwsXfHzuLAhvzO9sHN4Pbz86fVrlskNwRwX9Dz95BGHIHko3vryIuVmJ2QhCvZc2wGWP/eLY7sMHTp49M7lnUWWh5WYKsCQjdcA8uxApuLxKsyGyUlKzqVePnzx3lqn0Nfcvm2NBvc/pSSe46WZK320lxWZSxBg4oYUr4cpuEn/o0Ue74Fir+ieJCPymrJwaues2bjVyPR84vHD2y4ur8GAWxmt337b61ro08eirL8DB8N2382dOfn7hsdYZRaPku26OP/mzE7+dbu2PqwPqOlMWgGH2ofstS9P820defhGcoLy6MYH50MsvCOJq7+MPVn94+09f/FXz/rv4k80f3wX3M/SjOwR/3dA9d35y6eImWVCAlmieW5Fuv34PvjSpWmji4OzW63P5numeiRocKPfPxu79QQfft8yDauLpx/9y6fMWqPbzoAKTHV44+v67Z775ejuUxY/zl7547o3XPrvElXw/deaToQPLmNcBB5fhd+bjmZsO88fnPr/w4yOPSVn6o49Pnz57Znh296mzZxqL89FyYXRh9sEjT6x+59O/eg5ejx0/PrEwf/bCp+XGCEISuzD0exrsr6dP/fXsmaGZyQ8++mj1+iO/fu6V10/87p23Hv3FMzKuhpuxS4+DwudmCbUqCaGWGvVr77k21Tz36Xk4+PP5MzJum3MFkPPxxc9XkfPEiZeeeuPV8R/f+fhrXPXCM5e++Oiz80+/+Sr32btuhQvg4g/On4XrH3/tJe6f6OLn/Dcfe/M1eH3w5d/AExy6+w7d9Kh2qv7wyy+M3HPn2H0/XHj4gZF773TvX7j52JGPPvsUnvvxd9/iP/jk66/e9+tfVn8IeC6jYwPN+zmIwqeG775j+if3wE95nEw+cPf5r7/kC+w/8sqLg3fBDZenHuD2ER/53StwPHbvPz/+2m/hAC575NWX4DaOvMHd0i/efRNej755gofTzMP3c3/nt18HD4jMNyRLTeXi5L6nHnvynTcOH3/6oddf4XF15J03eJo699Wl8SceBPf31O/fOfnlRV6iP/X+u4Co/b88duwP7/Gggu+cP370079/Awe7jx89+fWlj766hN9xaOLnT/xl5U/0Pzh+c+K1TX76SavFgOA4+fFp/mB0ZkptM48szR19fuuem//FFZY/efL0Kfh4lwYTcxgjOl0JkDj1xYXTFy9T9JkvL57Zqi0CIAqeWqef8g/940tfwOunX3+1ipzV8cSJlwEq3O+6dLG9muvEAz+yLE4N3/ODze9hdZz/6stjb14uqXHmksCdH2ubQDn5xZVHfPrSF0++/fqHFz+TLDanH/uX1fN/+fzCsd+/c+5vX5/5+quj7731Yavz8tHfv/PsH9/nLwBEnW+JcB5Fp77+cvLY4wvHn1r7ixaff+bCf/795NdffnI1TPW/Ms5sVVi+fZxeIc//O+PDC+cFMfD/azz7p/f/t2/h2rg2ro1r49q4Nq6Na+PaWDf+G/q+h6g='));
bmp1:=bmps1.ToTBitmap;
Picture.Bitmap.handle:=bmp1.handle;
end;
//TImage14\\
TImage14:=TImage.Create(DsgnForm);
with TImage14 do
begin
Parent:=DsgnForm;
Left:=367;
Top:=157;
Width:=45;
Height:=100;
bmps2:=GetMufasaBitmap(BitmapFromString(45,100,'meJy9Wvl3U3UW/8VmaYZW3MBRz6ggLkAplCRNmzRpmzT7vu/N0nQL6ZpuFAoUqBsejxsI4gE8KiIiLiM66kEQFIoKiIiiqKAgYlv4E+Zz3+vgnHEZx/G973knJ03S9/28ez/3c+/9fr+XLnE+Do3u789njhw5wf1UvzzGxsY2bnjQapRZjQvlisDooc/4x/Dp8aM9nXGPQ2GuK7MZFyorVTfc2nTgIH9IJiYmtj+3MR6qCXlVAXclTGHQzjfqyq6aHrxhRu7gKB/eOfn58WWLM4lwdSyojgaqgh4lDGI3SXXV82bdoRUWh2+c0XzgIIdIYIQXtm1Kx/XJaA1gRAPqiF8V8ipdNrnLKjfqFqgqpaIit7A4cNPM7J69H3OB4eCBdxb3pgJuJWZPRKrrQxogifirAMPnrHDbymEQs75s2g1mYZFfWBwqujax8+UDv/PmZ85+/8b7H963bVfDvRuOffH1z39w8eLF0YN7VyxpSsVqMSlghH1V6VgtPMJ+4ndVgB5A4rTKAaOkRAVrCIt8ouJI0bWxHTv3/+K8x058tvWtfSu27HQPr52d7Bdro8LaqMjSLKpLPP36nv/48aHRfcsGm0CA+rAGbPQ6KoIeVTykAQZQAnjwFawR9uErhdMqc1hkRp208Co/DCIqDguLg0XXhHfsfI9u9dmpta/uaV+7tXrwsamxIcFclbDKJ7a1it2dYvsioSYgrImIjGmRuTF7//rLAI4e+aC3O4UHxOx4ZEwNO/iclZg64lcnIzVA4rTIGaeoGL8o3Da5wyy1m6U33VwHAKLiqLDIKyzyFF+X3L5jf/XAw2JvXuzuEnu6CyNDAoVNIDUCgNjZIXZ1iHT1orp6kbkJnyhT3ZdIDT5etSLvtilgajwjrB0NaNJxXUO9PhHRNiaNIZ8m7FMDj8Ms97sAjGIWFPXYy/EKAZFJFQTjyhhsIphix/vK6sVVPWvowQHD1VEYH4bxC2ZXim1ZOEJsz8EIIkNKZG3BD4prAkuGBzx2ij4A8LsrYQE8e31Ym2t2LOmLDvbGBvKRlgZ7Y9IUC9Z4ncQKhjAEGCQBDIu+rK52wdRpXtGVcdBDOMUJ74TiDynbVhEGujoLYyvEjraCuVUiUyMZxNFGrNAnCYanW1gdkuprYVWHWcaSHwRIRrUtaUtXzrdyKHP3cPPq5Y2DPdGunLc1Y8skDIga1howC2DAIDbTQq2mZObtOszOGIS42pHfXJHpJwzeHlyF0eViX19BiVpkyoiMDWLMDnrUhGET/AavMzVat70cXoZB7GYZrBEPVcMd7a3OfLu/vyvc1xXqynnaWpwdWTc+aWmwxIIaYABsYABF4RSTboFCXkbEKA7RVRRYt2GXItEpduTEvh5MVBjoJ3rIzMLaCJmChaEJCrUxOAjmukZlcVpkDBLSAdwZTwoapGI6XPAOtAtvMvX6lrQZ2DoXeTuzHqg67Ib/giXxX7hDTdXcq6cbwU9GQ4Lbtu8N9K4U6VMgBuYV+3rhF9BSUG7De/ILjFCXQLzgFX4Rq1wGvRQ5As8F2uOGXgqBcsb19MiIWTZewFtcDfWGXLOzPetpTlvcdgV0A/8Lg0DY77hTQfwkUfUf++TU+udfFqr9ZBAWRnwY/AQ9KEzMTYX+PvyJECaDONvxywp1mdVQZtYvwCtuiAeEILgZuUbuACRgQyADHiyAaEXUJKJ1rRlnS8bhcynxralugb62VCGfKy42C6c4plwdOH363Dffni3WQCiymIWCJTIEMAWzlWApY4E8wpnUQxunwDFl5pTTTXTVJQZtqYV5OouhDJdJhxw6Hx9qq0tqqubgFV/BSogsWCnkU0eD2qa0IxIAySFiZRrl7Otv1MIvN81Is1qka+7D/cUuIklhYIDoIbeQI8BMZwcMwqoHKyY3zSsF1fW184BEq5lbq56rUtypLL9DIZtVLr1NvvC2stJbS2b/TVY2Ex+qK2erlbPrakphNODxOpWpuBmX215RrZpTOk8uLHKVV/WyMNZte0lYHSanAIm/j6FHHPRgRYNgWFsQtrBYoa93aqkCd66U344ZpQtmzi+5xVBXmU4Glyzu3rL5ib17dh8+/CGuZ57e3NOdNeory6WzFLLbARUBAjpZDAttJnnQq9Fq5tVUzSu6xun0jbAwPv3ilKDSJbYtIoZAS6EetqxAahJZW8kIYCbUTMdoqbfnOl2ws73x0UfWvLTz+Y8+PHT+/Hlkt1/LjEj9J04c37xpfS6bMuhkMB3juPmwDzwLq86YpetbvOlfWfKSLLqIZBMCgkcOLYFNCIa5CXmNPgQ5oR5gqatjur9zbGz8v+fmn0MaHz98+NCWzY/35Zvs5gpAqq6aU6GQ3XP/9su/WfH4UzTjJD36gURY5YUFoJxECVcH3jA/6IB6fHLy1B+A8e9jfHz86JEPn9r8eE9XZv/+n6qO0aPHhSoPQ8J2CtvIMpKLKh9Rl7JtF/KsUOkGScDhF3a//3/C+I1xmyPF5g6SU6i6PSdUekjVDWlMjfgVyEygSqG/f2jLS9zBWHT3I0JdnGVCYXQZ2EjWgE3woYcqAYpiiLyr07X6Ce5g7Bk9LFR5J0UsNIg4JT7UhEk/QZjggKDSKSi3IuXd2TrCHYwLP45N04dFlhbK+FCPyBB0A0hE2jipemiQxGShAfFyZWjg9Lnz3CGJDt5DAs5WYlAPxCnSK0IV9Aguhk0YdQ3iB/uOneQOxvNv7KY0xxRjk/RAgKg8kFDoJ4mJ0i1UBwBv7WvvcgcDfpGovYxQdEI6wAfYAXFKioGiKLyU2IKC2ZFr27CDOxgY1vYh0gpvnugRXkphi/QK6jraiC3GBkGFA4lGPfAwpzAee+5lkIGp1ZnSFH7RBCjNgR7+fmRYgdIF40wN9f9qIvkzxtdnvivWhqjkQ5BGl8M1IC3ilPyCmsTXRyFcQ+rxxZmzXAK5hOqU0hxEDPSAI6ytcARFrrWVkdMMqyQ79n3EKYxVTzxDydSTpxIoNowHpyJQ7adEj8rZ2SZklGRk2xucwvjk5JcUDkzLIImvRMLF47PqwWhsJ/VxhnTwvk2cwsAoCTKlqbtbEhumbGtIIZvAAvALqAu2AMbtmeVcw8g/+AQ9O0QsskyCjtLYwDTUDWy3QsWhseEqX9d35y9wCmP36EcUtig8kOMAw9IMDWfK0VYqWVETorWxZfcd+5xTGBMTF2d5m0nVgQSqjgaW7ZjgFEKSIweZMk++vo9TGBip4QcpbJnVBrAUCibURknnoR72RVSrG1Ltjz3LNYwdb+1lwhYwljLrHnamsc1dNgWMU5u/l2sYF8bGppnilOOCi6HqFLPVQSKGg1n0YFqY6b52rmFg+PpGqF8AjPBSOAjFBktRhAm1luikLM2ffX2GaxgbX3yNauDwUkq1nnzBfC2mhp4QDFyMlr76HreSjnH6u7NTasOFPmongaRggY5d9yCKIrPURgFm9dOvcA0Dw9Q2hCSCmIV6CBQ2lECsgiFyQWCoR/29G3iAsWbL88QBZPz4MB6/oETDrr1QZtGnwNuS1AAPMI59/iWKT6IHUq0jd8WdCrGliWkhu8TWFvjoL4bkuR+4lXR2VCS7aZUDfgkN0iIhenyml0HUEFENqUPHuZV0dgyt3Ux9Smy5pH6loExPrS5gIF4gpExrufHVt3mAsf/wx6KaMIRUkhwBPSbXkNH723O0iG1I9a57hgcYGDNcjVQCJUdgBITt5AqVq4MRsbSxl3NJZ0fH/etgAUnybnAV/SM111APuAYZ35Ce5sryA2PXuwcwtaR+FS7KcShF4Bdazaa1QQTLyW++5QHGDxd+nGZOoFCXpO6GhtNCmZOxBiox+EUXf+XdUR5gYNQvewCTSlL3YHZiKTI+Wx4j6euTa7byIekYz72+GzQgeoSWCMrqRBAxNrlYmhEs8ZF1/MA4+/15iTbKqAfRgwpCUrAsqYexQdq0lB8YGJbOFWJ/H/wCMlAjw4gYITFliqxNP/6hVco/MNZuexnPLknfS/SQW2i9jvYdcmz5cfATnna9P//qG0ldXJIYQT1Gq09oW4DB0kJaamzY8Aofks4OWTJfGF4iia0QyMxUMLMUZbai8nxJOsbIk1vhEUliNTprdjmXYCBmLc363vt4g3Hw6HHwE8kFxBBUOCi7AQbaGUfuxkDXxK+v4f+5Y3xi4jZvCxrbQn8fwUCYwBSGNKseJ746zQ+MS9Rlb6AeKroMpanImCEYTIOP68U9v3fr//8fb753iOQUpSnoQcs+bShKaa/W2LB80wu8wRgbH59uTVMDZUihv6atSUOKgsWUcQ09xBsMjDjSnLeHXUMmGHSQAF1tAz9V+uXx7K63qToN9DObPjl2Q5+WZfTJC3xJOsa3576fakxAS4XaKBWEqDqsTJVel9j9wVHeYGAY25dTLYo2Hyz19RJRKXJTD277O58wqMuGIwAD7STKY083oTI2NK7ZyCeMk1+fhpzSArLcypzu6KTOxdykaFnGJwyM8nQv5mVW8tOThYel+UZfG2+FBztGNj5LK4QQMYQt/MKcBYKO/eKBKO7Ge4ePifQJ8ovCTs0Cs2UJyzz9Dw53fH4+Ll68eFeoDfPSxqgxQxWypxtu6l//HJ8wLjHdHHRDIDXRNgfbtlhbbIsf4BkGpTl9SlDpnGzzaYu/9WZ/G88wxscnrrdnaGO00jnZ5jtyEkPy1JnveEaCNEd+QedinlwFQjv55sHDPMPYijQHlkpNsAkdnEO82LP3P8tTL3l5IM0VGxNClVeo9k3Sw74otnotzzAw7PlVRFQqTVvFHjpNN69hkH8Yj29/lVQdDZSeGls6o2VteWv0CM8wPv3yKzoLJDPTxrqTOadkX6RsW80zjNNnz9ERNbV/ct2DOTElMjfueIfDQy8/H2ApU32lC0o0FLZgCAohW7Yyu5y3Bgrj3Pkf2MatYK6a1vZpUb0LwYsP1/PYX09MTNwa7YFigKW4JtejqApqvCvRd2FsjDckc+p7xZ481OOKWQuZfVLmyCsaB33ykRd28QcjxhQbdfVX3FJCB5NQFrInbw2p693Zcxxv1/4EI0q1qNjScsUsKW1CmRvZPUo6haKN7eQrZEoi7exRW4HcUlBaQyeCaiPMLmHorkD2Nw4N/rnD1rWCTohpY8hx0DEkXFTsoGtBae2Wl/jjRmzoAchXwfzagjkqzP7XWq8u1ZG/56Gtr7w+Ps5foZ5/6Elz29KBNY9u2/X2iS+/Gp+Y+F/v8E+oiw1f'));
bmp2:=bmps2.ToTBitmap;
Picture.Bitmap.handle:=bmp2.handle;
end;
//TButton22\\
TButton22:=TButton.Create(DsgnForm);
with TButton22 do
begin
Parent:=DsgnForm;
Caption:='Start!';
Left:=338;
Top:=310;
Width:=75;
Height:=25;
OnClick:=@YourClickProcedure;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TCheckBox23\\
TCheckBox23:=TCheckBox.Create(DsgnForm);
with TCheckBox23 do
begin
Parent:=DsgnForm;
Caption:='Wielding Axe?';
Checked:=false;
Left:=279;
Top:=281;
Width:=94;
Height:=19;
Checked:=true;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
//TComboBox13\\
TComboBox13:=TComboBox.Create(DsgnForm);
with TComboBox13 do
begin
Caption:='Location';
Parent:=DsgnForm;
Left:=210;
Top:=4;
Width:=203;
Height:=23;
//add your items here
Items.Add('Falador Yews');
Items.Add('Rimmington Yews');
Items.Add('Draynor Yews');
Items.Add('Edgeville Yews');
Items.Add('Draynor Willows');
Items.Add('Seers Magics');
Items.Add('Seers Magics Tower');
Items.Add('Varrock Palace Yews');
Items.Add('Varrock Prayer Yew');
Items.Add('Seers Yews');
Items.Add('Catherby Yews');
Items.Add('Seers Maples');
Items.Add('Barbarian Assault Willows');
Items.Add('Powerchop Willows');
Items.Add('Seers Willows');
Items.Add('Draynor Oaks');
Items.Add('Lumbridge Courtyard Yew');
Items.Add('West Varrock Oaks');
Items.Add('Catherby Willows');
Items.Add('Catherby Yews 2');
Items.Add('LEGACY Draynor Willows');
Items.Add('LEGACY Seers Maples');
//End items
OnClick:=@YourClickProcedure;
Font.Name:=default;
Font.Color:=clDefault;
Font.Size:=0;
end;
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;


procedure ShowFormModal;
begin
DsgnForm.ShowModal;
end;


procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

Procedure doPaint;
begin
ClearDebug;
Writeln('You chopped ' + inttostr(chopped) + ' logs in ' + inttostr(TimeFromMark(StartTime) / 1000 / 60) + ' mins.');
Writeln('You made ' + inttostr(money * chopped) + ' coins and ' + inttostr(xp*chopped) + ' xp.' );
Writeln('Thats about ' + floattostr((3600 * xp * chopped) / (TimeFromMark(StartTime) / 1000)) + ' xp per hour and ' + floattostr((3600 * money * chopped) / (TimeFromMark(StartTime) / 1000)) + ' cash per hour.');
end;

procedure DoChopAntiSpam;
begin
if(AxeFailSafeToggle = false) then
begin
AxeFailSafeToggle := true;
AxeFailSafe1 := invcount;
Marktime(AxeFailSafeTime);
end
else
begin
if((TimeFromMark(AxeFailSafeTime) > ChopWaitTime * 1000) or banking) then
begin
AxeFailSafeToggle := false;
AxeFailSafe2 := invcount;
if(AxeFailSafe2 > AxeFailSafe1) then
begin
InitWait := True;
AxeFailSafe := 0;
Chopped := Chopped + (AxeFailSafe2 - AxeFailSafe1);
AxeFailSafe1 := invcount;
end
else
begin
InitWait := false;
AxeFailSafe := AxeFailSafe + 1;
end;
end;
DoPaint;
end;
end;

procedure GoBarbAssTrees;
var x, y:integer;
begin
if(not(invfull)) then
begin
MakeCompass(5);
if(not(SPS_WalkPath([Point(1962, 2383), Point(1954, 2385), Point(1945, 2388), Point(1937, 2388), Point(1924, 2386), Point(1913, 2386), Point(1906, 2387)]))) then
begin
MakeCompass(0);
SPS_BlindWalk(Point(1906, 2387));
end;

Flag;

MakeCompass(5);
SetAngle(0);
if(FindObjCustom(x, y, ['Barbarian door'], [4547194, 1916500], 10)) then
begin
WaitHumanClick
Mouse(x, y, 0, 0, false);
WaitHumanClick
if(OptionsExist(['Open'], false)) then
begin
ChooseOption('Open');
end;

Flag;
wait(Lagg);

MakeCompass(5);
if(not(SPS_WalkPath([Point(1903, 2387), Point(1896, 2387), Point(1889, 2382), Point(1889, 2375), Point(1890, 2360), Point(1890, 2355)]))) then
begin
MakeCompass(0);
SPS_BlindWalk(Point(1890, 2355));
end;

end;

Flag;
wait(Lagg);
end;
end;

procedure DoBarbAssBank;
var TB: TBox;
begin
if(DepositScreen) then
begin
if(Wielding) then
begin
TB := DepositItemBox(1);
Mouse(TB.X1 + 10, TB.Y1 + 10, random(3), random(3), false);
WaitHumanClick
ChooseOption('All');
end
else
begin
TB := DepositItemBox(2);
Mouse(TB.X1 + 10, TB.Y1 + 10, random(3), random(3), false);
WaitHumanClick
ChooseOption('All');
end;
end;
end;

procedure OpenBarbAssBank;
var x, y:integer;
begin
if(not(DepositScreen)) then
begin
MakeCompass(5);
SetAngle(0);
if(FindObj(x, y, 'eposit', BankBoothColor, BankTol)) then
begin
WaitHumanClick
LocFailSafe := 0;
if(random(2) = 1) then
begin
Mouse(x, y, 0, 0, true);
end
else
begin
Mouse(x, y, 0, 0, false);
WaitHumanClick
ChooseOption('eposit');
end;
end
else
begin
LocFailSafe := LocFailSafe + 1;
end;
end;
Flag;
wait(Lagg);
end;

procedure GoBarbAssBank;
var x, y:integer;
begin
if(not(depositScreen)) then
begin
MakeCompass(5);
if(not(SPS_WalkPath([Point(1891, 2355), Point(1893, 2375), Point(1898, 2388)]))) then
begin
MakeCompass(0);
SPS_BlindWalk(Point(1898, 2388));
end;

Flag;

MakeCompass(5);
SetAngle(0);
if(FindObjCustom(x, y, ['Barbarian door'], [4547194, 1916500], 10)) then
begin
WaitHumanClick;
Mouse(x, y, 0, 0, false);
WaitHumanClick;
if(OptionsExist(['Open'], false)) then
begin
ChooseOption('Open');
end;

Flag;
wait(Lagg);

MakeCompass(5);
if(not(SPS_WalkPath([Point(1897, 2390), Point(1905, 2390), Point(1916, 2390), Point(1929, 2389), Point(1936, 2388), Point(1947, 2386), Point(1960, 2383)]))) then
begin
MakeCompass(0);
SPS_BlindWalk(Point(1960, 2383));
end;
end;

Flag;
wait(Lagg);
end;
end;

function ColorWalk(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;
var
i, x, y, rx, ry: Integer;
TPA: TPointArray;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
SortTPAFrom(TPA, SortFrom);

for i := 0 to High(TPA) do
begin
x := TPA[i].x;
y := TPA[i].y;

rx := RandomRange(-6, 6);
ry := RandomRange(-6, 6);
if (not rs_OnMinimap(point(x + rx, y + ry))) then
Continue;

Mouse(x + rx, y + ry, 0, 0, true);
FFlag(0);
Wait(200 + Random(500));
Result := True;
Break;
end;
end;

procedure GoLumbYardTree;
var x, y:integer;
Found:boolean;
begin
Mouse(618, 22, random(5), random(5), true);
flag;
wait(lagg);

repeat
if(loggedin) then
begin
if(findobj(x, y, 'taircas', 602955, 5)) then
begin
WaitHumanClick;
LocFailSafe := 0;
Mouse(x,y,0,0,false);
WaitHumanClick;
if(OptionsExist(['dow'],false)) then
begin
ChooseOption('dow');
flag;
wait(lagg * 4 + 500);
end
else
begin
Found := true;
end;
end
else
begin
LocFailSafe := LocFailSafe + 1;
end;
end
else
begin
loginplayer;
end;
until(Found or (LocFailSafe > 10))

MakeCompass(5);
if(not(SPS_WalkPath([Point(4650, 3777), Point(4656, 3779), Point(4666, 3780), Point(4673, 3780), Point(4678, 3780), Point(4683, 3786), Point(4683, 3794), Point(4683, 3804), Point(4685, 3811), Point(4690, 3814), Point(4705, 3814), Point(4713, 3814), Point(4722, 3814), Point(4732, 3814), Point(4741, 3814), Point(4748, 3814), Point(4760, 3815), Point(4762, 3820), Point(4764, 3830), Point(4764, 3833), Point(4767, 3842), Point(4767, 3850), Point(4768, 3859), Point(4769, 3871), Point(4769, 3878), Point(4772, 3884), Point(4777, 3884), Point(4782, 3884), Point(4789, 3884), Point(4795, 3884), Point(4802, 3884), Point(4809, 3885), Point(4814, 3885), Point(4821, 3887)]))) then
begin
MakeCompass(0);
SPS_BlindWalk(point(4821, 3887));
end;
flag;
wait(lagg);
end;

procedure GoLumbYardBank;
var
Found:boolean;
x, y:integer;
begin
MakeCompass(5);
if(not(SPS_WalkPath([Point(4821, 3887), Point(4814, 3885), Point(4809, 3885), Point(4802, 3884), Point(4795, 3884), Point(4789, 3884), Point(4782, 3884), Point(4777, 3884), Point(4772, 3884), Point(4769, 3878), Point(4769, 3871), Point(4768, 3859), Point(4767, 3850), Point(4767, 3842), Point(4764, 3833), Point(4764, 3830), Point(4762, 3820), Point(4760, 3815), Point(4748, 3814), Point(4741, 3814), Point(4732, 3814), Point(4722, 3814), Point(4713, 3814), Point(4705, 3814), Point(4690, 3814), Point(4685, 3811), Point(4683, 3804), Point(4683, 3794), Point(4683, 3786), Point(4678, 3780), Point(4673, 3780), Point(4666, 3780), Point(4656, 3779), Point(4650, 3777)]))) then
begin
MakeCompass(0);
SPS_BlindWalk(point(4650, 3777));
end;
flag;
wait(lagg);
Found := false;

repeat
if(loggedin) then
begin
if(findobj(x, y, 'taircas', 606303, 5)) then
begin
WaitHumanClick;
wait(lagg * 2);
LocFailSafe := 0;
Mouse(x,y,0,0,false);
WaitHumanClick;
if(OptionsExist(['up'],false)) then
begin
ChooseOption('up');
flag;
wait(lagg * 4 + 500);
end
else
begin
Found := true;
end;
end
else
begin
LocFailSafe := LocFailSafe + 1;
end;
end
else
begin
loginplayer;
end;
until(Found or (LocFailSafe > 10))

ColorWalk(195836, 5, point(MMCX, MMCY));
flag;
wait(lagg);
end;

function NormalMode:boolean;
begin
if(not(Location = 'Powerchop Willows') and not(Location = 'Barbarian Assault Willows') and not(Location = 'Lumbridge Courtyard Yew') and not(Location = 'LEGACY Draynor Willows') and not(Location = 'LEGACY Seers Maples')) then
begin
result:=true;
end
else
begin
result:=false;
end;
end;

procedure OpenBankup;
var x, y:integer;
begin
if(NormalMode) then
begin
if(not(BankScreen)) then
begin
MakeCompass(5);
SetAngle(0);
if(FindObj(x, y, 'ank booth', BankBoothColor, BankTol)) then
begin
WaitHumanClick;
LocFailSafe := 0;
if (random(2) = 1) then
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), true);
WaitHumanClick;
end
else
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), false);
WaitHumanClick;
ChooseOption('Bank');
WaitHumanClick;
end;
end
else
begin
LocFailSafe := LocFailSafe + 1;
end;
Flag;
wait(lagg);

if(PinScreen) then
begin
InPin(Players[0].Pin);
end;

if PinPending then
begin
ConfirmPin();
end;
end;
end
else
begin
if(location = 'Barbarian Assault Willows') then
begin
OpenBarbAssBank;
end;
if(Location = 'Lumbridge Courtyard Yew') then
begin
repeat
if(LoggedIn) then
begin
MakeCompass(5);
SetAngle(0);
if(FindObj(x, y, 'ank booth', BankBoothColor, BankTol)) then
begin
WaitHumanClick;
LocFailSafe := 0;
if (random(2) = 1) then
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), true);
WaitHumanClick;
end
else
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), false);
WaitHumanClick;
ChooseOption('Bank');
WaitHumanClick;
end;
end
else
begin
if(findobj(x, y, 'taircas', 602955, 5)) then
begin
WaitHumanClick;
LocFailSafe := 0;
Mouse(x,y,0,0,false);
WaitHumanClick;
ChooseOption('up');
flag;
wait(lagg);
end;
ColorWalk(195836, 5, point(MMCX, MMCY));
LocFailSafe := LocFailSafe + 1;
end;
Flag;
wait(lagg);

if(PinScreen) then
begin
InPin(Players[0].Pin);
end;

if PinPending then
begin
ConfirmPin();
end;
end
else
begin
LoginPlayer;
end;
until((LocFailSafe > 100) or BankScreen)
end;
if((Location = 'LEGACY Draynor Willows') or (Location = 'LEGACY Seers Maples')) then
begin
if(not(BankScreen)) then
begin
MakeCompass(5);
SetAngle(0);
if(FindObj(x, y, 'ank booth', BankBoothColor, BankTol)) then
begin
WaitHumanClick;
LocFailSafe := 0;
if (random(2) = 1) then
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), true);
WaitHumanClick;
end
else
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), false);
WaitHumanClick;
ChooseOption('Bank');
WaitHumanClick;
end;
end
else
begin
LocFailSafe := LocFailSafe + 1;
end;
Flag;
wait(lagg);

if(PinScreen) then
begin
InPin(Players[0].Pin);
end;

if PinPending then
begin
ConfirmPin();
end;
end;
end;
end;
end;

Procedure GoToTrees;
var x, y:integer;
begin
if(NormalMode) then
begin
if(((InvCount = 0) and (Wielding = true)) or ((InvCount = 1) and (Wielding = false))) then
begin
MakeCompass(5);
if(not(SPS_WalkPath(PathToTrees))) then
begin
MakeCompass(0);
SPS_BlindWalk(LastToTrees);
end;
end;

Flag;
wait(lagg);
end
else
begin
if(location = 'Barbarian Assault Willows') then
begin
GoBarbAssTrees;
end;
if(Location = 'Lumbridge Courtyard Yew') then
begin
GoLumbYardTree;
end;
if((Location = 'LEGACY Draynor Willows') or (Location = 'LEGACY Seers Maples')) then
begin
if(findDTM(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
if(Location = 'LEGACY Draynor Willows') then
begin
Mouse(RandomRange(X - 5, x - 15), RandomRange(Y + 15, Y + 25), random(3), random(3), true);
end;
if(Location = 'LEGACY Seers Maples') then
begin
Mouse(RandomRange(X, x + 10), RandomRange(Y - 10, Y - 15), random(3), random(3), true);
end;
end;
end;
end;
LastTree := 1;
CurrentTree := 1;
end;

procedure GoToBank;
var x, y: integer;
begin
if(NormalMode) then
begin
if(not(BankScreen)) then
begin
MakeCompass(5);
if(not(SPS_WalkPath(PathToBank))) then
begin
MakeCompass(0);
SPS_BlindWalk(LastToBank);
end;
end;

Flag;
wait(lagg);
end
else
begin
if(location = 'Barbarian Assault Willows') then
begin
GoBarbAssBank;
end;
if(Location = 'Lumbridge Courtyard Yew') then
begin
GoLumbYardBank;
end;
if((Location = 'LEGACY Draynor Willows') or (Location = 'LEGACY Seers Maples')) then
begin
if(findDTM(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
if(Location = 'LEGACY Draynor Willows') then
begin
Mouse(RandomRange(X + 15, x + 20), RandomRange(Y - 8, Y - 13), random(3), random(3), true);
end;
if(Location = 'LEGACY Seers Maples') then
begin
Mouse(RandomRange(X - 5, x + 5), RandomRange(Y + 10, Y + 15), random(3), random(3), true);
end;
end;
end;
end;
end;

procedure BankThings;
begin
if(NormalMode) then
begin
if(BankScreen) then
begin
if(Wielding) then
begin
DepositAll;
end
else
begin
Deposit(2, 28, true);
end;
if(random(2) = 1) then
begin
CloseBank;
end;
end;
end
else
begin
if(Location = 'Barbarian Assault Willows') then
begin
DoBarbAssBank;
end;
if(location = 'Powerchop Willows') then
begin
if(not(Wielding)) then
begin
DropAllExcept([1]);
end
else
begin
DropAll;
end;
end;
if(Location = 'Lumbridge Courtyard Yew') then
begin
if(Wielding) then
begin
DepositAll;
end
else
begin
Deposit(2, 28, true);
end;
end;
if((Location = 'LEGACY Draynor Willows') or (Location = 'LEGACY Seers Maples')) then
begin
if(Wielding) then
begin
DepositAll;
end
else
begin
Deposit(2, 28, true);
end;
end;
end;
end;

procedure BankItems;
begin
Banking := true;
DoChopAntiSpam;
GoToBank;
if(((InvCount > 0) and (Wielding = true)) or ((InvCount > 1) and (Wielding = false))) then
begin
OpenBankUp;
BankThings;
end;
GoToTrees;
Banking := false;
end;

procedure DoCombat;
begin
if(srl_inFight) then
begin
if(GetSkillInfo('hitpoints', true) < LastHP) then
begin
if(not(PowerChop)) then
begin
BankItems;
end
else
begin
runaway(RandomDirection, False, 1, RandomRange(2000,4000));
end;
end;
LastHP := GetSkillInfo('hitpoints', true);
end;
end;

Function ContainsText(CheckText: String; Text: TStringArray): Boolean;
Var
TheText: String;
i, n: Integer;
Begin
TheText := CheckText;
n := High(Text);
For i := 0 to n do
If (Pos(Text[i], TheText) > 0) then
Begin
Result := True;
Exit;
End;
End;

Function isChopping: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(MSCX - x1, MSCY - y1, MSCX + x2, MSCY + y2);;
Result := (AveragePixelShift(PBox, 250, 500) > AnimationCheck);
SMART_DrawBox(PBox);
writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
end;

procedure ChangeTree;
var x, y:integer;
MyLoc:TPoint;
PX, PY, MX, MY: extended;
begin
if(NormalMode) then
begin
if(AmountOfTreeLocs = 1)then
begin
MakeCompass(5);
PX := TreeLoc1.x;
PY := TreeLoc1.y;
MyLoc := SPS_GetMyPos;
MX:= MyLoc.x;
MY:= MyLoc.y;

if( (abs(PX - MX) > 10) or (abs(PY - MY) > 10)) then
begin
SPS_BlindWalk(TreeLoc1);
end;
end;
if(AmountOfTreeLocs = 2) then
begin
if((LocFailSafe = 0) or (LocFailSafe = 10) or (LocFailSafe = 20) or (LocFailSafe = 30) or (LocFailSafe = 40) or (LocFailSafe = 50) or (LocFailSafe = 60) or (LocFailSafe = 70) or (LocFailSafe = 80) or (LocFailSafe = 90)) then
begin
if(CurrentTree = 1) then
begin
CurrentTree := 2;
MakeCompass(5);
SPS_BlindWalk(TreeLoc2);
end
else
begin
CurrentTree := 1;
MakeCompass(5);
SPS_BlindWalk(TreeLoc1);
end;
end;
end;
if(AmountOfTreeLocs = 3) then
begin
if(((LastTree = 1) or (LastTree = 2)) and (CurrentTree = 1)) then
begin
LastTree := 1;
CurrentTree := 2;
MakeCompass(5);
SPS_BlindWalk(TreeLoc2);
exit;
end;
if((LastTree = 1) and (CurrentTree = 2)) then
begin
LastTree := 2;
CurrentTree := 3;
MakeCompass(5);
SPS_BlindWalk(TreeLoc3);
exit;
end;
if((LastTree = 2) and (CurrentTree = 3)) then
begin
LastTree := 3;
CurrentTree := 2;
MakeCompass(5);
SPS_BlindWalk(TreeLoc2);
exit;
end;
if((LastTree = 3) and (CurrentTree = 2)) then
begin
LastTree := 2;
CurrentTree := 1;
MakeCompass(5);
SPS_BlindWalk(TreeLoc1);
exit;
end;
end;
if(AmountOfTreeLocs = 4) then
begin
if(((LastTree = 1) or (LastTree = 2)) and (CurrentTree = 1)) then
begin
LastTree := 1;
CurrentTree := 2;
MakeCompass(5);
SPS_BlindWalk(TreeLoc2);
exit;
end;
if((LastTree = 1) and (CurrentTree = 2)) then
begin
LastTree := 2;
CurrentTree := 3;
MakeCompass(5);
SPS_BlindWalk(TreeLoc3);
exit;
end;
if((LastTree = 2) and (CurrentTree = 3)) then
begin
LastTree := 3;
CurrentTree := 4;
MakeCompass(5);
SPS_BlindWalk(TreeLoc4);
exit;
end;
if((LastTree = 3) and (CurrentTree = 4)) then
begin
LastTree := 4;
CurrentTree := 3;
MakeCompass(5);
SPS_BlindWalk(TreeLoc3);
exit;
end;
if((LastTree = 4) and (CurrentTree = 3)) then
begin
LastTree := 3;
CurrentTree := 2;
MakeCompass(5);
SPS_BlindWalk(TreeLoc2);
exit;
end;
if((LastTree = 3) and (CurrentTree = 2)) then
begin
LastTree := 2;
CurrentTree := 1;
MakeCompass(5);
SPS_BlindWalk(TreeLoc1);
exit;
end;
end;
end
else
begin
if(location = 'Powerchop Willows') then
begin
mouse(MSCX, MSCY, random(3), random(3), true);
end;
if(location = 'Barbarian Assault Willows') then
begin
MakeCompass(5);
SetAngle(0);
if(FindObjCustom(x, y, ['Barbarian door'], [4547194, 1916500], 10)) then
begin
WaitHumanClick
Mouse(x, y, 0, 0, false);
WaitHumanClick
if(OptionsExist(['Open'], false)) then
begin
ChooseOption('Open');
end;
end;

Flag;
wait(Lagg);
MakeCompass(5);
SPS_BlindWalk(TreeLoc1);
end;
if(Location = 'Lumbridge Courtyard Yew') then
begin
if(findobj(x, y, 'taircas', 602955, 5)) then
begin
WaitHumanClick;
LocFailSafe := 0;
Mouse(x,y,0,0,false);
WaitHumanClick;
ChooseOption('dow');
flag;
wait(lagg);
end;
MakeCompass(5);
PX := TreeLoc1.x;
PY := TreeLoc1.y;
MyLoc := SPS_GetMyPos;
MX:= MyLoc.x;
MY:= MyLoc.y;

if( (abs(PX - MX) > 10) or (abs(PY - MY) > 10)) then
begin
SPS_BlindWalk(TreeLoc1);
end;

flag;
wait(lagg);
end;
if((Location = 'LEGACY Draynor Willows') or (Location = 'LEGACY Seers Maples')) then
begin
if((LocFailSafe = 0) or (LocFailSafe = 10) or (LocFailSafe = 20) or (LocFailSafe = 30) or (LocFailSafe = 40) or (LocFailSafe = 50)) then
begin
GoToTrees;
end;
end;
end;
end;

procedure ChopTree;
var x, y:integer;
begin
if((FindObj(x, y, TreeName, TreeColor, TreeTol)) and (ContainsText(GetTextAtExWrap(35, 8, 170, 21, 0, 5, 1, 13423640, 65, 'UpChars07'), [TreeName]))) then
begin
InitWait := true;
LocFailSafe := 0;
WaitHumanClick;
if(random(2) = 1) then
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), true);
end
else
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), false);
WaitHumanClick;
ChooseOption('Chop');
end;
Flag;
wait(lagg * 4 + 500);
if(not ((FindObj(x, y, TreeName, TreeColor, TreeTol)) and (ContainsText(GetTextAtExWrap(35, 8, 170, 21, 0, 5, 1, 13423640, 65, 'UpChars07'), [TreeName])))) then
begin
mouse(MSCX, MSCY, random(3), random(3), true);
end;
end
else
begin
if(not (FindObj(x, y, TreeName, TreeColor, 1)))then
begin
ChangeTree;
end;
LocFailSafe := LocFailSafe + 1;
end;
Flag;
end;

procedure MainLoop;
begin
FindNormalRandoms;
DoCombat;
DoChopAntiSpam;
if(InvFull) then
begin
BankItems;
end
else
begin
if(not(isChopping)) then
begin
writeln('PixelShift');
ChopTree;
end
else
begin
if(not (InitWait)) then
begin
writeln('InitWait');
ChopTree;
end
else
begin
if(not(CountColorTolerance(TreeColor, MSCX-80, MSCY-80, MSCX+80, MSCY+80, 15) > 1)) then
begin
writeln('CountColor');
ChopTree;
end
else
begin
AntiBan;
end;
end;
end;
end;
end;

begin
Started := false;
SafeInitForm;
SafeShowFormModal;

if(Started) then
begin
DeclareThings;
SetupScript;
SetupSRL;
SPS_Debug := true;
AddOnTerminate('ClearThings')
LoginPlayer;
wait(2000);
MakeCompass(5);
SetAngle(0);
LastHP := GetSkillInfo('hitpoints', true);
SetRun(true);
repeat
if(LoggedIn) then
begin
MainLoop;
end
else
begin
LoginPlayer;
end;
until((AxeFailSafe > 10) or (LocFailSafe > 100))
writeln(AxeFailSafe);
writeln(LocFailSafe);
Logout;
end;
TerminateScript;
end.

The error returned:
[Error] C:\Simba\Includes\SPS/sps-osr.simba(379:35): Invalid number of parameters at line 378
Compiling failed.

The script of the error.
(*
SPS ~ SRL Positioning System
============================

Concept and original work done by marpis @ SRL-Forums.

*)

{$loadlib sps}

const
// Path where all the SPS files are
SPS_IMG_PATH = IncludePath + 'SPS\img\';
SPS_IMG_FMT = '.png';

// Surfaces
RUNESCAPE_SURFACE = 0;
RUNESCAPE_SURFACE_FOLDER = 'runescape_surface\';

RUNESCAPE_OTHER = 1;
RUNESCAPE_OTHER_FOLDER = 'runescape_other\';

// SPS Global variables
var
SPS_Debug, SPS_MultiMouse: boolean;
SPS_Areas: TStringArray;
SPS_AreaMaps: T3DIntegerArray; // Grids of the combined SPS_Areas
SPS_Tolerance, SPS_MatchesPercent: extended;
SPS_Accuracy: integer; // Splits minimap/areas into squares of this side length; used for area recognition

// Returns an image of the minimap in a TMufasaBitmap
function SPS_GatherMinimap: TMufasaBitmap;
var
c: TClient;
begin
try
Result := TMufasaBitmap.Create;
Result.SetSize(150, 150);

c := getTClient;
Result.CopyClientToBitmap(
c.IOManager, false, 0, 0, MMCX-75, MMCY-75, MMCX+75, MMCY+75
);

except
Writeln('SPS_GatherMinimap ERROR: '+ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

// Gets the starting area coordinates depending on the area image
procedure SPS_GetAreaCoords(Area: string; var x, y: integer);
var
p: integer;
begin
// if it's a specific dungeon map (i.e. name isn't 0_0, 10_2, etc.)
if (length(getNumbers(Area)) < 2) then
begin
x := 0;
y := 0;
Exit;
end;

p := pos('_', Area);

x := StrToIntDef(copy(Area, 1, p - 1), -1);
y := StrToIntDef(copy(Area, p + 1, Length(Area) - p), -1);

//writeln('SPS_GetAreaCoords: '+toStr(point(x, y)));
end;

// Converts a point from a map piece to a point on the entire map
function SPS_LocalToGlobal(Area: string; x, y: integer): TPoint;
var
cx, cy: integer;
begin
SPS_GetAreaCoords(Area, cx, cy);
Result.x := (cx * 400) + x;
Result.y := (cy * 400) + y;
end;

// Converts a point from the entire map to a point on the main screen
function SPS_GlobalToLocal(x, y: integer): TPoint;
var
cx, cy: integer;
begin
cx := Floor(x / 400);
cy := Floor(y / 400);

Result.x := x - (cx * 400);
Result.y := y - (cy * 400);
end;

// Returns the coordinates (x, y) in the form of a string
function SPS_AreaCoordsToString(x, y: integer): string;
begin
Result := IntToStr(x)+'_'+IntToStr(y);
end;

// Author: Coh3n
// Returns a TPA of the areas' values
function SPS_TPAFromAreas(areas: TStringArray): TPointArray;
var
i: integer;
begin
setLength(result, length(areas));

for i := 0 to high(areas) do
SPS_GetAreaCoords(areas[i], result[i].x, result[i].y);
end;

// Author: Coh3n
// Sorts the areas by columns, and sorts each column by rows
// Example: ['1_5', '1_3', '0_5'] results ['0_5', '1_3', '1_5']
function SPS_SortAreas(areas: TStringArray): TStringArray;
var
i, j: integer;
tpa: TPointArray;
begin
setLength(tpa, length(areas));

tpa := SPS_TPAFromAreas(areas);
clearDoubleTPA(tpa);

sortTPAByX(tpa, true); // first sort by column number

// then sort the Y values for each column number
for i := 0 to high(tpa) do
for j := i to high(tpa) do
if (tpa[i].x = tpa[j].x) then
if (tpa[i].y > tpa[j].y) then
tSwap(tpa[i], tpa[j]);

setLength(result, length(tpa));

for i := 0 to high(tpa) do
result[i] := SPS_AreaCoordsToString(tpa[i].x, tpa[i].y);

//writeln('SPS_SortAreas: '+toStr(result));
end;

// Loads the "Area" image
function SPS_GetArea(Area: string; surface: integer): TMufasaBitmap;
var
x, y: integer;
S: string;
begin
SPS_GetAreaCoords(Area, x, y);

case surface of
RUNESCAPE_SURFACE: s := RUNESCAPE_SURFACE_FOLDER;
RUNESCAPE_OTHER: s := RUNESCAPE_OTHER_FOLDER;
end;

try
Result := TMufasaBitmap.Create;
Result.LoadFromFile(SPS_IMG_PATH + s + Area + SPS_IMG_FMT);
except
Writeln('SPS_GetArea ERROR: '+ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

// Author: Coh3n
// Merges the SPS 'areas' into one bitmap (makes more more accurate GetMyPos)
function SPS_MergeAreas(areas: TStringArray): TMufasaBitmap;
var
t, i, l, x, y, diffX, diffY, newWidth, newHeight: integer;
startPoint: TPoint;
newAreas: TStringArray;
xVals, yVals: TIntegerArray;
bmpTemp: TMufasaBitmap;
tmpTPA: TPointArray;
begin
if (length(areas) <= 0) then
exit;

t := getSystemTime();

// sort the areas from by columns/rows; remove duplicates
newAreas := SPS_SortAreas(areas);
l := length(newAreas);

// if there's only one area in the array
if (l = 1) then
begin
result := SPS_GetArea(areas[0], RUNESCAPE_SURFACE);
exit;
end;

// get the x and y values for each area
setLength(xVals, l);
setLength(yVals, l);

for i := 0 to high(newAreas) do
SPS_GetAreaCoords(newAreas[i], xVals[i], yVals[i]);

// get the lowest Y value so we can calculate the starting point to draw the first image
tmpTPA := SPS_TPAFromAreas(newAreas);
sortTPAByY(tmpTPA, true);

try
result := TMufasaBitmap.create();

// calculate the starting point
// x is always 0 because of how the areas are sorted
// y is relative to the lowest y value in the areas
SPS_GetAreaCoords(newAreas[0], x, y);
startPoint.x := 0;
startPoint.y := ((y - tmpTPA[0].y) * 400);

// draw the first area to the starting point on the bitmap
bmpTemp := SPS_GetArea(newAreas[0], RUNESCAPE_SURFACE);
result.SetSize(bmpTemp.width, bmpTemp.height + startPoint.y);
bmpTemp.fastDrawTransparent(startPoint.x, startPoint.y, result);
bmpTemp.free();

// loop through each area, drawing them to the result bitmap
// coordinates are calculated relative to the first area drawn (areas[0])
for i := 0 to (l - 2) do
begin
diffX := (xVals[i + 1] - xVals[0]);
diffY := (yVals[i + 1] - yVals[0]);

newWidth := 500 + (round(abs(diffX)) * 400);
newHeight := 500 + (round(abs(diffY)) * 400);

// only set the size if the width or height is increasing
if (newWidth > result.width) then
result.setSize(newWidth, result.height);

if (newHeight > result.height) then
result.setSize(result.width, newHeight);

// copy the area image to the resulting bitmap
bmpTemp := SPS_GetArea(newAreas[i + 1], RUNESCAPE_SURFACE);
bmpTemp.fastDrawTransparent(startPoint.x + (diffX * 400 + 1),
startPoint.y + (diffY * 400 + 1), result);
bmpTemp.free();
end;

//result.saveToFile('C:/Simba/test.bmp');
except
Writeln('SPS_MergeAreas ERROR: '+ExceptionToString(ExceptionType, ExceptionParam));
end;

if (SPS_Debug) then
writeln('SPS_MergeAreas: Merged areas in '+toStr(getSystemTime - t)+' ms.');
end;

// Author: Coh3n
// Returns an SPS area of lowest x and y value. Used for calculating the
// player's correct position
function SPS_GetTopLeftCoords(areas: TStringArray): string;
var
tpa: TPointArray;
begin
tpa := SPS_TPAFromAreas(areas);

if (length(tpa) <= 0) then
begin
result := '0_0';
exit;
end;

sortTPAByX(tpa, true);
result := toStr(tpa[0].x);

sortTPAByY(tpa, true);
result := result + '_'+toStr(tpa[0].y);

//writeln('SPS_GetTopLeftCoords: '+result);
end;

// SPS2
function SPS_GetMyPos(): TPoint;
var
Minimap: TMufasaBitmap;
SmallMap: T3DIntegerArray;
t, FoundMatches: integer;
P: TPoint;
Searches: extended;
begin
Result := Point(-1, -1);

if (not LoggedIn) then
Exit;

if (SPS_Tolerance < 1.0) then
SPS_Tolerance := 600.0;

if (SPS_MatchesPercent = 0.0) then
SPS_MatchesPercent := 0.35;

if (inRange(round(rs_GetCompassAngleDegrees), 10, 350)) then
MakeCompass('N');

t := getSystemTime();

Minimap := SPS_GatherMinimap;
SPS_FilterMinimap(Minimap);
//DrawBitmapDebugImg(Minimap.Index);
//DisplayDebugImgWindow(150, 150);

{$IFDEF SIMBAMAJOR990}
SetLength(SmallMap, 0); // Using this instead of SmallMap := [];
SPS_BitmapToMap(Minimap, SPS_Accuracy, SmallMap);
{$ELSE}
SmallMap := [];
SmallMap := SPS_BitmapToMap(Minimap, SPS_Accuracy);
{$ENDIF}

FoundMatches := SPS_FindMapInMap(P.x, P.y, SPS_AreaMaps, SmallMap, SPS_Tolerance);
Searches := ((Minimap.Width / SPS_Accuracy) * (Minimap.Height / SPS_Accuracy));
{
writeln('fx: '+toStr(p.x)+' ~ on area: '+toStr(P.X * SPS_Accuracy + (Minimap.Width / 2)));
writeln('fy: '+toStr(p.y)+' ~ on area: '+toStr(P.Y * SPS_Accuracy + (Minimap.Width / 2)));
writeln('matches: '+toStr(foundMatches));
writeln('searches: '+toStr(searches));
writeln('percent: '+toStr(FoundMatches / Searches));
}
if ((FoundMatches / Searches) > SPS_MatchesPercent) then
Result := SPS_LocalToGlobal(SPS_GetTopLeftCoords(SPS_Areas), // the top left of the total area
P.x * SPS_Accuracy + (Minimap.Width / 2),
P.y * SPS_Accuracy + (Minimap.Width / 2));

Minimap.Free;

t := (GetSystemTime - t);
if (SPS_Debug) then
Writeln('SPS_GetMyPos: Finished in '+ToStr(t)+' ms. Result = '+ToStr(Result));
end;

// Finds position P in minimap by checking your own location
function SPS_PosToMM(P: TPoint): TPoint;
var
MyPos: TPoint;
begin
if not LoggedIn then
Exit;

Result := Point(-1, -1);
MyPos := SPS_GetMyPos;

if (Distance(MyPos.X, MyPos.Y, P.X, P.Y) < 75) then
Result := Point(MMCX + P.X - MyPos.X, MMCY + P.Y - MyPos.Y);
end;

// Walks to position, P.
function SPS_WalkToPos(P: TPoint): boolean;
var
MM: TPoint;
begin
if not LoggedIn then
Exit;

MM := SPS_PosToMM(P);

if (MM.X > 0) then
begin
if (SPS_MultiMouse) then
MultiMouse(MM.X, MM.Y, 25, 3, false)
else
Mouse(MM.X, MM.Y, 0, 0, mouse_Left);

if WaitFunc(@IsMoving, 1, 3000 + random(500)) then
while IsMoving do
Flag;

Result := True;
end;
end;

// Returns true if the point "Pt" is on the minimap
function SPS_PosOnMM(Pt: TPoint): Boolean;
var
p: TPoint;
begin
p := SPS_PosToMM(Pt);
[COLOR="#FF8C00"]Result := rs_OnMinimap(p.x, p.y);[/COLOR]
end;

// Walks the path "Path"; always walks to the furthest point possible
function SPS_WalkPath(Path: TPointArray): boolean;
var
I, H, T, D: integer;
P, MM: TPoint;
begin
H := High(Path);
T := GetSystemTime + 20000 + Random(5000);

while (not Result) and (GetSystemTime < T) do
begin
RunEnergy(20);

P := SPS_GetMyPos;
for I := H downto 0 do
begin
MM.X := MMCX + Path[I].X - P.X;
MM.Y := MMCY + Path[I].Y - P.Y;

D := Distance(MM.X, MM.Y, MMCX, MMCY);

if (D < 10) then
break
else
if (D < 70) then
begin
if (SPS_MultiMouse) then
MultiMouse(MM.X, MM.Y, 25, 3, false)
else
Mouse(MM.X, MM.Y, 5, 5, mouse_Left);

FFlag(Integer(I <> H) * 15);

T := getSystemTime + 20000 + Random(1000);
Break;
end;
end;

Result := (I = H);
end;
end;

// Walks blindly from the player's current position to the point T
function SPS_BlindWalk(P: TPoint): Boolean;
var
Tries: Integer;
M: TPoint;
ctrlPoints: TPointArray;
begin
repeat
M := SPS_GetMyPos;

if (Length(ctrlPoints) = 0) then
ctrlPoints := TPABetweenPoints(Point(M.X, M.Y), Point(P.X, P.Y), 20 + Random(15), 10);

Inc(Tries);
if (Tries > 20) then
Exit;

Result := SPS_WalkPath(ctrlPoints);
until(Result);
end;

// Sets up SPS; needs to be called if you want to switch RS surfaces
function SPS_Setup(surface: integer; areas: TStringArray): boolean;
var
t: integer;
tmp: TMufasaBitmap;
begin
t := getSystemTime;

SPS_MultiMouse := true;
SPS_Accuracy := 4;

if (length(areas) > 0) then
begin
if (surface = RUNESCAPE_SURFACE) then
tmp := SPS_MergeAreas(areas) // combine the SPS areas into 1; makes for a more accurate read
else
if (surface = RUNESCAPE_OTHER) then
if (length(areas) = 1) then
tmp := SPS_GetArea(areas[0], surface)
else begin
writeln('SPS_Setup(): Invalid dungeon areas. You can only select one!');
exit;
end;

result := true;
{$IFDEF SIMBAMAJOR990}
SPS_BitmapToMap(tmp, SPS_Accuracy, SPS_AreaMaps);
{$ELSE}
SPS_AreaMaps := SPS_BitmapToMap(tmp, SPS_Accuracy);
{$ENDIF}

if (surface = RUNESCAPE_SURFACE) then
SPS_Areas := SPS_SortAreas(areas)
else
if (surface = RUNESCAPE_OTHER) then
SPS_Areas := areas;

tmp.free();

end else
writeln('SPS_Setup(): ERROR: SPS areas are not set!');

t := (getSystemTime - t);

if (SPS_Debug) and (result) then
writeln('[SPS] SPS_Setup() took '+toStr(t)+' ms. Areas: '+toStr(SPS_Areas));
end;

I'd appreciate any help I could get, I'd like to post an image but sadly I can't yet.
Thanks

Protential

2013-05-05 09:59:35

The error highlighted in the second script is this (line 378)
[COLOR="#FF8C00"]Result := rs_OnMinimap(p.x, p.y);[/COLOR]

fivenrager

2013-05-06 08:13:50

are you using also using smart8?

Spiker

2013-05-08 04:29:10

Did you install sps-osr correctly?: http://villavu.com/forum/showthread.php?t=98324