//this is the 1st version and needs sorting out, feel free to edit it//

program barbyagil;

const
startsquare = 1322811;
shrubery = 5281928;
rope = 13115;
log = 540263;
net = 1448996;
ledge = 3500160;
ladder = 2708852;
path = 2049110;
wall1 = 8750479;
wall2 = 8750479;
wall3 = 8750479;
finishsquare = 1719113;

var
x,y,n,m,g,h,o,p,d,f,a,s,u,r,t,z,c: integer;
swingrope,walklog,climb,walklog2,pathwalk: integer;

procedure stop3;
begin;
sleep(5000+random(5000));
end;

procedure backtostart23;
begin
     findcolor(z,c,startsquare,382,155,405,169)
     movemousesmooth((z+3),c);
     wait(200+random(100));
     clickmouse((z+3),c,true)
     wait(5000+random(1000));
     stop3;
end;

procedure backtostart13;
begin
     findcolor(r,t,finishsquare,393,178,418,199)
     movemousesmooth((r+4),t)
     wait(200+random(100));
     clickmouse((r+4),t,true)
     wait(5000+random(1000));
     backtostart23;
end;

procedure clickwall33;
begin
     movemousesmooth(x,y);
     wait(300+random(100));
     clickmouse(x,y,true);
     wait(7000+random(1000));
     backtostart13;
end;

procedure wall3climb3;
begin
     findcolor(g,h,wall2,314,163,371,211)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall33;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall3climb3;
end;

procedure clickwall53;
begin
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,true);
     wait(6000+random(1000));
     wall3climb3;
end;

procedure wall2climb3;
begin
     findcolor(g,h,wall2,314,163,371,211)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall53;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall2climb3;
end;

procedure clickwall3;
begin
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,true);
     wait(6000+random(1000));
     wall2climb3;
end;

procedure wall1climb3;
begin
     findcolor(g,h,wall1,315,43,456,162)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall3;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall1climb3;
end;

procedure clickpath3;
begin
     movemousesmooth((y+50),u);
     wait(200+random(100));
     clickmouse((y+50),u,true);
     wait(200+random(100));
     clickmouse((y+50),u,true);
     wait(5000+random(1000));
     wall1climb3;
end;

