SRL Archive - Archive

hermpie - SRL Member Application Form


ShowerThoughts

2007-09-09 07:29:01

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

What is the meaning to life?
just make fun and more stuff afcorse
srl is much of it

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


Programming Knowledge
None

Other Communitys
sythe(*shame*), moppar(sometime)

How Long have You Played Runescape
3+ years

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

hello fellow scripters.
my real name is hermen now you know why my username is hermpie;).
like 3 months ago i started to visit the community, after a month my dream was getting SRL member, so i started learning it in the begin i was unpatient but i learned from that i think.
i made a few not finished script but that few can proof i can do it and i made 1(2//the hidetanner is 99% working almost) working script

info:
i will post
Ultimate Thea-cup Thiever v 0.1//for the script just evrything but not multiplayer
hide tanner//for the script and multiplayer//only the walking doesnt work for the rest it works great
restlessghost//not finished yet but yeah the stuff in it is okay..
ow and that i got 600+ post pls don't think i am spammer i just like to be here online you know.//i would i could acces from school but they monitor the computers they can see what your doing..
if you got questions or critism pls post it i wanna learn from it
if there a few small mistakes and i can't get in then pm me
just pm if there mistakes;)
the most important thing is i wanna learn from it.

i did my best on english

about: my experience i didnt do one launge before but i am good wit h computer and i bought one for myself with my own cash on age 10 (i hope you get that i love computers);) not that i think i am good now just wanna say i love computers!and now i love srl!

hermpie

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

Ultimate Thea-cup Thiever v 0.1
v0.2 beta under it not much diff


//IF THE WALKING TO THE BANK IS NOT WORKING VERY GOOD THEN GO TO LINE 173 and remove the // for radialwalk
//if you did that then put on line 172 2x// for radial walk because otherwise it wil do the same 2 times..

program theacup;
{.include SRL/SRL.scar}
var
X, Y, Loads, VarockSand, VarockSandColor,
TheaSeller, Times, startskill, endskill : integer;

const
Load= 50;//how many loads to do

//dont use this srl thingy is a bit outdated
Drop=False;//IF THIS IS TRUE IT WONT BANK THE CUP OF THEA

//dont change this only if its clicks to fast at stealing
TimeToWait=5500;//
procedure LoadBitmap;
begin
VarockSand := BitmapFromString2(False, 'a14F8678DACD8DC10D0' +
'02108045B0205C1A7776AFF259D8B0F132BB8CF64334C0211B135' +
'5A94B4584C165506767E4186D782463B58A49D86A237BFFBB86E9' +
'F3C1AC55567418384ACC736C6AE50A613A6666C7EC0964FB33F36' +
'B9FBB86E4F1526A5E1D559FB9FF901944');
TheaSeller := BitmapFromString2(False, 'a1A88A78DADD913B0E8' +
'4300C05AFE47C9C989218FBFE475ABF64056D68B658172334F290' +
'088828E54631063696200F081618AE065FCFC7983C9CA6150D66A' +
'9308C67F6E933DED3077C9BFB6D30D813FC596ED3B3DEFC9A0371' +
'4E934DE510E6EB3FE8E6960A48F6BA5257CACE1EDFE88A21DA6A5' +
'735699745A5317B2D7E21A575D6AA96D9BFF9DA7F5BFD861F7BE');
end;

