SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
html, was going for c++, but starting was hard, tutorials not easy to understand…:(

Other Communitys
I was in Sythe, i am in cheatersutopia(playing enemy territory aswell)

How Long have You Played Runescape
2-3 years

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

well, i'm not big scripter, but, thing i started with, scar, was that because i was bored about runescape, still i wanted to play or do something, i'm playing wolfenstein enemy territory, but this ain't running on my new…(old) computer So i decided to start with scar…. again… i made my first script like 2 years ago, Al kharid Cooker… no includes, no help, no tuts, only place i got scripts was scar-scripts.com and sythe.org, my script compiled but i had no antirands, no failsafes etc… it cooked it worked…(i learned from other scripts)
Like 3-4 months ago i started using scar again, went to sythe tryed to find some autofighter for pure strength account:D so.. all scripts were using SRL…
and i thought what the heck is that, found link what redirected to srl-forums.com, so thats the story i found this place, really nice exept some guys who don't got time read pervious posts and just post their problems..
well, hate that, i'm not like that, not calling myself leecher aswell, got some experience in scar:)
i started this script like 6-7 days ago,My second script 4th release , it's an autocooker…again:D
Didn't used bmp's or dtm's because, no need, so i decided to make forms, i can handle and create bmps, but i'm still learning dtm and ddtms

Sorry, about no proper indent, just i don't get how many spaces, looks hard
also i'm very sorry about my bad english…

Hoping To become member

regards,
negaal

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

{===================================================================]
[                   Falador Raw Food Cooker!                        ]
[                                                                   ]
[           NAME        : Fally Cooker                              ]
[           WRITER      : Negaal                                    ]
[           CATEGORY    : Cooker                                    ]
[           DESCRIPTION : Cooks raw food, banks in Falador          ]
[           USAGE       : Start at bankbooth in Falador             ]
[           AUTOCOLOR   : Full                                      ]
[           SRL Used    : 4.0                                       ]
[           Scar User   : Scar DIVI 3.11                            ]
[                                                                   ]
[                   More Scripts can be found at                    ]
[                        [url]www.SRL-Forums.com[/url]                         ]
[===================================================================]
[                           Instructions.                           ]
[===================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                    ]
[ 2. Set your Screen to 32 bit TRUE color.                          ]
[ 3. Setup lines below                                              ]
[ 4. Set Playernames and Passwords below.                           ]
[ 5. Start script Logged Out / Logged in                            ]
[ 6. Leave Your player To Fally Centre, Cookery, Bank               ]
[===================================================================}
program NegaalFalaCooker;
{.include SRL/SRL.scar}

  var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  timeedit : TEdit;
  howmanyedit : TEdit;
  rundiredit : TComboBox;
  Start : TButton;
  useredit : TEdit;
  passedit : TEdit;
  Active : TCheckBox;
  nickedit : TEdit;
  Foodnameedit : TEdit;
  Username, Password, rundir, foodname, nickname : String;
  act : boolean;



var pinnumber : string;
cookery, cookstart, x, y, loads, runtime,
cooked, rawtocook, rx, ry, clicks, rawcolor,
rawfood, doorcolor, says, tries, howlongtorun, timetorun, howmany, playertime : integer;



//********Player Settings********\\






///////////////////////////////////Form//////////////////////////////
procedure StartClick(sender: TObject);
  begin
    Start.OnClick := @StartClick;
    Username := UserEdit.Text;
    Password := PassEdit.Text;
    nickname := nickedit.text;
    howmany  := strtoint(howmanyedit.text);
    playertime := strtoint(timeedit.text);
    foodname :=  foodnameedit.text;
    rundir:=rundiredit.text;
    if active.checked then act := true;
    Writeln('Settings set, now starting...');
    frmDesign.ModalResult:= mrOk; // Closes the form
  end;



procedure InitForm;
begin
  frmDesign := CreateForm;
frmDesign.Left := 224;
frmDesign.Top := 126;
frmDesign.Width := 416;
frmDesign.Height := 255;
frmDesign.Caption := 'Negaal'#39's Cooker';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 147;
Label1.Top := 26;
Label1.Width := 122;
Label1.Height := 13;
Label1.Caption := 'Time in minutes per player';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 147;
Label2.Top := 52;
Label2.Width := 188;
Label2.Height := 13;
Label2.Caption := 'How many raw food to cook per player?';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 147;
Label3.Top := 78;
Label3.Width := 160;
Label3.Height := 13;
Label3.Caption := 'Direction to run when fight found?';
timeedit := TEdit.Create(frmDesign);
timeedit.Parent := frmDesign;
timeedit.Left := 20;
timeedit.Top := 24;
timeedit.Width := 121;
timeedit.Height := 21;
timeedit.TabOrder := 0;
timeedit.Text := '60';
howmanyedit := TEdit.Create(frmDesign);
howmanyedit.Parent := frmDesign;
howmanyedit.Left := 20;
howmanyedit.Top := 50;
howmanyedit.Width := 121;
howmanyedit.Height := 21;
howmanyedit.TabOrder := 5;
howmanyedit.Text := '500';
rundiredit := TComboBox.Create(frmDesign);
rundiredit.Parent := frmDesign;
rundiredit.Left := 20;
rundiredit.Top := 76;
rundiredit.Width := 122;
rundiredit.Height := 21;
rundiredit.ItemHeight := 13;
rundiredit.TabOrder := 6;
rundiredit.Text := 'North';
rundiredit.Items.Add('North');
rundiredit.Items.Add('South');
rundiredit.Items.Add('West');
rundiredit.Items.Add('East');
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.Left := 2;
Start.Top := 194;
Start.Width := 97;
Start.Height := 25;
Start.Caption := 'Start';
Start.TabOrder := 3;
Start.OnClick := @StartClick;
useredit := TEdit.Create(frmDesign);
useredit.Parent := frmDesign;
useredit.Left := 20;
useredit.Top := 111;
useredit.Width := 122;
useredit.Height := 21;
useredit.TabOrder := 7;
useredit.Text := 'Username';
passedit := TEdit.Create(frmDesign);
passedit.Parent := frmDesign;
passedit.Left := 20;
passedit.Top := 134;
passedit.Width := 122;
passedit.Height := 21;
passedit.TabOrder := 1;
passedit.Text := 'Password';
passedit.passwordchar :='*'
Active := TCheckBox.Create(frmDesign);
Active.Parent := frmDesign;
Active.Left := 170;
Active.Top := 149;
Active.Width := 97;
Active.Height := 17;
Active.Caption := 'Active?';
Active.TabOrder := 8;
nickedit := TEdit.Create(frmDesign);
nickedit.Parent := frmDesign;
nickedit.Left := 20;
nickedit.Top := 157;
nickedit.Width := 122;
nickedit.Height := 21;
nickedit.TabOrder := 9;
nickedit.Text := 'Nick';
Foodnameedit := TEdit.Create(frmDesign);
Foodnameedit.Parent := frmDesign;
Foodnameedit.Left := 145;
Foodnameedit.Top := 111;
Foodnameedit.Width := 121;
Foodnameedit.Height := 21;
Foodnameedit.TabOrder := 10;
Foodnameedit.Text := 'Raw food Name';
  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;





//********Player Settings********\\
//// please, do not touch this procedure when you dont know what you are doing//
///this procedure can be set from form...////////////////////
procedure DeclarePlayers;
begin
  HowManyPlayers := 3;//MAKE SURE THIS ONE IS CORRECT!

  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name       := username;     // Your Runescape name
  Players[0].Pass       := password;     // The corresponding password
  Players[0].Nick       := nickname;     // 3-4 letters from your name, NO CAPITALS (that includes the first character)
  Players[0].Strings[0] := foodname; // Type of fish to cook
  //Players[0].Strings[1] := ''; // bank pin, if you got
  Players[0].Active     := act;
end;


procedure Report;//Made by Fakawi, edited by me

var
  PActive: string;
begin
  SRLRandomsReport;
  if Players[CurrentPlayer].Active then
    PActive:='True'
  else
    PActive:='False';
  Writeln(' ');
  Writeln('<========= Fala Cooker ==========>');
  Writeln('<======= Progress Report ========>');
  Writeln('<======'+(Players[CurrentPlayer].name)+'=====>');
  Writeln('      Worked for '+ TimeRunning);
  Writeln('      Cooked '+IntToStr(Loads)+' loads[s],'+inttostr(cooked)+' '+Players[CurrentPlayer].Strings[0]+'s.');
  Writeln('\\------All thanks to SRL team-------//');
  Writeln('<===========Made by Negaal==========>');
end;


procedure Timetogo;
begin
  if FindFight then
begin
  RunTo(RunDir, True);
  Wait(15000 + random(5000));
  Runback;
end;
Closebank;
  logout;
  Players[CurrentPlayer].Active := false;
  Writeln('Player Lost');
  terminatescript;
end;


//-----------------------------------------------------------------\\
{            FindFastRandoms - Finds the randoms fast              ||
\\-----------------------------------------------------------------//}
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
  i: Integer;
begin
  for I := 1 to 11 do
  begin
    case I of
       1:  if FindDead then
            begin
            Result := True;
             timetogo;
             end;

       2:  if FindMod then
             Result := True;

       3:  if FindMime then
             begin
            Result := True;
             timetogo;
             end;

       4:  if FindMaze then
             begin
            Result := True;
             timetogo;
             end;

       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';
               writeln('No GameTab');
               TimetoGo;
             end;
           end;

       8: begin
            if InBlack then
            begin
              Result := True;
              Players[CurrentPlayer].loc := 'InBlack';
              writeln('InBlack');
              timetogo;
            end;
          end;

       9 : if RC then
             Result := True;

       10 : if clicktocontinue then
             result := true;

       11 : if FindFight then
              begin
                Result := True;
                RunTo(RunDir, True);
                Wait(15000 + random(5000));
                Runback;
              end;

       12: if FindTalk then
             Result := True;
    end;
    Wait(1);
  end;
end;





procedure Rands;
begin
  Status('Looking for Randoms');
  Findnormalrandoms
  Findfastrandoms
  status('');
end;

Procedure Antib; // by some munk work here
Begin
  if(not(LoggedIn))then loginplayer;
  findtalk;
    case random(9) of
      0:  begin
            SendArrowSilentWait(Random(4), 1000 + Random(600));
            SendArrowSilentWait(Random(4), 1500 + Random(1000));
            MakeCompass('n');
            highestangle;
          end;
      1:  HoverSkill('random', false);
      2:  HoverSkill('fishing', false);
      3:  HoverSkill('Cooking', false);
      4:  begin
            MMouse(10+random(300),-500,0,0);
            wait(200+random(2000));
            MMouse(300+random(300),-700,0,0);
          end;
      5:  mouse(msx1+random(msx2),msy1+random(msx2),0,0,false);
      6:  begin
            boredhuman;
          end;
      7:  gameTab(1+random(11));
      8: wait(5000 + random (5000));
    end;
  end;


//////door opener, again stole from fakawi, i hope he won't kill me/////////
/////autocoloer made by me//////
procedure getdoorcolor;
begin
if (rawcolor = 0) then
  doorcolor := getcolor(x, y);
  if(doorcolor = 0)then
      begin
        Writeln('door not found, terminating.');
        TerminateScript;
      end else
        Writeln('Door color = '+IntToStr(doorcolor));
        end;


Function OpenDoor: Boolean;
Var
  x, y: Integer;
Begin
  ColorToleranceSpeed(2);
  If FindObj(x, y, 'Door', Doorcolor, 10) Then
    Begin
    GetDoorColor;
    Wait(300);
    If IsUpText('pen') Then
    Begin
      Mouse(x, y, 0, 0, True);
      wait(25);
      rands;
      Result := True;
      WriteLn('Door Found and Opened');
      Wait(50);
      FFlag(0);
    End
    Else Result := IsUpText('lose');
  End;
  ColorToleranceSpeed(1);
End;

procedure banking;
begin
  Fixbank;
  depositall;
  Withdraw(1,1,28);
  wait(100 + random(100));
  if 50 > random(100) then
  begin
    Closebank;
  end else
  Mouse(643, 70, 5, 5, True);
  fflag(2);
end;



procedure Getbankopen;
begin
  if Bankscreen then
  begin
    Banking;
  end else
  begin
    repeat
      if not findbank('feb') then
      begin
      writeln('Bank not in range, terminating');
        Timetogo;
      end else
      if(PinScreen)then
        if not InPin(PinNumber)then
        Writeln('Pin Failed.');
      until(Bankscreen);
      Banking;
    end;
  end;


///////////////walks to Range/////and get range symbol color/////////////////////////////
procedure ToRange;
var colorpicks : integer;
begin
if not gametab(4) then
  Gametab(4);
  Mouse(600, 45, 4, 4, True);
  ftwait(1);
  fflag(2);
  if(Cookery = 0)then
  begin
    repeat
      colorpicks := colorpicks + 1;
      cookery := GetSymbolColor(x, y, 'cook');
      If Cookery = 0 then mouse(633, 85, 5 ,5 ,true);
      flag;
    until(colorpicks > 4) or (cookery > 0);
    if(cookery = 0)then
    begin
      Writeln('Cookery not found, problaby is some player or red dot on symbol, terminating.');
      timetogo;
    end else
      Writeln('Cookery color = '+IntToStr(cookery));
    end else
    if not(FindColor(x, y, Cookery, MMX1, MMY1, MMX2, MMY2))then
    begin
      MouseFindNoFlag(MMCX + 20, MMCY + 20, -1, -1);
      Flag;
      if not(FindColor(x, y, cookery, MMX1, MMY1, MMX2, MMY2))then
      begin
        writeln('Couldnt''t find the range.');
        timetogo;
      end;
    end;
      Mouse(x + 3, y - 3, 3, 3, True);
      ftwait(1);
      Flag;
    end;


procedure tobank;
begin
  if not findbank('feb') then
  begin
    repeat
      clicks := clicks + 1;
      mouse(685, 100, 10, 10, true);
      if flagdistance < 40 then
      ftwait(1);
      flag;
      opendoor;
      if clicks > 4 then
      begin
      timetogo;
      end;
    until(Findsymbol(rx, ry,'bank') or findbank('feb'));
  end;
end;


//////////finds player location and walk to bank///////////

procedure AreWENearCookery;
begin
  if not (bankscreen) then
  begin
    if not findbank('feb') then
    begin
      if FindSymbol(rx, ry,'cook') or findsymbol(rx, ry,'Furnace') or findsymbol(rx, ry,'quest') then
      writeln('found player location');
      tobank;
    end;
    end else
  writeln('Made our way to bank');
end;




procedure GettoCooking;
begin
  tries := 0;
  If not gametab(4) then
    Gametab(4);
      repeat
        tries := tries + 1;
        MouseItem(1, true);
        Ftwait(1);
        wait(50 + random(50));
        if IsUpText('aw') then
          writeln('Time to Cook your Raw Food');
          if (rawcolor = 0) then
           Getmousepos(x,y);
           RawColor := GetColor(580, 231);
           if (rawcolor = 0) then
           begin
             writeln('didn''t got raw food color, terminated...');
             timetogo;
           end else
         wait(100);
         Rawfood := (CountItemsColor('inv', Rawcolor, 5));
         if (says < 1) then
           Writeln('Raw color = '+IntToStr(rawcolor));
           inc(says);
           if rawfood > 0 then
             FindObj(x, y, 'ange',  1451972, 5);
             Getmousepos(x,y);
             if IsUpTextmulti('ange','aw', '>') then
               mouse(x,y,3,3,true);
               rands;
               flag;
               Rands;
               FTwait(1);
               if (Tries > 4) then
               begin
                 writeln('Cooking was''t succesful');
                 timetogo;
               end;
             Until(FindNpcChatText('ook?')); //How many would you like to cook
           Mouse(260, 405, 30, 45, false);
           Wait(75 + random(25));
           Chooseoption('All');
           Marktime(Cookstart);
         end;


Procedure backupcooking;
begin
  writeln('backupcooking');
  If not gametab(4) then
    Gametab(4);
    begin
      repeat
        tries := tries + 1
        if not invfull then
        begin
          timetogo;
        end else
      mouseitem(28, true);
      Ftwait(1);
      wait(50 + random(50));
      Getmousepos(x,y);
      if IsUpText('aw') then
        writeln('Time to Cook your Raw Food');
        if (rawcolor = 0) then
          RawColor := GetColor(x - 5, y + 3);
          if (rawcolor = 0) then
          begin
            writeln('didn''t got raw food color, terminated...');
            timetogo;
          end else
        wait(100);
        Rawfood := (CountItemsColor('inv', Rawcolor, 5));
        if (says < 1) then
          Writeln('Raw color = '+IntToStr(rawcolor));
          inc(says);
          if rawfood > 0 then
            FindObj(x, y, 'ange',  1451972, 5);
            Getmousepos(x,y);
            if IsUpTextmulti('ange','aw', '>') then
              mouse(x,y,3,3,true);
              ftwait(1);
              flag;
              Rands;
              FTwait(1);
              if (Tries > 4) then
              begin
                writeln('Cooking was''t succesful');
                timetogo;
              end;
            Until(FindNpcChatText('ook?')); //How many would you like to cook
          Mouse(260, 405, 30, 45, false);
          Wait(75 + random(25));
          Chooseoption('All');
          Marktime(Cookstart);
        end;
      end;






procedure CookAndLoop;
begin
  GetToCooking;
    repeat
      Wait(2000 + random(2000));
      Rawfood := (CountItemsColor('inv', Rawcolor, 5));
      if findnormalrandoms or findfastrandoms then
        begin
          if rawfood > 0 then
            backupCooking;
          end;
        If (20 > random(100)) then
        Begin
          Antib;
        end;
      writeln(inttostr(rawfood)+' still to cook...');
      if timefrommark(cookstart) > 180000 then
        if (rawfood) > 0 then
        begin
          timetogo;
        end;
      until(Rawfood = 0)
    loads := loads + 1;
  Cooked := Loads * 28;
end;




/////////////////////////Player setup/////////////////////////////////
procedure Newplayer;
begin
  if not (LoggedIn) then
  begin
    LoginPlayer;
    MarkTime(RunTime);
  end;
  //PinNumber := Players[CurrentPlayer].Strings[1];
    howlongtorun := playertime;
    timetorun := 60000 * howlongtorun;
    rawtocook := howmany;
    Writeln( 'Runs '+inttostr(timetorun / 60000)+' minutes and tries to Cook '+inttostr(rawtocook)+' '+Foodname+'s');
    doorcolor := 7838897;
    MakeCompass('N');
    HighestAngle;
    SetChat('hide', 1);
    if not (bankscreen) then
    begin
      rands;
    end;
  Setrun(true);
  if not gametab(4) then
    GameTab(4);
    arewenearcookery;
end;





//////////////////////// i stole this from Sumilion////////////////////

function SwitchPlayers: boolean;
begin
  if(TimeFromMark(RunTime) > timetorun) or (Rawtocook < Cooked) then
  begin
    Result := True;
    WriteLn('Time is up');
    closebank;
    timetogo;
  end else
    Result := False;
end;



//-----------------------------------------------------------------\\
{                SetupScript - Sets up the script.                 ||
\\-----------------------------------------------------------------//}
procedure SetupScript;
begin
  DeclarePlayers;
  Mousespeed := 20;
  Writeln('To see updates, visit http://www.villavu.com/forum/showthread.php?t=16258');
  wait(500);
  ActivateClient;
  Wait(500);
end;


///////////////////////////Main Loop//////////////////////////////

begin
  SetupSRL;
  SafeInitForm;
  SafeShowFormModal;
  SetupScript;
    repeat;
      Newplayer;
        repeat;
          while(LoggedIn)and (not(SwitchPlayers))do
          begin
            GetbankOpen;
            torange;
            opendoor;
            CookandLoop;
            opendoor;
            tobank;
            report;
          end;
        findfastrandoms;
        if(SwitchPlayers)or (FindDead) then
          timetogo;
        until not(LoggedIn);//repeat cause i got probs getting lagg when trying log out
      terminatescript;
    until not(Players[CurrentPlayer].Active);
  Writeln('All player are done');
  terminatescript;
end.

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

*hmm i don't hink you used multiplayer that good
*standerdizing could been done a lot better
*i see also things like

     if findnormalrandoms or findfastrandoms then
       begin
       if rawfood > 0 then
        backupCooking;
       end;

looks a little bit strange, if you had a random you go to cook?
*procedure getdoorcolor; and procedure banking; is greatly disappointing if you ask me though (even when compined with FindDoor, no really failsafes)
*

if not InPin(PinNumber)then
Writeln('Pin Failed.');
until(Bankscreen);

in procedure Getbankopen;

No pin can be set…

There can be a lot of different things but i quited searching for some because i saw you didn't have used any option of multiplayer what is needed!!!

My vote: no

i voted no for the same reasons^^

Sorry no, the scar noob pointed it all out.

Learn standards aswell. Its not that hard like example:

Procedure Learn;
Begin //When you do a begin the end must be in the same line
  //Some procedure and stuff.
End; // See the end; yours are like this:

//THIS IS WRONG
Procedure DOntLearnThis;
Begin
DoNotLearnThisThissWay;
  end;

The end must be beneith the end; :)

Sorry if i didnt explain good i g2g.

From: the scar noob
*hmm i don't hink you used multiplayer that good
*standerdizing could been done a lot better
*i see also things like

     if findnormalrandoms or findfastrandoms then
       begin
       if rawfood > 0 then
        backupCooking;
       end;

looks a little bit strange, if you had a random you go to cook?
*procedure getdoorcolor; and procedure banking; is greatly disappointing if you ask me though (even when compined with FindDoor, no really failsafes)
*

if not InPin(PinNumber)then
Writeln('Pin Failed.');
until(Bankscreen);

in procedure Getbankopen;

No pin can be set…

There can be a lot of different things but i quited searching for some because i saw you didn't have used any option of multiplayer what is needed!!!

My vote: no

well, see if you are cooking, and you get random while cooking, if you solve random, you will need to start cooking again, thats why i created this procedure, actually, i tried to use one procedure, but either FindItemColor or FindItemColorTol aren't working,(xinventory include), and i'm not that good to create that function by myself… i know i'll mess it up…
So 2 procedures are enough, they make the whole thing working:)

About MultiPlayers, i'm not sure, that someone wants to raise cooking lvl, he will use it on several accounts, and Raw fish gained by autoing is usually sold as raw too… btw i had it in 1st and 2nd version, but there were problems with that, i'll add multiplayer to next version…and i'll make sure it works


About Bankpin, i spent uncountable hours to make location finding working… i'm using "findbank('feb');" I can make bankpin working, but then i have to disable multilocations, or bankopening procedure will be too big…

Or just make getbankopen; to function lol, i do it in next version…

if findnormalrandoms or findfastrandoms then
       begin
       if rawfood > 0 then
        backupCooking;

and when this looks to strange to you, then you haven't tested script…

Well all it does:
if (find randomevent what stops you cooking(and solve it if possible)) then
And i got more 1 or more raw food left then
Start cooking again…

Thing is i got to go to school, what is like 85 kilometers from my home, and i maybe can use computer 1 hours per day so, i decided to give a try… next release will be problably in next sunday, when i'm back

No for the reasons the scar noob posted out. Standards and No Multiplayer Stood out to me. Those are my main reasons. Plus some other reasons (no failsafes in some procedures)

bobbohobbo, you don't capitalize bold words. Plus it's ugly when you do that.

no sorry.

but keep on learning and come back when you got a script wich ftw

Dudes.. why do you all vote no?
This seems like a good script to me, it ran quite well aswell….

I give you a big YES!

EDIT: Actually it's better than most of the scripts people applied with.

Quote from SCAR Debug

CheckAlcohol: 99.99% chance wizzy is drunk
NextPlayer

Dude!

cmon guys think for yourself. one person says no, and he explains why he did it which makes perfect sense and yet you still vote no. i vote yes

edit - didnt refresh, good to see someone else thinks the same (wizzup)

Well, yes from me, hes got potential…

Claw plz tell your einstein stop looking at me.

Heh, thank god someone showed up something positive in me:)

