SRL Archive - RS3 Outdated / Broken Scripts

R3v Power Chopper

R3velati0n

2007-01-21 15:33:50

Well this is my first script so don't expect much.
Its a simple power chopper, chops a full load of any logs, then drops them :p
Repeats of course :)

Please post any bugs and your progress reports


{.Instructions:
# Select the two colors of the tree
# Set the tree name
# Set the name to disguise scar with
# Set the wait time
# Run :)
/Instructions}

Fourscape

2007-01-21 16:23:53

Good start… For next version… Antirandoms, maybe multiplayer support, failsafes… what if it doesn't find a tree? Does it log off?

SubiN

2007-01-21 17:44:34

edit ::: sorry didnt see,

R3velati0n

2007-01-21 18:53:32

it Does have anti randoms -.-

xdarkness

2007-01-22 01:36:17

Wow this is great script man. Working fine. Tested. But could you add that when axe head got lost it automatic get it back and put the head back?One more question. Was this bank?

GoF

2007-01-22 01:44:18

Its clearly a powerchopper, so IT DOESNT bank… Nice script btw :)

YoHoJo

2007-01-22 01:50:43

antirandoms wont work well if you don't have a spot to put in player.ncik

look at some SRL scripts with mutipalyer capabilities

Also try learning standards, it makes sciript easier to read.

=) good lcuk

julle13

2007-01-22 07:55:08

I think this is good script atleast at first script, but I agree with yohojo; if u wan't that talking randoms work, then u must make line for nickname. Otherwise good job.
Ps. I'm making powerchopper too :)

Jhoox

2007-01-22 10:44:49

Was waiting for this.
Thankx for your script m8!

R3velati0n

2007-01-22 13:18:26

Updated the script ;)
Better anti-randoms and anti-ban
Multi-player support

julle13

2007-01-22 14:27:55

I think u really got in it. It looks nice, which tuts u read to learn so quickly?

R3velati0n

2007-01-22 14:38:25

From: julle13
I think u really got in it. It looks nice, which tuts u read to learn so quickly?

I didnt read many tuts, i just picked it up quickly because i know a little delphi.
Dub & Sumilion also helped me :)

Fourscape

2007-01-22 16:12:23

Heh, learning quickly and coppy/pasting are VERY diferent things. If you go to the powercutter in my sig you will find a few things, The very same Declare players, Exact Replica of my antiban, and Yohojo8's ent finder (Which he let me put into my script– Great guy). So, 1. if you copy and paste, Give credits to the people you coppied them from! 2. If you learn from copying, then fine, but soon, I hope to see some of your OWN procedures in that script. I also bet alot of that other stuff is not yours, so give some credit to those others aswell, and dont tell me it just LOOKS the same, here is my antiban..

//->Anti Ban<-//
Var
  WCLEVEL, DONTBAN : Integer;

Procedure TheAntiBan;
begin
  TheAntiRandoms;
  Status('Preforming Antiban')
  if ( not ( LoggedIn )) then Exit;
  DONTBAN:= 1 + Random(140)
  case DONTBAN of
     1: RandomRClickEvery(2 + Random(10));
     2: HoverSkill('woodcutting', false);
     3: HoverSkill('random', false);
     4: DoEmote(1 + Random(20));
     5: BoredEvery(9 + Random (21));
     6: PickUpMouse;
     7: LeaveScreenEvery(10 + Random(5));
     8: RotateEvery(20 + Random(5));
     9: MMouse(MSX1,MSX2,10,10)
    12: GameTab(1+random(7))
    13: HighestAngle;
    14: TypeSend('Lol my wc lvl is ' +IntToStr (WClevel)  + '.')
    15: TypeSend('Wc lvl ' +IntToStr (WClevel) + '! Sweet!')
    16: TypeSend('Grr, my wc lvl is only ' +IntToStr (WClevel) + '')
    17: GetSkillLevel('WoodCutting')
    18: GameTab(1+Random(7))
    19: MakeCompass('W')
    20: MakeCompass('E')
    21: TypeSend('I''m lvl ' +IntToStr (WClevel) + ', but I want ' +IntToStr (WClevel + 3 + Random(8)) + '')
    22: TypeSend('' +IntToStr (WClevel) + ' woodcuting.../')
    23: TypeSend('I can''t wait till im lvl ' +IntToStr (WClevel + 4 + Random(7)) + '')
    24: TypeSend('Hmm... im only lvl ' +IntToStr (WClevel) + ' woodcutting... i should go for ' +IntToStr (WClevel + 6 + Random(8))+'')
    25: TypeSend('yay... lvl ' +IntToStr (WClevel) + 'wc... still...')
    26: TypeSend('cool! only ' + IntToStr (10+random(8)) + 'k xp till lvl ' +IntToStr (WClevel + 1 + random(4)) + ' wc')
    27: TypeSend('WC lvl ' +IntToStr (WClevel) + '')
    28: TypeSend('hmph... only ' +IntToStr (WClevel) + '')
    end;
   TheAntiRandoms;
  end;