{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;

end;
end;


procedure antiban;
begin
Case Random(10) Of
1 : HoverSkill('Thieving', False);
2 : HoverSkill('thieving', False);
3 : begin
GameTab(1+Random(12));
Wait(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(x,y,333,273);
end;



end;
end;



procedure GetVarockSandColor;
begin
LoadBitmap;
FindFastRandoms;
VarockSandColor:=AutoColorThis(VarockSand, 100, MMX1, MMY1, MMX2, MMY2);
WriteLN('VarockSandColor: '+IntToStr(VarockSandColor));
FreeBitmap(VarockSand);
end;


procedure StealFromTheaStall;
begin
Makecompass('E');
lowestangle;
GameTab(4);
antiban;
repeat
FindFastRandoms;
if findcolorspiraltolerance(X,Y,9677753, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,8618893, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,9611703, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,1591648, MSX1, MSY1, MSX2, MSY2, 10) then
begin
Mouse(x,y,0,0,False);
if ChooseOption('rom') then
begin
WriteLN('did steal the stall');
end;
if invfull then
exit;
else
wait(TimeToWait + random (233));
end;
until(InvFull);
if (InvFull) then
begin
Loads :=Loads + 1
end;
end;

procedure ToBank;
begin
MakeCompass('N');
SetRun(true);
GameTab(2);
endskill:=GetSkillLevel('thieving');
Highestangle;
FindVarrockRoadColor;
FindFastRandoms;
if FindBank('veb')then
begin
Exit;
end else
FindFastRandoms;
RadialRoadWalk(VarockSandColor,340,0,70,0,0);//IF IT DOESNT WALK PERFEXT TO BANK THEN PUT A // FOR THIS LINE(RADIAL)
//RadialRoadWalk(VarockEastColor,340,0,70,0,0);//AND REMOVE THE // FOR THIS LINE
FindBank('veb');
end;

procedure HandleBank;
begin
DepositAll;
Closebank;
GameTab(4);
if (invfull) then
begin
OpenBankQuiet('veb');
DepositAll;
Closebank;
GameTab(4);

end;
end;

Procedure ToTheaStall;
begin
Setrun(False);
GetVarockSandColor;
RadialRoadWalk(VarockSandColor,90,160,65,0,0);
Wait(3000 + random(500));
repeat
FindFastRandoms;
Times:=Times + 1
if FindBitmapToleranceIn(TheaSeller,x,y,MMX1,MMY1,MMX2,MMY2,25) then
begin
Mouse(x,y,0,0,true);
wait(1);
Flag;
while Flag do
wait(1);
FlagPresent;
if FlagPresent Then
wait(6500+random(200));
end;
until(Times=10)
FreeBitmap(TheaSeller);
end;

procedure proggy;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads did : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;

procedure proggy1;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads dropped : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;

procedure SetupClient;
begin
ActivateClient;
Wait(1000);
GameTab(2);
startskill:=GetSkillLevel('thieving');
gametab(12);
setbar('Brightness',4);
GameTab(4);
MakeCompass('N');
Highestangle;
antiban;
end;

{===============]
mainloop
[===============}
begin
SetupSRL;
SetupClient
repeat
if drop then
begin
FindFastRandoms;
stealfromtheastall;
antiban;
FindFastRandoms;
dropall;
proggy1;
end else
ToTheaStall;
FindFastRandoms;
stealfromtheastall;
antiban;
toBank;
handlebank;
Proggy;
until(loads=load)
GameTab(2);
endskill:=GetSkillLevel('thieving');
Proggy;
end.

if this one is not working good then its because i lend a member account for 1 time and after that i couldnt acces it anymore for some reasons

v0.2 beta


//IF THE WALKING TO THE BANK IS NOT WORKING VERY GOOD THEN GO TO LINE 173 and remove the // for radialwalk
//if you did that then put on line 172 2x// for radial walk because otherwise it wil do the same 2 times..

program theacup;
{.include SRL/SRL.scar}
{.include SRL\SRL\Misc\trade.scar}
var
X, Y, Loads, VarockSand, VarockSandColor, TheaSeller, Times, startskill, endskill : integer;

const
Load= 50;//how many loads to do

//dont use this srl thingy is a bit outdated
DropTea=False;//drops tea

//LET THIS//if it clicks steal tea to fast than change this
TimeToWait=5500;//
procedure LoadBitmap;
begin
VarockSand := BitmapFromString2(False, 'a14F8678DACD8DC10D0' +
'02108045B0205C1A7776AFF259D8B0F132BB8CF64334C0211B135' +
'5A94B4584C165506767E4186D782463B58A49D86A237BFFBB86E9' +
'F3C1AC55567418384ACC736C6AE50A613A6666C7EC0964FB33F36' +
'B9FBB86E4F1526A5E1D559FB9FF901944');
TheaSeller := BitmapFromString2(False, 'a1A88A78DADD913B0E8' +
'4300C05AFE47C9C989218FBFE475ABF64056D68B658172334F290' +
'088828E54631063696200F081618AE065FCFC7983C9CA6150D66A' +
'9308C67F6E933DED3077C9BFB6D30D813FC596ED3B3DEFC9A0371' +
'4E934DE510E6EB3FE8E6960A48F6BA5257CACE1EDFE88A21DA6A5' +
'735699745A5317B2D7E21A575D6AA96D9BFF9DA7F5BFD861F7BE');
end;

{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 12 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
10: If FindTalk Then
Result := True;

11: If HandleTrade Then
Result := True;
12: If ClickToContinue Then
Result := True;
end;

end;
end;


procedure antiban;
begin
Case Random(20) Of
1 : HoverSkill('Thieving', False);
2 : HoverSkill('thieving', False);
3 : begin
GameTab(1+Random(12));
Wait(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(x,y,333,273);
end;



end;
end;



procedure GetVarockSandColor;
begin
LoadBitmap;
FindFastRandoms;
VarockSandColor:=AutoColorThis(VarockSand, 100, MMX1, MMY1, MMX2, MMY2);
WriteLN('VarockSandColor: '+IntToStr(VarockSandColor));
FreeBitmap(VarockSand);
end;


procedure StealFromTheaStall;
begin
Makecompass('E');
lowestangle;
GameTab(4);

repeat
FindFastRandoms;
if findcolorspiraltolerance(X,Y,9677753, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,8618893, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,9611703, MSX1, MSY1, MSX2, MSY2, 10) or
FindColorSpiralTolerance(X,Y,1591648, MSX1, MSY1, MSX2, MSY2, 10) then
begin
Mouse(x,y,0,0,False);
if ChooseOption('rom') then
begin
WriteLN('did steal the stall');
end;
if invfull then
exit;
else
antiban;
wait(TimeToWait + random (233));
end;
until(InvFull);
if (InvFull) then
begin
Loads :=Loads + 1
end;
end;

procedure ToBank;
begin
MakeCompass('N');
SetRun(true);
GameTab(2);
endskill:=GetSkillLevel('thieving');
GameTab(4);
Highestangle;
FindVarrockRoadColor;
FindFastRandoms;
if FindBank('veb')then
begin
Exit;
end else
FindFastRandoms;
RadialRoadWalk(VarockSandColor,270,340,70,0,0);//IF IT DOESNT WALK PERFEXT TO BANK THEN PUT A // FOR THIS LINE(RADIAL)
//RadialRoadWalk(VarockEastColor,340,0,70,0,0);//AND REMOVE THE // FOR THIS LINE
FindBank('veb');

end;

procedure HandleBank;
begin
DepositAll;
Closebank;
GameTab(4);
if (invfull) then
begin
OpenBankQuiet('veb');
DepositAll;
Closebank;
GameTab(4);

end;
end;

Procedure ToTheaStall;
begin
Setrun(False);
GetVarockSandColor;
linearroadwalk(VarockSandColor,100,75,x,y);
Wait(3000 + random(500));
repeat
FindFastRandoms;
Times:=Times + 1
if FindBitmapToleranceIn(TheaSeller,x,y,MMX1,MMY1,MMX2,MMY2,25) then
begin
Mouse(x,y,0,0,true);
wait(1);
Flag;
while Flag do
wait(1);
FlagPresent;
if FlagPresent Then
wait(6500+random(200));
end;
until(Times=10)

FreeBitmap(TheaSeller);
end;

procedure proggy;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads did : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;

procedure proggy1;
begin
WriteLN('//--------------------------');
WriteLN('// Total Running Time : ' +TimeRunning);
WriteLN('// Total loads dropped : ' +inttostr(load)+'');
WriteLN('//thieving-level was '+inttostr(startskill)+'');
WriteLN('//thieving-level is now '+inttostr(endskill)+'');
WriteLN('//--------------------------');
WriteLN('//thanks for using my script');
WriteLN('//post proggy,s and bugs ;) ');
WriteLN('--------------------------');
end;

procedure SetupClient;
begin
ActivateClient;
Wait(1000);
gametab(12);
setbar('Brightness',4);
GameTab(2);
startskill:=GetSkillLevel('thieving');
MakeCompass('N');
Highestangle;
antiban;
end;

{===============]
mainloop
[===============}
begin
SetupSRL;
SetupClient
repeat
if droptea then
begin
FindFastRandoms;
stealfromtheastall;
antiban;
FindFastRandoms;
dropall;
proggy1;
end else
ToTheaStall;
FindFastRandoms;
stealfromtheastall;
antiban;
toBank;
handlebank;
Proggy;
until(loads=load)
GameTab(2);
endskill:=GetSkillLevel('thieving');
Proggy;
end.

dont know ecxactly the diff between 0.1 and 2 beta but they both work and 2 got 10 more lines ..

hide tanner it works great but only the walking is a prob the rest works great ehm i am gonna use dtm or ddtms for it but i will do that later ,i know how to use them but i dont got much time

*finly stopped talking*
here
program HideTannerAndCrafter;
{.include srl/srl.scar}

var
x, y ,cy,cx:integer;
Tan, kebabcolor,Kebab :integer;
TanColor, hide, H,Hi:integer;
HideText,loads,load:integer;


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 :=''; // runescape username
Players[0].Pass :=''; // runescape password
Players[0].Nick :='ran'; // nick, 3 - 4 letters of username
Players[0].Loc :='bank'; // you can use 'somewhere' or 'Aereck'
Players[0].Integers[1] := 5; //howman
Players[0].Active:=True; // active player



writeln(inttostr(HowManyPlayers)+' Players');

end;

{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}


{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;

end;
end;



procedure LoadDtms;
begin
hide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
'8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
'2301249809A891041202F8D50000C82E06DB');

HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
'4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
'19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
'8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
'4F40CD6622D2CF66C2691500FDE0200E');
HI := DTMFromString('78DA635CCFC0C0B09001159CF8C1C005A4188' +
'1F83F1030AE0332E63360058C307A13916A961150B38EB01A001A' +
'D60C6B');
end;

function FindHideText1:boolean;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
if not loggedin then exit;
LoopInteger := 0;
LoopBrake := False;
loaddtms;
repeat
LoopInteger:= LoopInteger + 1
if FindDTM(HideText,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,5,5);
wait(100+random(300));
GetMousePos(x,y);
mouse(x,y,0,0,false);
LoopBrake := True;
end;
until((LoopInteger>=10)or(LoopBrake))
if loopbrake then
logout;
nextplayer(False);
end;

function FindHideText:boolean;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
if not loggedin then exit;
LoopInteger := 0;
LoopBrake := False;
loaddtms;
repeat
LoopInteger:= LoopInteger + 1
if FindDTM(HI,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,5,5);
wait(100+random(300));
GetMousePos(x,y);
mouse(x,y,0,0,false);
result:=true;
LoopBrake := True;
end else
result:=false
logout;
until((LoopInteger>=10)or(LoopBrake))
if not((LoopInteger>=10)or(LoopBrake)) then
logout;
nextplayer(False);
end;



procedure GetHides;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
If Not LoggedIn Then Exit;
makecompass('N')
Highestangle;
wait(100);
OpenBankFast('akb');//leave this
wait(100);
fixbank;
LoopInteger := 0;
LoopBrake := False;
repeat
LoopInteger:= LoopInteger + 1
if FindObj(X, Y,'oins', 2084091,10) then
loopbrake:=true
Mouse(x,y,0,0,false);
begin
if chooseoption('X') then
begin
wait(1000);
writeln('found money taking money from bank');
typesend('81');
loopbrake:=true
end;
end;
wait(1000+random(500));
until((loopinteger>=10) or (loopbrake))
loaddtms;
if FindDTM(hide,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,1,0);
mouse(x,y,2,1,false);
if chooseoption('All') then
begin
writeln('found hides in bank');
closebank;
exit;
end else
writeln('cant find cowhide in bankscreen');
closebank;
logout;
end;
end;

procedure GetKebabColor;
begin
Kebab := BitmapFromString2(False, 'a8189178DA45CCBB11C0200C' +
'03D09584F187169378FF91402948F34EA7930D00F91C10FDA06D1' +
'E6D38B545F5BD5986FE7D71E3C253AD644EA3839547BB19DDBEFF' +
'AB4CA6847544D506C26');

KebabColor:=AutoColorThis(Kebab,200 , MMX1, MMY1, MMX2, MMY2);
WriteLn('KebabColor: '+IntToStr(kebabColor));
FreeBitmap(Kebab);
end;


procedure GetTanColor;
begin
tan := BitmapFromString2(False, 'a51C4C78DA45CC410E80300' +
'844D12B8DA543E9D26AB9FF91044C74F3F2432600C0DD02D81928' +
'2D64DFD9E89F34CD962B6C561766D3EB5E0FC6AAFD38B2EBC3AB2' +
'E66CF1A4D4F65DBA08ABAFF3E8FF');

TanColor:=AutoColorThis(Tan, 100, MMX1, MMY1, MMX2, MMY2);
WriteLn('TanColor: '+IntToStr(TanColor));
FreeBitmap(Tan);
end;




function ToHideTanner:boolean;
begin
if not loggedin then exit;
if findcolorspiraltolerance(x,y,2566901,MMX1,MMY1,MMX2,MMY2,50) then
mmouse(x,y,0,0);
mouse(x,y,0,0,true);
wait(10500+random(200));
GetTAnCOlor;
radialroadwalk(TanColor,300,360,60,0,0);
flag;
end;

function TalkToEllis:boolean;
var
LoopInteger: Integer;
begin
if not loggedin then exit;
LoopInteger := 0;
repeat
LoopInteger := LoopInteger + 1
wait(100+random(300));
if (FindColorTolerance(x, y, 5208536, MSX1, MSY1, MSX2, MSY2, 10)) then
begin
Mouse(x, y, 6, 6, false);
wait(100+random(300));
ChooseOption('ade');
markTime(H);
Wait(1000+random(1000));
end;
until FindHideText or findhidetext1 or(LoopInteger >= 15)
begin
if findhidetext1 then
begin
logout;
nextplayer(False);
end else
chooseoption('ll');
wait(500+random(50))
end;
end;


function ToBank:boolean;
begin
If Not LoggedIn Then Exit;
setrun(true);
radialroadwalk(2566901,130,200,65,x,y);
if findcolorspiraltolerance(x,y,1390414,MMX1,MMY1,MMX2,MMY2,10) then
begin
mmouse(x,y,0,0);
mouse(x,y,3,3,true);
Flag;
end;
if findcolorspiraltolerance(x,y,5166057,MMX1,MMY1,MMX2,MMY2,10) then
begin
mmouse(x,y,0,0);
mouse(x,y,3,3,true);
flag;
end;
end;

procedure StoreTannedHides;
begin
If Not LoggedIn Then Exit;
openbankfast('akb');//leave this
depositall;
load:=load + 1
end;


procedure setupclient;
begin
LoadDtms;
activateclient;
wait(1000);
declareplayers;
loginplayer;
end;
{====================]
mainloop
[====================}
begin
setupsrl;
setupclient;
repeat
Gethides; //takes the hide and money out of bank
ToHideTanner;//goes to hide tanner
TalkToEllis;//talks to hideranner and tans the hides
tobank;//goes to bank
storeTannedHides;//stores the tanned hides
Until Load = Players[CurrentPlayer].Integers[1]
if (Load >= Players[CurrentPlayer].Integers[1]) then
begin
NextPlayer(True);
Loads := 0;
end;

end.

and my autorestless ghost quester is not finished yet..did 50% of it maybe less i quited it to learn ddmts now i know how to use them but working on a other script
program restlessghost;
{.include SRL/SRL.scar}
{.include srl/srl/core/doorprofiles.scar}
{.include SRL/SRL/skill/magic.scar}
var
FindNorMalRandomsTime, SST1, SST2, FindFastRandomsTime, door, PleaseWait, H:integer;
zy, zx, y, Hx, hy, x, k, talked :integer;




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 :=''; // runescape username
Players[0].Pass :=''; // runescape password
Players[0].Nick :='atts'; // nick, 3 - 4 letters of username
Players[0].Loc :='Areck'; // you can use 'somewhere' or 'Aereck'
Players[0].Active:=True; // active player


writeln(inttostr(HowManyPlayers)+' Players');

end;





{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}
{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;

end;
end;


//credits to WT-FAWAKI-----------------------------------------//
// -- Performs Wait and FindTalk. + calls FindNormalRandoms every 10 secs and
// -- FindFastRandoms every 3 secs.
//----------------------------------------------------------------------------//

Procedure WaitPlus(Time:Integer);
var T: integer;
begin
For T := 1 to Time do
begin
if not LoggedIn then exit;
Wait(200 + Random(50));
FindTalk;
RC;
end;

FindTalk;
MarkTime(FindNorMalRandomsTime);
if FindNorMalRandomsTime - SST1 >(10000 + Random(5000)) then
begin
FindNorMalRandoms;
MarkTime(SST1);
end;

MarkTime(FindFastRandomsTime);
if FindFastRandomsTime - SST2 >(1500 + Random(1500)) then
begin
FindFastRandoms;
MarkTime(SST2);
end;
end;

{===============================================]
this procedure do,s antiban //by: me =)
[===============================================}
procedure antiban;
begin
Case Random(10) Of
1 : HoverSkill('defense', False);
2 : HoverSkill('strenght', False);
3 : begin
GameTab(1+Random(12));
waitplus(2000+Random(400));
GameTab(4);
end;
4 : RandomRClick;
5 : PickUpMouse;
6 : HoverSkill('attack', False);
7 : almostlogout;
8 : begin
gametab(9);
gametab(5);
gametab(1);
gametab(2);
end;
9 :begin
mmouse(zx,zy,333,273);
end;



end;
end;

{===============================================]
loads bitmaps //by: me =)
[===============================================}
procedure loadbitmaps;
begin
PleaseWait := BitmapFromString(60, 2, 'z78DA33300001373030C060E30' +
'294A8A7C41C52012EF3F1DB458C4A4C71FC2A872BA08F1F890F4F' +
'00A555AC21');
door := BitmapFromString2(False, 'aDD43D78DAC59241128330084' +
'5AFF4090984A53572FF232966615DD8493B6365F12603FF6D0800' +
'30D50D287340E32D940E72F453CD31ED1997E8C71032455F8B1FB' +
'418506B1BF39E7FB02A74495E595F675EE54B6326EAD6620EE777' +
'8E5B8A429C3BEFB0146262FFB47C4F8D583DFFACF5F92ABEDDC39' +
'535788176FEDFFB2C9D55521BB9D8DF6A05CAB');
end;

{===================================================================]
casts hometeleport and checks if you already did it //by: me =)
[===================================================================}
Procedure casthometeleport;
begin
gametab(7);
cast('home teleport');
wait(15000);



end;


{============================================================]
made by nielsie and a very BIG UPDATE by: me =)
[============================================================}
Function InTalk: Boolean;
begin
if (FindColorTolerance(x, y, 128, 220, 360, 365, 370, 5)) then
Result := True;
end;

{============================================================]
i updated a function from srl with an extra//by : me XD
[============================================================}
function ClickTextX(b: Integer; txt: string; Left:Boolean): Boolean;
var
a : integer;
begin
repeat
ClickNpcChatText(txt,left);
a := a + 1;
talked := talked + 1

until(b = a);
writeln('talked ' + intToStr(talked) +' time(s)');
end;

{===============================================]
find and talk stuff //by: me =)
[===============================================}
function FindAndTalkToAereck:boolean;
var
X:integer;
begin
repeat
X := X + 1
if (FindObj(Hx, Hy, 'ereck', 6984382, 10)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('to');
markTime(H);
waitplus(1);
end;
until(InTalk) or (X > 10);
if (InTalk) then
begin
writeln('in talk with father Aereck');
ClickTextX (1,'continue',true);
ClickTextX (1,'looking',true);
ClickTextX (2,'continue',true);
ClickTextX (1,'help',true);
ClickTextX (9,'continue',true);
end;
end;

{===============================================]
somthing with the door //by: boreas
[===============================================}
procedure GotoSecondEasternMostDoor;
var
MyDoors: array of DoorProfile;
f:integer;
mytpa:array of tpoint;
begin
activateclient;
MyDoors:=GetDoors;
setarraylength(mytpa,getarraylength(mydoors));
for f:= 0 to getarraylength(MyDoors)-1 do
begin
mytpa[f]:=MyDoors[f].midpoint;
end;
mytpa:= RearrangeTPA(mytpa,0,0,true,false);
mouse(mytpa[0].x,mytpa[0].y,2,2,true);
flag;
end;


{===============================================]
handles the door at father Aereck //by: me =)
[===============================================}
function HandleDoor:boolean;
begin
gotosecondeasternmostdoor;
makecompass('E');
lowestangle;
if findcolorspiraltolerance( x, y,2309965,MSx1, MSy1, MSx2, MSy2,75) then
begin
writeln('color found');
mmouse(x,y,0,0);
mouse(x, y, 0, 0, false);
waitplus(150);
if isuptextmulti('Open','pen','open') then
begin
mouse(x, y, 0, 0, true);
result:=true
writeln('opened door')
end else
if isuptextmulti('ose','Close','lose') then
begin
result:=true
writeln('door already opened' )
end;
end;
end;

{===============================================]
walkings and stuff //by: me =)
[===============================================}
function WalkToUrhney :boolean;
begin
writeln('walking to Urhney')
RadialWalk( 1597519, 170, 180, 65, x, y);
LinearWalk(0,185,65,x,y);

end;


{===============================================]
find and talk stuff //by: me =)
[===============================================}
procedure FindAndTalkToUrhney;
begin
if (FindObj(Hx, Hy, 'rhney', 7028284, 5)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('alk-to');
markTime(H);
repeat
waitplus(500);
until(InTalk) or (TimeFromMark(k) >= 10000);
if (InTalk) then
begin
waitplus(900 + random(400));
writeln('in talk with father Urhney');
ClickTextX (1,'continue',true);
ClickTextX (1,'sent',true);
ClickTextX (2,'continue',true);
ClickTextX (1,'haunting',true);
ClickTextX (11,'continue',true);
end;
end;

end;
{======================================]
walks to ghost // by: me =)
[======================================}
procedure WalkToGhost;
begin

end;
{======================================]
find and talks ghost // by: me =)
[======================================}
procedure FindAndTalkToGhost;
begin
if (FindObj(Hx, Hy, 'ghost', 10661538, 5)) then
begin
Mouse(hx, hy, 1, 1, false);
ChooseOption('alk-to');
markTime(H);
repeat
waitplus(500);
until(InTalk) or (TimeFromMark(k) >= 5000);
if (InTalk) then
begin
waitplus(900 + random(400));
writeln('in talk with restless ghost');
ClickTextX (4,'continue',true);
ClickTextX (1,'problem',true);
ClickTextX (12,'continue',true);

end;
end;

end;
{===================================================]
walks to wizard towe for the skull // by: me =)
[===================================================}
procedure WalkToSkull;
begin

end;

{======================================]
takes the skull from altar // by: me =)
[======================================}
procedure GetSkull;
begin

end;
{====================================================]
goes back to ghost and ends the quest// by: me =)
[====================================================}
procedure EndQuest;
begin

end;

{===============================]
signature
[===============================}
procedure sign;
begin
writeln(' 111111111 111111111 111111 111 111 11111 1111111111111 111111111111 ')
writeln(' 11 111 111111111 1111111 111 111 111111111111 11111111111 111111111111 ')
writeln(' 11 111 111 1111 111 111 11 11 11 1111 ')
writeln(' 11 11 111 111 111 111 111 111 11 1111 ')
writeln(' 1111111 11111111 11111111 111 1111111 1111111111 111 111 1111111111 1111 ')
writeln(' 111111 11111111 11111111 111 1111111 1111111111 111 111 1111111111 1111 ')
writeln(' 11 111 111 111 111 111 111 111 111 11 1111 ')
writeln(' 11 111 111111111 111111111111 111 111 111 111 11 1111 ')
writeln(' 11 111 111111111 1111111111 111 111 11111111111 11111111111 1111 ')

end;
{===============================]
proggy
[===============================}
procedure proggy;
begin
writeln(' --------------------------------')
writeln(' thank you that you used ')
writeln(' my auto-quester, remember to ')
writeln(' post bugs/proggy,s on my thread.')
writeln(' --------------------------------')
writeln(' progess-report ')
writeln('---------------------------------')
writeln(' ran for' + TimeRunning+' ')
writeln(' ')
writeln('---------------------------------')
end;


{==============================]
setups the client //by: me=)
[==============================}
procedure setupclient;
begin
setupsrl;
sign;
wait(2000);
declareplayers;
activateclient;
wait(500);
loginplayer;
highestangle;
makecompass('N')
end;
{===============================================]
MAINLOOP //by: me =)
[===============================================}

begin
setupclient;
if players[currentplayer].loc='somewhere' then
begin
casthometeleport;
end;
writeln('starting script');
findandtalktoAereck;
writeln('talked to Aereck');
HandleDoor;
writeln('handled door');
WalkToUrhney;
writeln('walked to urhney');
FindAndTalkToUrhney;
writeln('talked to urhney');
walktoghost;
writeln('walked to ghost');
findandtalktoghost;
writeln('talked ghost');
walktoskull;
writeln('walked to skull');
getskull;
writeln('took skull');
endquest;
writeln('quest completed heres the proggy :');
proggy;
end.


credits to
-n3ss3s for helping me scripting and learning good stuff, thank you
-cathering for helping me scripting to
-boreas for something with a door click on mm map procedure in the autoquester
-itschris917/for helping me learning scripting
-some other people i cant remember//all thanks!

i made the ultimate….. on my own only findfastrandoms is not mine the hidetanner is fully mine but not the ffrandoms ehm and if it is somhing from some1 else its credited
i had some help with restlesghost

what i learned
-basics
-multiplayer
-autcolor with bitmaps and dtms//not the hard ones
-using bitmaps and dtms and almost ddtms
- how to make a ussefull script(finish a script)
-all the walkings you can use//i stil not fixed how to walk in the hidetanner succesfully
-just stuff like evrthing out of core.//dont know how to explain

all people thanks for helping me scripting!(if i need to add info in the script what this does and that does you know then say it)
now just waiting…

any questions pm me
or contact me at [email]kotsz@live.nl[/email]

hermpie

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

Santa_Clause

2007-09-09 07:38:36

Good try. Very good try, indeed.

However, your standards need quite alot of work. These scripts are good, but a bit simple. Sorry, no from me.

n3ss3s

2007-09-09 07:39:30

Oops, I refreshed before I had clicked post, anyways, those empty procs are needed, standards need a bit more standards, I wait for santys opinion

EDIT: Pretty much same as santy, but Ill wait till others.

ShowerThoughts

2007-09-09 07:41:02

if i fix teh standards its okay then?
what you mean to simple its go,s about of you can do evrything. i thought

*fixing standards*

santa just compile the scripts and then post again(ow i am not mad i can accept why santa thinks that its okay.

ow teh standards of all scripts or only… pls tell

;) thanks for feedback and for that its a good try

n3ss3s

2007-09-09 07:44:20

but Ill wait till others.


;)

Santa_Clause

2007-09-09 07:44:46

Noohooo…it's not the compiling we care about. People don't get accepted for having a script that compiles and then writes Hello World in the debug box.

However, it is quite simple. Wait for the other's opinions.

ShowerThoughts

2007-09-09 07:48:53

lol i know but when it compiles you can see how good it is;)(*laughing*)
ehm pls check my post before this one
pls answer


please, tell me how to improve that where this is all about.;)

Santa_Clause

2007-09-09 07:50:43

Oh, you mean I should test it. Sorry, I don't open runescape and I don't have an account to play on.

ShowerThoughts

2007-09-09 07:51:55

i think my pass is still in it to test(forgot it :redface: )i trust you guys..
because you guys voted no the rest will do the same i gues.. hope not so..
but still thanks for feedback and tell how to improve:)test it info still in the script autohide

n3ss3s

2007-09-09 07:57:28

Dude change them!

ShowerThoughts

2007-09-09 07:58:52

okay…did i thought you guys could test it.

GoF

2007-09-09 08:04:05

I'll say yes. In my opinion he knows enough scripting and he has made many scripts already, meaning that he's contributing(?). He also has a decent post count, meaning he's active, and seems like he's eager(?) to learn too ;) So, yes from me.

