SRL Archive - First Scripts

its not a verry good script but im learning it this my first script its an autotalker i added a randomsale i got some help with the randomsale 1 of my reason whas to made this script is i wanna be a junior member


post bugs sugestions or something else

//____________________ Autotalker + randomsales By wesleyxD ______________________________
//                                                                                |
// 1. Set Spelling and SpellingChance to the item that your selling               |
//    including alternate spellings and typos. Set the chance of using that       |
//    spelling out of 100.                                                        |
// 2. Set the price and choose between the two selling modes. More instructions   |
//    below.                                                                      |
// 3. Press play and switch to Runescape window. Press Ctrl-Alt-S to stop the     |
//    script. Press Ctrl-Alt-R to run the script again. There is a 5 seconds      |
//    delay before the script starts; you can change this if you want.            |
//________________________________________________________________________________|

{.include SRL\SRL.scar}

const
Spelling1= 'rune scimy';//spelling of the product
Spelling1Chance= 50;// chance of using this spelling for the product out of 100

Spelling2= 'Rune scim';
Spelling2Chance= 20;

Spelling3= 'r scimytars';
Spelling3Chance= 10;

Spelling4= 'rune scimitar';
Spelling4Chance= 10;

Spelling5= 'runite scimy';
Spelling5Chance= 10;

PriceMode= 1;//   mode 1: each           example: selling rune scimy 25k each
//                mode 2: set amount     example: selling 10 rune scimy 250k

PriceEach= '25k';//    for mode 1     price of each

PriceAmount= '10';//   for mode 2     amount of the product
PriceBatch= '220k';//   for mode 2     Price for the set amount


var
Spelling,Effect,SellingTypo,EachTypo: String;
SpellingRandom,EffectRandom,SellingTypoRandom,EachTypoRandom: Integer;


begin
wait(500);
activateclient;
 If (Spelling1Chance + Spelling2Chance + Spelling3Chance + Spelling4Chance +Spelling5Chance = 100) then
 Writeln('Spelling Chances Correct')
 begin
 repeat
      SpellingRandom:=random(100)
      If (SpellingRandom<Spelling1Chance) then
         begin
         Spelling:=Spelling1;
         end else if (SpellingRandom<(Spelling1Chance+Spelling2Chance)) then
         begin
         Spelling:=Spelling2;
         end else if (SpellingRandom<(Spelling1Chance+Spelling2Chance+Spelling3Chance)) then
         begin
         Spelling:=Spelling3;
         end else if (SpellingRandom<(Spelling1Chance+Spelling2Chance+Spelling3Chance+Spelling4Chance)) then
         begin
         Spelling:=Spelling4;
         end else
         begin
         Spelling:=Spelling5;
         end

      SellingTypoRandom:= random(20);
      case SellingTypoRandom of
           0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17: SellingTypo:= 'selling';
           18: SellingTypo:= 'sellin';
           19: SellingTypo:= 'seling';
      end


      EffectRandom:= random(16)
      case EffectRandom of
           0,1: Effect:= 'red:';
           2,3: Effect:= 'white:';
           4,5: Effect:= 'cyan:';
           6,7: Effect:= 'green:';
           8,9: Effect:= 'purple:';
           10: Effect:= 'glow1:';
           11: Effect:= 'glow2:';
           12: Effect:= 'glow3:';
           13: Effect:= 'flash1:';
           14: Effect:= 'flash2:';
           15: Effect:= 'flash3:';
      end

      If (PriceMode=1) then
      begin
           EachTypoRandom:= random(20);
           case EachTypoRandom of
           0,1,2,3,4,5,6,7,8,9,10,11,12: EachTypo:= 'each';
           13,14,15,16,17,18: EachTypo:= 'per';
           19: EachTypo:= 'ech';
           end
      end

      case PriceMode of
           1: TypeSend(Effect+SellingTypo+' '+Spelling+' '+PriceEach+' '+EachTypo);
           2: TypeSend(Effect+SellingTypo+' '+PriceAmount+' '+Spelling+' '+PriceBatch);
      end
      wait(750+500)
 until(false)
 end
end.

Download autotalker

anyone?

works very nice… sold my 10k iron ore with this… nice script for start

You dont need to add wait(5000) so user can switch windows…

just make it something like this

wait(500);
activateclient;

also i got a suggestion, add option that user can press some button to pause
typing(while trading), and button to resume…you can use f keys
code: IsFKeyDown(what f key, 1-12:integer;)
example: isfkeydown(12)
it returns true when f 12 is pressed

…yea i can use ctrl + alt + a… but still they to hard too press all the time

ok ty for your comment

