SRL Archive - Help and Support

if getting this error: Line 960: [Error] (16124:42): Type mismatch in script
i donno why..can someone figure it out please! here's the part

     if FindDtm(Ring,x,y,MSX1,MSY1,MSX2,MSY2) then //line 960
     begin
       Mouse(x,y,4,4,true)
       NoRing:=False;
     end else

Did you forget a begin/end near line 960 ? That sometimes triggers that error.

a type mismatch? i dont think so…ill check again
edit:nope begin/ends are fine

Is Ring declared as an Integer?

yepp

Can you post the procedure/function it's in? It could be a line above or below it.

   if(UseRing) then
    if (NoRing) then
     if (Players[CurrentPlayer].strings[0]='Iron') then
   begin
     if FindDtm(Ring,x,y,MSX1,MSY1,MSX2,MSY2) then
     begin
       Mouse(x,y,4,4,true)
       NoRing:=False;
     end else
     begin

theres somemore

sorry for the double post but i still dont have an answer
heres the whole proc

Procedure WithdrawOres(option1,option2:string;amount1,amount2,rock1,rock2:integer;Ring:boolean);
Begin
 if (not(Loggedin)) then exit;
 if rock2=0 then
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,3,3,false)
     repeat
       wait(10)
     Until(ChooseOption('All'))
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     exit;
   end;
 end else
 begin
   if FindDTM(rock1,x,y,MSX1,MSY1,MSX2,MSY2) then
   Begin
     repeat
       Mouse(x,y,3,3,false)
       wait(10)
     Until(ChooseOption(option1))
     if option1='X' then
     begin
       if FindT then
       TypeSend(inttostr(amount1))
     end;
     If FindDTM(Rock2,x,y,MSX1,MSY1,MSX2,MSY2) then
     Begin
       repeat
         Mouse(x,y,3,3,false)
         wait(10)
       Until(ChooseOption(option2))
       if option2='X' then
       begin
         if FindT then
         TypeSend(inttostr(amount2))
       end;
     end else
     Begin
       Writeln('Didnt Find Ores...Logging Out')
       closebank;
       closebank;
       Logout2;
       exit;
     end;
   end else
   Begin
     Writeln('Didnt Find Ores...Logging Out')
     closebank;
     closebank;
     Logout2;
     exit;
   end;
   if (NoMould) then
    if ((Players[CurrentPlayer].strings[0]='or-ball') or
     (Players[CurrentPlayer].strings[0]='st-ball')) then
   if FindDtm(mould,x,y,MSX1,MSY1,MSX2,MSY2) then
   begin
     Mouse(x,y,4,4,true)
     NoMould:=False;
   end else
   begin
     Writeln('Didnt Find Mould...')
     closebank;
     closebank;
     Logout2;
     exit;
   end;
   if(UseRing) then
    if (NoRing) then
     if lowercase(Players[CurrentPlayer].strings[0]) = 'iron' then
   begin
     if FindDtm(Ring,x,y,MSX1,MSY1,MSX2,MSY2) then//heres the screw up. on the MSY2
     begin
       Mouse(x,y,4,4,true)
       NoRing:=False;
     end else
     begin
       Writeln('Didnt Find Mould...')
       closebank;
       closebank;
       Logout2;
       exit;
     end;
   end;
 end;
end;

hmmm, type mismatches are misuses of types. Did you declare x and y as integers?

check all your types

it worked fine until i put this in vv

   if(UseRing) then
    if (NoRing) then
     if lowercase(Players[CurrentPlayer].strings[0]) = 'iron' then
   begin
     if FindDtm(Ring,x,y,MSX1,MSY1,MSX2,MSY2) then//heres the screw up. on the MSY2
     begin
       Mouse(x,y,4,4,true)
       NoRing:=False;
     end else
     begin
       Writeln('Didnt Find Mould...')
       closebank;
       closebank;
       Logout2;
       exit;
     end;
   end;

You have Ring as one of the arguments for the function, and also as a DTM. Change the name of one and that should fix your problems.

man i knew it was something simple. thanks Method!

edit: Yep Fixed!! thanks alot

Good luck.


But I'm really posting 'cause I lost the game. I'm serious this time. Its haunting me.

uhh spam much…