Who is the Einstein anyway…what does it show?

Yes from me.

Santy if that was not sarcasm, its the SRL Masters Cup in claws profile..

Why isn't there a fucking "maybe"?!?!?!


:cool:


Holding vote.

Yes. Good enough for me. The guy can handle criticism, is eager to learn and this script is not halve as bad as some of the daily appliances.

It looks oke. you know how to script, and how to use srl. for me theres no reason to voto no. so its a yes ;)

procedure ToRange;
var colorpicks : integer;
begin
if not gametab(4) then
  Gametab(4);

just something, Gametab will look for the current game tab. so you dont need to call ''if (no(gametab(4))) then''.

I voted No

No

I'm impressed you've mastered forms to be honest.

I think you'd be a great contributer to members.

It's a yes from me.

It's a yes from me ;)

From: hugolord
No

From: born2code
I voted No

…

From: BenLand100
For those of you that suffer from acute recurrent ignorance, here are some rules and guidelines:
1. Only vote "no" if you have proof the person is a spammer, liar, or overall bad guy

from http://www.srl-forums.com/forum/read-before-voting-p16469.html#post16469

seriously guys…if you are so inclined to vote "no", at least give a reason.

Well, its a no from me.

About half your script is forms and things taken from other peoples scripts, I like that you credited but, to me, you didn't write well enough on your own.