//____________________ Autotalker + randomsales By wesleyxD ______________________________
  //                                                                                |
  // 1. Set Spelling and SpellingChance to the item that your selling               |
  //    including alternate spellings and typos. Set the chance of using that       |
  //    spelling out of 100.                                                        |
  // 2. Set the price and choose between the two selling modes. More instructions   |
  //    below.                                                                      |
  // 3. Press play and switch to Runescape window. Press Ctrl-Alt-S to stop the     |
  //    script. Press Ctrl-Alt-R to run the script again. There is a 5 seconds      |
  //    delay before the script starts; you can change this if you want.            |
  //________________________________________________________________________________|

program wesleyxDAutoTalker;
{.include SRL\SRL.scar}

const
  Spelling1       = 'rune scimy';//spelling of the product
  Spelling1Chance = 50;          // chance of using this spelling for the product out of 100

  Spelling2       = 'Rune scim';
  Spelling2Chance = 20;

  Spelling3       = 'r scimytars';
  Spelling3Chance = 10;

  Spelling4       = 'rune scimitar';
  Spelling4Chance = 10;

  Spelling5       = 'runite scimy';
  Spelling5Chance = 10;

  PriceMode = 1;//   mode 1: each           example: selling rune scimy 25k each
  //                mode 2: set amount     example: selling 10 rune scimy 250k

  PriceEach = '25k';//    for mode 1     price of each

  PriceAmount = '10';  //   for mode 2     amount of the product
  PriceBatch  = '220k';//   for mode 2     Price for the set amount


var
  Spelling, Effect, SellingTypo, EachTypo: string;
  SpellingRandom, EffectRandom, SellingTypoRandom, EachTypoRandom: Integer;

procedure chat;
begin
  if (Spelling1Chance + Spelling2Chance + Spelling3Chance + Spelling4Chance + Spelling5Chance = 100) then Writeln('Spelling Chances Correct')
    begin
      SpellingRandom := Random(100)      if (SpellingRandom < Spelling1Chance) then         begin         Spelling := Spelling1;
      end else if (SpellingRandom < (Spelling1Chance + Spelling2Chance)) then
      begin
        Spelling := Spelling2;
      end else if (SpellingRandom < (Spelling1Chance + Spelling2Chance + Spelling3Chance)) then
      begin
        Spelling := Spelling3;
      end else if (SpellingRandom < (Spelling1Chance + Spelling2Chance + Spelling3Chance + Spelling4Chance)) then
      begin
        Spelling := Spelling4;
      end else
      begin
        Spelling := Spelling5;
      end

      SellingTypoRandom := Random(20);
      case SellingTypoRandom of
        0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17: SellingTypo := 'selling';
        18: SellingTypo := 'sellin';
        19: SellingTypo := 'seling';
      end


      EffectRandom := Random(16)      case EffectRandom of 0, 1: Effect := 'red:';
        2, 3: Effect := 'white:';
        4, 5: Effect := 'cyan:';
        6, 7: Effect := 'green:';
        8, 9: Effect := 'purple:';
        10: Effect := 'glow1:';
        11: Effect := 'glow2:';
        12: Effect := 'glow3:';
        13: Effect := 'flash1:';
        14: Effect := 'flash2:';
        15: Effect := 'flash3:';
      end

      if (PriceMode = 1) then
      begin
        EachTypoRandom := Random(20);
        case EachTypoRandom of
          0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12: EachTypo := 'each';
          13, 14, 15, 16, 17, 18: EachTypo := 'per';
          19: EachTypo := 'ech';
        end
      end
      case PriceMode of
        1: TypeSend(Effect + SellingTypo + ' ' + Spelling + ' ' + PriceEach + ' ' + EachTypo);
        2: TypeSend(Effect + SellingTypo + ' ' + PriceAmount + ' ' + Spelling + ' ' + PriceBatch);
      end
      wait(750 + 500)
    end
end;

begin
  wait(500);
  activateclient;
  repeat
    Chat;
    wait(600+random(500));
  until (false);
end.

Standards? :D

how to dowload it ?????

u dont u copy paste the scar script..l ol

spaz

wow. when i first when here i thought it would be a simple one like the one i made. but the random spelling stuff is really cool.
It looks like a good script

it whas alot work

From: spaztaz666
u dont u copy paste the scar script..l ol

spaz

If you are going to accuse someone of plagiarism, you should post a link to the original script you are accusing the person of copying…..

~RAM

i dont think anyone was acusing anyone of plagiarism. I think paztaz666 was responding to hampus008's post. Hampus asked how to download and paztaz was telling him that you dont download but rather copy the script and paste it in scar.

ok

Worked for me, thanks! Like all the random typing stuff in there ;)

ahh srry ram i didnt mean that i meant that hampus asked where to download it.. i jst meant to copy the scar code into scar not actually nicking someones work :)

spaz