9 atsakymai (-ų)

[eRey]

Papasakosiu kaip viskas prasidėjo, aišku ne viskas yra gryna tiesa, gal kur nors kas nors nesutampa bet viskas maždaug taip ir buvo.

2001, Sausis Buvo sukurtas kuklus forumas RBcheats , ten pasirodė Nick.
2001, Pavasaris The Nick Dude (Nick) sukūrė pirmą botą kuris atskirdavo spalvas ir spausdavo ten kur reikia. Botas buvo pavadintas AutoMiner. Tuo metu, kai Nick Sherlock sukurė bota, buvo keturiolikmetis.
2001, Gegužė Kai mirė RBcheats forumas, EvilCowGod sukurė savo forumą pavadinimu EvilCowGod Technologies.
~2002 Pasirodė daugiau botu, vienas iš jų RuneBot, daug žmoniu buvo užbaninta ir "botinimas" tapo viešai žinomas. Kai mirė RuneBot, Phlat sukurė pirma programa kuri leisdavo redaguoti žaidima. Phlat pavyko pakeisti savo pinigu suma banke, Jagex greitai tai pataisė.
2002, Rugsėjo 22 Buvo sukurtas beveik tobulas botas Autorune. Jis kasdavo east of Varrock, smeltino ir nešdavo į banka.
2002, Gruodžio 22, Penktadienis Pirmas masinis banas, nukentėjo daug žmoniu, mirė Autorune.
2003, Sausis Pirmas glitch runescape istorijoje, ji yra gan sunku paiškinti. Jis vadinosi knife glitch

Kolkas viskas, aišku tai nėra visa istorija, papildysiu šiandien vakare arba rytoj.

[sencity1]

Įdomiai čia.Smagu sužinoti kaip vystėsi RsBot nuo pat pradžios, nuo pirmosios minties apie RsBot.

[eRey]

Vėliau parašysiu daugiau, kaip dublikavo itemus ir t.t.

[Joksis]

Nice, as apie bota tikra normalu veikianti tik sy pavasary suzinojau..

[troport]

Buvo geri laikai, atsimenų istoriją su item dublikavimų, interneto klubose pardavinejo po 200 lt si metodą.

[Mantas]

Vienas iš ko gero seniausių RuneScape bot'ų Scar + SRL http://www.villavu.com Su Scar gali sukurti bot'ą betkokiam žaidimui, net programai. Lb geras dalykas tik programavimo kalbą mokėt reikia. Reiktų webe parašyti info apie Scar.

[Teqila]

Įdomiai.

[Mantas]

Geras labai skriptas, atkartoja judesius kurios dariai su pele, paspaudimus t.t

{$DEFINE Debug} //Add a // in front of this line (so it turns green) to not clear
        // the debug box (the box which is located at the bottom left of SCAR)
//Mouse Macro by Mayazcherquoi (a.k.a Dan's The Man)
//Records and outputs a SCAR-compatible script of your mouse movements and
  //actions.
//Press F12 or CTRL+ALT+S to stop the script.

program MouseMacro;

var
  cx, cy, lx, ly, wt, mD, wtB, sT, Count: Integer;
  IMBDL, IMBDR: Boolean;

procedure ScriptTerminate;
begin
  Alert('Recording has stopped');
  Writeln('end.');
  GetSelf.WindowState := wsNormal;
end;

begin
  GetSelf.WindowState := wsMinimized;
  {$ifDef Debug}
    ClearDebug;
  {$endIf}
  sT := 3;
  Writeln('program New;');
  Writeln('  //Written by Mouse Macro, which was written by Mayazcherquoi (a.k.a Dan''s The Man)');
  Writeln('');
  Writeln('procedure ScriptTerminate;');
  Writeln('begin');
  Writeln('  GetSelf.WindowState := wsNormal;');
  Writeln('end;');
  Writeln('');
  Writeln('begin');
  Writeln('  GetSelf.WindowState := wsMinimized;');
  repeat
    Alert('Starting in: ' + IntToStr(sT));
    Dec(sT);
    Wait(995);
  Until(sT = 0);
  Alert('Recording has Started');
  wt := GetTimeRunning;
  repeat
    GetMousePos(cx, cy);
    wtB := GetTimeRunning - wt;
    if((cx <> lx) or (cy <> ly)) then
    begin
      if(not(wtB <= 0)) then
      begin
        Writeln('  Wait(' + IntToStr(wtB) + ');');
        wt := GetTimeRunning;
      end;
      Writeln('  MoveMouse(' + IntToStr(cx) + ', ' + IntToStr(cy) + ');');
      lx := cx;
      ly := cy;
    end;
    IMBDL := IsMouseButtonDown(True);
    IMBDR := IsMouseButtonDown(False);
    if((IMBDL) and (not(mD = 1))) then
    begin
      if(not(GetTimeRunning - wt <= 0)) then
      begin
        Writeln('  Wait(' + IntToStr(wtB) + ');');
        wt := GetTimeRunning;
      end;
      Writeln('  HoldMouse(' + IntToStr(cx) + ', ' + IntToStr(cy) + ', True);');
      mD := 1;
    end else
      if(not(IMBDL) and (mD = 1)) then
      begin
        if(not(wtB <= 0)) then
        begin
          Writeln('  Wait(' + IntToStr(wtB) + ');');
          wt := GetTimeRunning;
        end;
        Writeln('  ReleaseMouse(' + IntToStr(cx) + ', ' + IntToStr(cy) + ', True);');
        mD := 0;
      end;
    if((IMBDR) and (not(mD = 2))) then
    begin
      if(not(wtB <= 0)) then
      begin
        Writeln('  Wait(' + IntToStr(wtB) + ');');
        wt := GetTimeRunning;
      end;
      Writeln('  HoldMouse(' + IntToStr(cx) + ', ' + IntToStr(cy) + ', False);');
      mD := 2;
    end else
      if(not(IMBDR) and (mD = 2)) then
      begin
        if(not(wtB <= 0)) then
        begin
          Writeln('  Wait(' + IntToStr(wtB) + ');');
          wt := GetTimeRunning;
        end;
        Writeln('  ReleaseMouse(' + IntToStr(cx) + ', ' + IntToStr(cy) + ', False);');
        mD := 0;
      end;
    if(IsFKeyDown(12)) then
      TerminateScript;
  Until(False);
end.

[eRey]

Taip, zinau ir apie SCAR, tik dar nedarasiau.

[ernisdan]

Fainai suzinot kaip atsirado rsbot )