ShowerThoughts

2007-09-09 08:07:44

really thank you, and if i need to i change the standards directly i will do it.(but i need to go in 10 mins sorry)
maybe the scripts are to simple but try my thea cup steal v1 and 2 they just work great(not believe me test it) only not member randoms solver:S

i know if some script works great it doesnt mean its complex(n3ss3s learned that me)

again thanks for feedback

n3ss3s

2007-09-09 08:15:52

Well if gof votes yes its 1/2 of my yes, I want still someone else voting yes with good statement.

ShowerThoughts

2007-09-09 08:23:22

somthing like better standards? i will do after need to go now.

Dan Cardin

2007-09-09 08:32:02

ive seen u being nice to people and helping and active and stuff, but even though u put 4 scripts they all show the same things. None of them has any really complicated code, im gonna vote no. Too simple

Pancakes

2007-09-09 08:35:48

I'll say no. Needs more standards, and failsafes.

Sorry to be a grumpyass, but without failsafes a script is really nothing.

I love failsafes :)

the scar noob

2007-09-09 08:55:23

it's a difficult chosise to me.
I have to admit with GoF about that he wants to learn and that he's active and helpfull in the community, but on the other side I also have to admit with dan cardin, because it's true that the scripts are like the same thing (also the standards).
So I'll hold my vote until i read other's opinions to decide what to vote.

