Results 1 to 14 of 14

Thread: Merchants Pal

  1. #1
    Join Date
    Dec 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Merchants Pal

    Program I made in Pascal, you can download it at http://uppit.com/d/ZCCOT

    It has 4 helpful modes that will help you buy and sell so fast you will beat all your competitors.

    I know you won't be trusting an .exe, and I don't blame you, so here is the source for the admins to see and confirm the program is safe.

    Code:
    Program MerchantsPal;
    uses crt;
    var mode,gothru,done:string;
    exitn:boolean;
    cash:integer;
    
    Procedure modea;
    var units,price,total:integer;
    begin
    gothru:='n';
    writeln;
    writeln;
    writeln('-MODE A-');
    writeln('What is the unit price of the item you are selling?(How much per item?)');
    readln(price);
    writeln('And how many of these items are you selling?');
    readln(units);
    total:=price*units;
    writeln('So, you are selling ',units,' Item[s] at a unit price of ',price,'G each. This means you');
    writeln(' will gain ',total,'G from selling these.');
    delay(1000);
    writeln('Do you wish to accept this? (Y/N) If you say no, your cash will not be edited');
    writeln(' and you will be taken to the menu.');
    readln(gothru);
    if(gothru='Y') or (gothru='y')then
    begin
    cash:=cash+total;
    writeln('Transaction complete. You now have ',cash,'G in total.');
    delay(1000);
    writeln;
    writeln;
    end;
    end;
    Procedure modeb;
    var units,price,total:integer;
    begin
    gothru:='n';
    writeln;
    writeln;
    writeln('-MODE B-');
    writeln('What is the unit price of the item you are buying?(How much per item?)');
    readln(price);
    writeln('And how many of these items are you buying?');
    readln(units);
    total:=price*units;
    writeln('So, you are buying ',units,' Item[s] at a unit price of ',price,'G each. This means you ');
    writeln(' will spend ',total,'G for all of them.');
    delay(1000);
    writeln('Do you wish to accept this? (Y/N) If you say no, your cash will not be edited ');
    writeln('and you will be taken to the menu.');
    readln(gothru);
    if(gothru='Y') or (gothru='y')then
    begin
    cash:=cash-total;
    writeln('Transaction complete. You now have ',cash,'G in total.');
    delay(1000);
    writeln;
    writeln;
    end;
    end;
    Procedure modec;
    var units,price,total:integer;
    begin
    gothru:='n';
    total:=0;
    writeln;
    writeln;
    writeln('-MODE C-');
    writeln;
    repeat
    writeln;
    writeln('How many of this item do you have?');
    readln(units);
    writeln('What is the unit price of the item? ?(How much per item?)');
    readln(price);
    total:=total+(price*units);
    done:='n';
    writeln('Would you like to add any more items?(Y/N)');
    readln(done);
    until(done='n') or (done='N');
    writeln('The total price of the items you just took stock of is ',total,'G.');
    delay(1000);
    writeln('If you sold all those items, your total would be ',cash+total,' gold.');
    writeln;
    writeln('press enter to return to menu.');
    readln;
    end;
    Procedure moded;
    begin
    writeln;
    writeln('Enter the new amount:');
    readln(cash);
    writeln;
    writeln('Your new cash amount is ',cash,' Gold.');
    writeln;
    writeln('You will now be taken back to the menu.');
    delay(1000);
    end;
    BEGIN
    TextBackground(7);
    clrscr;
    textcolor(red);
    writeln('Welcome to Merchants Pal 1.0!');
    writeln('Copyright 2007 Addy Studios (Adam Oakley)');
    writeln;
    textcolor(1);
    writeln('Using this program you can manage your items for ANY online game!');
    writeln('Begin by telling me how much money you have right now:');
    readln(cash);
    writeln('Okay, you have ',cash,' Gold Pieces.');
    delay(1000);
    writeln;
    writeln;
    repeat
    writeln('Please select a mode:');
    writeln('A. SELL item[s]');
    writeln('B. BUY item[s]');
    writeln('C. Take/Update inventory of all items.');
    writeln('D. Modify Cash');
    writeln('E. Exit this program');
    readln(mode);
    if(mode='a') or (mode='A')then
    modea;
    if(mode='b') or (mode='B')then
    modeb;
    if(mode='c') or (mode='C')then
    modec;
    if(mode='d') or (mode='D')then
    moded;
    if(mode='e') or (mode='E')then
    exitn:=true;
    until(exitn=true);
    writeln;
    writeln;
    writeln('Exiting program, you finish with ',cash,'G in total.');
    delay(1000);
    writeln('Thanks for using Merchant Pal by Addyrulez! Visit us on the web at addy.awardspace.com');
    delay(1000);
    writeln('Press Enter to quit');
    readln;
    end.
    If you have any suggestions for new features please let me know.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Um... don't need this, but thanks if its not a virus


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, how fast? Probably detectably fast.

  4. #4
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    rofl and be more specific of its functions and stuff.. pls

  5. #5
    Join Date
    Dec 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nien. I can read what I script perfectly fine. And, anyone with half a brain would know that this is undetectable, because it does nothing to the game client.


    If you want to know what it does, try it out.

  6. #6
    Join Date
    May 2007
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    whoa, its cool lol! auto talker is fast as.....a rabbit. thanks

    Evil walrus pwnz you!

  7. #7
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    lol just be careful. Its probably very detectable :P

  8. #8
    Join Date
    Dec 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    IT DOESN'T DO A GOD DAMN THING TO THE CLIENT. Fucking retards.

  9. #9
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    addy you're the retard, jagex detects inhuman typing

  10. #10
    Join Date
    May 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by alach11 View Post
    addy you're the retard, jagex detects inhuman typing
    Lawl http://www.addy.justgotowned.com/

  11. #11
    Join Date
    Oct 2006
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  12. #12
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    http://alach11.and.sparkys4.justgotowned.com
    Look at the source, do you see ANYTHING that can type?
    This thing DOES NOT TYPE!!!!
    It is more like a calculator...
    I made a new script, check it out!.

  13. #13
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    Jesus christ: did anyone just read the source?
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  14. #14
    Join Date
    Dec 2006
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Fucking retards talk trash before they even try the program.

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
  •