Results 1 to 8 of 8

Thread: My First Script

  1. #1
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    My First Script

    Hello guys this is my first basic script... tell me wat yall think about it...i just made this so can learn to make scripts..welll try it out if u want...u dont have to all u have to do is look at the codeing and u can tell if its good or not.. lol LEAVE PROGRESS REPORTS! lol j/k

    NOT RESPONSIBLE IF U GET BANNeD NOT JOKEING

    SCAR Code:
    {********Hello this is SQUEANCY'S SCRIPT
    I made this with the help in the tutorial page.
    as u see its a basic script for me to start with and soon I
    will start makeing bigger and betters scripts..well enjoy!******}





    program First;


    const
    Message1='Yay i made my first scriipt =)';

    procedure hello;
    begin
      wait(1000)
      Writeln(Message1);
    end;

    begin
    Repeat
    hello;
    until(false)



    end.

  2. #2
    Join Date
    Apr 2006
    Posts
    710
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try to avoid endless loops ;-)

  3. #3
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do u make them go on and on??

  4. #4
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    It is going on and on. The point is to make it not go on and on.

    Replace false with

    isfkeydown(12)

    That will make it stop when you press F12.

  5. #5
    Join Date
    Nov 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh i c...so basically i made my own auto spammer. just got to slow it down and it will work great..

  6. #6
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Also if you wanted to be able to specify how many times you wanted to send the message you would do this:

    Code:
    Put MessagesTyped: or whatever as a variable by typing
    Var
       MessagesTyped:
    
    Put NumLoops=1; in your const
    
    And until(MessagesTyped = NumLoops); in your man loop (bottom of script where you call on procedures)

  7. #7
    Join Date
    Jun 2006
    Posts
    366
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    or this is what you can do .. Sorry abt the quote..too laggy to go to advance
    var written: Integer;//put this at the top of the script
    after writeln(message1); put written := written + 1;
    and then at the end where u put until(false) replace false with until(written =5 //or wht ever number u want);
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig (I did, so should u )

  8. #8
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just noticed. This isn't an auto-spammer :P. What it does is sends the message to the debug box. Try using this if your going to make an auto talker.:

    Your Version

    Code:
    {********Hello this is SQUEANCY'S SCRIPT
    I made this with the help in the tutorial page.
    as u see its a basic script for me to start with and soon I
    will start makeing bigger and betters scripts..well enjoy!******}
     
     
     
     
    program First;
     
     
    const
    Message1='Yay i made my first scriipt =)';
     
    procedure hello;
    begin
      wait(1000)
      Writeln(Message1);
    end;
     
    begin Repeat
    hello;
    until(false)
     
     
     
    end.
    The Actual Talker

    Code:
    {********Hello this is SQUEANCY'S SCRIPT
    I made this with the help in the tutorial page.
    as u see its a basic script for me to start with and soon I
    will start makeing bigger and betters scripts..well enjoy!******}
     
     
     
     
    program First;
    {.include SRL/SRL.scar)
     
    var
       MessagesTyped: Integer; 
    
    const
    Message1='Yay i made my first scriipt =)';
    NumLoops=10
    TimeToWait=1000
     
    procedure hello;
    begin
      TypeSend(Message1);
    end;
     
    begin Repeat
    hello;
    sleep(TimeToWait+random(100)
    until(MessagesTyped=NumLoops)
     
     
     
    end.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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