Tails111

2007-09-09 09:32:01

Wow, These are nice and useful scripts, the standards are weak, but hey when I applied my standards weren't that great, it comes with practice, Failsafes are a must.

I have a suggestiong for the tea stealer,


RadialRoadWalk(VarockSandColor,340,0,70,0,0);//IF IT DOESNT WALK PERFEXT TO BANK THEN PUT A // FOR THIS LINE(RADIAL)
//RadialRoadWalk(VarockEastColor,340,0,70,0,0);//AND REMOVE THE // FOR THIS LINE

could be changed to this
     If Not(RadialRoadWalk(VarockSandColor,340,0,70,0,0)) Then
begin
RadialRoadWalk(VarockEastColor,340,0,70,0,0);
end;

For right now I don't know, I will have to wait to see what others think.

ShowerThoughts

2007-09-09 09:53:45

owkay to all i will put in failsafes and redo the standards will change the first post..
thanks for feedback i am really willing to learn.

if i make the hidetanner working and good scripting standards then you will say yes.?
i really want to so i do everything
pls dont vote from now one i gonna update some stuff otehrwise i need to apply again..

teh hidetanner got failseafes…. ill put more in it

pls reply what i need to do now i already updating the hidertanner with 3 differents walking and teh otehr stuff ownz but if i fixed the walking can i get it then?

