bbbrandomchar_0.1, Pascal

bbbrandomchar_0.1

{link: https://rextester.com/DBG33625}
program the_fucking_app;
uses crt;
var name:string;

procedure logo;
begin
writeln;
writeln('Created by BlazeApi');
writeln('Trash program v0.1');
writeln;
writeln('====== Trash program ======');
writeln;
end;

procedure main(name:string);
var result,elem:string; fnum,snum,tnum:integer;
begin
randomize;
fnum:=random(13)+1;
case fnum of
1: result:='Boboiboy';
2: result:='Fang';
3: result:='Gopal';
4: result:='Ying';
5: result:='Yaya';
6: result:='Captain Kaizo';
7: result:='Adudu';
8: result:='Comander Kokoci';
9: result:='Probe';
10: result:='Admiral Tarung';
11: result:='Alien Mops';
12: result:='Ramen man';
end;
elem:='';
if fnum=1 then
     begin
     snum:=random(1);
     if snum=1 then
           begin
           tnum:=random(7);
           case tnum of
                1: elem:='Earthquake';
                2: elem:='Thunderstorm';
                3: elem:='Cyclone';
                4: elem:='Blaze';
                5: elem:='Ice';
                6: elem:='Thorn';
                7: elem:='Solar';
                end;
           end;
     if snum=0 then
           begin
           tnum:=random(7);
           case tnum of
                1: elem:='Tanah';
                2: elem:='Petir';
                3: elem:='Taufan';
                4: elem:='Api';
                5: elem:='Air';
                6: elem:='Daun';
                7: elem:='Cahaya'; 
               end;
           end;
end;
{writeln('Which Boboiboy Galaxy character is you ???');}
writeln('your result: ',result,elem);
end;
BEGIN
clrscr;
logo;
{write('Input your name: ');
readln(name);}
name:='Thanh';
writeln('Which Boboiboy Galaxy character is you ???');

main(name);
END.


run \| edit \| history \| help	0