[Wszystkie wersje][Tibia Profit Calculator] Program do podliczania profitu + sources!
Witam
Aplikacja służy do podliczania zysku. Nie jest to typowy bot, lecz nie wiedziałem do jakiego działu to wrzucić ;d
Screen:
http://www.picshot.pl/pthumbs/large/164274/tpc_ss.png
Download:
http://speedy.sh/gXW8E/Tibia-Profit-Calculatorr.exe
Kod źródłowy aplikacji(program został napisany w Delphi):
Kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
Memo1: TMemo;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Button2: TButton;
Memo2: TMemo;
Label7: TLabel;
Label8: TLabel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
sup,loot: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
il1,wart1:string;
begin
il1:=Edit1.Text;
wart1:=Edit2.Text;
Memo1.Lines.Add(il1+' '+wart1);
sup:= sup+(strtoint(il1)*strtoint(wart1));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
il2,wart2:string;
begin
il2:=Edit3.Text;
wart2:=Edit4.Text;
Memo2.Lines.Add(il2+' '+wart2);
loot:= loot+(strtoint(il2)*strtoint(wart2));
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label8.Visible:=True;
Label8.Caption:=inttostr(loot-sup);
end;
end.
I kompletne źródła programu:
http://speedy.sh/nAZdr/tibia-profit-calculator.rar
/edit
wersja 1.1 -> dodane zostało:
http://www.picshot.pl/pthumbs/large/165104/ss2.png
http://www.picshot.pl/pthumbs/large/165106/ss3.png
/wersja 2.0 - możliwość zapisywania określonych przedmiotów do pliku
http://arek159.bugs3.com/tibia_profit_calculator20.zip
Pozdrawiam, miłego użytkowania :)