IEatJ00erBaybees

2007-09-09 10:08:46

Unfortunately, I'm going to have to vote no, as Pancakes stated, standards are poor and failsafes-a-few.

This is definitely a good try though, and you love to script so come back in 30 days and dazzle us.

Good luck!

ShowerThoughts

2007-09-09 11:03:02

wow its not ended even if you voted you can change it i guess
pls wait a say or few hours then you got an owning hidetanner script +3 diff walking failsafes multiplayer and that shit and i make a crafter to;) so
please wait and dont vote

R0b0t1

2007-09-09 12:00:08

Hmmm… Failsafes Pl0x? Standards Pl0x?


Well, you could make it more complicated :p.


Oh and add autocoloring…. I love autocoloring… Yes….sss…

Tim0suprem0

2007-09-09 12:05:40

Everything unrelated to scripting (helping others, part of the community, feedback, etc.)= YES

Scripts= NO

I'm tied, I think both are equally important. My vote is held if you want to update scripts and push me one way or another because this is a tough one.


For things like:

if (InvFull) then
begin
Loads :=Loads + 1
end;
You don't need to put have the begin and end. Just a tip. Also, for your tanner you have it withdraw money every load, you could just have it withdraw a certain amount (5000 coins) or something and then if you ran out it would withdraw another 5000, instead of doing it every run, which in my eyes is just a waste of time.

ShowerThoughts

2007-09-09 12:28:22

dude i have it withdraw 81 coins so if you die….
and some1 have stole stuff from my accoutn that you could use top test now i am missing cowhides cant test it..

n3ss3s

2007-09-09 12:37:13

n3ss3s why?


We discussed this on msn.

I told you to remove and change the password, but no, you had to post that you trust SRL Members and wait half an hour :duh:

Please dont accuse people of something that you are not sure of.

And, you should've take the IP from login screen so mods or admins could've just tell you who it was.

Anyways, I didnt visit your account, and I am not a poor rs pixel low life.

R0b0t1

2007-09-09 12:58:27

AHAHAHAHAHAHAH!


Sorry, hermpie, but thats pretty funny.

-20 pts for stupidity.

ShowerThoughts

2007-09-09 13:21:17

yeah i know but i posted it ebcause i trusted you gusy then n33ss3s said remove i did 10 mins later because i didnt saw he reply'd and he said nice account with mining level 68 so i thought he did it and after i said sorry :redface: cmon why you have directly to vote no because of this…

ehm it is messy i know but i wanna try somthing

got an error an ; after false is the problem neither..

ailed when compiling
Line 121: [Error] (12352:1): Type mismatch in script H:\Documents and Settings\Hermen\Bureaublad\Hidetanner(2).scar
thats the repeat line
but when i put an ; after false then it says teh same but on line 120:S

procedure clicktansymbol;
var
LoopInteger: Integer;
begin
loadbigdtm;
LoopInteger:=0;
LoopBrake:=false
repeat
LoopInteger:= loopinteger + 1
if finddtm(TanSymbol,x,y,MSX1, MSY1, MSX2, MSY2) then
begin
mmouse(x,y,1,0);
mouse(x,y,2,1,false);
loopbrake:=true
end;
until (LoopInteger >= 15) or loopbrake
if not finddtm(TanSymbol,x,y,MSX1, MSY1, MSX2, MSY2) then
logout;
nextplayer(false);
end;

ShowerThoughts

2007-09-09 13:55:31

sorry for double but the script is movign on i got only this bug read psot above and then i got 3 diff walkings in it..

MasterKill

2007-09-09 16:30:37

sorry but i have to say no.

plz more failsaves and standaards plz

it's a good start anywayz, gl

Special Ed

2007-09-09 17:16:52

I'm going to have to say no, very basic, and doesn't have many fail safe to fall back on, they do need work, and are overall very basic. You just need to read some more advanced Tut's before you re-apply. Also you can trust most SRL-Members but there are still some you can't.

Santa_Clause

2007-09-09 19:33:11

From: hermpie
sorry for double but the script is movign on i got only this bug read psot above and then i got 3 diff walkings in it..


I never knew that with Radialwalk you could have more than one route…

BobboHobbo

2007-09-10 02:12:03

Im going to say Yes, i talk to him over MSN his a nice person and he likes to make alot of scripts which is good.

But when you write use capital letter and full stops and stuff makes everything look nice.

But goodluck.

n3ss3s

2007-09-10 08:18:45

I never knew that with Radialwalk you could have more than one route…


You never knew you could make a case or 3 procedures? lol -.-

the scar noob

2007-09-10 15:34:19

From: bobbohobbo
Im going to say Yes, i talk to him over MSN his a nice person and he likes to make alot of scripts which is good.

But when you write use capital letter and full stops and stuff makes everything look nice.

But goodluck.


I personally think that you can't vote yes because he's a nice guy and because he loves scripting, he is applying to become an SRL Member, it's not nothing!
You can gt this "status" by knowing how to script (not basic), it's an SRL application, so it has to show good use of SRL and knowledge of it.

BobboHobbo

2007-09-11 01:03:54

From: the scar noob
I personally think that you can't vote yes because he's a nice guy and because he loves scripting, he is applying to become an SRL Member, it's not nothing!
You can gt this "status" by knowing how to script (not basic), it's an SRL application, so it has to show good use of SRL and knowledge of it.


Yeah but his still learning, also his made like 4 scripts and contributes them.

Also ye your right aswell scar noob :duh: :duh: :duh: :duh: :duh:

ShowerThoughts

2007-09-11 09:44:36

dudes i couldnt acces this page and asked to not vote because changed:
-standards
-failsafes
-the scipt is working 10 more 1% left lagging banking and the backtobank i wnat to make 3 roads and some1 asked i didnt know you can make 3 diff roads you cant but i use a case ;)
i will load the script today or tommorow
thanks for feedback
sorry for bad grammer

hermpie
i will learn and obey you all great srl masters(members) :p

Negaal

2007-09-11 14:27:27

well, some basics are missing, it's not nice to say it but all scripts are basically same, however dtm's are nice, but…no…

ShowerThoughts

2007-09-11 14:52:36

man i said dont vote because i am updating the script!!!pls dont vote i am UPDATING the script

Smartzkid

2007-09-11 15:07:27

From: hermpie
man i said dont vote because i am updating the script!!!pls dont vote i am UPDATING the script


You're supposed to apply when you have a nice script that you're confident will get you in. If you didn't, that's your fault; fix your scripts' faults and reapply.

I judge by what I see. One thing I don't see here is a members level script.

No.

Multiplayer.

the scar noob

2007-09-11 15:18:37

From: Smartzkid
You're supposed to apply when you have a nice script that you're confident will get you in. If you didn't, that's your fault; fix your scripts' faults and reapply.

I judge by what I see. One thing I don't see here is a members level script.

No.

Multiplayer.


Agreed!
Fix the whole script, find and fix bugs, test it.
You can all do these things because you'll have to wait another month until you can re-apply.
If you apply with a proper script, you have a better chance of getiing memberdized ;):spot: (h)

ShowerThoughts

2007-09-11 15:25:27

dude i had 4 scripts and it was not okay man i fixed it almost really i just wanna make it better then good so i make 3 diff walking with dtms and that shit failsafes;)

Kik

2007-09-11 16:36:37

