1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Калькулятор крафта сосок

Discussion in 'Общий раздел' started by progerPro, Jan 12, 2011.

Thread Status:
Not open for further replies.
  1. progerPro

    progerPro User

    Joined:
    12.01.11
    Messages:
    12
    Likes Received:
    0
    добрый день крафтер. если ты крафтишь и торгуешь сосками то эта программа для тебя. она позволяет легко посчитать прибыль и затраты при крафте. пока в базе проги есть только(ssd,ssc,ssb,ssa,sss,bssd,bssc,bssb,bssa,bsss).
    вот ссылка:
    http://*********/3924318 распаковываем в отдельную папку, запускаем sos.exe и пользуемся.
    если у вас возникли замечания, предложения, вопросы смело, быстро и решительно отписывайте в теме
     
    Last edited by a moderator: Jan 13, 2011
  2. Sality

    Sality User

    Joined:
    13.10.10
    Messages:
    115
    Likes Received:
    0
    делфи рулит)
     
  3. joocc

    joocc User

    Joined:
    10.02.10
    Messages:
    27
    Likes Received:
    1
    так таких прог давно уже как грязи
     
  4. НифигаНеЗадрот

    НифигаНеЗадрот User

    Joined:
    04.02.10
    Messages:
    1,994
    Likes Received:
    0
    для этих целей гораздо лучше рулит excel
    зы кто сколько вирусов нашел? ;)
     
  5. progerPro

    progerPro User

    Joined:
    12.01.11
    Messages:
    12
    Likes Received:
    0
    могу предоставить исходные коды
     
  6. joocc

    joocc User

    Joined:
    10.02.10
    Messages:
    27
    Likes Received:
    1
    так по любому не один крафтер по этой ссылке не пойдет))))
     
  7. DIL

    DIL Модератор 4Game Global moderator

    Joined:
    02.03.10
    Messages:
    12,088
    Likes Received:
    1,528
    хороший кей-логер наверное. :)
     
  8. progerPro

    progerPro User

    Joined:
    12.01.11
    Messages:
    12
    Likes Received:
    0
    http://*********/3911938 архивчик с исходниками но без иконок
    unit unit1;

    interface

    uses
    windows, messages, sysutils, variants, classes, graphics, controls, forms,
    dialogs, menus, extctrls, stdctrls, buttons;

    type
    tform1 = class(tform)
    combobox1: tcombobox;
    label1: tlabel;
    image1: timage;
    edit1: tedit;
    edit2: tedit;
    edit3: tedit;
    button1: tbutton;
    label2: tlabel;
    label3: tlabel;
    label6: tlabel;
    edit4: tedit;
    label4: tlabel;
    label7: tlabel;
    edit5: tedit;
    edit6: tedit;
    label8: tlabel;
    edit7: tedit;
    label5: tlabel;
    label9: tlabel;
    edit8: tedit;
    label10: tlabel;
    edit9: tedit;
    bitbtn1: tbitbtn;
    bitbtn3: tbitbtn;
    procedure combobox1change(sender: tobject);
    procedure button1click(sender: tobject);
    procedure edit2change(sender: tobject);
    procedure edit1keypress(sender: tobject; var key: char);
    procedure combobox1keypress(sender: tobject; var key: char);
    procedure bitbtn1click(sender: tobject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    var
    form1: tform1;
    s:string;

    implementation

    {$r *.dfm}

    procedure tform1.combobox1change(sender: tobject);
    var s,s1:string;
    begin
    case form1.combobox1.itemindex of
    0: begin form1.image1.picture.loadfromfile('bitmap/ssd.bmp'); s:='d'; end;
    1: begin form1.image1.picture.loadfromfile('bitmap/ssc.bmp'); s:='c'; end;
    2: begin form1.image1.picture.loadfromfile('bitmap/ssb.bmp'); s:='b'; end;
    3: begin form1.image1.picture.loadfromfile('bitmap/ssa.bmp'); s:='a'; end;
    4: begin form1.image1.picture.loadfromfile('bitmap/sss.bmp'); s:='s'; end;
    5: begin form1.image1.picture.loadfromfile('bitmap/bssd.bmp'); s:='d'; end;
    6: begin form1.image1.picture.loadfromfile('bitmap/bssc.bmp'); s:='c'; end;
    7: begin form1.image1.picture.loadfromfile('bitmap/bssb.bmp'); s:='b'; end;
    8: begin form1.image1.picture.loadfromfile('bitmap/bssa.bmp'); s:='a'; end;
    9: begin form1.image1.picture.loadfromfile('bitmap/bsss.bmp'); s:='s'; end;
    end;
    form1.label2.caption:='ââåäèòå öåíó çà 1 '+s+' êðèñ';
    end;
    procedure tform1.button1click(sender: tobject);
    var chezakri,chezarud,chezacoc,cto,code:integer; za1coc,plu1coc,p:real;
    s,s1:string; f:textfile;
    begin
    val(edit1.text,chezakri,code);
    val(edit2.text,chezarud,code);
    val(edit3.text,chezacoc,code);
    case form1.combobox1.itemindex of
    0: begin cto:=9*chezarud+3*chezakri; za1coc:=cto/468; p:=468; end;
    1: begin cto:=30*chezarud+2*chezakri; za1coc:=cto/952; p:=952; end;
    2: begin cto:=54*chezarud+chezakri; za1coc:=cto/450; p:=450; end;
    3: begin cto:=36*chezarud+chezakri; za1coc:=cto/300; p:=300; end;
    4: begin cto:=40*chezarud+chezakri; za1coc:=cto/350; p:=350; end;
    5: begin cto:=8*chezarud+2*chezakri; za1coc:=cto/100; p:=100; end;
    6: begin cto:=30*chezarud+2*chezakri; za1coc:=cto/200; p:=200; end;
    7: begin cto:=16*chezarud+2*chezakri; za1coc:=cto/100; p:=100; end;
    8: begin cto:=70*chezarud+2*chezakri; za1coc:=cto/200; p:=200; end;
    9: begin cto:=50*chezarud+2*chezakri; za1coc:=cto/200; p:=200; end;
    end;
    form1.edit5.text:=inttostr(cto);
    str(za1coc:0:2,s1);
    form1.edit3.text:=s1+' àäåí';
    plu1coc:=strtoint(form1.edit4.text)-za1coc;
    str(plu1coc:0:2,s1);
    form1.edit7.text:=s1+' àäåí';
    p:=p*strtoint(edit4.text)-cto;
    str(p:0:0,s1);
    form1.edit8.text:=s1+' àäåí';
    plu1coc:=plu1coc*strtoint(edit6.text);
    str(plu1coc:0:0,s1);
    form1.edit9.text:=s1+' àäåí';
    end;
    procedure tform1.edit2change(sender: tobject);
    begin
    if (edit1.text<>'') and (edit2.text<>'') and (combobox1.itemindex<>-1)
    and (edit4.text<>'') and (edit6.text<>'')
    then button1.enabled:=true else button1.enabled:=false;
    end;
    procedure tform1.edit1keypress(sender: tobject; var key: char);
    begin
    if not (key in ['0'..'9', #8]) then
    key:=#0;
    end;


    procedure tform1.combobox1keypress(sender: tobject; var key: char);
    begin
    key:=#0;
    end;

    procedure tform1.bitbtn1click(sender: tobject);
    begin
    showmessage('ïðîãà ðàçðàáîòàíà progerpro '+'delphi 7 interprise çàìå÷àíèÿ è ïðåäëîæåíèÿ â àñüêó 388332525');
    end;

    end.
     
  9. Стрельников

    Стрельников Главный модератор Head moderator

    Joined:
    25.05.10
    Messages:
    10,739
    Likes Received:
    1,338
    господа, вы пользуетесь этим на свой собственный страх и риск!
     
  10. Хирако

    Хирако User

    Joined:
    11.07.10
    Messages:
    111
    Likes Received:
    0
    а че. код же вложил:d есть делфи - ктрл+ц, ктрл+в и никакого риска. хотя.. у кого есть делфа, думаю сами в состоянии такое написать:)
     
  11. Стрельников

    Стрельников Главный модератор Head moderator

    Joined:
    25.05.10
    Messages:
    10,739
    Likes Received:
    1,338
    дело просто в том, что данная программа никакого отношения к компании не имеет и соответственно никаких гарантий её безопасного использования не будет. вот и все
     
  12. kota192

    kota192 User

    Joined:
    09.02.10
    Messages:
    3
    Likes Received:
    0
    вроде прога годная
     
  13. progerPro

    progerPro User

    Joined:
    12.01.11
    Messages:
    12
    Likes Received:
    0
    просканил и о чудо ничего)
     
  14. LoneWolf2

    LoneWolf2 User

    Joined:
    24.12.09
    Messages:
    12,780
    Likes Received:
    884
    ну это для тех, кто зарабатывать крафтом сосок хочет, но калькулятором пользоваться не умеет (не говоря уж об экселе).

    лично у меня уже давно крафт сосок в экселе и весь прочий крафт там же, но заглядываю я в эти расчеты не часто.

    p.s. скан фигня, годный самописный троян ничто не находит. кто хочет 100% гарантии компильте исходники сами. :)
     
  15. progerPro

    progerPro User

    Joined:
    12.01.11
    Messages:
    12
    Likes Received:
    0
    только перед компилом на форму накидайте все что надо, а то потом орать будете что исходники левые)
     
  16. Males

    Males User

    Joined:
    30.05.10
    Messages:
    28
    Likes Received:
    0
    прога оперативненькая) всмысле ресурсов почти не жрет и считает быстро! если в ценах паритесь или решили крафтом под зрарботать имхо пользуйтесь!
     
  17. vasik

    vasik User

    Joined:
    15.10.10
    Messages:
    376
    Likes Received:
    0
    был раньше л2информер так вот в нем был приличный калькулятор сосак
    а ето качать апасна, там может быть все что угодно, начиная от кейлогера и заканчивая вашим взломанным акком)
    пкодер про свою аси тож говорит шо у ево все чиста... однако регулярно ломают акки тех кто прогу ту юзает:d

    "пока живут на свете дураки, обманом стало быть нам жить с руки" (с)
     
  18. НифигаНеЗадрот

    НифигаНеЗадрот User

    Joined:
    04.02.10
    Messages:
    1,994
    Likes Received:
    0
    у тебя исходники даже без файла формы?????? абалдеть!
    зы кто знает дельфи - такая прога на 10 мин (делал сам года 3 назад) с перерывом на кофе :)
    кто не знает - ему исходники не помогут, даже если он сумеет скомпилить.
     
  19. Сангиро

    Сангиро User

    Joined:
    28.12.10
    Messages:
    281
    Likes Received:
    0
    народ а не судьба записать цену тех сосок которых надо и взять в руки калькулятор и посчитать,неужели интернет полностью поработил вас)?
     
  20. Кряфа

    Кряфа User

    Joined:
    24.12.09
    Messages:
    180
    Likes Received:
    5
    ой, похоже каждый крафтер, владеющий языком, хоть раз в жизни писал программку для подсчета шотокрафта. вот моя версия: http://*********/3918437. не судите строго, писала во время збт руофа :)
     
Thread Status:
Not open for further replies.