I'm sure you'd get through on your next try though.

Good luck.

This is a close one 13-15.
Goodluck.

Also Pancakes is right, most of the script is a form and most isnt even his script.

Quote from the Appliance page

Please fill this Complete form out. After finishing this form you will be redirected to your application poll, please bookmark it so you may see how your application is going. Your application will be voted on by SRL Members and in 7-14 days you will be notifyed of your status. Please post some examples of your scar knowledge, along with a Attached SRL Script that must compile and do something useful, No Autotalkers, AutoSpammers, etc that are useless and easy to create. If the script is not all your work then please give credits where credits are due. If you do not provide a example of your scripting knowledge that is atleast 90% original work by you then your application will be automaticly declined. The SRL Member section is for scripters only, not people tryin to learn to script and certainly not for leechers.

From: rikjess
It looks oke. you know how to script, and how to use srl. for me theres no reason to voto no. so its a yes ;)

procedure ToRange;
var colorpicks : integer;
begin
if not gametab(4) then
  Gametab(4);

just something, Gametab will look for the current game tab. so you dont need to call ''if (no(gametab(4))) then''.

Thanks i'll use it

From: Pancakes
Well, its a no from me.

About half your script is forms and things taken from other peoples scripts, I like that you credited but, to me, you didn't write well enough on your own.