From: hermpie
dude i had 4 scripts and it was not okay man i fixed it almost really i just wanna make it better then good so i make 3 diff walking with dtms and that shit failsafes;)


Please, please use proper grammar. People will be more likely to think of you as SRL Member status if you do.

And also, wait 30 days and apply again with your fully done script(s)… try not to post every little thing you have made hoping it will all add up to SRL members - take the time to make a high quality script - thanks.

ShowerThoughts

2007-09-11 16:56:36

dude still working on the hidetanner & crafter it almost perfect and it got the srl member stuff in it i am almost ready i am testing right now…

ShowerThoughts

2007-09-11 17:18:58

updated hide tanner(few bugs i released it a bit fast because i had the feeling you guys almost closed this thread)
ehm updated
-perfect walking(almost only with dtms back to the bank)
-failsafes(you almost cant run the whole script before it logs)
-skill checking proggy
-some stuff
-did my best on standards!!


here it is i hope i get in and if not i try it again;)

program HideTannerAndCrafter;
{.include srl/srl.scar}

var
CactusColor, TanColor, CowHide, HideText, Loads, Load, HardLeather, EndSkill, StartSkill, x, y : Integer;
storeandload :boolean;
const
//SET THIS OR IT WONT WORK.
Cash = '1973'; //still got this because i wanna do somthign special with this next version
RockColor = 2572915;//the red/brown rock outside bank(for accur...)

Procedure DeclarePlayers;
begin

HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer - Player That Will Login First

Players[0].Name := 'username'; //Player Username.
Players[0].Pass := 'pasword'; //Player Password.
Players[0].Nick := 'erna'; //3 or 4 Letters From The Username Of This Player.
Players[0].Active := True; //Will You Be Using This Player?
Players[0].Integers[0] := 10; //How Much Loads To Do?



writeln(inttostr(HowManyPlayers)+' Players');

end;

{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}


{===============================================]
this function finds randoms by:wt-fawaki
[===============================================}
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 9 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;

end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: begin
if FindFight then
begin
RunTo('N',False);
end;
end;
end;

end;
end;



procedure LoadDTMs;
begin

{HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
'4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
'19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
'8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
'4F40CD6622D2CF66C2691500FDE0200E'); }
HideText := DTMFromString('78DA63DCCBC0C0B08101159CF8C1C005A4188' +
'1F83F103082D4AC63C00A1861F47E20B19E801A90395B8930670B' +
'7E350056450CFC');

HardLeather := DTMFromString('78DA633CCCCCC07098910119EC5ABF8EE13F9' +
'00689FE0702C61D4035BB51D540646124903E0954B393809AB340' +
'352708A8D909547396809A2D40354708A8390E547311BF1A001AC' +
'D11E9');

CowHide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
'8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
'2301249809A891041202F8D50000C82E06DB');

end;

Function GetSkillStartEnd(Skill :string; Option:boolean): integer;
begin
if(Option = True) then
begin
GameTab(2);
StartSkill:= GetSkillLevel(Skill);
end else
begin
GameTab(2);
EndSkill := GetSkillLevel(Skill);
end;
end;


procedure proggy;
begin
WriteLn('//////////////////////////////////////////////////////////////');
WriteLn('// Thanks for using my HideTanner and Leathercrafter. //');
WriteLn('// post Proggy,s and bugs. //');
WriteLn('//////////////////////////////////////////////////////////////');
WriteLn('//did '+inttostr(load)+' load(s) out of'+inttostr(Players[CurrentPlayer].Integers[1])+'loads set on this player //');
WriteLn('// you started with crafting level :'+inttostr(startskill)+'//');
WriteLn('// you ended with crafting level :'+inttostr(startskill)+'//');
WriteLn('//////////////////////////////////////////////////////////////');
end;


Function ToTanRoom:boolean;
var x,y,tried,Room:integer;
var WhichAngle:extended;
begin
Room := DTMFromString('78DA632C606260D06440013D49EE0CFF81342' +
'310FF0702C65AA01A155435137B131924A16A4000ACC688809A56' +
'A01A4B026AD602D5181350930D54938DAAA6C1D71C450D0034651' +
'223');
repeat
if(FindDTMRotated(Room,x,y,MMX1,MMY1,MMX2,MMY2,-pi*2,pi*2,0.2,WhichAngle))then
begin
wait(1000+random(500));
if not(FindSymbolIn(x,y,'bank',x-25,y-25,x+25,y+25))then
begin
Mouse(x,y,3,3,True);
flag;
result:=true
tried:= tried + 1
end;
end;
until(tried = 5)
end;

Function ToBank1:boolean;
var WalkBack1,Tried:integer;
var WhichAngle:extended;
begin
WalkBack1 := DTMFromString('78DA636C646260A8654001C7B6E7331801694' +
'620FE0F048CF9403569A86A3AEA63C0342394CF980754934840CD' +
'62A09A7CFC6A00D6080E08');
repeat
if(FindDTMRotated(WalkBack1,x,y,MMX1,MMY1,MMX2,MMY2,0,0,0.2,WhichAngle))then
begin
wait(1000+random(500));
Mouse(x,y+20,3,3,True);
flag;
break;
result:=true
Tried:=Tried + 1
end;
until(Tried =5)
end;

Function ToBank2:boolean;
var WalkBack2,Tried:integer;
var WhichAngle:extended;
begin
Walkback2 := DTMFromString('78DA634C626260C86440011DF5310C5C409A1' +
'188FF0301E364A09A284C350C5035607A39508D0E7E3500B4080A' +
'C7');
repeat
if(FindDTMRotated(WalkBack2,x,y,MMX1,MMY1,MMX2,MMY2,0,0,0.2,WhichAngle))then
begin
wait(1000+random(500));
Mouse(x,y+5,3,3,True);
flag;
result:=true
Tried:=Tried + 5
end;
until(Tried =5)
end;



