PDA

View Full Version : Merchants Pal



addy771
05-16-2007, 05:45 AM
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.



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.

Harry
05-16-2007, 09:33 PM
Um... don't need this, but thanks if its not a virus :D

Sp0rky
05-16-2007, 09:39 PM
lol, how fast? Probably detectably fast.

Hugolord
05-16-2007, 09:41 PM
rofl and be more specific of its functions and stuff.. pls

addy771
05-16-2007, 10:52 PM
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.

evilwalrus
05-26-2007, 11:21 PM
whoa, its cool lol! auto talker is fast as.....a rabbit. thanks

Evil walrus pwnz you!

Sp0rky
05-26-2007, 11:42 PM
lol just be careful. Its probably very detectable :P

addy771
05-29-2007, 11:59 PM
IT DOESN'T DO A GOD DAMN THING TO THE CLIENT. Fucking retards.

alach11
05-30-2007, 12:05 AM
addy you're the retard, jagex detects inhuman typing

sparkys4
05-31-2007, 06:56 AM
addy you're the retard, jagex detects inhuman typing

Lawl http://www.addy.justgotowned.com/

I Karma I
05-31-2007, 09:09 AM
Lmao... Change the typing speed.

Markus
05-31-2007, 02:07 PM
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...

R0b0t1
06-02-2007, 08:16 PM
Jesus christ: did anyone just read the source?

addy771
06-03-2007, 09:55 AM
Fucking retards talk trash before they even try the program.