I'm sure you'd get through on your next try though.

Good luck.

Still, im tring to improve i can script myself, yes you are kinda right, lots of ideas are used from other scripts…but i can script and use SRL, i think i improved myself quite well, i'll make more and more scripts till i improve myself to you, i can update in weekend:D

BtW You got any idea what i should add to next script?

Form Takes half from my script, so what i can do???
max 20% from my script takes form, if you look procedures, only things what are copied is 4 lines from ToRange; and fakawi door opener, maybe something else too, but not much!

From: The Claw

From: BenLand100

For those of you that suffer from acute recurrent ignorance, here are some rules and guidelines:
1. Only vote "no" if you have proof the person is a spammer, liar, or overall bad guy

seriously guys…if you are so inclined to vote "no", at least give a reason.

You can also vote no if you don't think the script is good enough.

Anyways, I voted no for the same reasons as above. Most of it is forms, it's a bit edgy on the 90% his work, and little bugs and such already mentioned.

I voted YES, the script could do with some work but I think you have the basics down.. also a great attitude.

I vote YES. It could use some work, but overall, I like this script. Also, I understand that Forms take up a lot of room ;) So even if you have a short but good script, it looks like it is all forms. I also really REALLY like your ablility to handle all the criticism, keep on learning, and keep on scripting! Gah, I will have to edit when I learn to spell criticism :p
EDIT: Learned how :p

Some procedures could be optimized a bit but this script is by far better looking that many.

In.