function FindHideText: Boolean;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
if not LoggedIn then Exit;
LoopInteger := 0;
LoopBrake := False;
repeat
Wait(50 + Random(50));
LoopInteger := LoopInteger + 1
if(FindDTM(HideText, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x, y-10, 0, 0, False);
Result := True;
LoopBrake := True;
end;
until((LoopInteger >= 15)or(LoopBrake))
if(LoopInteger >= 15) then
begin
Logout;
Result := False;
nextplayer(false);
end;
end;



procedure GetHides;
var
LoopInteger: Integer;
LoopBrake: Boolean;
begin
if not LoggedIn then Exit;
MakeCompass('N')
HighestAngle;
GetSkillStartEnd('crafting',True);
Wait(1 + random(2));
OpenBankFast('akb');
Wait(10 + random(5));
FixBank;
LoopInteger := 0;
LoopBrake := False;
repeat
LoopInteger := LoopInteger + 1
if(FindObj(x, y, 'ins', 2084091, 10)) then
begin
Wait(100 + Random(50));
Mouse(x, y, 0, 0, False);
Wait(100 + Random(50));
end;
if(ChooseOption('X')) then
begin
Wait(1000 + random(100));
WriteLn('//taking money from bank');
TypeSend(Cash);
LoopBrake := True;
end;
Wait(1000+random(500));
until((LoopInteger >= 10)or(LoopBrake))
if(LoopInteger >= 10) then
begin
Logout;
Exit;
nextplayer(false);
end;
LoopInteger := 0;
LoopBrake := False;
repeat
Wait(50 + Random(50));
LoopInteger := LoopInteger + 1;
if(FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
Mouse(x, y, 5, 5, false);
if(ChooseOption('ll')) then
begin
WriteLn('//Taking Hides from Bank.');
if storeandload then
exit;
else
CloseBank;
findfastrandoms;
LoopBrake := True;
Wait(500 + Random(100))
end;
end;
until((LoopInteger >= 10)or(LoopBrake))
if(LoopInteger >= 10)then
begin
Logout;
nextplayer(false);
end;
end;

procedure GetCactusColor;
var
Cactus: Integer;
begin
if not LoggedIn then Exit;
Cactus := BitmapFromString2(False, 'aB199078DA1DCCC911C0200' +
'C43D1960C5E732404FA2F297C2E6F3492C722225F3F488D830E74' +
'5B18E4F0C208349A5EC6EA13F7EDEF034B2567C3879C2F97391D0' +
'78DA85F97564C6D3F568');

CactusColor := AutoColorThis(Cactus, 200, MMX1, MMY1, MMX2, MMY2);
WriteLn('//CactusColor: '+IntToStr(CactusColor));
FreeBitmap(Cactus);
end;


function WalkingOne:boolean;
begin
if not LoggedIn then Exit;
WriteLn('//To Hide Tanner Walking 1');
SetRun(True);
GetCactusColor;
RadialRoadWalk(CactusColor, 50, 120, 60, 1, -35);
Flag;
ToTanRoom;
if ToTanRoom then
begin
WriteLn('//Clicked TanRoom');
result:=true
end;
end;

function WalkingTwo:boolean;
begin
if not LoggedIn then Exit;
WriteLn('//To Hide Tanner Walking 2');
SetRun(True);
if FindColorTolerance(x,y,RockColor,MMX1,MMY1,MMX2,MMY2,10) then
begin
Mouse(x+20,y-15,0,0,true);
flag;
wait(1000);
ToTanRoom;
end;
if ToTanRoom then
begin
WriteLn('//Clicked TanRoom');
result:=true
end;
end;

function WalkingThree:boolean;
begin
if not LoggedIn then Exit;
WriteLn('//To Hide Tanner Walking 3');
SetRun(True);
GetCactusColor;
RadialRoadWalk(CactusColor, 50, 120, 60, 2, -30);
Flag;
ToTanRoom;
if ToTanRoom then
begin
WriteLn('//Clicked TanRoom');
result:=true
end;
end;



procedure ToHideTanner;
begin
if not LoggedIn then Exit;
case Random(3) of
0 : WalkingOne;
1 : WalkingTwo;
2 : WalkingThree;
end;
end;

procedure TalkToEllis;
var
LoopInteger: Integer;
begin
if not LoggedIn then Exit;
LoopInteger := 0;
repeat
findfastrandoms;
LoopInteger := LoopInteger + 1
Wait(50 + Random(50));
if(FindColorTolerance(x, y, 5208536, MSX1, MSY1, MSX2, MSY2, 10)) then
begin
Mouse(x, y, 6, 6, false);
Wait(100 + Random(300));
if ChooseOption('ade') then
WriteLn('//Trading To Ellis');
Wait(3000 + Random(1000));
end;
until((FindHideText)or(LoopInteger >= 50))
if(LoopInteger >= 50) then
begin
Logout;
Nextplayer(False);
end else
if ChooseOption('ll') then
closebank;

end;


function ToBank: Boolean;
begin
findfastrandoms;
tobank1;
findfastrandoms;
tobank2;
findfastrandoms;
end;

procedure StoreTannedHides;
begin
OpenBankFast('akb');
depositall;
gethides;

end;

procedure SetupClient;
begin
LoadDTMs;
ActivateClient;
DeclarePlayers;
CheckUserNicks;// f0r th4 l33ch3rs pl0x ;)
LoginPlayer;
end;
{====================]
Main-Loop
[====================}
begin
SetUpSRL;
SetUpClient;
repeat
Gethides;
ToHideTanner;
TalkToEllis;
ToBank;
GetSkillStartEnd('crafting',False);
StoreTannedHides;
proggy;
until((Load >= Players[CurrentPlayer].Integers[1])or(not(LoggedIn)))
Loads := 0;
NextPlayer(False);
end.

//omg forgot randoms:redface: i will post the good version when i got time i really need to go now sorry
edit: got time now fixing now and i got in one or 2 loops until(result) endless i know
:redface:
ehm working on it and see it was in testing phase

edit:
working now but the standards are but messed up a few lines because of the fast fixes etc would work now it works but.. somtimes it cant find somthing and then logouts failsafes!!

thanks for feedback and if i dont get in i dont care i try it again with same script;)

n3ss3s

2007-09-12 08:24:42

The updated version looks much better.

Yes from me.

ShowerThoughts

2007-09-12 08:26:02

thanks,for feedback now adding that it makes somthing from it..
and some more stuff taht it will work to(it works..) //still can vote yes;)

BobboHobbo

2007-09-12 08:41:16

I like the new version. Wheres the love in this forum? (As in voting yes)

ShowerThoughts

2007-09-12 09:23:42

thanks but still.. 5 against 14 to bad that no one reads this thread anymore if they voted..

ShowerThoughts

2007-09-12 11:00:59

thanks but still.. 5 against 14 to bad that no one reads this thread anymore if they voted..

edit:cant delet this post but why no one reacts(thanks for the ones who did)
only because they voted already? if so i said i would update the script. pls vote again juts say yes or no you dont have to vote in polll

Wizzup?

2007-09-12 12:32:03

From: hermpie
thanks but still.. 5 against 14 to bad that no one reads this thread anymore if they voted..

edit:cant delet this post but why no one reacts(thanks for the ones who did)
only because they voted already? if so i said i would update the script. pls vote again juts say yes or no you dont have to vote in polll


People have reacted, look at the poll. :)

n3ss3s

2007-09-12 12:39:57

-.- Wizzup how kind was that?

(what he means with the react is that now its 5-15, someone voted no again)

HyperSecret

2007-09-12 12:39:59

you still dont have multi-player to its potential so that is why you are getting a no from me

ShowerThoughts

2007-09-12 14:48:28

its multiplayer…
ehm with none one responds i mean nothign about voting but i posted the new script i ganed 2 votes and then no one answered..?you know?if my multiplayer is not multiplayer then help to improve ebcause u got nextplayer(false); and nextplayer(true) in my script so.

ShowerThoughts

2007-09-12 15:35:18

sorry for double but after i posted the new script liek 60% and more gave me a yes so could soem1 reset the poll because there are some no votes before the updated script..

HyperSecret

2007-09-12 15:49:53

its not all about having 'nextplayer(false); and nextplayer(true)' in your script its about repeating the WHOLE entire script for each player, while NONE of your scripts do that. they all get done with the first player then 'end.' there is no repeat until(false) or a repeat until(time specified to run script) so therefore your multiplayer does not work as true multiplayer!

ps: dont keep updating your scripts to make them better, you need to apply with your best and updated script not keep updating it inside of you app

ShowerThoughts

2007-09-12 16:22:18

your right i am sorry but i ddint know that i thought they meaned repeat teh whole script and then until spec. loads are done nextplayer(true)

LordGregGreg

2007-09-13 13:55:24

you are

Nice


Polite


Helpfull


and you take crticism very well.

that shows allot.
Yes

ShowerThoughts

2007-09-13 14:12:55

thanks

somtimes i am a bit hard against leechers with you nub and that stuff but somtimes i wanna virtual shoot them

just wanna ask somthing in the begin evryone begged(lol:p) for failsafes and standards none was co mplaining about the multiplayer now i fixed the stuff were you all was asking for nopw its not okay again i am not mad i arent really but i think its weird stillw ant to fix the multiplayer i dont know whats wrong with it so would some1 like to help me on msn

after i uploaded rthe new script i gained more yesses then no but the people that already voted wont vote again i guess couldnt some1 reset the poll because now more people are for me after i updated the tan hidder script

thanks

hermpie

ShowerThoughts

2007-09-13 16:33:23

but still got a laungauge problem you almost dont see it :p

Tim0suprem0

2007-09-13 16:59:49

I agree with Greg, Yes from me, although it's looking to be a little late for that.

ShowerThoughts

2007-09-13 17:02:47

i know why they dont remove the no posts before i posted the updated one :p
some admin could delete this one and i could start a new one if you all guys wanna vote yes again :p
thanks for feedback

hermpie

RAM

2007-09-13 21:34:23

I voted yes, Good Luck :)

HyperSecret

2007-09-14 01:42:19

sry hermpie i dont mean to nag and be mean to you, cuz i have nothing against you…

but to people who voted 'yes' i dont understand…is it b/c he is active and w/e b/c i thought you had to be able to do multiplayer FOR SURE to be able to get srl member status and this is his multiplayer

begin
setupsrl;
setupclient;
repeat
Gethides; //takes the hide and money out of bank
ToHideTanner;//goes to hide tanner
TalkToEllis;//talks to hideranner and tans the hides
tobank;//goes to bank
storeTannedHides;//stores the tanned hides
Until Load = Players[CurrentPlayer].Integers[1]
if (Load >= Players[CurrentPlayer].Integers[1]) then
begin
NextPlayer(True);
Loads := 0;
end;

end.

there is no multiplayer there that continues running the script…b/c after it goes to the next player it just stops…and i know many people have been turned away b/c for the soul reason they dont fully use multiplayer…someone please explain…

BobboHobbo

2007-09-14 02:15:16

From: HyperSecret
sry hermpie i dont mean to nag and be mean to you, cuz i have nothing against you…

but to people who voted 'yes' i dont understand…is it b/c he is active and w/e b/c i thought you had to be able to do multiplayer FOR SURE to be able to get srl member status and this is his multiplayer

