SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
A bit of Java And Intermediate-advanced in scar.

Other Communitys
Sythe

How Long have You Played Runescape
about 3 years.(huge knowledge).

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

Okay, lets see.
I can do a bit of java. In scar programming , if the options are noob,beginner,intermediate,advanced,guru , I think I'm in the middle of intermediate and advanced…
I've played about 3 years of RuneScape. Been a Member most time.
So, I know quite lot about rs,so if someone needs help,most times I can help.
I've made 8 SRL scar-scripts.
I think that was it for short.
I've just made an edgeville yewcutter, but unfortunately it just laggs.Trying to solve…

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

{.Script Info:
# ScriptName  = clarion 
# Author      = Macrowave (sythe.org) 1337SNAK3 NOW AFTER THEY'VE LOADED THE BACKUP! VILLU-REBORN.COM N3SS3S
# Description = powerminer[srl][rs2]
# Version     = 0.5 //added very small form,i think i fixed something
was it huge break on antirandoms or w/e...
# Date        = get out of here!
# Comments    = SORRY FOR A DAMN POOR FORM!
/Script Info}
program Clarion;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var loads,playtime,stime,wtime,rtime,ltime:integer;
playertime : integer;
frmdesign : tform;
button1 : tbutton;
{**********************************************************************}
const
rockcolor    = 2964580;
rockcolorinv = 2042695;
startplayer  = 0;
runawaydir   ='N';
{**********************************************************************}
procedure declareplayers;
begin
     HowManyPlayers  := 1;
     NumberOfPlayers(howmanyplayers);
     CurrentPlayer := StartPlayer;

     Players[0].Name :='timekiller46';//name
     Players[0].Pass :='blablabla';//pass
     Players[0].Nick := 'eki';// about 3 letters of ur name
     Players[0].Integer1 := 5;//wait time between rocks in seconds.
     Players[0].Integer2 := 3600;//time to stay in (in sec).
     Players[0].Integer3 := 600;//random time to stay in(seconds).
     Players[0].Active := True;
     Writeln('Using '+inttostr(HowManyPlayers)+' Player[s]');
     
     end;
{**********************************************************************}
procedure DeclareVar;
begin
wtime      :=players[currentplayer].integer1 *1000;
ltime      :=players[currentplayer].integer2 *1000;
rtime      :=players[currentplayer].integer3 *1000;
playtime   :=Ltime + random(rtime);
mousespeed :=10;
end;
{***********************************************************************}
procedure responds;
begin
if(ischatmessage('mining')) and (ischatmessage('lvl')) or (ischatmessage('lwl')) or (ischatmessage('level')) then
saycurrentlevels('mining');
if(findname=true) then
typesend('ye?'+chr(13));
if(ischatmessage('hi')) then
typesend('hi'+chr(13));
end;
{***********************************************************************}
procedure NotABot;
begin
  RandomChatEvery(10+ Random(5));
  RotateEvery(10 + Random(10));
  PickUpMouseEvery(10+ Random(10));
  responds;
  end;

{***********************************************************************}
procedure randoms;
begin
findtalk;
findpick;
if(findfight) then
begin
runawaydirection(runawaydir);
wait(8500+random(400));
runback;
end;
if(loggedin = False) then
loginplayer;
end;
{***********************************************************************}
procedure DropOres;
begin
repeat
if(findcolor(x,y,rockcolorinv,561,208,733,459)) then
mouse(x,y,0,0,false);
wait(700+random(50));
chooseoption(x,y,'rop');
wait(700+random(100));
until(not(findcolor(x,y,rockcolorinv,561,208,733,459)));
if(findcolor(x,y,8852495,561,208,733,459)) then
mouse(x,y,0,0,false);
wait(700+random(50));
chooseoption(x,y,'rop');
loads:=loads+1;
end;
{***********************************************************************}
procedure buttonclick(sender: TObject);
begin
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 259;
  frmDesign.Top := 132;
  frmDesign.Width := 354;
  frmDesign.Height := 254;
  frmDesign.Caption := 'Clarion - by MacroWave';
  frmDesign.Color := 3799433;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 69;
  Button1.Top := 61;
  Button1.Width := 75;
  Button1.Height := 25;
  Button1.Caption := 'Run';
  Button1.TabOrder := 8;
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 Mine;
var foundrock:boolean; waitforore:integer;
begin
repeat
if(findobjore(x,y,'ine',rockcolor,10,3))then
begin
x := x+random(2);
y := y+random(2);
if (not(gasfound(x,y))) then
Mouse(x,y,0,0,true);
end;
if random(100) < 4 then mouse(x,y,0,0,false);
chooseoption(x,y,'ine');
if gasfound(x,y) then
begin
Ftwait(5);
randoms;
end;
foundrock :=true;
marktime(waitforore);
if foundrock then
repeat
randoms;
until((timefrommark(waitforore)) > wtime)
until(invfull)
end;

{***********************************************************************}
procedure setup;
begin
declarevar;
marktime(playertime);
loginplayer;
highestangle;
perfectnorth;
setchat('on',1);
setchat('friends',2);
setchat('off',3);
if not findpickheadcolor then writeln('didnt find pick,terminating player.');
nextplayer(true);
end;
{***********************************************************************}
procedure progressreport;
begin
writeln('dropped/mined'+inttostr(loads)+',loads');
writeln('thanks for using macrowaves clarion v0.5');
end;

