SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Laimonas171 - SRL Member Application Form
Laimonas171

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
VisualBasic

Other Communitys
False

How Long have You Played Runescape
2006 expect 2007 till now

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

i am Studieng VB6 at Collegue, you can see my tutorials on VisualBasic forum sections. i am better on VB6 then Scar, but i can learn it :P

http://www.srl-forums.com/forum/showthread.php?t=41253

http://www.srl-forums.com/forum/showthread.php?t=41246

http://www.srl-forums.com/forum/showthread.php?t=41663

http://www.srl-forums.com/forum/showthread.php?t=41247

http://www.srl-forums.com/forum/showthread.php?t=41088

http://www.srl-forums.com/forum/showthread.php?t=41747

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

IronPowerMiner, Tested in rimington, like first script whithout a lot knowledge works fine. :)

^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Consider, and the fact what here is my
FIRST AUTOING SCRIPT by SCAR

^^^^^^^^^^^^^^^^^^^^^^^^^^^^

program IronPowerMiner;
// oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\
//special thanks to IceFire908, Bebe for Tutorials!\\

{ Start LogedOFF! brightness 4, low details 32bit desktop.
Setup lines 15-17 for login, and mining ore colors.
For except drop line 85 }






{.Include SRL\SRL.SCAR}

const
 username= 'your username' ;// <<-- Type here USERNAME
 password= 'your password' ;// <<-- Type here PASSWORD
 OreColor = 3161957; // choose your own color if doesn't start mining!



// oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\
Procedure Prisijungimas; //login procedure
begin
  cleardebug;
  Mouse (401,186,1,1,true);
  wait(750+Random(1200));
  WriteLn('Wait a second scar trying to login... :P')
  Mouse (444,285,1,1,true);
  Wait(750+Random(1200));
  TypeSend(username);
  wait(1000+Random(200));
  TypeSend(password);
  wait(4000+Random(2000));
  Mouse (377,330,1,1,true);

  
  
  
  
end;


procedure Pradzia; // Set off all chats! and trade.

begin
SetChat('Off', 1);
SetChat('Off', 2);
SetChat('Off', 3);
SetChat('Off', 4);
end;
// oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\

  procedure Kasineja; // Mining.

var
  X, Y: Integer;

begin
  FindColor(X, Y, OreColor, 3, 3, 516, 337);
  Mouse(X, Y, 3, 3, False);
    Wait(300 + Random(200));
    ChooseOption('Mine');

end;




// oooooooooooo0000 < Laimonas171 First PowerMiner > 0000ooooooooooooo \\

  procedure DropAllExcept(W : Array of Integer);
// Credits to SandStorm
var
  i: Integer;
begin
For I:=1 To 28 Do
    if not(InIntArray(w, i)) then
      DropItem(i);
end;
// oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\

procedure MetoRuda; //Droping Ore
begin
      DropAllExcept([1,2,3,4]); // Drop all except inv numbers.
    end;
// oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\




procedure ZmogausJudesys; //HumanMove or looking at mining stats.


 begin

   case random(4) of //looks at random skills
    0: HoverSkill('Smithing', False);
    1: HoverSkill('Mining', False);
    2: HoverSkill('Crafting', False);
    3:
  end;
end;
 // oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\