begin
setupsrl;
setupclient;
repeat
Gethides; //takes the hide and money out of bank
ToHideTanner;//goes to hide tanner TalkToEllis;//talks to hideranner and tans the hides
tobank;//goes to bank
storeTannedHides;//stores the tanned hides
Until Load = Players[CurrentPlayer].Integers[1]
if (Load >= Players[CurrentPlayer].Integers[1]) then
begin
NextPlayer(True);
Loads := 0;
end;

end.

there is no multiplayer there that continues running the script…b/c after it goes to the next player it just stops…and i know many people have been turned away b/c for the soul reason they dont fully use multiplayer…someone please explain…


Umm :google: read the script! in his setupclient; it has declare players in it. Stop
making him sound like a shit scripter because his not and he controls flaming etc.

So look before you post something that aint true :D

LordGregGreg

2007-09-14 02:40:15

dude… this guy has gotten bashed hard here….

some of it wasnt even realy true criticism,

lots of people hopping on the band wagon to diss this guy.

you have been runing him in circles and treating him like crap.

do this, do that, etc, whenj i KNOW worse scripters have made it in.


and he hasnt even goten mad at you!! he takes it! he is twice the man the most of you here because he takes this crap constructivly.

i say anyone that can do that should get in automatically.

HyperSecret

2007-09-14 02:51:11

From: bobbohobbo
Umm :google: read the script! in his setupclient; it has declare players in it. Stop
making him sound like a shit scripter because his not and he controls flaming etc.

So look before you post something that aint true :D


just b/c he declare players doesn't mean that it does the multiplayer looping. he needs a repeat until(false) or repeat until(specified time) so that it repeat the WHOLE entire script for each player, im not flaming, im tellng the advice and expecting him to go and look at other scripts on what i mean about the repeat…cuz how he has it now…it will run Player[0].Name until Load = Players[CurrentPlayer].Integers[1], then it will log that player out and keep activity true, but then what happens? hmm it 'end.' which means the script is terminated…so therefore it only runs ONE player :google: :google:

am i not correct on this…cuz if i am totally wrong and i am missing something someone needs to correct me and show me a script of evidence that i am wrong, but every script i know of for multiplayer has the repeat until(false)

From: lordgreggreg
dude… this guy has gotten bashed hard here….

some of it wasnt even realy true criticism,

lots of people hopping on the band wagon to diss this guy.

you have been runing him in circles and treating him like crap.

do this, do that, etc, whenj i KNOW worse scripters have made it in.


and he hasnt even goten mad at you!! he takes it! he is twice the man the most of you here because he takes this crap constructivly.

i say anyone that can do that should get in automatically.


i know worse scripters have made it also, but i think since players get rejected right away b/c of having no multiplayer, that there shouldnt be any exceptions, he should have to learn how to use multiplayer then re apply back in time with another script, even some of the first few ppl said the scripts are to simple…thats all im gettin at…not flaming or bashing, i have nothing againts him, i like him but i just think that it should be fair…

BobboHobbo

2007-09-14 03:41:48

From: HyperSecret
just b/c he declare players doesn't mean that it does the multiplayer looping. he needs a repeat until(false) or repeat until(specified time) so that it repeat the WHOLE entire script for each player, im not flaming, im tellng the advice and expecting him to go and look at other scripts on what i mean about the repeat…cuz how he has it now…it will run Player[0].Name until Load = Players[CurrentPlayer].Integers[1], then it will log that player out and keep activity true, but then what happens? hmm it 'end.' which means the script is terminated…so therefore it only runs ONE player :google: :google:

am i not correct on this…cuz if i am totally wrong and i am missing something someone needs to correct me and show me a script of evidence that i am wrong, but every script i know of for multiplayer has the repeat until(false)



i know worse scripters have made it also, but i think since players get rejected right away b/c of having no multiplayer, that there shouldnt be any exceptions, he should have to learn how to use multiplayer then re apply back in time with another script, even some of the first few ppl said the scripts are to simple…thats all im gettin at…not flaming or bashing, i have nothing againts him, i like him but i just think that it should be fair…


Nah your only saying stuff that he didnt do to well, You dont say the postives in his scripts only the non-postives is what im trying to say.

Also its only multiplayer like WOW his going to die? no, be nicer :D

Santa_Clause

2007-09-14 05:08:26

Well, no offence, but it seems that he wants SRL Members too much. I think he might be a bit like Born2Code…a fake. Just my opinion though.

ShowerThoughts

2007-09-14 09:46:00

did i say so man if i wouldnt want it too much i wouldnt get it man if your are scripter its easier to get better
if your a leecher or was :) then its hard to think i am gonna be a scripter someday and i thought that and to evrone dont flame hypersecret to hard (keep going :p)he is right hyper pls tell me to fix that and your happy :p

on msn soemday
hermpie:hi there how ya going
leecher:hi your very good at scripting your very smart and intellegent i need a script now!becaus i am nice
hermpie:no i cant do that -_-*links to b2c* :p
leecher:i already got a script from him but i cant get it working
hermpie:ask b2c
leecher:i did but he is mad on me i dont know why-_-
hermp: i only give scripts to friend:p
hermpie:lol…*blocked*


you really think i would do the same i worked hard to learn scripting do you really think i will give scripts away i worked hard then just give it to friends and get banned? lol i do the same as you did(give it :p)i wouldnt give it because i worked for it he doesnt

hyper add me i dont know excactly what you mean…:s
add me

again thanks for feedback :) and to everyone who said somthing is right even hyper is right;) (how much i need to pay to get in :p
pls add me to fix the multi or if you got some ideas

hermpie


too much smiles ?:):):)

one Q:
i am not english i think evryone knows that so i cant make that very super inteligant post like boreas do if i would lol i would already i now please dont look at my laungage while i am posting thanks!

HyperSecret

2007-09-14 10:32:27

i added you but i have my bio lab class in an hr and i have to leave in 15 minutes for that…so ill be back in about 4 hours from this post…(the class is 3 hrs long :() and then ill help if your on…but i think you could look at a tut and be like :duh: it was that simple, i just havent told you how to fix it cuz i dont think it is fair if you would be able to edit the script to have multiplayer used

EDIT: @ bobbohobbo & lordgreggreg, please dont put this against me and think im an asshole or something, because really im not, i really really like to help people but i just dont agree that he could edit his script to make it better and that make people change there vote, i know he has almost 800 posts, but i think that somethin as ez as the repeat until(false) he should know…IMO, not hard feelings please.

ShowerThoughts

2007-09-14 10:36:50

your name is derek and why i see no votes evry day just and none says because of i gained like 5 and not any because of like hyper did
man some people in srl memebr ask me Q: to your good at stuff and not this is teh first time i made one with it so i really didnt know..

hermpie

edit:
before i put the new one in with only few new lines because the multiplayer…
i wanna use ddtms for backwalk but cant acces it could some1 post it here?or pm me or learn me on msn? i know already 50% of it yoho's tut is amazing cool

ShowerThoughts

2007-09-14 14:15:52

i got patient but i am already waiting days for the update that fixs that bug man i wanna see the tuts..
sorry i am so unpatient(if people tyhink that) but i wanna learn its weekend
you know with out tut section = bored

hermpie

ShowerThoughts

2007-09-14 16:01:49

@all thanks for the feedback i see i wont get in because my first script sucks lol after new updated one evryone almost evryone posted yes so.. why i wouldnt get in i thought but okay lock this i will try ti again or o stop i dont think i will stop you never know because i can acces yoho,s ddtm,s tut! :p but thanks for everything i love green color thanks! for help etc i will add multiplayer and better walking and crafter to and i will pown this forum :) or quit :(

i just had to say in the begining 1 yes against 8 now 9 against 20 i was close and i lost too bad :p(wt-fawaki still need that 10$$$:p)//btw do you people look at the poll or wat people say against or about me if so i am in:) if the votes i am not i guess so but thanks for evrything dudes :( i will miss you all

hermpie

n3ss3s ownz:P
wt-fawaki ownz to :p



lock that thread!!

HyperSecret

2007-09-14 16:05:40

triple post in your own app, that doesnt look good

ShowerThoughts

2007-09-14 16:34:55

i know just wanted to say bye
because none answered // that not the reason i just see ive lost vbecause have to much no,s

so is ay bye
i am 13 now 27 sept i am 14 i want a *present* you know ;)

hermpie

edit: sorry for the triple i cant delete them sorry

maybe i go to fast with lock this thread and with
no one responds
maybe i said to much i lost

sorry about all of that

YoHoJo

2007-09-14 21:57:18

Closed as requested.