[4Story] Obalenie kłótni o kowalu, poparte dowodami, uproszczone kody źrodłowe kowala

[tomeczkooo]

Witam wszystkich bardzo serdecznie, jak zapewne wielu z was wie postawiłem wile prywatnych serverów do 4story, co za tym idzie, mam dostęp do kodów źródłowych kowala. Teraz wyjaśnię zasadę jego działania.

Po pierwsze kowal jest całkowicie losowy( lub jak niektórzy to nazwą pseudo-losowy)

NIE DA SIĘ JEDNOCZEŚNIE OKREŚLIĆ 100% WBICIA, TRZEBA UDERZYĆ W ODPOWIEDNIM MOMENCIE, WSZYSTKO ZALEŻY OD SZCZĘŚCIA. Jednak zaraz zaraz, przecież szczęściu zawsze można pomóc^^. Może kody i % szans przybliżą was trochę do waszego celu.

Procenty szans najbardziej zbliżone do PL-a (oryginalnie w plikach są 2x większe, co za tym idzie GF doi z was kasę i nic więcej.)

bLevel- + itemu, bProp % szansy. Kolejno dla PL

Na pl powyżej +10 są obniżone po 50%, do+10 myślę ,że 15-20% obniżenia.

Kod kowala przetlumaczony na pascala:

http://c.wrzuta.pl/wi9485/e1d566c7002107cc520a1842/kowal

 

 

program kowal;

var
tab : array [0..24] of byte;
getsuc,newsuc,lvl,fortune,d:integer;

BEGIN
randomize;
{repeat}
tab[0]:=100;
tab[1]:=100;
tab[2]:=100;
tab[3]:=75;
tab[4]:=100;
tab[5]:=45;
tab[6]:=90;
tab[7]:=30;
tab[8]:=75;
tab[9]:=15;
tab[10]:=45;
tab[11]:=38;
tab[12]:=8;
tab[13]:=30;
tab[14]:=8;
tab[15]:=23;
tab[16]:=5;
tab[17]:=15;
tab[18]:=5;
tab[19]:=12;
tab[20]:=3;
tab[21]:=9;
tab[22]:=3;
tab[23]:=8;
tab[24]:=0;


getsuc:=0;
newsuc:=0;
lvl:=0;
fortune:=0;
d:=0;

read(lvl,fortune);

if lvl<24 then
begin
getsuc:=random(99);
newsuc:=tab[lvl]*fortune;

if getsuc <= newsuc then
begin
d:=random(3)+1;
lvl:=lvl+d;
if lvl > 24 then lvl:=24;
end;

if getsuc >= newsuc then
begin
d:=random(2)+1;
lvl:=lvl-d;
end;
end;

writeln('poziom itemu=',lvl);

{until eof;}

 

 

http://ideone.com/cm756p

http://ideone.com/50w2QX

 

END.