MY LIFE CHANGE OR HOLY 50

Вот, в своё пятидесятое сообщение, я представлю комикс о 3-х последних, прожитых мною, дней. Просто даже сказать нечего. Смотрим, радуемся, нарисовал за 15 мин.

Всё.

Ваш, не зря проживший последние 3 дня, автор

RealmOfTheMadGod

ROTMG ( realm of the mad god )

the co-op fantasy mmo shooter

my first review

И вот, привет, это снова я! Я решил написать кратенький обзор про РОЗМГ (реалм оф зе мэд год см. название). Давайте посмотрим правде в лицо: время пиксельных игр прошло, и их расцвет пришёлся на 90-е годы, а нам в нашем то 21 веке ничего не осталось. Конечно, я вам не взрослый человек и не пенсионер, чтобы рассказывать про чуцдеса и радость ностальгии, но лично мне кажется, что, блин, пиксельная графика это круто. Нет, я не буду воевать за свою точку мнения, я смогу смириться с тем, что кому то не нравятся пиксели (конечно, подавай нам многоточечные картинки!), но РОЗМГ векторная (!). Если присмотреться, то можно заметить тонкий чёрный контур вокруг каждого спрайта. Вот доказательство:

В РОЗМГ очень много разнообразных врагов и боссов. Каждый вид существ делится на примитивов, варриоров, вожаков, королей и богов. Как правило, последние 2 вида исключительно квестовые. Кстати о квестах, игрок без него не на секунду не останется, они обновляются сразу по выполнению :D

В игре 18 классов (от волшебника и лучника до некроманта и хантера, от рыцаря и ассасина до паладина и трикера), которые открываются по мере прохождения. Вся игра расчитана на грамотный левелап и сбор разной одёжки для героя. Одёжка делится на классы, и бывает очень обидно, когда находишь очень хорошую броню, а она тебе не подходит :( Специально для этого есть функция обмена предметами между игроками при обоюдном согласии.

Всё про эту игру и даже больше можно узнать на их оффициальном сайте. 

Ваш, эльф 20-го уровня с золотым луком под громким ником NeedCookie, автор

P.S.: специально маленькими буквами, чтобы никто не заметил: это сообщение №49, а это значит, что следующее сообщение будет юбилейным и это нужно будет как-нибудь отпраздновать :D

NO KNOWLEDGE NO TEXT

Блин, ну не помню я (дырявая у меня очень память!) как считывать из документа. Да, Андрей нам рассказывал, но чтобы что-нибудь запомнить надо основательно это изучить и попрактиковать :( (ну или хотя бы записать, что мне всё равно бы помогло). В общем, программа есть, и работает она идеально, но во-первых она довольствуется данными, введёнными в саму программу, а во-вторых, она может быть очень грамоз(д?с?)кой... Но мне это мутотень нравится и ,похоже, это не лечится :D Вот она, эта программа:

program ex1;
var
a,b,c,d,r,r1:integer;
begin
//ab -kon, cd-ferz
readln (a,b,c,d);
r:=a-c;r1:=b-d;
if ((abs(r)=1) and (abs(r1)=2)) or ((abs(r)=2) and (abs(r1)=1)) then writeln ('конь бьёт ферзя') else
begin
if (abs(r)=abs(r1)) or (a=c) or (b=d) then writeln ('ферзь бьёт коня') else writeln ('никто никого не бьёт');
end;
end.
Ваш, так ничему и не научившийся, расставляющий на пыльной шахматной доске фигуры, отсчитывающий координаты сверху, а не снизу, автор

CHECK IT OUT

Вот она, домашка, которая обрушилась на мою голову, вот она:

program ex1;
const n=10;
var a:array [1..n,1..n] of integer;
i,j,max,b:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do begin
a[i,j]:=random (10);
write (a[i,j]:3) ;
end;
writeln;
end;  writeln;
for i:=1 to n do
begin
max:=0;
for j:=1 to n do
begin
if a[j,i]>max then max:=a[j,i];
end;
write (max:3);
end;
end.

P.S.: И не обязательно писать домашку такими маленькими буковками!
Ваш, вытирающий пот со лба, автор

LOL IMBA FINAL

Вот и всё, уважаемые друзья. Я закончил великую серию про ЛоЛ, вот они:
Cassiopeia;
Karthus;
Fiddlestick;
Malzahar;
Jax;
Kassadin;
Udyr;
Mundo;
Sion;
Galio;
Gangplank;
Mordekaiser;
Вроде бы всё...
Ваш, расставящий все точки над и, автор

OLD HOMEWORK

Вот она, моя просроченная домашка, которую я не смог сделать по причине потерянности учебника :( Но вот, все погрешности исправлены, и я выкладываю задачу №13 б, потому что другие я сделал в классе. Ладно, вот она:

  program ex1;
  const n=51;
  var  a:array[1..n,1..n]  of integer;
  i,j,l:integer;
  begin
  for i:=1 to n do
  begin
  for j:=i to n-i+1 do a[i,j]:=1;
  for l:=i to n-i+1 do a[n-i+1,l]:=1;
  end;
  for i:=1 to n do begin
                   for j:=1 to n do write (a[i,j]:3);
                   writeln;
                   end;
  end.

Ваш, поддавшийся грозной мотивации, автор