Whats wrong?

[Incommodious]

i dont understand whats wrong with this, and if it isnt too much proper indenting would be much appreciated

 

 

Program AutoMeleeRelog;
 var x, y :Integer;
 const


 User='account99';      //Username
 Pass='password';       //Password
 Character=1;            //Character 1=Top 2=Middle 3=Bottom
 Monster1=1638350;   //Monsters Color ID (Based on Incommodiouses Patch)
 Mage=f2 ;                //Mage can be f1, f2, or but not the same as Heal




Procedure Relog;  
  begin                                    
   Wait(500)
   Findcolor(x,y,8107462,69,359,161,385);          
   ClickMouse(x,y,true);                 
     Wait(100)                                 
   ClickMouse(412,359,true);               
     Wait(100)                 
     TypeText(User);                  
       Wait(100)                             
   ClickMouse(412,395,true);                      
     Wait(100)                                     
     TypeText(Pass+chr(13));                       
 FindColor(x,y,8109518,380,425,433,443);           
   ClickMouse(x,y,true);                           
     Wait(200)                                     
   ClickMouse(542,141,true);
   begin                                               
if Character=1 then begin
    Wait(500) 
  ClickMouse(543,141,true);
end;
 if Character=2 then begin                              ,
     Wait(500)
  ClickMouse(543,266,true);
end;
if Character=3 then begin
    Wait(500)
 ClickMouse(543,388,true);
end;                       
if (findcolor(x,y,10079232,359,312,439,336)) then   
  begin                                           
     ClickMouse(x,y,true);                         
      Findcolor(x,y,8107462,69,359,161,385);       
   ClickMouse(x,y,true);                           
     Wait(100)                                     
   ClickMouse(412,359,true);                       
     Wait(100)                                     
     TypeText(User);                              
       Wait(100)                                  
   ClickMouse(412,395,true);                       
     Wait(100)                                    
     TypeText(Pass+chr(13));                       
     end else                                     
   begin                                           
       MoveMouse(542,139)                          
    end;
     begin                                               
if Character=1 then begin
   Wait(500)
  ClickMouse(543,141,true);
end;
 if Character=2 then begin                            
     Wait(500)
  ClickMouse(543,266,true);
end;
if Character=3 then begin
    Wait(500)
 ClickMouse(543,388,true);
end;
   end;                                          
 end;                                                
begin                                               
if Character=1 then begin
  ClickMouse(543,141,true);
end;
 if Character=2 then begin                             
  ClickMouse(543,266,true);
end;
if Character=3 then begin
 ClickMouse(543,388,true);
end;
 end;  
  end;                                                 

Procedure Logout;
begin
ClickMouse(600,56,true);
  Wait(250)
FindColor(x,y,10079232,168,128,460,256);
ClickMouse(x,y,true);
end;                                                

Procedure Mage;   
var
 x, y: Integer;  
begin
 repeat
   if FindColor(x, y, monster1,  29,51,636,508) then
   begin
     If mage=f2 then     
    begin
    VKeyDown(113);
     Wait(200);
     VKeyUp(113);
     ClickMouse(x, y, mbLeft);
     Wait(1250);
     end begin
     If mage=f1 then     
     VKeyDown(VK_F1);
       Wait(200);
     VKeyUp(VK_F1);
     ClickMouse(x, y, mbLeft);  
     end;
     end;
   end;   
  end;
 until False;
end. 

begin
 Relog
end.  

[LordJashin]

I fixed the compile errors but you have some serious wrong scripting going on. I suggest you look at the All In One Beginner's Tutorial for SCAR Divi.

 

[scar]

Program AutoMeleeRelog;

var x, y :Integer;

const

User='account99'; //Username

Pass='password'; //Password

Character=1; //Character 1=Top 2=Middle 3=Bottom

Monster1=1638350; //Monsters Color ID (Based on Incommodiouses Patch)

Mage= 'f2'; //Mage can be f1, f2, or but not the same as Heal

 

 

 

 

Procedure Relog;

begin

Wait(500)

Findcolor(x,y,8107462,69,359,161,385);

ClickMouse(x,y,true);

Wait(100)

ClickMouse(412,359,true);

Wait(100)

TypeText(User);

Wait(100)

ClickMouse(412,395,true);

Wait(100)

TypeText(Pass+chr(13));

FindColor(x,y,8109518,380,425,433,443);

ClickMouse(x,y,true);

Wait(200)

ClickMouse(542,141,true);

begin

if Character=1 then begin

Wait(500)

ClickMouse(543,141,true);

end;

if Character=2 then begin

Wait(500)

ClickMouse(543,266,true);

end;

if Character=3 then begin

Wait(500)

ClickMouse(543,388,true);

end;

if (findcolor(x,y,10079232,359,312,439,336)) then

begin

ClickMouse(x,y,true);

Findcolor(x,y,8107462,69,359,161,385);

ClickMouse(x,y,true);

Wait(100)

ClickMouse(412,359,true);

Wait(100)

TypeText(User);

Wait(100)

ClickMouse(412,395,true);

Wait(100)

TypeText(Pass+chr(13));

end else

begin

MoveMouse(542,139)

end;

begin

if Character=1 then begin

Wait(500)

ClickMouse(543,141,true);

end;

if Character=2 then begin

Wait(500)

ClickMouse(543,266,true);

end;

if Character=3 then begin

Wait(500)

ClickMouse(543,388,true);

end;

end;

end;

begin

if Character=1 then begin

ClickMouse(543,141,true);

end;

if Character=2 then begin

ClickMouse(543,266,true);

end;

if Character=3 then begin

ClickMouse(543,388,true);

end;

end;

end;

 

Procedure Logout;

begin

ClickMouse(600,56,true);

Wait(250)

FindColor(x,y,10079232,168,128,460,256);

ClickMouse(x,y,true);

end;

 

Procedure Mage1;

var

x, y: Integer;

begin

repeat

if FindColor(x, y, monster1, 29,51,636,508) then

begin

If mage='f2' then

begin

VKeyDown(113);

Wait(200);

VKeyUp(113);

ClickMouse(x, y, mbLeft);

Wait(1250);

end; begin

If mage='f1' then

VKeyDown(VK_F1);

Wait(200);

VKeyUp(VK_F1);

ClickMouse(x, y, mbLeft);

end;

end;

until False;

end;

 

begin

Relog

end.

[/scar]