begin
safeinitform;
safeshowformmodal;
setupsrl;
setupsrlmining;
activateclient;
declareplayers;
marktime(stime);
NotABot;
repeat
setup;
repeat
if not loggedin then break;
writeln('starting mainl');
mine;
dropores;
if not loggedin then break;
progressreport;
srlrandomsreport;
if(timefrommark(stime)> playertime) then break;
until(false);
if not loggedin then nextplayer(true);
until(false);

end.
{**************************Finish line*******************************}

I woulded post my fresh woodcutter, but i dont know whats wrong with it, it laggs!!:spongebob:

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

Is this yours?
It says

# Author = Macrowave

I hope thats you….

Anwys

Make the dropping procedure work with bitmaps or DTMs,
it currently works with color, which might drop something valuable of the same color.

Other than that the script is ok.. but its still quite simple and could use more features, such as player switching.

VILLU-REBORN.COM N3SS3S

Ahem, it is his script.

That is a decent script but it could be improved alot. I'm not sure, you may have rushed through it. I won't vote yet, I'll think about it still ;)

[php]
procedure declareplayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='timekiller46';//name
Players[0].Pass :='blablabla';//pass
Players[0].Nick := 'eki';// about 3 letters of ur name
Players[0].Integer1 := 5;//wait time between rocks in seconds.
Players[0].Integer2 := 3600;//time to stay in (in sec).
Players[0].Integer3 := 600;//random time to stay in(seconds).
Players[0].Active := True;
Writeln('Using '+inttostr(HowManyPlayers)+' Player');

end;[/php]

Take name out? Also, i'm not gonna vot yet.

I can't tell if its yours, I think you prolly took it and added a few things, so naww. I wait :D

Good job though.

In sythe.org i was macrowave!!!!!! It got hacked then they loaded old backup and then my account didnt work anymore i made new asked starblaster what happened he said register again with same name but i already made a new account!!!!!!!

Get S-blaster to approve then.

Approve what?
Yoho look at the script author 1337snak3 after they loaded old backup!!!!!!!omg ppl cant read… And as town said "villu-reborn.com n3ss3s"
I think ive proven enough that it is my script.
If someone still has doubts i'll send the image about starblaster sending me answer for my question about sythe.org !
now ppl clear ur mind and vote!
There is the picture of starblaster replying to me. I think that proves that i was macrowave.
I hope there will be no arguing about who i am now on.

That you aren't lying about that.

ejj man look at this.

K I vote yes.

Thanks ejj.

Having that big 'Go vote me' in your sig isn't making you look very good.
Id take that off -.- .

Ty yoho, actually it really looks like… ill skip saying.

Looks good for me, yes from me! :) (Kiva nähä lisää vaa suomalaisia tääl n3ss3s :D)

Hyvä Pentti! :D
OMG 63 views and only 3 votes? C'mon ppl.

meh… It's against my better judgement to vote yes on a script that is 170 lines or so without forms. But the fact that you have forms is good. At least you know how they work (Or maybe u just used form creator, copied and pasted :p jking) nyways, I can c it will get the job done so i will go ahead and vote yes.

Yes from here ;).

U know is it okay to change the script?

I do not like this guy so im not going to vote.

he seems kinda pushy and telling us to vote yes…
no like XD.

and there are very few people on SRL I dislike.

just to clear things up i didn't say I vote no … i said i didn't vote.

Standards, plus too simple, plus I don't like some of your posts. Keep working at it. Voting no.

The "pushy" is because i thought that this forum part would be more activate.

I'm going to have to say no to this because the script, althought it does show novice knowledge of SRL, it can be greatly improved upon with basic SRL functions that are commonplace.

As with Sniper, I will have to agree, I'm not to fond of your attitude and pushiness for approval on an okay script. Work a little harder and you shall get SRL down in no time.

One last thing, if I might add, is that you need to learn a bit more of the scripting standards(see http://kaitnieks.com/scar/scriptingsta/).

rofl nice dark
i do that sometimes too.
Its quite annoying when people ask for votes -.-
Just be patient

The "pushy" is because i thought this part of forums would be more active…
However…I didnt mean to be :)

Come to think of it maybe its still too early… What do you ppl think?
Should i have a break with this thing, make a few new scripts learn some more of the basics as someone said and then come back and try again?
p.s dark i havent said that vote "yes" or atleast i think so. I have said go vote me, but that meant only to get more ppl to see this thread… So many views so low posts.
Sry for confusing. If i did confuse someone.

Yes make more scripts and try again in a month. Then you will be a definitely yes without having to ask for people to vote.

Ok ty boreas.(Im from Finland my english is bad and i didnt know how you would take the "GO VOTE ME"…) C ya
Umm, Should i make a new account for the next try?

From: yohojo8
rofl nice dark
i do that sometimes too.
Its quite annoying when people ask for votes -.-
Just be patient

lawl you know thats how it goes.

From: n3ss3s
Ok ty boreas.(Im from Finland my english is bad and i didnt know how you would take the "GO VOTE ME"…) C ya
Umm, Should i make a new account for the next try?

Same account (n3ss3s), just hit the apply here thing again in a month.

just take a month to learn a little bit more then apply again, I bet you could easily do better then.
suggestion: try learning some DTM's.

Ok ppl C ya in a month!