Index | Kontakt | Board | English | Perry Rhodan | Projeky | Pascal | Hack | Fun | Literatura | Galerie | Like/Hate | Linky | Počítadlo | Whois
Back
Down \/ Back

level.pas

Petr "Zweistein" Prokop


{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
Program BLevels; { (c) Petr "Zweistein" Prokop Program Levels : Malě experience gener tor pro mou hru Fate of Hero } Uses Dos; Type LevArr = array [1..255] of longint; Var I : Byte; L : LevArr; K : Real; Base : LongInt; FLev,TLev : Byte; Y,Mo,D,x,H,M,S,SS:word; Race,class,spe,comm,name,filename:String; F : text; FF: file; Begin; Writeln; writeln('Enter data :'); write('Race (""=>Unknown)>'); readln(race); if race='' then race:='Unknown'; Write('Class (""=>Unknown)>'); readln(class); if class='' then class:='Unknown'; write('Special variant (""=>None)>'); readln(spe); if spe='' then spe:='None'; write ('Note on numerics - program has limited capacity (for Base=500, K=1.1 is it maximum of 137 levels,'); Writeln('progam cant use higer experienxe than ',maxlongint,')'); write ('Base (0=>500)>'); readln (Base); if base=0 then base:=500; Write ('K (0=>1.1)>'); readln(K); if k=0 then k:=1.1; write ('From level (0=>1)>'); readln (flev); if (flev>255) or (flev=0) then flev:=1; write ('To level (O=>255)>'); readln(tlev); if tlev=0 then tlev:=255; if flev>tlev then begin; i:=tlev; tlev:=flev; flev:=i; end; write ('Your name (""=>Mr.X)>'); readln (Name); if name='' then name:='Mr.X'; write ('Comment (""=>None)>'); readln (comm); if comm='' then comm:='None'; write ('Filename (""=>fohlevel.tbl)>'); readln (filename); if filename='' then filename:='fohlevel.tbl'; L[1]:=0; L[2]:=Base; Write ('Creating table'); For I:=3 To Tlev Do Begin; L[I]:=L[I-1]+Round(K*(L[I-1]-L[I-2])); write('.'); End; Writeln('Ok'); Write('Openig File'); assign(F,filename); rewrite(F); WriteLn(' Ok'); Write('Getting time and date'); GetTime(h,m,s,ss); GetDate(y,mo,d,x); writeln(' Ok'); write('Writing to file fasic info'); Writeln(f,'Level and Experience table file ',filename,' for Fate of Hero'); Writeln(f,'Made on ',y,'/',d,'/',mo,' ',h,':',m,':',s,' by ',name); writeln(f,'For race ',race,' and class ',class,', special ',spe); writeln(f,'Comment:',comm); Writeln(f,'Base=',base,' K=',k:1:3,', From level ',flev,' to level ',tlev); writeln(f,'Using Level(X) = Level(X-1) + K * ( Level(X-1) - Level(X-2) )'); writeln(' Ok'); write('Writing table'); writeln(f,'+---+----------+'); writeln(f,'|Lev|Experience|'); writeln(f,'+---+----------+'); For I:=Flev To Tlev Do Begin; Writeln(f,'|',i:3,'|',l[i]:10,'|'); write('.'); End; writeln(f,'+---+----------+'); write(f,'[EOF ',filename,' ]'); writeln(' Ok'); close(f); assign(ff,filename); Reset(ff); WriteLn(FileSize(ff),' bytes writen'); Close(ff); Writeln('All OK'); end.

(c) Zweistein 2000-2002
od 07-22-2001 byla stránka zobrazena Warning: mysql_connect(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 2 Warning: mysql_select_db(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 3 Warning: mysql_select_db(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 3 Warning: mysql_query(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 5 Warning: mysql_query(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 5 Warning: mysql_query(): Can't connect to local MySQL server through socket '/tmp/mysql.sock' (2) in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 6 Warning: mysql_query(): A link to the server could not be established in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 6 Warning: mysql_num_rows() expects parameter 1 to be resource, boolean given in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 7 Warning: mysql_close() expects parameter 1 to be resource, boolean given in /DISK2/WWW/zweistein.cz/kgb/pocitadlo.php on line 8
Back E-m@il Board
Up /\ Back
Index | Kontakt | Board | English | Perry Rhodan | Projeky | Pascal | Hack | Fun | Literatura | Galerie | Like/Hate | Linky | Počítadlo | Whois