Results 1 to 3 of 3

Thread: Button click and savesettings?

  1. #1
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Button click and savesettings?

    Well im curently trying to make a heck of alot better vial filler since my last one got no atention at all so im working on the forms when for some reason it my button click stops working and i also dont get how to save setting so please all help is apreciated thnx!

    SCAR Code:
    ///////////////////////////////////////////////////////////
     {||.....................................................||}
     {||..............Sp4nks vial wank.......................||}
     {||.....................................................||}
     {||.....................................................||}
     {||.............Release Date Feb. 3, 2007...............||}
     ///////////////////////////////////////////////////////////
     ///////////////////////////////////////////////////////////
     //////////////////////INSTRUCTIONS/////////////////////////
     ///////////////////////////////////////////////////////////
     // SRL 3.6 Reuquired                                     //
     //  Start in Falador East Bank                           //
     //  Have vials in first bank slot                        //
     //  Fill out Forms                                       //
     //  Enjoy                                                //
     ///////////////////////////////////////////////////////////
     ////////////////////////POLICY/////////////////////////////
     // You Dont Have permission to distribute this script    //
     ///////////////////////////////////////////////////////////
     ////////////////////Features///////////////////////////////
     //Auto Responder                                         //
     //Anti Ban                                               //
     //Anti Randoms by SRL:)                                  //
     //Find Mod                                               //
     ///////////////////////////////////////////////////////////
    program Vial_Wanker;

    {.include SRL/SRL.scar}


    var
    LoadsToFinish : integer;
    Vialsfilled : integer;
    unvial,ex, ey : Integer;
    FountainColor : Integer;
    FountainColor1 : Integer;
    FountainColor2 : Integer;
    {********************************FROM VARIABLES*********************************}
    var
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label9 : TLabel;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3 : TEdit;
      Edit4 : TEdit;
      Button1 : TButton;
      Edit5 : TEdit;
      Edit6 : TEdit;
      Edit7 : TEdit;
    {*******************************************************************************}

    procedure SetupAll;
    begin
    FountainColor :=StrToInt(Edit3.text);
    FountainColor1 :=StrToInt(Edit3.text);
    FountainColor2 :=StrToInt(Edit3.text);
    end;

    Procedure DeclarePlayers;

     Begin
        HowManyPlayers := 1;                // Set Number of Players here.
        NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
        CurrentPlayer := 0;                // CurrentPlayer = Array Index

        Players[0].Name := Edit2.Text;   //Username
        Players[0].Pass := Edit3.Text; //Password
        Players[0].Nick := Edit4.Text;         //3 or 4 letters username
        Players[0].Loc := '';               //Leave as blank
        Players[0].Skill := '';  //The skill for when you get a lamp
        Players[0].Active := True;

      Writeln(inttostr(HowManyPlayers) + ' Players');
    End;
    { $$$$$$$$$$$$$$$$$$$ END OF SETUP $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$}

    procedure ButtonClick(sender: TObject);//dont get why button click wont work and how do u save settings?
    begin
     frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
       SaveSetting('TestForm','User',Edit1.Text);
      SaveSetting('TestForm','Pass',Edit2.Text);
      SaveSetting('TestForm','Nick',Edit3.Text);
    end;

    Procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 309;
    frmDesign.Height := 419;
    frmDesign.Caption := 'Sp4nk'#39's Vial Wank';
    frmDesign.Color := clRed;
    frmDesign.Font.Color := clAqua;
    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 := 60;
    Label1.Top := 15;
    Label1.Width := 124;
    Label1.Height := 24;
    Label1.Caption := 'Vial Wanker';
    Label1.Font.Color := clPurple;
    Label1.Font.Height := -19;
    Label1.Font.Name := 'MS Sans Serif';
    Label1.Font.Style := [fsBold, fsItalic];
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 8;
    Label2.Top := 43;
    Label2.Width := 259;
    Label2.Height := 29;
    Label2.Caption := 'Made by: Wtf I Sp4nk';
    Label2.Font.Color := clPurple;
    Label2.Font.Height := -24;
    Label2.Font.Name := 'MS Sans Serif';
    Label2.Font.Style := [fsBold, fsItalic];
    Label2.ParentFont := False;
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 14;
    Label3.Top := 101;
    Label3.Width := 91;
    Label3.Height := 16;
    Label3.Caption := 'Loads To Do';
    Label3.Font.Color := clBlue;
    Label3.Font.Height := -13;
    Label3.Font.Name := 'MS Sans Serif';
    Label3.Font.Style := [fsBold];
    Label3.ParentFont := False;
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 8;
    Label4.Top := 264;
    Label4.Width := 75;
    Label4.Height := 16;
    Label4.Caption := 'UserName';
    Label4.Font.Color := clBlue;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'MS Sans Serif';
    Label4.Font.Style := [fsBold];
    Label4.ParentFont := False;
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 8;
    Label5.Top := 293;
    Label5.Width := 73;
    Label5.Height := 16;
    Label5.Caption := 'PassWord';
    Label5.Font.Color := clBlue;
    Label5.Font.Height := -13;
    Label5.Font.Name := 'MS Sans Serif';
    Label5.Font.Style := [fsBold];
    Label5.ParentFont := False;
    Label6 := TLabel.Create(frmDesign);
    Label6.Parent := frmDesign;
    Label6.Left := 8;
    Label6.Top := 322;
    Label6.Width := 73;
    Label6.Height := 16;
    Label6.Caption := 'NickName';
    Label6.Font.Color := clBlue;
    Label6.Font.Height := -13;
    Label6.Font.Name := 'MS Sans Serif';
    Label6.Font.Style := [fsBold];
    Label6.ParentFont := False;
    Label7 := TLabel.Create(frmDesign);
    Label7.Parent := frmDesign;
    Label7.Left := 10;
    Label7.Top := 152;
    Label7.Width := 101;
    Label7.Height := 16;
    Label7.Caption := 'Fountain Color';
    Label7.Font.Color := clBlue;
    Label7.Font.Height := -13;
    Label7.Font.Name := 'MS Sans Serif';
    Label7.Font.Style := [fsBold];
    Label7.ParentFont := False;
    Label8 := TLabel.Create(frmDesign);
    Label8.Parent := frmDesign;
    Label8.Left := 9;
    Label8.Top := 181;
    Label8.Width := 110;
    Label8.Height := 16;
    Label8.Caption := 'Founrain Color1';
    Label8.Font.Color := clBlue;
    Label8.Font.Height := -13;
    Label8.Font.Name := 'MS Sans Serif';
    Label8.Font.Style := [fsBold];
    Label8.ParentFont := False;
    Label9 := TLabel.Create(frmDesign);
    Label9.Parent := frmDesign;
    Label9.Left := 14;
    Label9.Top := 212;
    Label9.Width := 109;
    Label9.Height := 16;
    Label9.Caption := 'Fountain Color2';
    Label9.Font.Color := clBlue;
    Label9.Font.Height := -13;
    Label9.Font.Name := 'MS Sans Serif';
    Label9.Font.Style := [fsBold];
    Label9.ParentFont := False;
    Edit1 := TEdit.Create(frmDesign);
    Edit1.Parent := frmDesign;
    Edit1.Left := 120;
    Edit1.Top := 98;
    Edit1.Width := 121;
    Edit1.Height := 21;
    Edit1.TabOrder := 8;
    Edit1.Text := 'Edit1';
    Edit2 := TEdit.Create(frmDesign);
    Edit2.Parent := frmDesign;
    Edit2.Left := 88;
    Edit2.Top := 265;
    Edit2.Width := 121;
    Edit2.Height := 21;
    Edit2.TabOrder := 9;
    Edit2.Text := 'Edit2';
    Edit3 := TEdit.Create(frmDesign);
    Edit3.Parent := frmDesign;
    Edit3.Left := 88;
    Edit3.Top := 292;
    Edit3.Width := 121;
    Edit3.Height := 21;
    Edit3.TabOrder := 10;
    Edit3.Text := 'Edit3';
    Edit4 := TEdit.Create(frmDesign);
    Edit4.Parent := frmDesign;
    Edit4.Left := 88;
    Edit4.Top := 320;
    Edit4.Width := 121;
    Edit4.Height := 21;
    Edit4.TabOrder := 11;
    Edit4.Text := 'Edit4';
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 77;
    Button1.Top := 350;
    Button1.Width := 70;
    Button1.Height := 25;
    Button1.Caption := 'START';
    Button1.Font.Color := clWindowText;
    Button1.Font.Height := -13;
    Button1.Font.Name := 'MS Sans Serif';
    Button1.Font.Style := [fsBold];
    Button1.ParentFont := False;
    Button1.TabOrder := 12;
    Edit5 := TEdit.Create(frmDesign);
    Edit5.Parent := frmDesign;
    Edit5.Left := 118;
    Edit5.Top := 152;
    Edit5.Width := 121;
    Edit5.Height := 21;
    Edit5.TabOrder := 13;
    Edit5.Text := 'Edit5';
    Edit6 := TEdit.Create(frmDesign);
    Edit6.Parent := frmDesign;
    Edit6.Left := 125;
    Edit6.Top := 181;
    Edit6.Width := 121;
    Edit6.Height := 21;
    Edit6.TabOrder := 14;
    Edit6.Text := 'Edit6';
    Edit7 := TEdit.Create(frmDesign);
    Edit7.Parent := frmDesign;
    Edit7.Left := 130;
    Edit7.Top := 211;
    Edit7.Width := 121;
    Edit7.Height := 21;
    Edit7.TabOrder := 15;
    Edit7.Text := 'Edit7';
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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



    procedure LoadDTM;
    begin
      unvial := DTMFromString('78DA63EC636260D8C500065C108AE1FDD60A0' +
           '61120CD08C4FF8180D103A8E606030AD8B62C044C3342F9603577' +
           '50D54C98300D558D3B50CD6DFCE600006FEA100B');
    end;





    procedure ProgressReport;
    begin
     Writeln('<>---------------------------------------------<>');
     Writeln('<>---------------------------------------------<>');
     Writeln('WTF I SP4NK');
     Writeln('Vial Wanke');
     Writeln('Worked For: '+ScriptTime2(2));
     Writeln('Banked: '+IntToStr(LoadsToFinish)+'Loads of wfvials');
     Writeln('Filled: '+IntToStr(Vialsfilled)+'vials')
     Writeln('<>---------------------------------------------<>')
     Writeln('<>---------------------------------------------<>');
     SRLRandomsReport;
    end;


    Procedure Responder;
    begin
      if (InChat('Mining lvls') or
        InChat('Mining lvls?') or
        InChat('Mine lvls') or
        Inchat('Mine lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Mining')))
      end;

      if (InChat('Wc lvls') or
        InChat('Wc lvls?') or
        InChat('Woodcut lvls') or
        InChat('Woodcut lvls?') or
        InChat('Woodcutting lvls') or
        InChat('Woodcutting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
      end;
      if (InChat('Fish lvls') or
        InChat('Fish lvls?') or
        InChat('Fishin lvls') or
        InChat('Fishin lvls?') or
        InChat('Fishing lvls') or
        InChat('Fishing lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fishing')))
      end;
      if (InChat('Attack lvls') or
        InChat('Attack lvls?') or
        InChat('Atack lvls') or
        InChat('Atack lvls?') or
        InChat('Attac lvls') or
        InChat('Attac lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Attack')))
      end;

      if (InChat('Strengh lvls') or
        InChat('Strengh lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Strengh')))
      end;

      if (InChat('Defenc lvls') or
        InChat('Defenc lvls?') or
        InChat('Defence lvls') or
        InChat('Defence lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Defence')))
      end;

      if (InChat('Hp lvls') or
        InChat('Hp lvls?') or
        InChat('Hitpoint lvls') or
        InChat('Hitpoint lvls?') or
        InChat('Hitpoints lvls') or
        InChat('Hitpoints lvls?') or
        InChat('Hitp lvls') or
        InChat('Hitp lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
      end;

      if (InChat('Range lvls') or
        InChat('Range lvls?') or
        InChat('Rangin lvls') or
        InChat('Rangin lvls?') or
        InChat('Ranged lvls') or
        InChat('Ranged lvls?') or
        InChat('Ranging lvls') or
        InChat('Ranging lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Ranged')))
      end;

      if (InChat('Pray lvls') or
        InChat('Pray lvls?') or
        InChat('Prayer lvls') or
        InChat('Prayer lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
      end;

      if (InChat('Mage lvls') or
        InChat('Mage lvls?') or
        InChat('Mag lvls') or
        InChat('Mag lvls?') or
        InChat('Magic lvls') or
        InChat('Magic lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Magic')))
      end;

      if (InChat('Cook lvls') or
        InChat('Cook lvls?') or
        InChat('Cookin lvls') or
        Inchat('Cookin lvls?') or
        InChat('Cooking lvls') or
        InChat('Cooking lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Cooking')))
      end;

      if (InChat('Fletch lvls') or
        InChat('Fletch lvls?') or
        InChat('Fletching lvls') or
        InChat('Fletching lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fletching')))
      end;

      if (InChat('Firemaking lvls') or
        InChat('FireMaking lvls?') or
        Inchat('Fire making lvls') or
        InChat('Fire making lvls')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Firemaking')))
      end;

      if (InChat('Craft lvls') or
        InChat('Craftt lvls?') or
        InChat('Craftin lvls') or
        InChat('Crafting lvls?') or
        InChat('Crafting lvls') or
        InChat('Crafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Crafting')))
      end;

      if (InChat('Smelt lvls') or
        InChat('Smelt lvls?') or
        InChat('Smelting lvls') or
        InChat('Smelting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Smelting')))
      end;

      if (InChat('Rc lvls') or
        InChat('Rc lvls?') or
        InChat('Runecraft lvls') or
        InChat('Runecraft lvls?') or
        InChat('Runecrafting lvls') or
        InChat('Runecrafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Runecraft')))
      end;
    end;



    function IsWelcomeScreen: Boolean;
    begin
      if(GetColor(271, 292) = 8356779)and
        (GetColor(499, 292) = 8356779)and
        (GetColor(271, 381) = 8356779)then
        Result := True;
    end;

    procedure WelcomeScreen;
    begin
      if(not(IsWelcomeScreen))then Exit;
      MouseBox(275, 296, 495, 377, 1);
    end;






    Procedure beginscript;
     Begin
      cleardebug
      DisguiseScar('Limewire:Enabling Walk It Out');
        Writeln(' /==\ /==\   /| |   | |  / ')
        Writeln('/     |  |  / | |\  | | /  ')
        Writeln('\===\ |__/ |__| | \ | |<   ')
        Writeln('    / |       | |  \| | \  ')
        Writeln('\==/  |       | |   | |  \ ')
       Writeln('--->Version 1.0')
      Writeln('--->Vial Wanker')
      Writeln('--->Contact Me At [email]crazyirishman84@hotmail.com[/email]')
    End;


    Procedure Setup;
    begin
      SetupSRL;
      ActivateClient;
      If (LoggedIn) then
      begin
      HighestAngle;
      MakeCompass('n');
      end;
      If (not(LoggedIn)) then
      LoginPlayer;
      WelcomeScreen;
      HighestAngle;
      MakeCompass('n');
    end;

    procedure FindRandoms;
      begin
      If (FindFight) Then
         begin
          Runawaydirection('N')
          Wait(25000+Random(5000))
          RunBack;
         end;
      FindNormalRandoms;
      ClickToContinue;
      CloseWindow;
      FindDead;
      FindMod;
      FindMime;
      FindMaze;
      FindQuiz;
      FindDemon;
      DwarfItem;
      DetectFrogCave;
      LeaveScreenEvery(5+random(5))
      HoverEvery(10+random(10),'woodcutting')
      PickUpMouseEvery(10+random(5));
    end;

    Procedure Ban;
     var
     NoBan : Integer;
      begin
       if ( not ( LoggedIn )) then Exit;
       NoBan:=Random(120)
        case NoBan of
         1: RandomRClickEvery(2 + Random(30));
         2: hoverskill('woodcutting', false);
         3: hoverskill('random', false);
         4: DoEmote(1 + Random(20));
         5: BoredEvery(9 + Random (21));
         6: PickUpMouse;
         7: LeaveScreenEvery(10 + Random(5));
         8: RotateEvery(20 + Random(5));
        end;
       end;



    procedure GetVials;
    begin
      OpenBank;
      wait(200+Random(100));
      Withdraw(1,1,28);
      wait(200+Random(100));
      CloseBank;
    end;






    Procedure WalktoWater;
    begin
    FindRandoms;
      If (FindSymbol(x,y, 'water source')) then
      begin
       SetRun(true)
       Mouse(x,y,1,1,true)
       wait(10000)
      end
    end;


    procedure clickfountain;
    begin
      FindRandoms;
      SRLRandomsReport;
       Ban;
       If (FindFight) Then
         begin
          Runawaydirection('N')
          Wait(25000+Random(5000))
          RunBack;
         end;
     If(FindColorSpiralTolerance(x,y,FountainColor,msx1,msy1,msx2,msy2,15))Or
             (FindColorSpiralTolerance(x,y,FountainColor1,msx1,msy1,msx2,msy2,15))Or
               (FindColorSpiralTolerance(x,y,FountainColor2,msx1,msy1,msx2,msy2,15))Then
                 mmouse(x,y,3,3)
                begin
                 GetMousePos(x,y)
                    mouse(x,y,1,1,true)
        end;
    end;
       




    function CoordsToInvSpot(gx,gy:integer):integer;
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;



    procedure FillWater;
    begin
     FindRandoms;
      SRLRandomsReport;
       Ban;
       Responder;
        If (FindFight) Then
         begin
          Runawaydirection('N')
          Wait(25000+Random(5000))
          RunBack;
         end;
       begin
     repeat
    finddtm(unvial,ex,ey,554, 205, 743, 465);
      useitem(coordstoinvspot(ex,ey+10));
    wait(500+random(100));
    clickfountain;
    until countitemdtm(unvial)=0;
    Vialsfilled:= Vialsfilled+ 28;
    end;
    end;

    procedure walktobank;
    begin
    Responder;
    FindRandoms;
      If (FindSymbol(x,y,'bank'))then
       begin
        MMouse(x,y,1,1)
        Mouse(x,y,1,1,true)
        end
    end;




    procedure bankvials;
    begin
    FindRandoms;
     OpenBank;
     DepositAll;
     LoadsToFinish:= LoadsToFinish + 1;
       Withdraw(1,1,28);
      wait(200+Random(100));
      CloseBank;
    end;






    begin
     beginscript;
     SafeInitForm;
     SafeShowFormModal;
     DeclarePlayers;
     Setup;
     repeat
     ProgressReport;
     GetVials;
     WalktoWater;
     FillWater;
     walktobank;
     bankvials;
     until (LoadsToFinish >=strtoint(Edit1.text))
    end.

  2. #2
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Here you go.
    SCAR Code:
    ///////////////////////////////////////////////////////////
     {||.....................................................||}
     {||..............Sp4nks vial wank.......................||}
     {||.....................................................||}
     {||.....................................................||}
     {||.............Release Date Feb. 3, 2007...............||}
     ///////////////////////////////////////////////////////////
     ///////////////////////////////////////////////////////////
     //////////////////////INSTRUCTIONS/////////////////////////
     ///////////////////////////////////////////////////////////
     // SRL 3.6 Reuquired                                     //
     //  Start in Falador East Bank                           //
     //  Have vials in first bank slot                        //
     //  Fill out Forms                                       //
     //  Enjoy                                                //
     ///////////////////////////////////////////////////////////
     ////////////////////////POLICY/////////////////////////////
     // You Dont Have permission to distribute this script    //
     ///////////////////////////////////////////////////////////
     ////////////////////Features///////////////////////////////
     //Auto Responder                                         //
     //Anti Ban                                               //
     //Anti Randoms by SRL:)                                  //
     //Find Mod                                               //
     ///////////////////////////////////////////////////////////
    program Vial_Wanker;

    {.include SRL/SRL.scar}


    var
    LoadsToFinish : integer;
    Vialsfilled : integer;
    unvial,ex, ey : Integer;
    FountainColor : Integer;
    FountainColor1 : Integer;
    FountainColor2 : Integer;
    User,Pass,Nick:String;
    {********************************FROM VARIABLES*********************************}
    var
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label9 : TLabel;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3 : TEdit;
      Edit4 : TEdit;
      Button1 : TButton;
      Edit5 : TEdit;
      Edit6 : TEdit;
      Edit7 : TEdit;
    {*******************************************************************************}

    procedure SetupAll;
    begin
    FountainColor :=StrToInt(Edit3.text);
    FountainColor1 :=StrToInt(Edit3.text);
    FountainColor2 :=StrToInt(Edit3.text);
    end;

    Procedure DeclarePlayers;

     Begin
        HowManyPlayers := 1;                // Set Number of Players here.
        NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
        CurrentPlayer := 0;                // CurrentPlayer = Array Index

        Players[0].Name := Edit2.Text;   //Username
        Players[0].Pass := Edit3.Text; //Password
        Players[0].Nick := Edit4.Text;         //3 or 4 letters username
        Players[0].Loc := '';               //Leave as blank
        Players[0].Skill := '';  //The skill for when you get a lamp
        Players[0].Active := True;

      Writeln(inttostr(HowManyPlayers) + ' Players');
    End;
    { $$$$$$$$$$$$$$$$$$$ END OF SETUP $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$}

    procedure ButtonClick(sender: TObject);//dont get why button click wont work and how do u save settings?
    begin
       SaveSetting('TestForm','User',Edit2.Text);
      SaveSetting('TestForm','Pass',Edit3.Text);
      SaveSetting('TestForm','Nick',Edit4.Text);
     frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;

    procedure Loadsettings;
    begin
    User:=LoadSetting('TestForm','User')
    Pass:=LoadSetting('TestForm','Pass')
    Nick:=LoadSetting('TestForm','Nick')
    end;

    Procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 309;
    frmDesign.Height := 419;
    frmDesign.Caption := 'Sp4nk'#39's Vial Wank';
    frmDesign.Color := clRed;
    frmDesign.Font.Color := clAqua;
    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 := 60;
    Label1.Top := 15;
    Label1.Width := 124;
    Label1.Height := 24;
    Label1.Caption := 'Vial Wanker';
    Label1.Font.Color := clPurple;
    Label1.Font.Height := -19;
    Label1.Font.Name := 'MS Sans Serif';
    Label1.Font.Style := [fsBold, fsItalic];
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 8;
    Label2.Top := 43;
    Label2.Width := 259;
    Label2.Height := 29;
    Label2.Caption := 'Made by: Wtf I Sp4nk';
    Label2.Font.Color := clPurple;
    Label2.Font.Height := -24;
    Label2.Font.Name := 'MS Sans Serif';
    Label2.Font.Style := [fsBold, fsItalic];
    Label2.ParentFont := False;
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 14;
    Label3.Top := 101;
    Label3.Width := 91;
    Label3.Height := 16;
    Label3.Caption := 'Loads To Do';
    Label3.Font.Color := clBlue;
    Label3.Font.Height := -13;
    Label3.Font.Name := 'MS Sans Serif';
    Label3.Font.Style := [fsBold];
    Label3.ParentFont := False;
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 8;
    Label4.Top := 264;
    Label4.Width := 75;
    Label4.Height := 16;
    Label4.Caption := 'UserName';
    Label4.Font.Color := clBlue;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'MS Sans Serif';
    Label4.Font.Style := [fsBold];
    Label4.ParentFont := False;
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 8;
    Label5.Top := 293;
    Label5.Width := 73;
    Label5.Height := 16;
    Label5.Caption := 'PassWord';
    Label5.Font.Color := clBlue;
    Label5.Font.Height := -13;
    Label5.Font.Name := 'MS Sans Serif';
    Label5.Font.Style := [fsBold];
    Label5.ParentFont := False;
    Label6 := TLabel.Create(frmDesign);
    Label6.Parent := frmDesign;
    Label6.Left := 8;
    Label6.Top := 322;
    Label6.Width := 73;
    Label6.Height := 16;
    Label6.Caption := 'NickName';
    Label6.Font.Color := clBlue;
    Label6.Font.Height := -13;
    Label6.Font.Name := 'MS Sans Serif';
    Label6.Font.Style := [fsBold];
    Label6.ParentFont := False;
    Label7 := TLabel.Create(frmDesign);
    Label7.Parent := frmDesign;
    Label7.Left := 10;
    Label7.Top := 152;
    Label7.Width := 101;
    Label7.Height := 16;
    Label7.Caption := 'Fountain Color';
    Label7.Font.Color := clBlue;
    Label7.Font.Height := -13;
    Label7.Font.Name := 'MS Sans Serif';
    Label7.Font.Style := [fsBold];
    Label7.ParentFont := False;
    Label8 := TLabel.Create(frmDesign);
    Label8.Parent := frmDesign;
    Label8.Left := 9;
    Label8.Top := 181;
    Label8.Width := 110;
    Label8.Height := 16;
    Label8.Caption := 'Founrain Color1';
    Label8.Font.Color := clBlue;
    Label8.Font.Height := -13;
    Label8.Font.Name := 'MS Sans Serif';
    Label8.Font.Style := [fsBold];
    Label8.ParentFont := False;
    Label9 := TLabel.Create(frmDesign);
    Label9.Parent := frmDesign;
    Label9.Left := 14;
    Label9.Top := 212;
    Label9.Width := 109;
    Label9.Height := 16;
    Label9.Caption := 'Fountain Color2';
    Label9.Font.Color := clBlue;
    Label9.Font.Height := -13;
    Label9.Font.Name := 'MS Sans Serif';
    Label9.Font.Style := [fsBold];
    Label9.ParentFont := False;
    Edit1 := TEdit.Create(frmDesign);
    Edit1.Parent := frmDesign;
    Edit1.Left := 120;
    Edit1.Top := 98;
    Edit1.Width := 121;
    Edit1.Height := 21;
    Edit1.TabOrder := 8;
    Edit1.Text := '';
    Edit2 := TEdit.Create(frmDesign);
    Edit2.Parent := frmDesign;
    Edit2.Left := 88;
    Edit2.Top := 265;
    Edit2.Width := 121;
    Edit2.Height := 21;
    Edit2.TabOrder := 9;
    Edit2.Text := User;
    Edit3 := TEdit.Create(frmDesign);
    Edit3.Parent := frmDesign;
    Edit3.Left := 88;
    Edit3.Top := 292;
    Edit3.Width := 121;
    Edit3.Height := 21;
    Edit3.TabOrder := 10;
    Edit3.Text := Pass;
    Edit4 := TEdit.Create(frmDesign);
    Edit4.Parent := frmDesign;
    Edit4.Left := 88;
    Edit4.Top := 320;
    Edit4.Width := 121;
    Edit4.Height := 21;
    Edit4.TabOrder := 11;
    Edit4.Text := Nick;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 77;
    Button1.Top := 350;
    Button1.Width := 70;
    Button1.Height := 25;
    Button1.Caption := 'START';
    Button1.Font.Color := clWindowText;
    Button1.Font.Height := -13;
    Button1.Font.Name := 'MS Sans Serif';
    Button1.Font.Style := [fsBold];
    Button1.ParentFont := False;
    Button1.TabOrder := 12;
    Button1.OnClick:= @ButtonClick //When pressed it does procedure "ButtonClick"
    Edit5 := TEdit.Create(frmDesign);
    Edit5.Parent := frmDesign;
    Edit5.Left := 118;
    Edit5.Top := 152;
    Edit5.Width := 121;
    Edit5.Height := 21;
    Edit5.TabOrder := 13;
    Edit5.Text := 'Edit5';
    Edit6 := TEdit.Create(frmDesign);
    Edit6.Parent := frmDesign;
    Edit6.Left := 125;
    Edit6.Top := 181;
    Edit6.Width := 121;
    Edit6.Height := 21;
    Edit6.TabOrder := 14;
    Edit6.Text := 'Edit6';
    Edit7 := TEdit.Create(frmDesign);
    Edit7.Parent := frmDesign;
    Edit7.Left := 130;
    Edit7.Top := 211;
    Edit7.Width := 121;
    Edit7.Height := 21;
    Edit7.TabOrder := 15;
    Edit7.Text := 'Edit7';
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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



    procedure LoadDTM;
    begin
      unvial := DTMFromString('78DA63EC636260D8C500065C108AE1FDD60A0' +
           '61120CD08C4FF8180D103A8E606030AD8B62C044C3342F9603577' +
           '50D54C98300D558D3B50CD6DFCE600006FEA100B');
    end;





    procedure ProgressReport;
    begin
     Writeln('<>---------------------------------------------<>');
     Writeln('<>---------------------------------------------<>');
     Writeln('WTF I SP4NK');
     Writeln('Vial Wanke');
     Writeln('Worked For: '+ScriptTime2(2));
     Writeln('Banked: '+IntToStr(LoadsToFinish)+'Loads of wfvials');
     Writeln('Filled: '+IntToStr(Vialsfilled)+'vials')
     Writeln('<>---------------------------------------------<>')
     Writeln('<>---------------------------------------------<>');
     SRLRandomsReport;
    end;


    Procedure Responder;
    begin
      if (InChat('Mining lvls') or
        InChat('Mining lvls?') or
        InChat('Mine lvls') or
        Inchat('Mine lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Mining')))
      end;

      if (InChat('Wc lvls') or
        InChat('Wc lvls?') or
        InChat('Woodcut lvls') or
        InChat('Woodcut lvls?') or
        InChat('Woodcutting lvls') or
        InChat('Woodcutting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
      end;
      if (InChat('Fish lvls') or
        InChat('Fish lvls?') or
        InChat('Fishin lvls') or
        InChat('Fishin lvls?') or
        InChat('Fishing lvls') or
        InChat('Fishing lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fishing')))
      end;
      if (InChat('Attack lvls') or
        InChat('Attack lvls?') or
        InChat('Atack lvls') or
        InChat('Atack lvls?') or
        InChat('Attac lvls') or
        InChat('Attac lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Attack')))
      end;

      if (InChat('Strengh lvls') or
        InChat('Strengh lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Strengh')))
      end;

      if (InChat('Defenc lvls') or
        InChat('Defenc lvls?') or
        InChat('Defence lvls') or
        InChat('Defence lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Defence')))
      end;

      if (InChat('Hp lvls') or
        InChat('Hp lvls?') or
        InChat('Hitpoint lvls') or
        InChat('Hitpoint lvls?') or
        InChat('Hitpoints lvls') or
        InChat('Hitpoints lvls?') or
        InChat('Hitp lvls') or
        InChat('Hitp lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
      end;

      if (InChat('Range lvls') or
        InChat('Range lvls?') or
        InChat('Rangin lvls') or
        InChat('Rangin lvls?') or
        InChat('Ranged lvls') or
        InChat('Ranged lvls?') or
        InChat('Ranging lvls') or
        InChat('Ranging lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Ranged')))
      end;

      if (InChat('Pray lvls') or
        InChat('Pray lvls?') or
        InChat('Prayer lvls') or
        InChat('Prayer lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
      end;

      if (InChat('Mage lvls') or
        InChat('Mage lvls?') or
        InChat('Mag lvls') or
        InChat('Mag lvls?') or
        InChat('Magic lvls') or
        InChat('Magic lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Magic')))
      end;

      if (InChat('Cook lvls') or
        InChat('Cook lvls?') or
        InChat('Cookin lvls') or
        Inchat('Cookin lvls?') or
        InChat('Cooking lvls') or
        InChat('Cooking lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Cooking')))
      end;

      if (InChat('Fletch lvls') or
        InChat('Fletch lvls?') or
        InChat('Fletching lvls') or
        InChat('Fletching lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fletching')))
      end;

      if (InChat('Firemaking lvls') or
        InChat('FireMaking lvls?') or
        Inchat('Fire making lvls') or
        InChat('Fire making lvls')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Firemaking')))
      end;

      if (InChat('Craft lvls') or
        InChat('Craftt lvls?') or
        InChat('Craftin lvls') or
        InChat('Crafting lvls?') or
        InChat('Crafting lvls') or
        InChat('Crafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Crafting')))
      end;

      if (InChat('Smelt lvls') or
        InChat('Smelt lvls?') or
        InChat('Smelting lvls') or
        InChat('Smelting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Smelting')))
      end;

      if (InChat('Rc lvls') or
        InChat('Rc lvls?') or
        InChat('Runecraft lvls') or
        InChat('Runecraft lvls?') or
        InChat('Runecrafting lvls') or
        InChat('Runecrafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Runecraft')))
      end;
    end;



    function IsWelcomeScreen: Boolean;
    begin
      if(GetColor(271, 292) = 8356779)and
        (GetColor(499, 292) = 8356779)and
        (GetColor(271, 381) = 8356779)then
        Result := True;
    end;

    procedure WelcomeScreen;
    begin
      if(not(IsWelcomeScreen))then Exit;
      MouseBox(275, 296, 495, 377, 1);
    end;






    Procedure beginscript;
     Begin
      cleardebug
      DisguiseScar('Limewire:Enabling Walk It Out');
        Writeln(' /==\ /==\   /| |   | |  / ')
        Writeln('/     |  |  / | |\  | | /  ')
        Writeln('\===\ |__/ |__| | \ | |<   ')
        Writeln('    / |       | |  \| | \  ')
        Writeln('\==/  |       | |   | |  \ ')
       Writeln('--->Version 1.0')
      Writeln('--->Vial Wanker')
      Writeln('--->Contact Me At <a href="mailto:crazyirishman84@hotmail.com">crazyirishman84@hotmail.com</a>')
    End;


    Procedure Setup;
    begin
      SetupSRL;
      ActivateClient;
      If (LoggedIn) then
      begin
      HighestAngle;
      MakeCompass('n');
      end;
      If (not(LoggedIn)) then
      LoginPlayer;
      WelcomeScreen;
      HighestAngle;
      MakeCompass('n');
    end;

    procedure FindRandoms;
      begin
      If (FindFight) Then
         begin
          Runawaydirection('N')
          Wait(25000+Random(5000))
          RunBack;
         end;
      FindNormalRandoms;
      ClickToContinue;
      CloseWindow;
      FindDead;
      FindMod;
      FindMime;
      FindMaze;
      FindQuiz;
      FindDemon;
      DwarfItem;
      DetectFrogCave;
      LeaveScreenEvery(5+random(5))
      HoverEvery(10+random(10),'woodcutting')
      PickUpMouseEvery(10+random(5));
    end;

    Procedure Ban;
     var
     NoBan : Integer;
      begin
       if ( not ( LoggedIn )) then Exit;
       NoBan:=Random(120)
        case NoBan of
         1: RandomRClickEvery(2 + Random(30));
         2: hoverskill('woodcutting', false);
         3: hoverskill('random', false);
         4: DoEmote(1 + Random(20));
         5: BoredEvery(9 + Random (21));
         6: PickUpMouse;
         7: LeaveScreenEvery(10 + Random(5));
         8: RotateEvery(20 + Random(5));
        end;
       end;



    procedure GetVials;
    begin
      OpenBank;
      wait(200+Random(100));
      Withdraw(1,1,28);
      wait(200+Random(100));
      CloseBank;
    end;






    Procedure WalktoWater;
    begin
    FindRandoms;
      If (FindSymbol(x,y, 'water source')) then
      begin
       SetRun(true)
       Mouse(x,y,1,1,true)
       wait(10000)
      end
    end;


    procedure clickfountain;
    begin
      FindRandoms;
      SRLRandomsReport;
       Ban;
       If (FindFight) Then
         begin
          Runawaydirection('N')
          Wait(25000+Random(5000))
          RunBack;
         end;
     If(FindColorSpiralTolerance(x,y,FountainColor,msx1,msy1,msx2,msy2,15))Or
             (FindColorSpiralTolerance(x,y,FountainColor1,msx1,msy1,msx2,msy2,15))Or
               (FindColorSpiralTolerance(x,y,FountainColor2,msx1,msy1,msx2,msy2,15))Then
                 mmouse(x,y,3,3)
                begin
                 GetMousePos(x,y)
                    mouse(x,y,1,1,true)
        end;
    end;





    function CoordsToInvSpot(gx,gy:integer):integer;
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;



    procedure FillWater;
    begin
     FindRandoms;
      SRLRandomsReport;
       Ban;
       Responder;
        If (FindFight) Then
         begin
          Runawaydirection('N')
          Wait(25000+Random(5000))
          RunBack;
         end;
       begin
     repeat
    finddtm(unvial,ex,ey,554, 205, 743, 465);
      useitem(coordstoinvspot(ex,ey+10));
    wait(500+random(100));
    clickfountain;
    until countitemdtm(unvial)=0;
    Vialsfilled:= Vialsfilled+ 28;
    end;
    end;

    procedure walktobank;
    begin
    Responder;
    FindRandoms;
      If (FindSymbol(x,y,'bank'))then
       begin
        MMouse(x,y,1,1)
        Mouse(x,y,1,1,true)
        end
    end;




    procedure bankvials;
    begin
    FindRandoms;
     OpenBank;
     DepositAll;
     LoadsToFinish:= LoadsToFinish + 1;
       Withdraw(1,1,28);
      wait(200+Random(100));
      CloseBank;
    end;






    begin
     Loadsettings;
     beginscript;
     SafeInitForm;
     SafeShowFormModal;
     DeclarePlayers;
     Setup;
     repeat
     ProgressReport;
     GetVials;
     WalktoWater;
     FillWater;
     walktobank;
     bankvials;
     until (LoadsToFinish >=strtoint(Edit1.text))
    end.
    You needed LoadSetting to load your settings.
    And by pressing button, you call procedure like this:
    SCAR Code:
    Button1.OnClick:= @ButtonClick

  3. #3
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. How do you click and hold mouse button?
    By Kasmember13 in forum OSR Help
    Replies: 1
    Last Post: 01-18-2009, 09:33 PM
  2. Find a Chest & Left Click,Right Click
    By yanix in forum OSR Help
    Replies: 3
    Last Post: 10-03-2007, 06:40 PM
  3. Forms Button click!
    By wtf i sp4nk in forum OSR Help
    Replies: 3
    Last Post: 02-09-2007, 02:09 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
  •