Page 1 of 4 123 ... LastLast
Results 1 to 25 of 89

Thread: "Hello World"

  1. #1
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default "Hello World"

    "Hello World!"

    Well JAD gave me the idea for this thread with his "Get better at scripting" post.

    Me and bebe started this game and it turned out to be very funny, so i thought it would be a great game to play with the community Its a great way to try out different scripting techniques, and see other people's as well. Think of this thread as a side quest to the SRL Scripting Pilgrimage!

    How to Play:

    Basically, everyone has to make a small script which ends up printing out the words "Hello World" into the debug box, and everyones script has to be different.

    The script can be as long and complicated as you like as you like as long as it meets the 1 requirement (Printing "Hello World" lol)

    You may only submit 1 entry, so as to give others the ability to post their own (Remember, there are over 25k members here!) Please don't edit your script after you have submitted it!

    Please remember to surround your script in tags!

    Examples:

    The possibilities are endless lol. You have Repeat until, For to do, Labels, Arrays, Integers, Chars, forms, using delimiters, webpages, forwards, encrypt and decrypt, with do, while do, types... the list goes on and on! Be as creative as you can possibly be!!!

    I'll post the basic ones to start us off:

    PHP Code:
    Program StarsHelloWorld;

    Procedure HelloWorld;
    Begin
      Writeln
    ('Hello World');
    end;

    Begin
      HelloWorld
    ;
    end
    PHP Code:
    Program StarsHelloWorld;

    Function 
    HelloWorldString;
    Begin
      Result 
    := 'Hello World';
    end;

    Begin
      Writeln
    (HelloWorld);
    end
    I ended up making a huge script which reversed a string of numbers, decrypted them, separated them by delimiters, added them to an array, rearranged them in order of size, added the chars together and eventually printed out the words "Hello World"

    GO!
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool! I'll have mine soon.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Hmm... let me see....

    SCAR Code:
    program New;
    var
      i : Integer;

    begin
      i := 0;
      if (i = 0) then
        Writeln('Hello World!!');
    end;

    WOW its the best script ever... don't you think I deserve SRL Developer status??? I've got another idea so I'll release that soon.

  4. #4
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    O hell yea lol.
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  5. #5
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    SCAR Code:
    program New;
    begin
      if true then
        writeln('hello world');
    end.

    SCAR Code:
    program New;
    begin
      if not false then
        writeln('hello world');
    end.

    SCAR Code:
    program helloo;
    {$Define HW}
    begin
      {$IfDef HW}
        WriteLn('Hello World');
      {$Else}
        WriteLn('Bye World');
      {$EndIf}
    end.

    Edit: Sorry Star!

  6. #6
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    Oi i said one lol.

    nice one
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  7. #7
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    program New;
    Var
    I : Integer;
    begin
    I := Random(1000);
    If(I = 0 ) Or (I < 1000)Then
     WriteLn('Hello World!');
    end.
    Rawr.

  8. #8
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Used my own string obfuscator:
    SCAR Code:
    program HelloAll;
    begin
    writeln(chr(72)+chr(101)+chr(108)+chr(108)+#111+chr(-64+96)+chr(87)+'o'+chr(114)+chr(279-171)+chr(-80+180)+chr(135-102));
    end.
    I made a new script, check it out!.

  9. #9
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    var
      hello:array[0..11] of string;
      i:integer;

    procedure makeHelloWorld;
    begin
      hello[0] := 'H'
      hello[1] := 'e'
      hello[3] := 'l'
      hello[4] := 'l'
      hello[5] := 'o'
      hello[7] := 'W'
      hello[8] := 'o'
      hello[9] := 'r'
      hello[10] := 'l'
      hello[11] := 'd'
    end;


    begin
      makehelloworld;
      writeln('')
      for i:=0 to 11 do
      begin
        writeln(hello[i])
      end;
    end.

    I get some retarded space between E and L though..

  10. #10
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Hmm

    PHP Code:
    procedure HelloWorld;
    var
       
    ICInteger;
       
    SSubStringstring;
    begin
       S 
    := 'HelloWorld!';
       for 
    := 1 to 5 do
       
    begin
          
    case C of
          1
    : for := 1 to Length(S) do
          
    begin
             Writeln
    (Copy(SI1));
          
    end;
          
    2Writeln(S);
          
    3begin
                 
    for := 1 to Length(S) do
                 
    begin
                    SubString 
    := SubString Copy(SI1);
                 
    end;
                 
    Writeln(SubString);
              
    end;
          
    4begin
                 SubString 
    := '';
                 for 
    := Length(Sdownto 1 do
                 
    begin
                    SubString 
    := SubString Copy(SI1);
                 
    end;
                 
    Writeln(SubString);
              
    end;
           
    5begin
                  
    for := 1 to Length(S) do
                  
    begin
                     Writeln
    (Copy(S1I));
                  
    end;
               
    end;
           
    end;
        
    end;
    end
    Sorry for crappy indents, im too lazy to format..

  11. #11
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Time for mine...I'm not good at keeping code clear

    SCAR Code:
    program HelloWorld;
    {.include SRL/SRL.scar}

    var
      SantyForm : TForm;
      Label1 : TLabel;
      Button1, Start : TButton;
      TypeMessage : TEdit;
      b : Integer;
      Background : TImage;

    procedure ReportBug(Senders : TObject);
    begin
      DisguiseScar('Reporting Bug!')
      WriteLn(' ');
      OpenWebPage('http://www.srl-forums.com/forum/private.php?do=newpm&u=3288');
    end;

    procedure StartScript(Senders : TObject);
    begin
      if (not(TypeMessage.text = 'Hello World')) then
      begin
        SantyForm.Hide;
        DisguiseScar('Wrong Message!');
        Wait(5000);
        DisguiseScar('Reverting To Correct Message');
        Wait(5000);
        SantyForm.Show;
        TypeMessage.Text := 'Hello World!';
        SantyForm.Hide;
        SantyForm.Show;
        Wait(5000);
        SantyForm.ModalResult := MrCancel;
        WriteLn('Hello World');
      end;
    end;

    procedure HelloWorldForm;
    begin
      SantyForm := CreateForm;
      with SantyForm do
      begin
        Position := poScreenCenter;
        BorderStyle := bsSingle;
        BorderIcons := [biMinimize,biSystemMenu];
        ClientWidth := 392;
        ClientHeight := 237;
        Caption := 'Hello World!!';
        Color := clBtnFace;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        PixelsPerInch := 96;
      end;

      Background := TImage.Create(SantyForm);
      with Background do
      begin
        Parent := SantyForm;
        SetBounds(0, 0, 696, 465);
      end;

      Label1 := TLabel.Create(SantyForm);
      with Label1 do
      begin
        Parent := SantyForm;
        SetBounds(87, 14, 225, 25);
        Caption := 'SANTY'#39'S HELLO WORLD!';
        Font.Color := clYellow;
        Font.Height := -21;
        Font.Name := 'Monotype Corsiva';
        Font.Style := [];
        ParentFont := False;
      end;

      Button1 := TButton.Create(SantyForm);
      with Button1 do
      begin
        Parent := SantyForm;
        SetBounds(164, 138, 75, 25);
        Caption := 'Report Bugs';
        TabOrder := 8;
        OnClick := @ReportBug;
      end;

      TypeMessage := TEdit.Create(SantyForm);
      with TypeMessage do
      begin
        Parent := SantyForm;
        SetBounds(141, 86, 121, 21);
        TabOrder := 9;
        Text := 'TypeMessage';
        Font.Color := clRed;
      end;

      Start := TButton.Create(SantyForm);
      with Start do
      begin
        Parent := SantyForm;
        SetBounds(164, 175, 75, 25);
        Caption := 'Start';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [];
        ParentFont := False;
        TabOrder := 10;
        OnClick := @StartScript;
      end;

            b := BitmapFromString(696, 1, 'z78DAD597DB4E262110845F8933C3' +
            '250CF0FE8FB4F1034399C91A5DF36FA21715A374D187EAA6C798B' +
            '79F2B81159C6F583C98C1FB0DF9A7A901BCC00672BE71BEC1D30A' +
            'D841FE7B3B308270DE9CB961B8EF5F8244740F41A2E3CFA65B904' +
            '83BD9E8C4DBC94927EA4EDE3AA9ECC4DE31EEB00166C033601864' +
            '7BC0306018E46DC030F06AC030F00430131F260C138609C38461E' +
            '2C38467C233F164C236619B4370FE0095A70BDE726F157F2EF173' +
            'F91C258A15913D91AEA877066EC94C918C45C9A43B79EE53F2BF6' +
            'A51A446AB6A416A6AA4EE4B0F55949C45E1F879DBA3FF8655C3AA' +
            '61D5B8A561D5A274D0B25ABD8655EDD26B55BA0FDB1AA52B61A8F' +
            '6746B59BD0C4FE9A7970B6C8543A5BC0CABDC8827D589CFE544B7' +
            'E26D4132D35E303DDAA7581F58042FC12C9804A3601025788982E' +
            'ADC46B4A10AE9A293266A290FCDA48772DC433F53F4738B7E8AA8' +
            '284945BCD448F5D31F9AB9E47580A14479356028E6BC26170C579' +
            '357E6927707DB0BDB0BFF335619AB8CE719AB8C55C62A93E1CC5D' +
            '89F3891C266E495C9FF030C19FE04FF047CE479823CC11E608738' +
            '43972327032E0498039C01C600E9C0CF8C0AFC6E38387D9C3EC61' +
            'F6F8E0F1C1C3EC6076303B981DCC0E66C779C779B7CEC36FE1B7F' +
            '05BF82DFC162B8B95C5CA6280E9FBB8DC23CC4881579140623730' +
            'BC0763E462737EACFCDDCBF9283C97F057B9B71F7F16CDF6D38BF' +
            'F59E2AA12EF38D7EE9C78C955961C36C9ED3C39DFF98F52972AF5' +
            '1A27945DD320B52EA2817EB4B174B23593444B5534368FF6B60EA' +
            '3E8B3886EC7D1F3D2F6D67912FD57E98B7EFA65F5CEEEA328FD75' +
            '49DF35E9C7794AB47BD64B2F27E9F14B7ABFC94C98B2193A99215' +
            '166CB2533A7CA2CEAB23D1A995D4E665A945997650616998D4D66' +
            '6697592AD375496FCF5EF798CCE131BD75AAEBB4D757405F87E7D' +
            'BF1F95BF3DD37EBB9633889B1496682CCFF2E998FA7467BAADFFF' +
            '7107687263979D44F563453F417CCEA2A22ABB503F3BD207FDA87' +
            '254335574220AD9AAF07FD931AAD462C8B6EF643F4CB23796C76E' +
            '3F65B777B28BC66F6EF5F6B1D5C77FDAED5FBDE17F7DB7D7ADDE7' +
            'D73AB4F92492FDF4DE67C4F7DD8EDABD4284BD5A27CAF39F98E33' +
            'E7FBEEC3175FFF555FAC5F991E5D266A3A1DB4B7C726DD176471B' +
            '8E575F0E735F903257356ED');

          SafeCopyCanvas(GetBitmapCanvas(B),Background.Canvas,0,0,669,1,0,0,1300,465);
    end;

    procedure SafeHelloWorldForm;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('HelloWorldForm', V);
    end;

    procedure ShowHelloWorldFormModal;
    begin
      SantyForm.ShowModal;
    end;

    procedure SafeShowHelloWorldFormModal;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowHelloWorldFormModal', V);
    end;

    procedure MainHelloWorldForm;
    begin
      try
        SafeHelloWorldForm;
        SafeShowHelloWorldFormModal;
      finally
        FreeForm(SantyForm);
      except
        WriteLn('An error seems to have occurred in: HelloWorldForm');
      end;
    end;

    begin
      ClearDebug;
      GetSelf.WindowState := wsMinimized;
      MainHelloWorldForm;
      GetSelf.WindowState := wsNormal;
    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  12. #12
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by ~alex~ View Post
    SCAR Code:
    program New;
    var
      hello:array[0..11] of string;
      i:integer;

    procedure makeHelloWorld;
    begin
      hello[0] := 'H'
      hello[1] := 'e'
      hello[3] := 'l'
      hello[4] := 'l'
      hello[5] := 'o'
      hello[7] := 'W'
      hello[8] := 'o'
      hello[9] := 'r'
      hello[10] := 'l'
      hello[11] := 'd'
    end;


    begin
      makehelloworld;
      writeln('')
      for i:=0 to 11 do
      begin
        writeln(hello[i])
      end;
    end.

    I get some retarded space between E and L though..
    Its because you are missing a '2'. It goes from 1 to 3 Heres another one I made. Just remember to set the client window again after you run it....

    SCAR Code:
    program New;

    procedure SetupStuff;
    begin
      SetClientWindowHandle(GetSelf.Handle);
      ActivateClient;
    end;

    procedure ClearDebug2;
    begin
      ClickMouse(75, 454, true);
      KeyDown(17)
      Wait(10);
      KeyDown(65);
      Wait(10);
      KeyUp(17)
      Wait(10);
      KeyUp(65);
      KeyDown(46);
      Wait(100);
      KeyUp(46);
    end;

    procedure TypeStuff;
    begin
      KeyDown(16)
      Wait(10);
      KeyDown(72)
      Wait(10);
      KeyUp(72);
      Wait(10);
      KeyUp(16);
      Wait(200);
      KeyDown(69)
      Wait(10);
      KeyUp(69);
      Wait(200);
      KeyDown(76)
      Wait(10);
      KeyUp(76);
      Wait(200);
      KeyDown(76)
      Wait(10);
      KeyUp(76);
      Wait(200);
      KeyDown(79)
      Wait(10);
      KeyUp(79);
      Wait(200);
      KeyDown(32)
      Wait(10);
      KeyUp(32);
      Wait(200);
      KeyDown(16)
      Wait(10);
      KeyDown(87)
      Wait(10);
      KeyUp(87);
      Wait(10);
      KeyUp(16);
      Wait(200);
      KeyDown(79)
      Wait(10);
      KeyUp(79);
      Wait(200);
      KeyDown(82)
      Wait(10);
      KeyUp(82);
      Wait(200);
      KeyDown(76)
      Wait(10);
      KeyUp(76);
      Wait(200);
      KeyDown(68)
      Wait(10);
      KeyUp(68);
      Wait(200);
      SendKeys('!');
      Wait(200);
    end;

    begin
      SetupStuff;
      Wait(1000);
      ClearDebug2;
      TypeStuff;
    end.

  13. #13
    Join Date
    Jul 2007
    Location
    England
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm..

    SCAR Code:
    program HelloWorld;

    procedure Say(S: string);
    begin
      Writeln(S);
    end;

    begin
      Say('Hello World!');
    end.

    Simple is best

  14. #14
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    excellent guys!
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  15. #15
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    Program Hello;

    Var
      Hello: Array [0..4] of String;
      World: Array [0..5] of String;
      HelloWorld: String;
      I: Integer;

    Procedure HelloWorldey;
    Begin
      Hello[0]:= 'H';
      Hello[1]:= 'E';
      Hello[2]:= 'L';
      Hello[3]:= 'L';
      Hello[4]:= 'O';
      World[0]:= ' ';
      World[1]:= 'W';
      World[2]:= 'O';
      World[3]:= 'R';
      World[4]:= 'L';
      World[5]:= 'D';
    End;

    Function PlusHello: String;
    Begin
      For I:= 0 To Length(Hello)-1 Do
        Begin
          HelloWorld:= HelloWorld + Hello[I];
        End;
      For I:= 0 To Length(World)-1 Do
        Begin
          HelloWorld:= HelloWorld + World[I];
        End;
      Result:= HelloWorld;
    End;

    Begin
      HelloWorldey;
      Writeln(PlusHello);
    End.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  16. #16
    Join Date
    Feb 2006
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    var
      HelloWorld : string;
      Index, I : Integer;
      Stack : array [0..1024] of Integer;

    procedure Push(Int : Integer);
    begin
     try
      Stack[Index]:= Int;
     finally
      Index:= Index + 1;
     end;
    end;

    function Pop : Integer;
    begin
     try
      Result:= Stack[Index - 1];
     finally
      Index:= Index - 1;
     end;
    end;

    begin
     HelloWorld:= 'Hello, World';

     for I:= Length(HelloWorld) downto 1 do
      Push(Ord(HelloWorld[I]));

     for I:= Index - 1 downto 0 do
      Writeln(Chr(Stack[I]));
    end.

  17. #17
    Join Date
    Jul 2007
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;

    Procedure Write;
    begin
    If(isfkeydown(2)) then
      WriteLn('Hello World');
    End;

    Procedure BBQ;
    Begin
      Repeat
        Write;
      Until(IsFKeyDown(2));
    end;
    End.

    Dont know why it dosnt work but it was an idea (Kinda new to Scar) rofl
    Currently Learning the Basics of Scar

  18. #18
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Skalla View Post
    SCAR Code:
    program New;

    Procedure Write;
    begin
    If(isfkeydown(2)) then
      WriteLn('Hello World');
    End;

    Procedure BBQ;
    Begin
      Repeat
        Write;
      Until(IsFKeyDown(2));
    end;
    End.

    Dont know why it dosnt work but it was an idea (Kinda new to Scar) rofl
    You need to add a little wait into your loop (I think)

    SCAR Code:
    program New;

    Procedure Write;
    begin
    If(isfkeydown(2)) then
      WriteLn('Hello World');
    End;

    Procedure BBQ;
    Begin
      Repeat
        Write;
        Wait(10);
      Until(IsFKeyDown(2));
    end;
    End.
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  19. #19
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    this should work right?
    SCAR Code:
    program hi;

    var toot,woot,hoot,loot,boop,e,f,g:integer;

    procedure ThisIsPointless(g:string);//<<<<<;p!!!
    begin
      toot:=654545/1564+123165-65421*8716545-54*654+54564/65421
      woot:=789456123-789546122+6999/7*9-8000+2/2
      hoot:=6579546/654*654+321687949-654987/6*654987546/5646546
      loot:=687987987987987987987979-8974654564162123165*654/65
      if toot/hoot*woot-loot+hoot*woot/15*toot-475+loot >=5 then
      writeln(g)
    end;

    procedure ThisIsPointless1(f:string);
    begin
      toot:=6579546/654*654+321687949-654987/6*654987546/5646546
      woot:=654545/1564+123165-65421*8716545-54*654+54564/65421
      hoot:=687987987987987987987979-8974654564162123165*654/65
      loot:=789456123-789546122+6999/7*9-8000+2/2
      if toot/hoot*woot-loot+hoot*woot/15*toot-475+loot >=5 then
      writeln(f)
    end;

    procedure Thisispointless2(e:string);
    begin
      toot:=789456123-789546122+6999/7*9-8000+2/2
      woot:=687987987987987987987979-8974654564162123165*654/65
      hoot:=6579546/654*654+321687949-654987/6*654987546/5646546
      loot:=654545/1564+123165-65421*8716545-54*654+54564/65421
      if toot/hoot*woot-loot+hoot*woot/15*toot-475+loot >=5 then
      writeln(e);
    end;

    begin
      boop:=10
      cleardebug;
      wait(2000);
      repeat
        case random(3) of
          0:begin
          thisispointless('hell')
            boop:=boop-3
            end;
          1:begin
          thisispointless1('o wo')
            boop:=boop*2
            end;
          2:begin
          thisispointless2('rld')
          boop:=boop+5
            end;
        end;
      if not boop = 6 then boop:=10
      until boop=6
      Clickmouse(579,613,true);
      keydown(38)
      wait(100)
      keyup(38)
      keydown(38)
      wait(100)
      keyup(38)
      keydown(38)
      wait(100)
      keyup(38)
      keydown(13)
      wait(100)
      keyup(13)
    end.
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


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

    Default

    SCAR Code:
    program New;


    procedure WriteWord(TheString:string);
    var GoodString,RanLetter:string;
    i:integer;
    begin
      for i:=1 to Length(TheString) do
      begin
        repeat
          cleardebug;
          RanLetter:=chr(random(26)+65);
          if random(2)=1 then
            RanLetter:=lowercase(RanLetter);
          if random(53)=1 then
            RanLetter:=' ';
          writeln(GoodString+RanLetter);
          wait(10);
        until RanLetter=TheString[i];
        GoodString:=GoodString+ranLetter;
      end;
    end;

    begin
      WriteWord('Hello World');
      Writeln('Successfully executed');
      wait(3000);
      Writeln('Just kidding, now I'+chr(39)+'m really done');
    end.

  21. #21
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol @boreas..

    ill make on to. edit my post later.

  22. #22
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, very clever Boreas
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  23. #23
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Boreas View Post
    SCAR Code:
    program New;


    procedure WriteWord(TheString:string);
    var GoodString,RanLetter:string;
    i:integer;
    begin
      for i:=1 to Length(TheString) do
      begin
        repeat
          cleardebug;
          RanLetter:=chr(random(26)+65);
          if random(2)=1 then
            RanLetter:=lowercase(RanLetter);
          if random(53)=1 then
            RanLetter:=' ';
          writeln(GoodString+RanLetter);
          wait(10);
        until RanLetter=TheString[i];
        GoodString:=GoodString+ranLetter;
      end;
    end;

    begin
      WriteWord('Hello World');
      Writeln('Successfully executed');
      wait(3000);
      Writeln('Just kidding, now I'+chr(39)+'m really done');
    end.
    rofl haha lmfao!!!!

  24. #24
    Join Date
    Jul 2007
    Location
    England
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Starblaster100 View Post
    You need to add a little wait into your loop (I think)

    SCAR Code:
    program New;

    Procedure Write;
    begin
    If(isfkeydown(2)) then
      WriteLn('Hello World');
    End;

    Procedure BBQ;
    Begin
      Repeat
        Write;
        Wait(10);
      Until(IsFKeyDown(2));
    end;
    End.
    I fixed it for you Actually compiles now.

    SCAR Code:
    program New;

    Procedure Write;
    begin
    If(isfkeydown(2)) then
      WriteLn('Hello World');
    End;

    Begin
      Repeat
        Write;
        Wait(10);
      Until(IsFKeyDown(2));
    End.

  25. #25
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    o haha, nice catch, didn't see that
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


Page 1 of 4 123 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. action="www.site.com" method="post"
    By Jason2gs in forum General
    Replies: 4
    Last Post: 05-17-2007, 11:50 PM
  2. Replies: 3
    Last Post: 04-19-2007, 03:44 AM
  3. Replies: 5
    Last Post: 10-26-2006, 11:30 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
  •