Results 1 to 9 of 9

Thread: LotF Story Script

  1. #1
    Join Date
    Sep 2006
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    LotF Story Script

    My friend and I ary working on a project of sorts. We are doing it for fun, to learn how to script, and well... its for a class. We are going to have a few characters act out things in
    rs2. What we are trying to do is get the people to act out things that happened in the story, using Scar to have them talk. We will do the movement on our own. Does anyone know how we can do this? We basicly have what we need... But if anyone has any ideas on how we could improve it, it would be very much appreciated. Thanks!

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

    Default

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
     var TheString: array of string;
     i:integer;
    procedure DeclareStrings;
    begin
      SetArrayLength(TheString,5);
      TheString[0]:='hi';
      TheString[1]:='how are you?';
      TheString[2]:='good thanks';
      TheString[3]:='whats up?';
      TheString[4]:='yea, the same';
    end;

    begin
      SetupSRL;
      DeclareStrings;
      repeat
        repeat
          wait(30);
        until isfkeydown(12);
        TypeSend(TheString[i]);
        i:=i+1;
      until false;
     
     
    end.

    You can get fancier, skip phrase, go back phrase, stuff like that. All you need it to do is type?


    edit heres part 2
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
     var TheString: array of string;
     i:integer;
    procedure DeclareStrings;
    begin
      SetArrayLength(TheString,4);
      TheString[0]:='hey';
      TheString[1]:='not bad, and you?';
      TheString[2]:='cool';
      TheString[3]:='just hanging out, you?';

    end;

    begin
      SetupSRL;
      DeclareStrings;
      repeat
        repeat
          wait(30);
        until isfkeydown(11);
        TypeSend(TheString[i]);
        i:=i+1;
      until false;
     
     
    end.

    set the crosshairs of both on notepad and run both, then press f12 to make guy 1 speak and f11 for guy2

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

    Default

    Hi-
    I'm DrStealth's friend...I've been able to make a somewhat basic script...trying to add a form, but it doesn't work...something about TEdit something or other.
    Well here it is:
    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
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Title : TLabel;
      Button1 : TButton;
       : TEdit;
      Dialogue2 : TEdit;
      Dialogue3 : TEdit;
      Dialogue4 : TEdit;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('Button pressed!');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;


    Procedure Form;
    Begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 400;
    frmDesign.Height := 390;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 70;
    Label1.Top := 38;
    Label1.Width := 51;
    Label1.Height := 13;
    Label1.Caption := 'Dialogue 1';
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 259;
    Label2.Top := 40;
    Label2.Width := 51;
    Label2.Height := 13;
    Label2.Caption := 'Dialogue 2';
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 77;
    Label3.Top := 164;
    Label3.Width := 51;
    Label3.Height := 13;
    Label3.Caption := 'Dialogue 3';
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 263;
    Label4.Top := 165;
    Label4.Width := 51;
    Label4.Height := 13;
    Label4.Caption := 'Dialogue 4';
    Title := TLabel.Create(frmDesign);
    Title.Parent := frmDesign;
    Title.Left := 111;
    Title.Top := 10;
    Title.Width := 155;
    Title.Height := 29;
    Title.Caption := 'LoF Autotalker';
    Title.Font.Color := clWindowText;
    Title.Font.Height := -24;
    Title.Font.Name := 'MS Sans Serif';
    Title.Font.Style := [];
    Title.ParentFont := False;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.OnClick:= @buttonclick
    Button1.Left := 154;
    Button1.Top := 303;
    Button1.Width := 75;
    Button1.Height := 25;
    Button1.Caption := 'Start!';
    Button1.TabOrder := 8;
     := TEdit.Create(frmDesign);
    .Parent := frmDesign;
    .Left := 26;
    .Top := 62;
    .Width := 150;
    .Height := 80;
    .TabOrder := 9;
    Dialogue2 := TEdit.Create(frmDesign);
    Dialogue2.Parent := frmDesign;
    Dialogue2.Left := 204;
    Dialogue2.Top := 61;
    Dialogue2.Width := 150;
    Dialogue2.Height := 80;
    Dialogue2.TabOrder := 10;
    Dialogue3 := TEdit.Create(frmDesign);
    Dialogue3.Parent := frmDesign;
    Dialogue3.Left := 27;
    Dialogue3.Top := 182;
    Dialogue3.Width := 150;
    Dialogue3.Height := 80;
    Dialogue3.TabOrder := 11;
    Dialogue4 := TEdit.Create(frmDesign);
    Dialogue4.Parent := frmDesign;
    Dialogue4.Left := 209;
    Dialogue4.Top := 183;
    Dialogue4.Width := 150;
    Dialogue4.Height := 80;
    Dialogue4.TabOrder := 12;
    End;

    Procedure SendKeysHuman(text:String);
    Var
      a1 : Integer;
    Begin
      a1:= 1;
      Repeat
        wait(random(220) + 15);
        sendkeys(copy(text, a1, 1));
        a1:= a1 + 1;
      Until a1 > length(text);
    End;

    Procedure Talk;
    Begin
    SendKeysHuman('Hello!');
    SendKeysVb('{ENTER}',false)
    End;

    Function CheckChatMsg(Text: String) : Boolean;
    Begin
      Result:= IsTextAtEx(20, 415, Text, 40, ChrChatChars, False, True, 0, 1, 0);
    End;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('Form', v);
    //Replace Form1 with the Procedure name you put the stuff between.
    end;

    procedure ShowFormModal;
    begin
      Form.ShowModal;
    //Replace frmDesign with the name of your form
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;


    Begin
      SafeInitForm;
      SafeShowFormModal;
    ActivateClient;
    Wait(1250)
    Talk;
    CheckChatMsg('Hi')
    End.

    Ty Guys, Much Appreciated

  4. #4
    Join Date
    Sep 2006
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey... We pretty much decided we will just go with what we have for our script,but since we need to present this, we need a screen-capture device. Does anyone know of one that will work for rs2, and won't be to slow or pixley? Thanks, DrStealth

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

    Default

    Camtasia .

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

    Default

    Thanks for the suggestion, but do you know of any *free* recorders?
    We've tried fraps, that worked, I might even buy it eventually...I really don't want to have to pirate

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

    Default

    Camtasia . Just download the Trial Version.

  8. #8
    ronny.m.p Guest

    Default

    Use fraps for the presentation...then you wouldn't need it anymore would you? Also if you like i will design a form for you...

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

    Default

    Thanks for the offer, but I think I might be able to get a form done myself....You're right I think fraps would work fine...ty guys for you're suggestions/help

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. RSBot story
    By TravisV10 in forum Bot Information and Spottings
    Replies: 132
    Last Post: 03-04-2011, 07:41 PM
  2. My borign story of what im doing right now
    By Hobbit in forum Blogs and Writing
    Replies: 4
    Last Post: 08-16-2007, 04:30 PM
  3. my story.....
    By lolster in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 12-21-2006, 04:58 PM
  4. My story...
    By imafatmess in forum Blogs and Writing
    Replies: 2
    Last Post: 06-20-2006, 11:05 PM
  5. Sad Story...
    By WT-Fakawi in forum News and General
    Replies: 39
    Last Post: 03-08-2006, 09:30 AM

Posting Permissions

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