procedure walkpath3;
begin
  pathwalk := BitmapFromString(28, 8, 'z78DA73734300531753131' +
       '3734CD28D0835C490B8CC7123D10D0660409E1A52DD896C0EB5DC' +
       '30EA4E4ADC80995AF09BE3860350E24E62DC408C082EBDB86C21D' +
       'E9DC49849AA3BF1DB427CFCE277217DC2933C7762C60500CC883D' +
       '62');
     findcolor(a,s,path,226,14,310,78)
     movemousesmooth(a,s);
     wait(200+random(100));
     clickmouse(a,s,false);
     wait(200+random(100));
     if(findbitmap(pathwalk,y,u)=true)
     then
     clickpath3;
     if(findbitmap(pathwalk,y,u)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     walkpath3;
end;

procedure climbdown3;
begin
     movemousesmooth(o,p);
     wait(100+random(100));
     clickmouse(o,p,true);
     wait(5000+random(1000));
     walkpath3;
end;

procedure downladder3;
begin
  climb := BitmapFromString(23, 7, 'z78DA337531353131774302A6' +
       '6011DA91F8ED4296350003FAB804D3AEC1EF125AC41A256162800' +
       '470E9C205F0BB045325A96182A91EBF08317A8977097E716244F0' +
       '9B09009846E0C8');
     findcolor(d,f,ladder,232,189,296,240)
     movemousesmooth(d,f)
     wait(200+random(100));
     clickmouse(d,f,false)
     wait(200+random(100));
     if(findbitmap(climb,o,p)=true)
     then
     climbdown3;
     if(findbitmap(climb,o,p)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     downladder3;
end;

procedure startcross3;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(7000+random(1000));
     downladder3;
end;

procedure ledgecross3;
begin
     findcolor(g,h,ledge,159,98,228,198)
     movemousesmooth(g,h);
     wait(200+random(100));
     clickmouse(g,h,false);
     wait(200+random(200));
     if(findbitmap(walklog,n,m)=true)
     then
     startcross3;
     if(findbitmap(walklog,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     ledgecross3;
end;

procedure startclimb3;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(5000+random(1000));
     ledgecross3;
end;

procedure netclimb3;
begin
  climb := BitmapFromString(23, 7, 'z78DA337531353131774302A6' +
       '6011DA91F8ED4296350003FAB804D3AEC1EF125AC41A256162800' +
       '470E9C205F0BB045325A96182A91EBF08317A8977097E716244F0' +
       '9B09009846E0C8');
     findcolor(x,y,net,70,120,200,220)
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,false);
     wait(200+random(200));
     if(findbitmap(climb,n,m)=true)
     then
     startclimb3;
     if(findbitmap(climb,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     netclimb3;
end;

procedure startwalk3;
begin
     movemousesmooth(x,y);
     wait(100+random(100));
     clickmouse(x,y,true);
     wait(12000+random(1000));
     netclimb3;
end;

procedure logwalk3;
begin
  walklog := BitmapFromString(45, 4, 'z78DA33753135313177C301' +
       '4CC1B2982431EA8937935AB6936A3E7E371B200152D523035C6EC' +
       '0AF865AB613633E2EF5C4841E7EF389894162EC25DE165AA464E2' +
       '63875AA141BC1A62F412939648550F00D1ECFED4');
  walklog2 := BitmapFromString(28, 1, 'z78DA737373733330700393' +
       'A62EA62626E698A41B116A88217199438CF90088EC25C5');
     findcolor(g,h,log,195,212,308,339)
     movemousesmooth(g,h)
     wait(100+random(100));
     clickmouse(g,h,false);
     wait(200+random(100));
     if(findbitmap(walklog2,x,y))or(findbitmap(walklog,x,y)=true)
     then
     startwalk3;
     if(findbitmap(walklog,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     logwalk3;
end;

procedure backtostartafterescape13;
begin
          findcolor(x,y,shrubery,267,0,406,23)
          movemousesmooth(x,(y+65))
          wait(200+random(100));
          clickmouse(x,(y+65),true);
          stop3;
end;

procedure escape13;
begin
     findcolor(g,h,ladder,0,0,517,343)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,true);
     wait(5000+random(1000));
     backtostartafterescape13;
end;

procedure startswing3;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     sleep(5000+random(1000));
     if(findcolor(a,s,65280,0,0,517,343)=true)
     then
     escape13;
     if(findcolor(a,s,65280,0,0,517,343)=false)
     then
     logwalk3;
end;

procedure ropeswing3;
begin
  swingrope := BitmapFromString(29, 7, 'z78DA3375313531313725' +
       '8B744302A61498435D7BF1CB1A20014CF59880183710EF1E647BF' +
       '1CBE23213D346882E62D423FB9D78F5C86A88712D7E714CDBC933' +
       '8798B8A3852DD4752D66680C1ED722CBE2CA35F87313B56CC71FA' +
       '7004AA820B8');
     findcolor(x,y,rope,170,150,325,230)
     movemousesmooth(x,y);
     wait(300+random(100));
     clickmouse(x,y,false);
     wait(200+random(100));
     if(findbitmap(swingrope,n,m)=true)
     then
     startswing3;
     if(findbitmap(swingrope,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     ropeswing3;
end;

procedure stop2;
begin;
sleep(5000+random(5000));
ropeswing3;
end;

procedure backtostart22;
begin
     findcolor(z,c,startsquare,382,155,405,169)
     movemousesmooth((z+3),c);
     wait(200+random(100));
     clickmouse((z+3),c,true)
     wait(5000+random(1000));
     stop2;
end;

procedure backtostart12;
begin
     findcolor(r,t,finishsquare,393,178,418,199)
     movemousesmooth((r+4),t)
     wait(200+random(100));
     clickmouse((r+4),t,true)
     wait(5000+random(1000));
     backtostart22;
end;

procedure clickwall32;
begin
     movemousesmooth(x,y);
     wait(300+random(100));
     clickmouse(x,y,true);
     wait(7000+random(1000));
     backtostart12;
end;

procedure wall3climb2;
begin
     findcolor(g,h,wall2,314,163,371,211)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall32;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall3climb2;
end;

procedure clickwall22;
begin
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,true);
     wait(6000+random(1000));
     wall3climb2;
end;

procedure wall2climb2;
begin
     findcolor(g,h,wall2,314,163,371,211)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall22;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall2climb2;
end;

procedure clickwall2;
begin
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,true);
     wait(6000+random(1000));
     wall2climb2;
end;

procedure wall1climb2;
begin
     findcolor(g,h,wall1,315,43,456,162)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall2;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall1climb2;
end;

procedure clickpath2;
begin
     movemousesmooth((y+50),u);
     wait(200+random(100));
     clickmouse((y+50),u,true);
     wait(200+random(100));
     clickmouse((y+50),u,true);
     wait(5000+random(1000));
     wall1climb2;
end;

procedure walkpath2;
begin
  pathwalk := BitmapFromString(28, 8, 'z78DA73734300531753131' +
       '3734CD28D0835C490B8CC7123D10D0660409E1A52DD896C0EB5DC' +
       '30EA4E4ADC80995AF09BE3860350E24E62DC408C082EBDB86C21D' +
       'E9DC49849AA3BF1DB427CFCE277217DC2933C7762C60500CC883D' +
       '62');
     findcolor(a,s,path,226,14,310,78)
     movemousesmooth(a,s);
     wait(200+random(100));
     clickmouse(a,s,false);
     wait(200+random(100));
     if(findbitmap(pathwalk,y,u)=true)
     then
     clickpath2;
     if(findbitmap(pathwalk,y,u)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     walkpath2;
end;

procedure climbdown2;
begin
     movemousesmooth(o,p);
     wait(100+random(100));
     clickmouse(o,p,true);
     wait(5000+random(1000));
     walkpath2;
end;

procedure downladder2;
begin
  climb := BitmapFromString(23, 7, 'z78DA337531353131774302A6' +
       '6011DA91F8ED4296350003FAB804D3AEC1EF125AC41A256162800' +
       '470E9C205F0BB045325A96182A91EBF08317A8977097E716244F0' +
       '9B09009846E0C8');
     findcolor(d,f,ladder,232,189,296,240)
     movemousesmooth(d,f)
     wait(200+random(100));
     clickmouse(d,f,false)
     wait(200+random(100));
     if(findbitmap(climb,o,p)=true)
     then
     climbdown2;
     if(findbitmap(climb,o,p)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     downladder2;
end;

procedure startcross2;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(7000+random(1000));
     downladder2;
end;

procedure ledgecross2;
begin
     findcolor(g,h,ledge,159,98,228,198)
     movemousesmooth(g,h);
     wait(200+random(100));
     clickmouse(g,h,false);
     wait(200+random(200));
     if(findbitmap(walklog,n,m)=true)
     then
     startcross2;
     if(findbitmap(walklog,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     ledgecross2;
end;

procedure startclimb2;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(5000+random(1000));
     ledgecross2;
end;

procedure netclimb2;
begin
  climb := BitmapFromString(23, 7, 'z78DA337531353131774302A6' +
       '6011DA91F8ED4296350003FAB804D3AEC1EF125AC41A256162800' +
       '470E9C205F0BB045325A96182A91EBF08317A8977097E716244F0' +
       '9B09009846E0C8');
     findcolor(x,y,net,70,120,200,220)
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,false);
     wait(200+random(200));
     if(findbitmap(climb,n,m)=true)
     then
     startclimb2;
     if(findbitmap(climb,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     netclimb2;
end;

procedure startwalk2;
begin
     movemousesmooth(x,y);
     wait(100+random(100));
     clickmouse(x,y,true);
     wait(12000+random(1000));
     netclimb2;
end;

procedure logwalk2;
begin
  walklog := BitmapFromString(45, 4, 'z78DA33753135313177C301' +
       '4CC1B2982431EA8937935AB6936A3E7E371B200152D523035C6EC' +
       '0AF865AB613633E2EF5C4841E7EF389894162EC25DE165AA464E2' +
       '63875AA141BC1A62F412939648550F00D1ECFED4');
  walklog2 := BitmapFromString(28, 1, 'z78DA737373733330700393' +
       'A62EA62626E698A41B116A88217199438CF90088EC25C5');
     findcolor(g,h,log,195,212,308,339)
     movemousesmooth(g,h)
     wait(100+random(100));
     clickmouse(g,h,false);
     wait(200+random(100));
     if(findbitmap(walklog2,x,y))or(findbitmap(walklog,x,y)=true)
     then
     startwalk2;
     if(findbitmap(walklog,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     logwalk2;
end;

procedure backtostartafterescape12;
begin
          findcolor(x,y,shrubery,267,0,406,23)
          movemousesmooth(x,(y+65))
          wait(200+random(100));
          clickmouse(x,(y+65),true);
          stop2;
end;

procedure escape12;
begin
     findcolor(g,h,ladder,0,0,517,343)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,true);
     wait(5000+random(1000));
     backtostartafterescape12;
end;

procedure startswing2;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     sleep(5000+random(1000));
     if(findcolor(a,s,65280,0,0,517,343)=true)
     then
     escape12;
     if(findcolor(a,s,65280,0,0,517,343)=false)
     then
     logwalk2;
end;

procedure ropeswing2;
begin
  swingrope := BitmapFromString(29, 7, 'z78DA3375313531313725' +
       '8B744302A61498435D7BF1CB1A20014CF59880183710EF1E647BF' +
       '1CBE23213D346882E62D423FB9D78F5C86A88712D7E714CDBC933' +
       '8798B8A3852DD4752D66680C1ED722CBE2CA35F87313B56CC71FA' +
       '7004AA820B8');
     findcolor(x,y,rope,170,150,325,230)
     movemousesmooth(x,y);
     wait(300+random(100));
     clickmouse(x,y,false);
     wait(200+random(100));
     if(findbitmap(swingrope,n,m)=true)
     then
     startswing2;
     if(findbitmap(swingrope,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     ropeswing2;
end;

procedure stop;
begin;
sleep(5000+random(5000));
ropeswing2;
end;

procedure backtostart2;
begin
     findcolor(z,c,startsquare,382,155,405,169)
     movemousesmooth((z+3),c);
     wait(200+random(100));
     clickmouse((z+3),c,true)
     wait(5000+random(1000));
     stop;
end;

procedure backtostart1;
begin
     findcolor(r,t,finishsquare,393,178,418,199)
     movemousesmooth((r+4),t)
     wait(200+random(100));
     clickmouse((r+4),t,true)
     wait(5000+random(1000));
     backtostart2;
end;

procedure clickwall332;
begin
     movemousesmooth(x,y);
     wait(300+random(100));
     clickmouse(x,y,true);
     wait(7000+random(1000));
     backtostart1;
end;

procedure wall3climb;
begin
     findcolor(g,h,wall2,314,163,371,211)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall332;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall3climb;
end;

procedure clickwall5;
begin
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,true);
     wait(6000+random(1000));
     wall3climb;
end;

procedure wall2climb;
begin
     findcolor(g,h,wall2,314,163,371,211)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall5;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall2climb;
end;

procedure clickwall;
begin
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,true);
     wait(6000+random(1000));
     wall2climb;
end;

procedure wall1climb;
begin
     findcolor(g,h,wall1,315,43,456,162)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,false)
     wait(200+random(100));
     if(findbitmap(climb,x,y)=true)
     then
     clickwall;
     if(findbitmap(climb,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     wall1climb;
end;

procedure clickpath;
begin
     movemousesmooth((y+50),u);
     wait(200+random(100));
     clickmouse((y+50),u,true);
     wait(200+random(100));
     clickmouse((y+50),u,true);
     wait(5000+random(1000));
     wall1climb;
end;

procedure walkpath;
begin
  pathwalk := BitmapFromString(28, 8, 'z78DA73734300531753131' +
       '3734CD28D0835C490B8CC7123D10D0660409E1A52DD896C0EB5DC' +
       '30EA4E4ADC80995AF09BE3860350E24E62DC408C082EBDB86C21D' +
       'E9DC49849AA3BF1DB427CFCE277217DC2933C7762C60500CC883D' +
       '62');
     findcolor(a,s,path,226,14,310,78)
     movemousesmooth(a,s);
     wait(200+random(100));
     clickmouse(a,s,false);
     wait(200+random(100));
     if(findbitmap(pathwalk,y,u)=true)
     then
     clickpath;
     if(findbitmap(pathwalk,y,u)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     walkpath;
end;

procedure climbdown;
begin
     movemousesmooth(o,p);
     wait(100+random(100));
     clickmouse(o,p,true);
     wait(5000+random(1000));
     walkpath;
end;

procedure downladder;
begin
  climb := BitmapFromString(23, 7, 'z78DA337531353131774302A6' +
       '6011DA91F8ED4296350003FAB804D3AEC1EF125AC41A256162800' +
       '470E9C205F0BB045325A96182A91EBF08317A8977097E716244F0' +
       '9B09009846E0C8');
     findcolor(d,f,ladder,232,189,296,240)
     movemousesmooth(d,f)
     wait(200+random(100));
     clickmouse(d,f,false)
     wait(200+random(100));
     if(findbitmap(climb,o,p)=true)
     then
     climbdown;
     if(findbitmap(climb,o,p)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     downladder;
end;

procedure startcross;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(7000+random(1000));
     downladder;
end;

procedure ledgecross;
begin
     findcolor(g,h,ledge,159,98,228,198)
     movemousesmooth(g,h);
     wait(200+random(100));
     clickmouse(g,h,false);
     wait(200+random(200));
     if(findbitmap(walklog,n,m)=true)
     then
     startcross;
     if(findbitmap(walklog,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     ledgecross;
end;

procedure startclimb;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(5000+random(1000));
     ledgecross;
end;

procedure netclimb;
begin
  climb := BitmapFromString(23, 7, 'z78DA337531353131774302A6' +
       '6011DA91F8ED4296350003FAB804D3AEC1EF125AC41A256162800' +
       '470E9C205F0BB045325A96182A91EBF08317A8977097E716244F0' +
       '9B09009846E0C8');
     findcolor(x,y,net,70,120,200,220)
     movemousesmooth(x,y);
     wait(200+random(100));
     clickmouse(x,y,false);
     wait(200+random(200));
     if(findbitmap(climb,n,m)=true)
     then
     startclimb;
     if(findbitmap(climb,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     netclimb;
end;

procedure startwalk;
begin
     movemousesmooth(x,y);
     wait(100+random(100));
     clickmouse(x,y,true);
     wait(12000+random(1000));
     netclimb;
end;

procedure logwalk;
begin
  walklog := BitmapFromString(45, 4, 'z78DA33753135313177C301' +
       '4CC1B2982431EA8937935AB6936A3E7E371B200152D523035C6EC' +
       '0AF865AB613633E2EF5C4841E7EF389894162EC25DE165AA464E2' +
       '63875AA141BC1A62F412939648550F00D1ECFED4');
  walklog2 := BitmapFromString(28, 1, 'z78DA737373733330700393' +
       'A62EA62626E698A41B116A88217199438CF90088EC25C5');
     findcolor(g,h,log,195,212,308,339)
     movemousesmooth(g,h)
     wait(100+random(100));
     clickmouse(g,h,false);
     wait(200+random(100));
     if(findbitmap(walklog2,x,y))or(findbitmap(walklog,x,y)=true)
     then
     startwalk;
     if(findbitmap(walklog,x,y)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     logwalk;
end;

procedure backtostartafterescape1;
begin
          findcolor(x,y,shrubery,267,0,406,23)
          movemousesmooth(x,(y+65))
          wait(200+random(100));
          clickmouse(x,(y+65),true);
          stop;
end;

procedure escape1;
begin
     findcolor(g,h,ladder,0,0,517,343)
     movemousesmooth(g,h)
     wait(200+random(100));
     clickmouse(g,h,true);
     wait(5000+random(1000));
     backtostartafterescape1;
end;

procedure startswing;
begin
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     sleep(5000+random(1000));
     if(findcolor(a,s,65280,0,0,517,343)=true)
     then
     escape1;
     if(findcolor(a,s,65280,0,0,517,343)=false)
     then
     logwalk;
end;

procedure ropeswing;
begin
  swingrope := BitmapFromString(29, 7, 'z78DA3375313531313725' +
       '8B744302A61498435D7BF1CB1A20014CF59880183710EF1E647BF' +
       '1CBE23213D346882E62D423FB9D78F5C86A88712D7E714CDBC933' +
       '8798B8A3852DD4752D66680C1ED722CBE2CA35F87313B56CC71FA' +
       '7004AA820B8');
     findcolor(x,y,rope,170,150,325,230)
     movemousesmooth(x,y);
     wait(300+random(100));
     clickmouse(x,y,false);
     wait(200+random(100));
     if(findbitmap(swingrope,n,m)=true)
     then
     startswing;
     if(findbitmap(swingrope,n,m)=false)
     then
     movemousesmooth(0,0)
     wait(200+random(100));
     clickmouse(0,0,true)
     wait(1000+random(1000));
     ropeswing;
end;

procedure prepare;
begin
     writeln('here we go');
     ropeswing;
end;

begin;
      prepare;
end.