Simba Help

[Serevi]

Been working on a script that Google failed to help me on. Brought me here at least.

I want it to activate a loop, and deactivate it as well by pressing a button. Here's what I was trying, but it refuses to work. (Script instantly stops without an error)

If IsKeyDown(33) = true then
begin
repeat
Wait(8000); //8 second delay
Inc(waittime)
PressKey(32);
Wait(1000); //1 second delay so it doesn't trip over itself.
Sendkeys(M, 50, 50);
Wait(1000); //1 second delay so it doesn't cut off the message.
PressKey(13);
Wait(80000); //80 seconds before it starts from the top.
Writeln('Invited'+ IntToStr(waittime) + 'times');
until(IsKeyDown(34) = true);
end;
end;

 

[freddy1990]

I don't know about Simba, but in SCAR:

var
  WaitTime: Integer;    
  M: string;
  
begin
  M := 'test';
  
  while not GetKeyState(33) do
    Wait(50); 
  repeat
    Wait(8000); //8 second delay
    Inc(WaitTime)
    PressVKey(32);
    Wait(1000); //1 second delay so it doesn't trip over itself.
    TypeText(M);
    Wait(1000); //1 second delay so it doesn't cut off the message.
    PressVKey(13);
    Wait(80000); //80 seconds before it starts from the top.
    Writeln('Invited ' + IntToStr(WaitTime) + ' times');
  until GetKeyState(34);
end.

I'm not sure what keys you're targeting with 33 and 34 as codes though...

 

[Serevi]

33 and 34 are PgUp and PgDwn. I'll see if that works in Simba real quick, or maybe I'll try Scar. I'm not too picky as long as the result's similar. Thanks.

 

[Serevi]

Although starting properly when I press PgUp. PgDwn doesn't stop the script.

 

[djweasel]

Closed.