ISRA3L
2012-06-24 03:46:38
How Long have You Played Runescape?
2 Year(s)
Are you affilated in anyway with Jagex LTD?
No…
Were you Referred to SRL?
What is your general programming knowledge?
Only Simba and Visual Basic.
Are you a member of any other communities?
Nope.. :)
Tell us about yourself…
Please show us one (or multiple) of your scripts.
2 Year(s)
Are you affilated in anyway with Jagex LTD?
No…
Were you Referred to SRL?
What is your general programming knowledge?
Only Simba and Visual Basic.
Are you a member of any other communities?
Nope.. :)
Tell us about yourself…
From: Mister
Hello, im 14 y/o from Israel..
I dont know any programming language.. I only know Visual basic (how to make programs) and Simba..
I want to help to the community by adding scripts that I created, like my Pizza Maker.
Actually, I started programing with Simba yesterday, and I managed to make a flawless script, I made 1000 pizza's with no break.. :)
Please show us one (or multiple) of your scripts.
// Pizza Maker By M1STER ! Enj0y //
Program PizzaMaker;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
var
TimeRun, LoadsMade, PizzaMade, LoadsPerHour, PizzaPerHour: Array of integer;
i: integer;
const
SmartServer = 106; //Choose your RS server, leave 0 for random
AntiBanRatio = 70; // Enter how many AntiBan do you want
SmartMember = False; //False for F2P, True for P2P
Banks = 'vwb'; // Available banks are ‘feb’ ‘fwb’ ‘veb’ ‘vwb’ ‘db’ ‘akb’ ‘eb’ ‘lb’ ‘ctb’ ‘clt’ ‘nab’ ‘sab’ ‘ynb’ ‘ngb’ ‘sgb’ ‘wgb’ ‘fgb’
TimeToRun = '60';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Players[0].Name := ''; //RS name here
Players[0].Pass := ''; //RS password here
Players[0].Active := True; //player is active ?
Players[0].Pin := ''; //RS bank pin, if you dont have leave blank
Players[0].Nick := ''; // Enter a nick for the proggy
end;
end;
procedure AntiBan;
begin
if(LoggedIn)then
case Random (AntiBanRatio) of
0:
begin
HoverSkill('Cooking', False);
wait(2000+Random(300));
end;
1: RandomMovement;
2: BoredHuman;
3: RandomAngle(1);
4: RandomAngle(2);
5: FindSpinTicket;
6: ExamineInv;
7: wait(5000+random(1000));
8:
begin
MakeCompass('N');
wait(30+random(150));
MakeCompass('E');
wait(80+Random(150));
MakeCompass('N');
end;
end;
end;
procedure Withdrawitems;
begin
FindNormalRandoms;
SetAngle(SRL_ANGLE_HIGH);
OpenBank(Banks, False, True)
if PinScreen then
wait(4000+random(1000));
InPin('Pin');
Withdraw(0, 0, 9);
Withdraw(1, 0, 9);
Withdraw(2, 0, 9);
CloseBank;
AntiBan;
wait(1000+random(1000));
end;
procedure MakePizza;
begin
FindNormalRandoms;
wait(500+random(500));
MMouse(580, 232, 10, 10); // moves to tomato
Clickmouse2(false); //right click
wait(500+random(250));
ChooseOption('Use'); //chooses USE
wait(500+random(500));
MMouse(621, 300, 10, 10); // moves to dough
Clickmouse2(true); //clicks it
MMouse(255, 427, 30, 30); //moves to make all
wait(500+random(500));
ClickMouse2(true); //clicks it
wait(12500+random(1000));
MMouse(671, 371, 10, 10); // moves to cheese
Clickmouse2(false); // right click
wait(500+random(250));
ChooseOption('Use'); //chooses USE
MMouse(583, 299, 10, 10); // moves to pizza
wait(500+random(500));
Clickmouse2(true); // clicks it
wait(500+random(250));
MMouse(255, 427, 30, 30); // moves to make all
wait(500+random(500));
Clickmouse2(true); // clicks it
wait(14500+random(1000))
AntiBan;
wait(500+random(500));
OpenBank(Banks, False, True);
DepositAll;
Inc(LoadsMade[CurrentPlayer])
Inc(PizzaMade[CurrentPlayer])
end;
{procedure ProgressReport;
begin
ClearDebug;
//TimeRun := (GetTimeRunning/1000);
LoadsPerhour[CurrentPlayer] :=(3600*(LoadsMade[CurrentPlayer]))/((TimeRun[CurrentPlayer]));
PizzaPerHour[CurrentPlayer] := (3600*(PizzaMade[CurrentPlayer]))/((TimeRun[CurrentPlayer]));
begin
Writeln('#################################################');
Writeln('# Pizza Maker - by M1STER #');
Writeln('#################################################');
Writeln('');
for i := 0 to HowManyPlayers - 1 do
Writeln(' Players[i].Nick + Progress report ');
Writeln('Running For: ' + IntToStr(TimeRun[i]) + ' Minutes.');
Writeln('Pizzas Made: ' + IntToStr(PizzaMade[i]) + '.');
Writeln('Total Pizza Loads: ' + IntToStr(LoadsMade[i]) + '.');
Writeln('Pizzas Per Hour: ' + IntToStr(PizzaPerHour[i]) + '.');
Writeln('Pizza Loads Per Hour: ' + IntToStr(LoadsPerHour[i]) + '.');
end;
end;
procedure SetArrayLengths;
begin
SetLength(TimeRun,HowManyPlayers);
SetLength(LoadsPerHour,HowManyPlayers);
SetLength(LoadsMade,HowManyPlayers);
SetLength(PizzaMade,HowManyPlayers);
SetLength(PizzaPerHour,HowManyPlayers);
end;}
begin
ClearDebug;
Smart_Server := SmartServer;
Smart_Members := SmartMember;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
ActivateClient;
LoginPlayer;
//ProgressReport;
//SetArrayLengths;
repeat
Withdrawitems;
MakePizza;
//ProgressReport;
until (AllPlayersInactive);
end.
I made it yesterday, I found out that making pizza from tomato, cheese and dough is so boring, so I made this script...
I dont know how to use DTM's yet, so I used the Mmouse and Clickmouse2..
(I cant upload the script because it tells me I dont have permissions..)