SRL Archive - First Scripts

I don't know how to indent and put space properly cuz I'm used to the program doing it for me. Read a few tutorials and made this script. It autotypes with lots of random typos. Please give comments.

program RandomizedSalesman;
//____________________ RandomizedSalesman by toxicf ______________________________
//                                                                                |
// 1. Set Spelling12345 and Spelling12345Chance to the product you're 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= 'lobbies';//spelling of the product
Spelling1Chance= 50;// chance of using this spelling for the product out of 100

Spelling2= 'lobs';
Spelling2Chance= 20;

Spelling3= 'lobsters';
Spelling3Chance= 10;

Spelling4= 'cooked lobs';
Spelling4Chance= 10;

Spelling5= 'lobbys';
Spelling5Chance= 10;

PriceMode= 1;//   mode 1: each           example: selling lobbies 250 each
//                mode 2: set amount     example: selling 50 lobbies 13k

PriceEach= '250';//    for mode 1     price of each

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


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


begin
Wait(5000);// gives you 5 seconds to switch window
 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.

Great Script!

Just a tip:
You should put this in your script:

if (TradeScreen = False) then clicktext('rade with',SmallChars,MCX1,MCY1,MCX2,MCY2,True);
if (TradeScreen = True) then exit;

This just clicks the trade with text then exits when a trade window is opened. This is just so that if you look away for a second and someone has traded, you dont keep blabbing :p.

~JNCR