ответ:
uses graphabc;
var xx,yy,u: integer;
procedure growl(x,y,r: integer);
var i: byte;
begin
for i: =1 to r do
begin
circle(x,y,i);
sleep(5);
end;
end;
procedure growr(x,y: integer);
var i: byte;
begin
for i: =1 to 20 do
begin
ellipse(x-5,y-(i),x-(i*3),y+(i));
ellipse(x+5,y-(i),x+(i*3),y+(i));
ellipse(x-(i),y-5,x+(i),y-(i*3));
ellipse(x-(i),y+5,x+(i),y+(i*3));
sleep(3);
end;
end;
procedure fall;
var r,prer,i: byte;
x,y: integer;
begin
for i: =1 to 10 do
begin
x: =random(160)-80+windowwidth div 2;
prer: =0;
r: =random(10)+10;
for y: =80+windowheight div 2 to windowheight+30 do
begin
setpencolor(clwhite);
circle(x,y-1,prer);
setpencolor(clblack);
circle(x,y,r);
prer: =r;
sleep(3);
end;
end;
end;
procedure growd (x,y: integer);
var i: byte;
begin
for i: =20 downto 5 do
begin
clearwindow;
setbrushcolor(clgreen);
ellipse(x-5,y-(20),x-(60),y+(20));
ellipse(x+5,y-(20),x+(60),y+(20));
ellipse(x-(20),y-5,x+(20),y-(60));
ellipse(x-(20),y+5,x+(20),y+(60));
setbrushcolor(rgb(255,255-((20-i)*10),255-((20-i)*;
circle(x-i,y-i,i);
circle(x+i,y-i,i);
circle(x+i,y+i,i);
circle(x-i,y+i,i);
sleep(5);
end;
end;
var j: integer;
begin
repeat
setbrushcolor(clgreen);
growr(windowwidth div 2,windowheight div 2);
setbrushcolor(clwhite);
for j: =1 to 360 do
if j mod 10=0 then
begin
xx: =round(windowwidth div 2+20*cos(pi*(u+(j*10))/180));
yy: =round(windowheight div 2+20*sin(pi*(u+(j*10))/180));
growl(xx,-j) div 10));
end;
sleep(100);
fall;
growd (windowwidth div 2,windowheight div 2);
sleep(100);
until false;
end.
объяснение:
/gamemode survival или creative или adventure - позволяет включить другой режим игры, survival - Выживание, creative - Креатив, adventure - приключенческий.
В режиме креатива вы бессмертны, можете летать, а в инвентаре у вас все существующие блоки.
/time set day - включить день
/time set night - включить ночь
/xp 100 - получить 100 опыта (число можно менять).
/xp Игрок 100 - дать игроку 100 опыта.
/weather set clear - выключает дождь\снег.
/weather set rain - включает дождь\снег.
/toggledownfal - переключает погоду с одной на другую, с ясной на дождливую например.
/tp [ник игрока 1] [ник игрока 2] - позволяет телепортировать игрока 1 к игроку 2
/tp [игрок] [x] [y] [z] - телепортировать игрока по координатам x,y,z
/spawnpoint [имя игрока] [x] [y] [z] - позволяет указать точку спавна игрока в мире, если ккординаты x,y,z не указаны, то точкой станет то место где вы стоите.
/setworldspawn - установит точку спавна для всех игроков
/effect [имя игрока] [эффект] [длительность] [уровень] - позволяет наложить определенный эффект на игрока.
Пример: /effect Anton 25 100 5 - наложит на игрока Anton эффект левитации на 100 секунд с силой 5.
Список эффектов
/effect [имя игрока] clear - удалить все наложенные на игрока эффекты
/enchant [имя игрока] [эффект] [уровень] - зачаровывает предмет находящийся в руках.
Например /enchant Anton 22 2 - зачарует предмет в руках игрока Anton на чары "Разящий клинок 2"
Список чар:
/kill - убить вашего персонажа
/kill Игрок - убить игрока
Читы на получение предметов:
Данные команды сложны для запоминания, для получение предметов лучше установить мод JEI или NEI (включить в них режим жульничества).
Наиболее ценные предметы:
/give Игрок minecraft:diamond 64 - получить 64 алмаза
/give Игрок minecraft:diamond_horse_armor - получить броню лошади
/give Игрок minecraft:map - получить карту
/give Игрок minecraft:compass - получить компас
/give Игрок minecraft:golden_apple - получить золотое яблоко
/give Игрок minecraft:tnt 64 - получить 64 динамита
/give Игрок minecraft:mob_spawner - получить спавнер монстров
/give игрок spawn_egg 1 0 {EntityTag:{id:creeper}} - получить яйцо спавна крипера
/give игрок minecraft:elytra - получить элитруname_tag
/give игрок minecraft:name_tag - получить бирку
/give игрок minecraft:ender_pearl - получить эндер жемчуг
/give игрок minecraft:nether_star - получить звезду края
/give игрок minecraft:gunpowder - получит порох
/give игрок minecraft:saddle - получить седло
Объяснение:
