sm0k3
2011-04-22 02:15:02
Can anyone help me .. i keep getting the error
CheckSychronize call from non-main thread "$1624" < this number changes
CheckSychronize call from non-main thread "$1624" < this number changes
program Hiker;
{$DEFINE SMART}
{.include SRL/SRL.scar}
{.include Reflection/Reflection.simba}
{.include WebWalk.simba}
var //Script Vars
TargetLoc: string; // Target Location
TargetLocID: integer;
LocCount: integer;
Locations: TStringList;
locn : LongInt;
WorldM: TGraph;
var // Form Vars
LocForm: TForm;
List: TListBox;
Ok: TButton;
Function DoWalk(TLocID: integer): Boolean;
begin
Try
WebWalk(TLocID, WorldM);
Except
Writeln('Coulnt Walk to location');
End
end;
procedure Go(Sender: TObject);
begin
case sender of
Ok:Begin TargetLoc := ToStr(List.Items[List.ItemIndex]); //Changes, the text of the TEdit to the text of the selected item in the TListbox
Writeln(TargetLoc);
locn := List.ITEMINDEX;
TargetLocID := StrToInt(Locations.Strings[locn])
DoWalk(TargetLocID);
end;
end;
end;
Function LoadNodes(WorldN: string): Boolean;
var
i: integer;
ii , Cvar, Nvar: string;
Begin
LocCOUNT := StrToInt(ReadINI('NODE','COUNT',ScriptPath+'\Worlds\'+WorldN));
Writeln('I Currently know '+ToStr(LocCOUNT)+' Locations');
for i := 0 to LocCOUNT do
begin
ii := ToStr(i);
try
Cvar := ReadINI(ii, 'NAME',ScriptPath+'\Worlds\'+WorldN);
List.Items.Append(Cvar);
Nvar := ReadINI(ii, 'NODE',ScriptPath+'\Worlds\'+WorldN);
Locations.Add(Nvar);
except
WriteLn('Failed to Read World Data!');
end
result := true;
end;
end;
procedure SetupLocForm;
Begin
// Begin Location ListBox
List := TListBox.Create(LocForm);
List.Parent := LocForm;
List.SetBounds(24, 48, 209, 233);
List.ONCLICK := @Go;
// End Location ListBox
// Begin Ok Button
Ok := TButton.Create(LocForm); //Every Object must be created before using it.
Ok.Parent := LocForm; //every object must have a parent (except for TForm) usually its the same as the owner
Ok.SetBounds(120,360, 75, 25); //Adds the Width, Height, Left, and Top in one line.
Ok.Caption := 'Ok';
Ok.ONCLICK := @Go;
// End Ok Button
End;
function CLocForm(): Boolean;
var
i, h: Integer;
v : TVariantArray;
begin;
try
Locform := TForm.Create(nil);//creates the form
Locform.Position := poDesktopCenter;
Locform.Width := 300;
Locform.Height := 400;
Locform.Caption := 'Noob Powerfighter';
Locform.Color := clWhite;
Locform.BorderStyle := bsSingle;
SetupLocForm;
except
Writeln('setupForm failed')
Exit;
end;
result := true;
end;
Function StartForm(Form: string): Boolean;
var
v : TVariantArray;
begin;
try
ThreadSafeCall('ClocForm', v);
except
writeln('Failed to load form: '+ Form);
result := false;
Exit;
end;
writeln('Loaded Form Succesfuly: '+ Form);
result := true;
end;
procedure LoadWorldM;
Begin
WorldM.Node := [Point(2368, 3628), Point(2360, 3633), Point(2349, 3640), Point(2342, 3648), Point(2332, 3655), Point(2338, 3663), Point(2328, 3638), Point(2336, 3630), Point(2343, 3625), Point(2345, 3615), Point(2346, 3605), Point(2347, 3591), Point(2345, 3580), Point(2344, 3570), Point(2345, 3558), Point(2345, 3546), Point(2352, 3603), Point(2358, 3613), Point(2363, 3624), Point(2337, 3588), Point(2350, 3533), Point(2355, 3520), Point(2360, 3511), Point(2362, 3501), Point(2362, 3489), Point(2363, 3478), Point(2364, 3469), Point(2365, 3456), Point(2367, 3444), Point(2364, 3429), Point(2365, 3419), Point(2368, 3404), Point(2373, 3392), Point(2385, 3391), Point(2399, 3389), Point(2411, 3386), Point(2420, 3385), Point(2436, 3385), Point(2448, 3383), Point(2458, 3381), Point(2468, 3386), Point(2483, 3388), Point(2494, 3387), Point(2503, 3386), Point(2517, 3390), Point(2527, 3399), Point(2537, 3402), Point(2550, 3397), Point(2560, 3392), Point(2571, 3389), Point(2583, 3385), Point(2594, 3382),
Point(2605, 3383), Point(2613, 3383), Point(2624, 3382), Point(2632, 3375), Point(2641, 3374), Point(2646, 3380), Point(2653, 3383), Point(2662, 3382), Point(2673, 3380), Point(2667, 3375), Point(2683, 3383), Point(2691, 3389), Point(2644, 3384), Point(2642, 3395), Point(2643, 3407), Point(2644, 3418), Point(2644, 3431), Point(2652, 3440), Point(2662, 3449), Point(2669, 3458), Point(2676, 3469), Point(2683, 3478), Point(2693, 3486), Point(2705, 3486), Point(2633, 3363), Point(2634, 3359), Point(2633, 3346), Point(2633, 3339), Point(2624, 3334), Point(2615, 3337), Point(2606, 3332), Point(2605, 3325), Point(2605, 3313), Point(2605, 3303), Point(2606, 3295), Point(2620, 3297), Point(2633, 3298), Point(2642, 3289), Point(2650, 3283), Point(2652, 3296), Point(2658, 3306), Point(2649, 3317), Point(2646, 3328), Point(2602, 3284), Point(2594, 3277), Point(2598, 3267), Point(2596, 3257), Point(2595, 3247), Point(2638, 3333), Point(2537, 3413), Point(2537, 3425), Point(2536, 3437), Point(2537, 3451),
Point(2548, 3460), Point(2550, 3470), Point(2542, 3477), Point(2532, 3478), Point(2530, 3490), Point(2527, 3499), Point(2524, 3508), Point(2523, 3518), Point(2521, 3527), Point(2517, 3540), Point(2520, 3554), Point(2525, 3561), Point(2540, 3564), Point(2540, 3570), Point(2516, 3523), Point(2507, 3522), Point(2499, 3518), Point(2497, 3507), Point(2500, 3496), Point(2503, 3489), Point(2462, 3368), Point(2468, 3361), Point(2479, 3354), Point(2489, 3353), Point(2503, 3353), Point(2512, 3352), Point(2524, 3349), Point(2533, 3347), Point(2547, 3344), Point(2558, 3346), Point(2567, 3345), Point(2581, 3344), Point(2586, 3338), Point(2582, 3330), Point(2579, 3321), Point(2583, 3315), Point(2589, 3306), Point(2591, 3297), Point(2601, 3296), Point(2580, 3357), Point(2579, 3369), Point(2575, 3379), Point(2704, 3392), Point(2716, 3397), Point(2725, 3404), Point(2735, 3411), Point(2744, 3417), Point(2756, 3425), Point(2767, 3431), Point(2779, 3434), Point(2791, 3434), Point(2805, 3436), Point(2808, 3441),
Point(2815, 3438), Point(2822, 3438), Point(2833, 3436), Point(2842, 3433), Point(2851, 3430), Point(2714, 3487), Point(2722, 3487), Point(2724, 3491), Point(2729, 3487), Point(2723, 3475), Point(2719, 3468), Point(2706, 3464), Point(2720, 3462), Point(2720, 3456), Point(2729, 3452), Point(2732, 3444), Point(2743, 3446), Point(2732, 3436), Point(2739, 3427), Point(2676, 3445), Point(2688, 3446), Point(2701, 3444), Point(2713, 3436), Point(2723, 3435), Point(2615, 3332), Point(2735, 3493), Point(2741, 3505), Point(2741, 3519), Point(2740, 3535), Point(2731, 3543), Point(2717, 3546), Point(2707, 3545), Point(2696, 3546), Point(2683, 3550), Point(2672, 3558), Point(2660, 3564), Point(2655, 3576), Point(2651, 3591), Point(2652, 3607), Point(2659, 3615), Point(2659, 3628), Point(2669, 3639), Point(2661, 3651), Point(2658, 3662), Point(2664, 3674), Point(2681, 3637), Point(2692, 3638), Point(2700, 3646), Point(2708, 3656), Point(2711, 3666), Point(2717, 3677), Point(2718, 3690), Point(2712, 3702),
Point(2713, 3712), Point(2722, 3716), Point(2740, 3550), Point(2741, 3482), Point(2753, 3478), Point(2760, 3471), Point(2764, 3463), Point(2773, 3454), Point(2778, 3448), Point(2785, 3442), Point(2802, 3447), Point(2802, 3455), Point(2806, 3465), Point(2791, 3454), Point(2782, 3457), Point(2771, 3459), Point(2855, 3443), Point(2847, 3456), Point(2839, 3468), Point(2847, 3475), Point(2844, 3489), Point(2838, 3496), Point(2839, 3506), Point(2849, 3511), Point(2859, 3507), Point(2861, 3495), Point(2857, 3488), Point(2855, 3480), Point(2856, 3470), Point(2861, 3464), Point(2865, 3455), Point(2864, 3443), Point(2881, 3428), Point(2893, 3434), Point(2898, 3445), Point(2912, 3446), Point(2922, 3455), Point(2935, 3458), Point(2937, 3470), Point(2928, 3480), Point(2920, 3489), Point(2915, 3501), Point(2909, 3510), Point(2904, 3521), Point(2904, 3492), Point(2899, 3482), Point(2895, 3476), Point(2891, 3469), Point(2887, 3460), Point(2873, 3434), Point(2887, 3445), Point(2902, 3534), Point(2881, 3439),
Point(2932, 3450), Point(2590, 3235), Point(2582, 3225), Point(2575, 3219), Point(2566, 3210), Point(2553, 3204), Point(2540, 3199), Point(2533, 3198), Point(2520, 3200), Point(2505, 3198), Point(2494, 3179), Point(2485, 3169), Point(2486, 3163), Point(2484, 3152), Point(2485, 3141), Point(2491, 3129), Point(2499, 3124), Point(2513, 3119), Point(2517, 3112), Point(2523, 3101), Point(2528, 3090), Point(2529, 3076), Point(2535, 3068), Point(2548, 3064), Point(2557, 3064), Point(2569, 3060), Point(2583, 3061), Point(2595, 3058), Point(2602, 3060), Point(2615, 3066), Point(2620, 3069), Point(2622, 3078), Point(2623, 3092), Point(2615, 3102), Point(2622, 3107), Point(2619, 3115), Point(2622, 3123), Point(2621, 3132), Point(2623, 3144), Point(2602, 3236), Point(2607, 3230), Point(2611, 3222), Point(2621, 3214), Point(2625, 3203), Point(2624, 3194), Point(2622, 3181), Point(2619, 3173), Point(2622, 3162), Point(2621, 3152), Point(2606, 3098), Point(2609, 3091), Point(2521, 3071), Point(2505, 3067),
Point(2494, 3067), Point(2481, 3069), Point(2468, 3067), Point(2456, 3070), Point(2455, 3080), Point(2448, 3087), Point(2441, 3084), Point(2564, 3052), Point(2562, 3044), Point(2560, 3033), Point(2559, 3024), Point(2561, 3014), Point(2566, 3008), Point(2568, 2998), Point(2567, 2989), Point(2565, 2976), Point(2561, 2967), Point(2552, 2957), Point(2547, 2946), Point(2543, 2939), Point(2531, 2934), Point(2525, 2926), Point(2514, 2918), Point(2505, 2910), Point(2493, 2901), Point(2482, 2894), Point(2468, 2886), Point(2456, 2878), Point(2446, 2868), Point(2436, 2861), Point(2426, 2853), Point(2414, 2849), Point(2409, 2840), Point(2407, 2833), Point(2401, 2833), Point(2400, 2837), Point(2422, 2846), Point(2433, 2845), Point(2440, 2843), Point(2453, 2837), Point(2460, 2834), Point(2473, 2832), Point(2483, 2831), Point(2495, 2832), Point(2502, 2830), Point(2515, 2833), Point(2527, 2834), Point(2537, 2839), Point(2546, 2839), Point(2554, 2839), Point(2527, 2916), Point(2530, 2909), Point(2530, 2901),
Point(2525, 2890), Point(2520, 2883), Point(2517, 2872), Point(2515, 2867), Point(2512, 2858), Point(2507, 2849), Point(2508, 2838), Point(2942, 3452), Point(2950, 3460), Point(2951, 3467), Point(2954, 3481), Point(2956, 3493), Point(2947, 3441), Point(2949, 3434), Point(2951, 3421), Point(2958, 3415), Point(2965, 3412), Point(2965, 3400), Point(2965, 3392), Point(2966, 3380), Point(2955, 3380), Point(2949, 3374), Point(2945, 3370), Point(2965, 3371), Point(2963, 3360), Point(2964, 3351), Point(2968, 3341), Point(2973, 3379), Point(2980, 3378), Point(2988, 3371), Point(2996, 3366), Point(3006, 3362), Point(3013, 3355), Point(3019, 3362), Point(3007, 3350), Point(3007, 3342), Point(3007, 3331), Point(3007, 3321), Point(3006, 3313), Point(3015, 3350), Point(3023, 3351), Point(3021, 3340), Point(2995, 3302), Point(2983, 3294), Point(2971, 3292), Point(2962, 3292), Point(2949, 3292), Point(2937, 3292), Point(2932, 3291), Point(3006, 3301), Point(3007, 3295), Point(3006, 3286), Point(3013, 3276),
Point(3022, 3276), Point(3037, 3273), Point(3046, 3274), Point(3058, 3274), Point(3069, 3274), Point(3078, 3267), Point(3082, 3256), Point(3087, 3248), Point(3094, 3242), Point(2999, 3277), Point(2990, 3275), Point(2982, 3273), Point(2976, 3267), Point(2968, 3260), Point(2963, 3252), Point(2956, 3243), Point(2956, 3231), Point(2957, 3222), Point(2962, 3219), Point(2968, 3224), Point(2972, 3229), Point(2975, 3239), Point(2978, 3249), Point(2983, 3255), Point(2993, 3260), Point(3000, 3269), Point(3007, 3271), Point(2978, 3278), Point(2971, 3281), Point(2962, 3287), Point(2953, 3288), Point(3015, 3263), Point(3019, 3256), Point(3020, 3242), Point(3020, 3228), Point(3020, 3218), Point(3027, 3220), Point(3027, 3229), Point(3038, 3234), Point(3041, 3241), Point(3049, 3247), Point(3057, 3252), Point(3064, 3261), Point(3066, 3269), Point(3087, 3237), Point(3095, 3228), Point(3104, 3222), Point(3110, 3219), Point(3113, 3209), Point(3113, 3198), Point(3114, 3185), Point(3113, 3174), Point(3112, 3166),
Point(3122, 3217), Point(3131, 3216), Point(3144, 3211), Point(3153, 3204), Point(3163, 3197), Point(3177, 3195), Point(3191, 3193), Point(3198, 3193), Point(3210, 3188), Point(3217, 3183), Point(3224, 3173), Point(3231, 3153), Point(3214, 3151), Point(3201, 3152), Point(3188, 3154), Point(3176, 3154), Point(3165, 3152), Point(3153, 3149), Point(3147, 3146), Point(3151, 3161), Point(3147, 3168), Point(3144, 3181), Point(3141, 3190), Point(3140, 3200), Point(3138, 3207), Point(3236, 3176), Point(3239, 3184), Point(3241, 3195), Point(3236, 3203), Point(3234, 3213), Point(3226, 3217), Point(3234, 3222), Point(3233, 3189), Point(3224, 3188), Point(3201, 3182), Point(3193, 3159), Point(3229, 3145), Point(3222, 3150), Point(3198, 3174), Point(3198, 3167), Point(3227, 3232), Point(3221, 3243), Point(3219, 3211), Point(3213, 3205), Point(3203, 3210), Point(3195, 3217), Point(3185, 3219), Point(3176, 3223), Point(3170, 3226), Point(3161, 3227), Point(3149, 3227), Point(3137, 3228), Point(3127, 3229),
Point(3114, 3232), Point(3104, 3237), Point(3248, 3224), Point(3256, 3226), Point(3260, 3236), Point(3256, 3247), Point(3251, 3258), Point(3248, 3268), Point(3243, 3276), Point(3218, 3256), Point(3216, 3266), Point(3212, 3276), Point(3198, 3280), Point(3186, 3283), Point(3174, 3286), Point(3168, 3295), Point(3163, 3302), Point(3159, 3308), Point(3151, 3315), Point(3149, 3323), Point(3147, 3331), Point(3146, 3341), Point(3143, 3353), Point(3136, 3366), Point(3135, 3376), Point(3123, 3383), Point(3112, 3390), Point(3106, 3398), Point(3097, 3406), Point(3095, 3414), Point(3089, 3421), Point(3104, 3422), Point(3114, 3419), Point(3123, 3415), Point(3133, 3416), Point(3141, 3417), Point(3153, 3418), Point(3163, 3421), Point(3187, 3431), Point(3118, 3423), Point(3123, 3428), Point(3134, 3432), Point(3141, 3437), Point(3149, 3444), Point(3156, 3453), Point(3163, 3477), Point(3239, 3286), Point(3239, 3296), Point(3240, 3308), Point(3248, 3315), Point(3255, 3321), Point(3264, 3327), Point(3271, 3332),
Point(3282, 3338), Point(3289, 3347), Point(3294, 3353), Point(3296, 3363), Point(3295, 3375), Point(3294, 3385), Point(3293, 3399), Point(3291, 3411), Point(3287, 3422), Point(3281, 3429), Point(3270, 3430), Point(3261, 3430), Point(3254, 3427), Point(3248, 3430), Point(3240, 3431), Point(3229, 3430), Point(3223, 3430), Point(3208, 3429), Point(3165, 3485), Point(3164, 3463), Point(3171, 3456), Point(3255, 3421), Point(3262, 3417), Point(3258, 3407), Point(3254, 3401), Point(3250, 3392), Point(3238, 3389), Point(3225, 3391), Point(3213, 3391), Point(3212, 3401), Point(3212, 3412), Point(3214, 3423), Point(3206, 3409), Point(3199, 3419), Point(3182, 3451), Point(3187, 3440), Point(3171, 3430), Point(3180, 3430), Point(3197, 3430), Point(3291, 3375), Point(3288, 3367), Point(3287, 3354), Point(3212, 3378), Point(3204, 3374), Point(3194, 3373), Point(3183, 3371), Point(3178, 3381), Point(3172, 3392), Point(3170, 3407), Point(3171, 3419), Point(3178, 3359), Point(3177, 3346), Point(3177, 3335),
Point(3288, 3335), Point(3286, 3326), Point(3286, 3314), Point(3286, 3303), Point(3287, 3290), Point(3281, 3331), Point(3259, 3333), Point(3248, 3337), Point(3234, 3337), Point(3227, 3346), Point(3223, 3357), Point(3216, 3368), Point(3287, 3278), Point(3291, 3266), Point(3290, 3258), Point(3289, 3243), Point(3287, 3230), Point(3298, 3235), Point(3308, 3233), Point(3283, 3223), Point(3282, 3213), Point(3284, 3206), Point(3283, 3194), Point(3297, 3275), Point(3299, 3284), Point(3300, 3292), Point(3299, 3301), Point(3301, 3310), Point(3282, 3184), Point(3286, 3433), Point(3286, 3446), Point(3288, 3458), Point(3292, 3469), Point(3296, 3476), Point(3299, 3486), Point(3307, 3491), Point(3102, 3433), Point(3099, 3440), Point(3097, 3451), Point(3092, 3456), Point(3087, 3464), Point(3094, 3467), Point(3094, 3480), Point(3088, 3490), Point(3093, 3495), Point(3067, 3419), Point(3055, 3417), Point(3047, 3420), Point(3038, 3424), Point(3026, 3430), Point(3013, 3431), Point(2998, 3433), Point(2987, 3427),
Point(2982, 3418), Point(2972, 3414), Point(3141, 3310), Point(3130, 3303), Point(3123, 3299), Point(3086, 3285), Point(3076, 3280), Point(3178, 3310), Point(3187, 3303), Point(3190, 3291), Point(3178, 3324), Point(3177, 3317), Point(3173, 3312), Point(3162, 3312), Point(3078, 3418), Point(3090, 3406), Point(3087, 3400), Point(3081, 3391), Point(3076, 3378), Point(3072, 3365), Point(3070, 3353), Point(3066, 3340), Point(3063, 3326), Point(3050, 3319), Point(3038, 3319), Point(3024, 3317), Point(3014, 3315), Point(3076, 3341), Point(3078, 3329), Point(3079, 3317), Point(3077, 3305), Point(3077, 3293), Point(3114, 3294), Point(3103, 3293), Point(3094, 3289), Point(2957, 3211), Point(2972, 3218), Point(2980, 3220), Point(2988, 3221), Point(3002, 3218), Point(3011, 3215), Point(3243, 3167), Point(3233, 3164), Point(3278, 3174), Point(3271, 3167), Point(3266, 3173), Point(3261, 3172), Point(3091, 3448), Point(3091, 3439), Point(3089, 3430), Point(3079, 3423), Point(2500, 3190), Point(2510, 3189),
Point(2520, 3186), Point(2530, 3184), Point(2529, 3181), Point(2521, 3179), Point(2513, 3177), Point(2519, 3175), Point(2524, 3175), Point(2530, 3178), Point(2535, 3175), Point(2543, 3173), Point(2547, 3167), Point(2543, 3160), Point(2548, 3156), Point(2547, 3145), Point(2539, 3149), Point(2541, 3154), Point(2527, 3154), Point(2519, 3154), Point(2513, 3157)];
WorldM.Edge := [Point(0, 1), Point(1, 2), Point(2, 3), Point(3, 4), Point(4, 5), Point(4, 6), Point(6, 7), Point(7, 8), Point(8, 9), Point(9, 10), Point(10, 11), Point(11, 12), Point(12, 13), Point(13, 14), Point(14, 15), Point(11, 16), Point(16, 17), Point(17, 18), Point(18, 0), Point(11, 19), Point(15, 20), Point(20, 21), Point(21, 22), Point(22, 23), Point(23, 24), Point(24, 25), Point(25, 26), Point(26, 27), Point(27, 28), Point(28, 29), Point(29, 30), Point(30, 31), Point(31, 32), Point(32, 33), Point(33, 34), Point(34, 35), Point(35, 36), Point(36, 37), Point(37, 38), Point(38, 39), Point(39, 40), Point(40, 41), Point(41, 42), Point(42, 43), Point(43, 44), Point(44, 45), Point(45, 46), Point(46, 47), Point(47, 48), Point(48, 49), Point(49, 50), Point(50, 51), Point(51, 52), Point(52, 53), Point(53, 54), Point(54, 55), Point(55, 56), Point(56, 57), Point(57, 58), Point(58, 59), Point(59, 60), Point(60, 61), Point(60, 62), Point(62, 63), Point(56, 64), Point(64, 65), Point(65, 66),
Point(66, 67), Point(67, 68), Point(68, 69), Point(69, 70), Point(70, 71), Point(71, 72), Point(72, 73), Point(73, 74), Point(74, 75), Point(55, 76), Point(76, 77), Point(77, 78), Point(78, 79), Point(79, 80), Point(80, 81), Point(81, 82), Point(82, 83), Point(83, 84), Point(84, 85), Point(85, 86), Point(86, 87), Point(87, 88), Point(88, 89), Point(89, 90), Point(89, 91), Point(91, 92), Point(92, 93), Point(93, 94), Point(86, 95), Point(95, 96), Point(96, 97), Point(97, 98), Point(98, 99), Point(94, 100), Point(100, 79), Point(46, 101), Point(101, 102), Point(102, 103), Point(103, 104), Point(104, 105), Point(105, 106), Point(106, 107), Point(107, 108), Point(108, 109), Point(109, 110), Point(110, 111), Point(111, 112), Point(112, 113), Point(113, 114), Point(114, 115), Point(115, 116), Point(116, 117), Point(117, 118), Point(112, 119), Point(119, 120), Point(120, 121), Point(121, 122), Point(122, 123), Point(123, 124), Point(39, 125), Point(125, 126), Point(126, 127), Point(127, 128),Point(128, 129),
Point(129, 130), Point(130, 131), Point(131, 132), Point(132, 133), Point(133, 134), Point(134, 135), Point(135, 136), Point(136, 137), Point(137, 138), Point(138, 139), Point(139, 140), Point(140, 141), Point(141, 142), Point(142, 143), Point(143, 86), Point(136, 144), Point(144, 145), Point(145, 146), Point(146, 49), Point(63, 147), Point(147, 148), Point(148, 149), Point(149, 150), Point(150, 151), Point(151, 152), Point(152, 153), Point(153, 154), Point(154, 155), Point(155, 156), Point(156, 157), Point(156, 158), Point(158, 159), Point(159, 160), Point(160, 161), Point(161, 162), Point(75, 163), Point(163, 164), Point(164, 165), Point(164, 166), Point(164, 167), Point(167, 168), Point(168, 169), Point(169, 170), Point(170, 168), Point(170, 171), Point(171, 172), Point(172, 173), Point(173, 174), Point(173, 175), Point(175, 176), Point(176, 151), Point(70, 177), Point(177, 178), Point(178, 179), Point(179, 180), Point(180, 181), Point(181, 175), Point(157, 158), Point(81, 182), Point(166, 165),
Point(166, 183), Point(183, 184), Point(184, 185), Point(185, 186), Point(186, 187), Point(187, 188), Point(188, 189), Point(189, 190), Point(190, 191), Point(191, 192), Point(192, 193), Point(193, 194), Point(194, 195), Point(195, 196), Point(196, 197), Point(197, 198), Point(198, 199), Point(199, 200), Point(200, 201), Point(201, 202), Point(199, 203), Point(203, 204), Point(204, 205), Point(205, 206), Point(206, 207), Point(207, 208), Point(208, 209), Point(209, 210), Point(210, 211), Point(211, 212), Point(187, 213), Point(213, 186), Point(166, 214), Point(214, 215), Point(215, 216), Point(216, 217), Point(217, 218), Point(218, 219), Point(219, 220), Point(220, 155), Point(157, 221), Point(221, 222), Point(222, 223), Point(222, 224), Point(224, 225), Point(225, 226), Point(226, 217), Point(156, 221), Point(162, 227), Point(227, 228), Point(228, 229), Point(229, 230), Point(230, 231), Point(231, 232), Point(232, 233), Point(233, 234), Point(234, 235), Point(235, 236), Point(236, 237), Point(237, 238),
Point(238, 239), Point(239, 240), Point(240, 241), Point(241, 242), Point(243, 244), Point(244, 245), Point(245, 246), Point(246, 247), Point(247, 248), Point(248, 249), Point(249, 250), Point(250, 251), Point(251, 252), Point(252, 253), Point(253, 254), Point(252, 255), Point(255, 256), Point(256, 257), Point(257, 258), Point(258, 259), Point(242, 260), Point(260, 243), Point(259, 261), Point(254, 262), Point(261, 263), Point(263, 260), Point(247, 264), Point(99, 265), Point(265, 266), Point(266, 267), Point(267, 268), Point(268, 269), Point(269, 270), Point(270, 271), Point(271, 272), Point(272, 273), Point(274, 275), Point(275, 276), Point(276, 277), Point(277, 278), Point(278, 279), Point(279, 280), Point(280, 281), Point(281, 282), Point(282, 283), Point(283, 284), Point(284, 285), Point(285, 286), Point(286, 287), Point(287, 288), Point(288, 289), Point(289, 290), Point(290, 291), Point(291, 292), Point(292, 293), Point(293, 294), Point(294, 295), Point(295, 296), Point(296, 297), Point(296, 298),
Point(298, 299), Point(299, 300), Point(300, 301), Point(301, 302), Point(99, 303), Point(303, 304), Point(304, 305), Point(305, 306), Point(306, 307), Point(307, 308), Point(308, 309), Point(309, 310), Point(310, 311), Point(311, 312), Point(312, 302), Point(298, 297), Point(297, 299), Point(297, 313), Point(313, 314), Point(285, 315), Point(315, 316), Point(316, 317), Point(317, 318), Point(318, 319), Point(319, 320), Point(320, 321), Point(321, 322), Point(322, 323), Point(315, 286), Point(289, 324), Point(324, 288), Point(324, 325), Point(325, 326), Point(326, 327), Point(327, 328), Point(328, 329), Point(329, 330), Point(330, 331), Point(331, 332), Point(332, 333), Point(333, 334), Point(334, 335), Point(335, 336), Point(336, 337), Point(337, 338), Point(338, 339), Point(339, 340), Point(340, 341), Point(341, 342), Point(342, 343), Point(343, 344), Point(344, 345), Point(345, 346), Point(346, 347), Point(347, 348), Point(348, 349), Point(349, 350), Point(350, 351), Point(351, 352), Point(352, 349),
Point(349, 353), Point(353, 354), Point(354, 355), Point(355, 356), Point(356, 357), Point(357, 358), Point(358, 359), Point(359, 360), Point(360, 361), Point(361, 362), Point(362, 363), Point(363, 364), Point(364, 365), Point(365, 366), Point(338, 367), Point(367, 368), Point(368, 369), Point(369, 370), Point(370, 371), Point(371, 372), Point(372, 373), Point(373, 374), Point(374, 375), Point(375, 376), Point(376, 362), Point(376, 361), Point(264, 377), Point(377, 378), Point(378, 379), Point(379, 380), Point(380, 381), Point(377, 382), Point(382, 383), Point(383, 384), Point(384, 385), Point(385, 386), Point(386, 387), Point(387, 388), Point(388, 389), Point(389, 390), Point(390, 391), Point(391, 392), Point(389, 393), Point(393, 394), Point(394, 395), Point(395, 396), Point(389, 397), Point(397, 398), Point(398, 399), Point(399, 400), Point(400, 401), Point(401, 402), Point(401, 403), Point(402, 403), Point(401, 404), Point(404, 405), Point(405, 406), Point(406, 407), Point(407, 408), Point(404, 409),
Point(409, 402), Point(404, 402), Point(403, 410), Point(410, 410), Point(410, 411), Point(408, 412), Point(412, 413), Point(413, 414), Point(414, 415), Point(415, 416), Point(416, 417), Point(417, 418), Point(408, 419), Point(419, 420), Point(420, 421), Point(421, 422), Point(422, 423), Point(423, 424), Point(424, 425), Point(425, 426), Point(426, 427), Point(427, 428), Point(428, 429), Point(429, 430), Point(430, 431), Point(421, 432), Point(432, 422), Point(432, 433), Point(433, 434), Point(434, 435), Point(435, 436), Point(436, 437), Point(437, 438), Point(438, 439), Point(439, 440), Point(441, 442), Point(442, 443), Point(443, 444), Point(444, 445), Point(445, 446), Point(446, 447), Point(447, 448), Point(448, 449), Point(449, 422), Point(432, 449), Point(448, 432), Point(433, 450), Point(450, 451), Point(451, 452), Point(452, 453), Point(453, 416), Point(449, 454), Point(454, 455), Point(455, 456), Point(456, 457), Point(457, 458), Point(458, 459), Point(459, 460), Point(460, 461), Point(461, 462),
Point(462, 463), Point(463, 464), Point(464, 465), Point(465, 466), Point(466, 427), Point(430, 467), Point(467, 468), Point(468, 469), Point(469, 470), Point(470, 471), Point(471, 472), Point(472, 473), Point(473, 474), Point(474, 475), Point(470, 476), Point(476, 477), Point(477, 478), Point(478, 479), Point(479, 480), Point(480, 481), Point(481, 482), Point(482, 483), Point(483, 484), Point(484, 485), Point(485, 486), Point(488, 489), Point(489, 490), Point(490, 491), Point(491, 492), Point(492, 493), Point(493, 494), Point(493, 495), Point(495, 496), Point(496, 497), Point(497, 498), Point(498, 499), Point(499, 500), Point(500, 477), Point(486, 501), Point(501, 502), Point(502, 503), Point(503, 504), Point(504, 505), Point(505, 506), Point(505, 507), Point(503, 508), Point(508, 509), Point(509, 485), Point(484, 510), Point(511, 490), Point(487, 512), Point(512, 513), Point(513, 488), Point(510, 514), Point(514, 515), Point(515, 511), Point(507, 516), Point(516, 517), Point(506, 518), Point(518, 519),
Point(519, 520), Point(520, 521), Point(521, 522), Point(522, 523), Point(523, 524), Point(524, 525), Point(525, 526), Point(526, 527), Point(527, 528), Point(528, 529), Point(529, 530), Point(530, 431), Point(507, 531), Point(531, 532), Point(532, 533), Point(533, 534), Point(534, 535), Point(535, 536), Point(536, 537), Point(517, 538), Point(538, 539), Point(539, 540), Point(540, 541), Point(541, 542), Point(542, 543), Point(543, 544), Point(544, 545), Point(545, 546), Point(546, 547), Point(547, 548), Point(548, 549), Point(549, 550), Point(550, 551), Point(551, 552), Point(552, 553), Point(553, 554), Point(554, 555), Point(555, 556), Point(556, 557), Point(557, 558), Point(558, 559), Point(559, 560), Point(560, 561), Point(561, 562), Point(562, 563), Point(563, 564), Point(564, 565), Point(565, 566), Point(560, 568), Point(568, 569), Point(569, 570), Point(570, 571), Point(571, 572), Point(572, 573), Point(537, 575), Point(575, 576), Point(576, 577), Point(577, 578), Point(578, 579), Point(579, 580),
Point(580, 581), Point(581, 582), Point(582, 583), Point(583, 584), Point(584, 585), Point(585, 586), Point(586, 587), Point(587, 588), Point(588, 589), Point(589, 590), Point(590, 591), Point(591, 592), Point(592, 593), Point(593, 594), Point(594, 595), Point(595, 596), Point(596, 597), Point(597, 598), Point(598, 599), Point(574, 600), Point(573, 601), Point(601, 574), Point(601, 602), Point(594, 603), Point(603, 604), Point(604, 605), Point(605, 606), Point(606, 607), Point(607, 608), Point(608, 609), Point(609, 610), Point(610, 611), Point(611, 612), Point(612, 613), Point(613, 598), Point(613, 599), Point(611, 614), Point(614, 615), Point(602, 616), Point(616, 617), Point(617, 567), Point(566, 618), Point(618, 619), Point(619, 617), Point(567, 619), Point(599, 620), Point(620, 615), Point(620, 567), Point(620, 617), Point(587, 621), Point(621, 622), Point(622, 585), Point(622, 623), Point(623, 583), Point(610, 624), Point(624, 625), Point(625, 626), Point(626, 627), Point(627, 628), Point(628, 629),
Point(629, 630), Point(630, 631), Point(631, 618), Point(631, 566), Point(627, 632), Point(632, 633), Point(633, 634), Point(583, 635), Point(635, 636), Point(636, 637), Point(637, 638), Point(638, 639), Point(581, 640), Point(640, 636), Point(581, 641), Point(641, 642), Point(642, 643), Point(643, 644), Point(644, 645), Point(645, 646), Point(646, 624), Point(625, 646), Point(639, 647), Point(647, 648), Point(648, 649), Point(649, 650), Point(650, 651), Point(650, 652), Point(652, 653), Point(652, 651), Point(651, 654), Point(654, 655), Point(655, 656), Point(656, 657), Point(647, 658), Point(658, 659), Point(659, 660), Point(660, 661), Point(661, 662), Point(658, 648), Point(657, 663), Point(591, 664), Point(664, 590), Point(664, 665), Point(665, 666), Point(666, 667), Point(667, 668), Point(668, 669), Point(669, 670), Point(560, 671), Point(671, 672), Point(672, 673), Point(673, 674), Point(674, 675), Point(675, 676), Point(676, 677), Point(677, 678), Point(678, 679), Point(680, 681), Point(681, 682),
Point(682, 683), Point(683, 684), Point(684, 685), Point(685, 686), Point(686, 687), Point(687, 688), Point(688, 689), Point(689, 386), Point(547, 690), Point(690, 691), Point(691, 692), Point(693, 694), Point(694, 427), Point(695, 696), Point(696, 697), Point(697, 541), Point(697, 542), Point(634, 698), Point(698, 699), Point(699, 695), Point(695, 700), Point(700, 699), Point(700, 701), Point(701, 547), Point(559, 702), Point(702, 680), Point(558, 560), Point(558, 703), Point(703, 704), Point(704, 705), Point(705, 706), Point(706, 707), Point(707, 708), Point(708, 709), Point(709, 710), Point(710, 711), Point(711, 712), Point(712, 713), Point(713, 714), Point(714, 407), Point(714, 408), Point(708, 715), Point(715, 716), Point(716, 717), Point(717, 718), Point(718, 719), Point(719, 694), Point(692, 720), Point(720, 721), Point(721, 722), Point(722, 693), Point(440, 723), Point(723, 441), Point(441, 724), Point(724, 725), Point(725, 726), Point(726, 727), Point(727, 728), Point(728, 458), Point(501, 729),
Point(486, 730), Point(730, 501), Point(729, 730), Point(730, 487), Point(487, 513), Point(663, 731), Point(731, 732), Point(731, 733), Point(733, 732), Point(733, 734), Point(674, 735), Point(735, 736), Point(736, 737), Point(737, 738), Point(738, 680), Point(273, 739), Point(739, 274), Point(739, 740), Point(740, 741), Point(741, 742), Point(742, 743), Point(743, 744), Point(744, 745), Point(745, 746), Point(746, 747), Point(747, 748), Point(748, 749), Point(749, 750), Point(750, 751), Point(751, 752), Point(752, 753), Point(753, 754), Point(754, 755), Point(755, 756), Point(756, 757), Point(757, 758), Point(758, 759)];
End;
begin
SetupSRL;
SetUpReflection;
LoadWeb;
StartForm('CLocForm');
LoadWorldM;
LoadNodes('WorldM');
Locform.ShowModal;//shows the form
Locform.Free;//frees the object so it doesn't rape your memory
end.