Results 1 to 4 of 4

Thread: Procedure StrobLine(Line:Integer)

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

    Default Procedure StrobLine(Line:Integer)

    SCAR Code:
    Procedure StrobeLine(Line:Integer);
    var
      s:string;
    begin
      S:=GetDebugLine(Line)
      ClearDebugLine(Line)
      wait(50)
      ReplaceDebugLine(Line, S)
    end;

    Use like this
    SCAR Code:
    Procedure StrobeLine(Line:Integer);
    var
      s:string;
    begin
      S:=GetDebugLine(Line)
      ClearDebugLine(Line)
      wait(50)
      ReplaceDebugLine(Line, S)
    end;

    Procedure Intro;
    var
      I, A:integer;
    begin
      cleardebug
      Writeln(' _  _  _  _  _  _  _  _  _  _    _  _  _  _    _  _  _  _  _')
      Writeln('(_)(_)(_)(_)(_)(_)(_)(_)(_)(_) _(_)(_)(_)(_)_ (_)(_)(_)(_)(_)')
      Writeln('      (_)      (_)            (_)          (_)      (_)')
      Writeln('      (_)      (_) _  _       (_)_  _  _  _         (_)')
      Writeln('      (_)      (_)(_)(_)        (_)(_)(_)(_)_       (_)')
      Writeln('      (_)      (_)             _           (_)      (_)')
      Writeln('      (_)      (_) _  _  _  _ (_)_  _  _  _(_)      (_)')
      Writeln('      (_)      (_)(_)(_)(_)(_)  (_)(_)(_)(_)        (_)')
      wait(250)
      repeat
        for I:=0 to 8 do
          StrobeLine(I);
        Inc(A)
        wait(500)
      until(A=3)
    end;

    begin
      Intro;  
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Ha, nice, looks cool.

    Edit: Strob = Strobe if you are referring to a strobe light.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    right... fixed

  4. #4
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool! Good job!
    ~Hermen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 3
    Last Post: 08-02-2007, 02:38 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
  •