Procedure Parasas; // Sig on Start
Begin
  ClearDebug;

    WriteLn('   / /');
  Wait(80);
    WriteLn('  / / \');
  Wait(80);
    WriteLn(' ( ( ) )');
  Wait(80);
    WriteLn('  \ / /');
  Wait(80);
    WriteLn('   / / ');
  Wait(80);
       WriteLn('  / / \');
  Wait(80);
    WriteLn(' ( ( ) )');
  Wait(80);
    WriteLn('  \ / /');
   wait(80)
    WriteLn('   / / ');
  Wait(80);
       WriteLn('  / / \');
  Wait(80);
    WriteLn(' ( ( ) )');
  Wait(80);
    WriteLn('  \ / /');
  Wait(80);
      WriteLn('   / /');
  Wait(80);
    WriteLn('  / / \');
  Wait(80);
    WriteLn(' ( ( ) )');
  Wait(80);
    WriteLn('  \ / /');
  Wait(80);
    WriteLn('   / / ');
  Wait(80);
       WriteLn('  / / \');
  Wait(80);
    WriteLn(' ( ( ) )');
  Wait(80);
    WriteLn('  \ / /');
   wait(80)
    WriteLn('   / / ');
  Wait(80);
       WriteLn('  / / \');
  Wait(80);
    WriteLn(' ( ( ) )                My First Script!          ');
  Wait(80);
    WriteLn('  \ / /                 Laimonas171 PowerMiner    ');
  Wait(80);
     WriteLn('_________________________________________________');
  Wait (3000)

end;
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 5 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
           end;
         end;
       4: RC;
       5: Respond;
    end;
    wait(1);
  end;
end;



// oooooooooooo0000 < Laimonas171 First IronPowerMiner > 0000ooooooooooooo \\
 procedure mainloop;

 begin
   SetUpSRL;
    Disguise('-=IronPowerMiner by Laimonas171=-')
  ClearDeBug;
  Parasas;
  ActivateClient;
  Prisijungimas;
  FindFastRandoms;
  Pradzia;

  repeat
         repeat
          Kasineja;
            Wait(1500 + Random(2200));
             until InvFull;
             ZmogausJudesys;

  MetoRuda;

  Wait(1000);
  until (false)
  end;

begin
   mainloop;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

surely this is stolen? FindFastRandoms?, and even if not, it's too simple you need DTM's and lots of things from the intermediate section of tutorial island.

From: sandos
surely this is stolen? FindFastRandoms?, and even if not, it's too simple you need DTM's and lots of things from the intermediate section of tutorial island.

WTF… stolen.. i all day doeing this shit… ask in ICR i asking alot of funtions.. and read some tuts. . . Rrr.. Find fast rondoms is in tutorial…

i do not create ortry anymore SCAR scripting..and if i still try do not post ir here… thank you ALL…

script is too simple study a bit harder :p

From: Laimonas171
i do not create ortry anymore SCAR scripting..and if i still try do not post ir here… thank you ALL…

oh don't give up yet man ^^

Just try to look at a few more tuts and make your script a bit more complex and you'll probably get in next time xD

Sorry its a No way to simple but good try :)

From: Hugolord
oh don't give up yet man ^^

Just try to look at a few more tuts and make your script a bit more complex and you'll probably get in next time xD

i dont know scar at all.. i learned what i do just today.. if nobodie likes it i do not try it anymore.. it anoying to make for totaly "no", i readed all day f*cking manuals… and what nobodie likes it..
no incentive simply .. "We can better you, too, create the script without mistakes and whit perfect appearance."
well I'm not perfect but clearly told that this is my first script i think you all can regard to that spot. Any case, I
overspend my time in vain.
I really like to try to create, I learned many new, because no one does not take account of my efforts, I do not see the point for my efforts. and in any case, I do not see the point in the development of the script, I try it and it's doesn't like to anybody .. any sense … it and do (try) this is just for myself.
I think I said everything I wanted to.

~Laimonas171

The point is: everyone makes effort to make a script.

Yes, you put the effort in. However, you don't show enough implementation of SRL into the script (with good cause or reason).

[X]: DTMs
[X]: DDTMs
[X]: Walking
[X]: Antiban/Antirandom
[X]: Multiplayer
[X]: TPAs/T2DTPAs

It's a no from me. Too simple.

NEVER apply with first scripts..
dont whine…

you'll get there…
well a no from me .

I voted no. First, your script is just too simple. This application is one that shows your skills and talents as a programmer/scripter. Fine if it is your first script, however that doesn't affect my vote one way or the other. An application to show skill is not based on the whether the script is your first or 1000th.

The second reason I voted no, and this will be a much harder one for you to overcome in my eyes, your attitude is poor. You come in here and ask for our approval, when someone gives you some constructive criticism you attack them, curse, and claim it is too hard. That's a poor attitude that will influence my voting in the future.

Membership isn't for the immature or inexperienced. You are both. Gain a better attitude, read more tutorials, and try to apply again in a month.

From: boberman
I voted no. First, your script is just too simple. This application is one that shows your skills and talents as a programmer/scripter. Fine if it is your first script, however that doesn't affect my vote one way or the other. An application to show skill is not based on the whether the script is your first or 1000th.

The second reason I voted no, and this will be a much harder one for you to overcome in my eyes, your attitude is poor. You come in here and ask for our approval, when someone gives you some constructive criticism you attack them, curse, and claim it is too hard. That's a poor attitude that will influence my voting in the future.

Membership isn't for the immature or inexperienced. You are both. Gain a better attitude, read more tutorials, and try to apply again in a month.

i making Powerminer For my self :P if i make realy good.. maybe.. just maybe i post it here.

It takes more than 1 day of reading tuts to learn how to script in SCAR. Do that for a week, and have all of the things that are on TViYH's list, then you'll probably get in. But beware, doing things like swearing and having an attitude only hurt your chances next time.

Good luck.

EDIT: Btw, a powerminer has a very little chance of getting you in, unless you somehow incorporate walking, TPAs, DDTMs, etc. in it (look at TViYH's list).

Please only one application at a time.

Just because you don't like the results of the first doesn't mean you get to make a second.

Please stick to the original.

http://www.villavu.com/forum/showthread.php?t=39105?t=42012

Closed.

Script is too simple, but I just wanted to say: keep it up! You've been learning fast. :)