Results 1 to 7 of 7

Thread: Hello all, need help with poison gas

  1. #1
    Join Date
    Oct 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Hello all, need help with poison gas

    Hello all, im kinda new to scar, (I,ve been leeching for quite some time,but im trying to learn to script) currently i found a chest opener/nat stealer
    (don't know where,or who wrote it) pretty basic, i'm not up to scripting myself, but i have managed to add antiban and antirandoms, login procedure,ect from other scripts, (also not mine of course) and it works pretty well, exept that
    it don't deal with poison gas, or the pillory random(the one that locks you up for stealing) i really would like to be able to deal with these things, but cant find anything that does. (i did find an old script that deals with the gas, but its so outdated it wont even compile(from 2004)) any help appreciated, THANK YOU ALL SO MUCH SCAR ROCKS!!

  2. #2
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by geerhedd View Post
    Hello all, im kinda new to scar, (I,ve been leeching for quite some time,but im trying to learn to script) currently i found a chest opener/nat stealer
    (don't know where,or who wrote it) pretty basic, i'm not up to scripting myself, but i have managed to add antiban and antirandoms, login procedure,ect from other scripts, (also not mine of course) and it works pretty well, exept that
    it don't deal with poison gas, or the pillory random(the one that locks you up for stealing) i really would like to be able to deal with these things, but cant find anything that does. (i did find an old script that deals with the gas, but its so outdated it wont even compile(from 2004)) any help appreciated, THANK YOU ALL SO MUCH SCAR ROCKS!!

    Could you post the script...? That would be a good idea....Lol



    -Ashur
    Exam period.

  3. #3
    Join Date
    Oct 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default NatStealer script

    program nats;
    ////////////////////////////////////////ALL PROCEDURES IN THIS SCRIPT WERE STOLEN FROM OTHER SCRIPTS, ////
    /////////////MOST FROM FAKAWIS GOBLIN SCHEDULER, OTHERS FROM FAKAWIS AGENT SMITH/////////////////////////
    ////////////////////NONE OF THIS CODE IS MINE///I DID NOT HAVE PERMISSION TO USE IT /////////////////////
    /////////I APOLOGIZE FOR STEALING PROCEDURES, PLEASE FORGIVE ME/////////////////////////////////////
    /////THE ORIGINAL SCRIPT JUST HAD THEIVING PROCEDURE AND I DONT KNOW WHERE I CAME FROM////////////////////



    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/XAntiRandoms.scar}
    const
    chestcolor = 4018280;
    StartPlayer = 0;
    var
    traps: integer;

    var
    SST1, SST2, FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
    procedure loadbmps;
    begin
    traps := BitmapFromString(31, 8, 'z78DA33304000371CC0000310' +
    'AF92BAEA89770F7E35F414C70F88D7457C9890E7424AE2885 435B' +
    '40E5BF252C2F0703925A98592BC4F6ACAA71C0C94BD83D9E5 0010' +
    'C54578');
    end;

    //----------------------------------------------------------------------------//

    Function FindFastRandoms: Boolean;
    var
    i: Integer;
    begin
    for i:=1 to 8 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 FindFight then
    begin
    RunTo('W',False);
    end;
    end;
    end;
    wait(1);
    end;
    end;
    //----------------------------------------------------------------------------//

    Procedure DeclarePlayers;
    begin
    HowManyPlayers:=1;
    NumberOfPlayers(HowManyPlayers);
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Active := True;


    end;

    //----------------------------------------------------------------------------//

    Procedure DoChats;

    Begin
    SetChat('On', 1);
    SetChat('On', 1);
    SetChat('Off', 2);
    SetChat('Off', 2);
    SetChat('Off', 3);
    SetChat('Off', 3);
    End;
    //----------------------------------------------------------------------------//
    //---> Waits while Checking for Randoms;
    //----------------------------------------------------------------------------//

    Procedure FTWaitAll(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;


    procedure theiving;
    begin
    findcolorspiral(x,y,chestcolor,5,5,515,336);
    Wait(5000 + Random(50));
    mouse(x,y,5,5,false);
    findbitmap(traps,x,y);
    Wait(200 + Random(5));
    mouse(x,y,5,5,true);
    end;
    //----------------------------------------------------------------------------//

    Procedure MyAntiBan;
    var
    DBanMe : Integer;
    begin
    if ( not ( LoggedIn )) then Exit;
    DBanMe:= Random(50);
    case DBanMe of
    1: RandomRClickEvery(2 + Random(13));
    2: hoverskill('random', false);
    3: RandomChatEvery(10 + Random(5));
    4: RotateEvery(20 + Random(10));
    5: LeaveScreenEvery(5 + Random(5));
    6: HoverEvery(15 + Random(5),'random');
    8: PickUpMouse;
    9: BoredEvery(9 + Random(24));
    10: if ExistsItem ( 1 ) then
    DragItem(1, 1+Random(18));
    11: GameTab(1 + Random(12));
    12: DoEmote(1 + Random(20));
    end;
    end;

    procedure findrandoms;
    begin
    FindNormalRandoms;
    end;


    begin
    setupsrl;
    BenMouse := True;
    loadbmps;
    ClearReport;
    MarkTime(SST1); // global timers for FTWaitAll;
    MarkTime(SST2);
    DeclarePlayers;
    LoginPlayer;
    SetScreenName(Players[CurrentPlayer].Nick); // in case we where already logged in.
    DoChats;
    repeat
    theiving;
    Findrandoms;
    FindFastRandoms;
    MyAntiBan;
    until(false)
    end.

  4. #4
    Join Date
    Mar 2007
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by geerhedd View Post
    program nats;
    ////////////////////////////////////////ALL PROCEDURES IN THIS SCRIPT WERE STOLEN FROM OTHER SCRIPTS, ////
    /////////////MOST FROM FAKAWIS GOBLIN SCHEDULER, OTHERS FROM FAKAWIS AGENT SMITH/////////////////////////
    ////////////////////NONE OF THIS CODE IS MINE///I DID NOT HAVE PERMISSION TO USE IT /////////////////////
    /////////I APOLOGIZE FOR STEALING PROCEDURES, PLEASE FORGIVE ME/////////////////////////////////////
    /////THE ORIGINAL SCRIPT JUST HAD THEIVING PROCEDURE AND I DONT KNOW WHERE I CAME FROM////////////////////



    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/XAntiRandoms.scar}
    const
    chestcolor = 4018280;
    StartPlayer = 0;
    var
    traps: integer;

    var
    SST1, SST2, FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
    procedure loadbmps;
    begin
    traps := BitmapFromString(31, 8, 'z78DA33304000371CC0000310' +
    'AF92BAEA89770F7E35F414C70F88D7457C9890E7424AE2885 435B' +
    '40E5BF252C2F0703925A98592BC4F6ACAA71C0C94BD83D9E5 0010' +
    'C54578');
    end;

    //----------------------------------------------------------------------------//

    Function FindFastRandoms: Boolean;
    var
    i: Integer;
    begin
    for i:=1 to 8 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 FindFight then
    begin
    RunTo('W',False);
    end;
    end;
    end;
    wait(1);
    end;
    end;
    //----------------------------------------------------------------------------//

    Procedure DeclarePlayers;
    begin
    HowManyPlayers:=1;
    NumberOfPlayers(HowManyPlayers);
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Active := True;


    end;

    //----------------------------------------------------------------------------//

    Procedure DoChats;

    Begin
    SetChat('On', 1);
    SetChat('On', 1);
    SetChat('Off', 2);
    SetChat('Off', 2);
    SetChat('Off', 3);
    SetChat('Off', 3);
    End;
    //----------------------------------------------------------------------------//
    //---> Waits while Checking for Randoms;
    //----------------------------------------------------------------------------//

    Procedure FTWaitAll(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;


    procedure theiving;
    begin
    findcolorspiral(x,y,chestcolor,5,5,515,336);
    Wait(5000 + Random(50));
    mouse(x,y,5,5,false);
    findbitmap(traps,x,y);
    Wait(200 + Random(5));
    mouse(x,y,5,5,true);
    end;
    //----------------------------------------------------------------------------//

    Procedure MyAntiBan;
    var
    DBanMe : Integer;
    begin
    if ( not ( LoggedIn )) then Exit;
    DBanMe:= Random(50);
    case DBanMe of
    1: RandomRClickEvery(2 + Random(13));
    2: hoverskill('random', false);
    3: RandomChatEvery(10 + Random(5));
    4: RotateEvery(20 + Random(10));
    5: LeaveScreenEvery(5 + Random(5));
    6: HoverEvery(15 + Random(5),'random');
    8: PickUpMouse;
    9: BoredEvery(9 + Random(24));
    10: if ExistsItem ( 1 ) then
    DragItem(1, 1+Random(18));
    11: GameTab(1 + Random(12));
    12: DoEmote(1 + Random(20));
    end;
    end;

    procedure findrandoms;
    begin
    FindNormalRandoms;
    end;


    begin
    setupsrl;
    BenMouse := True;
    loadbmps;
    ClearReport;
    MarkTime(SST1); // global timers for FTWaitAll;
    MarkTime(SST2);
    DeclarePlayers;
    LoginPlayer;
    SetScreenName(Players[CurrentPlayer].Nick); // in case we where already logged in.
    DoChats;
    repeat
    theiving;
    Findrandoms;
    FindFastRandoms;
    MyAntiBan;
    until(false)
    end.

    Ok, Sorry but right now i have to take a shower when i come back ill help you

    Sorry


    -Ashur
    Exam period.

  5. #5
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I've never done a script that gets gas as a random, but couldn't find fight solve it? The gas damages you, so find fight checks your health, sees that it is lower, and then runs away.

    however, I've never seen this be used, so somebody plz explain what would be wrong with this method

  6. #6
    Join Date
    Oct 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow!, thank you i wasn't even thinking, i was trying to solve it by finding the gas, it wont matter if you find the gas or not because u take damage anyways,
    supercool thank you very much!

  7. #7
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I rather learn and study the scripts while scripting myself and helping others.
    Like I've been here 3% and 70+ posts, asking help to my script and helping others the best I can. And on the meanwhile I try to study scar.

    Don't leech, LEARN. It's fun and useful

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •