Results 1 to 6 of 6

Thread: Help with Multiplying integers...

  1. #1
    Join Date
    Jan 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with Multiplying integers...

    Hi-
    First, is their supposed to be a new thread button, not tutorial?
    I was wondering....title pretty much explains it, but how do I multiply an integer?
    I was thinking the asterick sign, but didn't work..

    Ty
    --
    snuwoods

  2. #2
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Yeah, since the servers were switched, there's a few errors.

    Yeah, the asterisk. Show me what's not working.

  3. #3
    Join Date
    Jan 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm trying to get this one script to work...I'm setting it up to work in Guild Wars...setting speeds for an autotalker:
    SCAR Code:
    program LoFAutoTalker;

    //////////////////////By://////////////////////////////
    //                                                   //
    //SSSS N   N U   UW         WOOOOOO|OOOOOODDDDDD SSSS//
    //SSS  N N N U   U W   W   W OO  OO|OO  OOD    DDSSS //
    //  SS N  NN U   U  W W W W  OO  OO|OO  OOD    DD  SS//
    //SSSS N   N UUUUU   W   W   OOOOOO|OOOOOODDDDDD SSSS//
    ///////////////////////////////////////////////////////

    Var
    gw,x,y :integer;

    {Setup!!!}
    Const
    message1='/dance'; //what we wanna say! (first)
    message2='/jump'; //(second)
    message3='/laugh';//(third)
    speed=5;//I thought 5 was fine....try to keep it at that

    Procedure DeclareGW;
    Begin
     gw := BitmapFromString(10, 11, 'z78DA9552498E04210CFB1264CF' +
           '310BFCFF499DEA6BABA499187109268E6C026C4C2A02044C2CD22' +
           '367D7CECCC8A8282FE86C4F2126A2332F37C2DC42E06E29C64E81' +
           '4B992F6E5DD282D999DEC3B4280931D9AAB291D9C8E106388A99A' +
           '8711B1B28F871902B2C8B4FDEECB0AA8A04BEEC2CDE4FD77C18A9' +
           '2CC9879046017CE1EA6479D7394DB76E56DEA9B3CF3DDDE8EC680' +
           '933128AD680F162D35E3F65624BC9D197DA6F172E5CC4A19D75D7' +
           '3F6B161488F4C400DEBCA8FEC2E260A1C839EEB4F0905596E7DD3' +
           'DE6F81B6B8FC6BD5A9BCBC721A4CD34339D9B43968820BF4E1717' +
           '665457192F83ED0BE6C3327FB49599BEEE1E1E305978DC4E7DBC9' +
           'C1C4D5E6AB83C52F6B05F354FCCC44349B7D4373FF501AE1F8C38' +
           '');
    End;

    procedure ClickBMPS;
    Begin
    wait(300+random(32))
    movemousesmooth(x,y)
    wait(32+random(16))
    clickmouse(x,y,true)
    End;

    Procedure FindBMPS;
    Begin
    if(FindBitmap(gw,x,y))then
    ClickBMPS;
    End;

    Procedure SendKeysHuman(text:String; speed:Integer);
    Var
      a1 : Integer;
    Begin
      a1:= 1;
      Repeat
        wait(random(220) + (speed*10); //this is where I was trying to multiply
        sendkeys(copy(text, a1, 1));
        a1:= a1 + 1;
      Until a1 > length(text);
    End;

    Procedure ClickHuman(x, y : Integer; left : Boolean);
    Begin
      holdmouse(x, y, left);
      wait(random(20) + 15);
      releasemouse(x, y, left);
    End;

    Procedure Talk(text :String);
    Begin
    SendKeysVb('{ENTER}',false);
    SendKeysHuman(text, speed)
    SendKeysVb('{ENTER}',false);
    End;

    Procedure ClearInterfaceStartVideo(VideoCmd :String);
    begin
    SendKeysVb('^+(H)',true)
    SendKeys(VideoCmd);
    end;

    Begin
    wait(1300)
    DeclareGW
    FindBMPS;
    Wait(2250)
    ClearInterfaceStartVideo('=');
    Wait(1000)
    Talk(Message1);
    Wait(10000);
    Talk(Message2);
    Wait(10000);
    Talk(Message3);
    cleardebug;
    writeln('It should have worked...');
    End.

    Ty
    --
    snuwoods

  4. #4
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm snu first of all plz use srl procedures replacing
    MoveMouseSmooth with MMouse
    ANd ClickMouse with Mouse
    SendTextHuman with SendText/HumanText
    And here is your line fixed

    SCAR Code:
    wait(random(220) + ((speed) * 10);

    i belive that will do the trick

    Join the fastest growing merchanting clan on the the net!

  5. #5
    Join Date
    Jan 2007
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, I'll try it out in a second...
    would I have to include srl, then?
    I'm assuming you would, but just asking.

    Ty again
    --
    snuwoods

    edit: I just added another parenthese after the 10, and voila! it worked....odd, though
    edit2: If I used srl procedures, would I even need this speed thing?

  6. #6
    Join Date
    Dec 2006
    Location
    Ky
    Posts
    390
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by snuwoods View Post
    edit2: If I used srl procedures, would I even need this speed thing?
    Not, unless you really want your text typed at a certain speed...

    SCAR Code:
    procedure TypeSend(Text: String);
    SUMMER BREAK be back when I want to

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Integers in TIntegerArray
    By marpis in forum OSR Help
    Replies: 12
    Last Post: 03-03-2009, 11:19 PM
  2. Randomizing Integers
    By daw_guy in forum OSR Help
    Replies: 15
    Last Post: 01-13-2008, 12:14 PM
  3. Integers
    By Jackrawl in forum OSR Help
    Replies: 16
    Last Post: 12-23-2007, 03:55 PM
  4. Should integers get any larger?
    By R0b0t1 in forum Discussions & Debates
    Replies: 15
    Last Post: 11-04-2007, 09:06 AM
  5. integers!
    By Cruel100 in forum OSR Help
    Replies: 7
    Last Post: 10-27-2007, 04:28 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •