Warning.png

Поддержка Wiki прекращена, она доступна в режиме архива. Информация в ней устарела и может быть неактуальной.

Участник:B12 — различия между версиями

Материал из Hilarious Wiki
Перейти к: навигация, поиск
(Полностью удалено содержимое страницы)
(Случайно удалил)
Строка 1: Строка 1:
 +
'''B12 - Игрок чья личность загадочна и не понятна.'''
  
 +
== Место обитания ==
 +
 +
В жизни: Россия.
 +
 +
В майне: На ХП, на TFC, на Clans, на Classic.
 +
 +
 +
== Должности ==
 +
 +
Данный игрок имел должность на сервере HiPower(Помощник).
 +
 +
== Ссылки ==
 +
 +
[http://vk.com ВК]
 +
[http://picabi.ru Picabu]
 +
 +
 +
== Коды ==
 +
<!-- Зачем ты тут? -->
 +
'''Pascal ABC.net'''
 +
[https://github.com/RedGuys/RedBot Github]
 +
Самый последний код: <br>
 +
<code>program webmarket;
 +
//и тут начинаеться ад)
 +
uses
 +
GraphABC, ABCButtons,System.Threading, System.Net;
 +
//не спашивайте что делают эти dll,хз
 +
var Pics:byte;
 +
PicYES,PicNO,app1,app2,app3,app4,app5,app6,nextpage: buttonABC;
 +
basego: Thread;
 +
z:color;
 +
s1,s2,s3,s4,s5,s6,s11,s12,s13,s14,s15,s16,s21,s22,s23,s24,s25,s26,s31,s32,s33,s34,s35,s36,s41,s42,s43,s44,s45,s46,s51,s52,s53,s54,s55,s56,s61,s62,s63,s64,s65,s66,g,ss,pr:string;
 +
i,l,p,a:integer;
 +
gor:text;
 +
gors,page,link:string;
 +
web := new WebClient();
 +
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 +
//Сколько их?
 +
//процедурки начались и я погиб(
 +
//скачивание
 +
procedure ander();
 +
begin
 +
end;
 +
procedure appload1();
 +
begin
 +
app1.Destroy;
 +
app2.Destroy;
 +
app3.Destroy;
 +
app4.Destroy;
 +
app5.Destroy;
 +
app6.Destroy;
 +
ClearWindow;
 +
setfontsize(15);
 +
textout(170,10, 'Установка');
 +
web.DownloadFile(s21,s61);
 +
basego := new Thread(ander);
 +
basego.Start;
 +
end;
 +
procedure pageup();
 +
begin
 +
end;
 +
//скачивание страницы
 +
Procedure base();
 +
begin
 +
SetBrushColor(rgb(255,255,255));
 +
setfontsize(15);
 +
TextOut(170, 10, 'Ожидайте, идёт загрузка...');
 +
sleep(1000);
 +
ClearWindow;
 +
assign(gor,'test');
 +
reset(gor);
 +
Readln(gor,s1); //Название
 +
Readln(gor,s11); //Размер
 +
Readln(gor,s21); //Ссылка на файл
 +
Readln(gor,s31); //Описание
 +
Readln(gor,s41); //Нужна ли установка 1 или 0
 +
Readln(gor,s51); //Установщик
 +
Readln(gor,s61); //Куда установить
 +
Readln(gor,s2); //Название
 +
Readln(gor,s12); //Размер
 +
Readln(gor,s22); //Ссылка на файл
 +
Readln(gor,s32); //Описание
 +
Readln(gor,s42); //Нужна ли установка 1 или 0
 +
Readln(gor,s52); //Установщик
 +
Readln(gor,s62); //Куда установить
 +
Readln(gor,s3); //Название
 +
Readln(gor,s13); //Размер
 +
Readln(gor,s23); //Ссылка на файл
 +
Readln(gor,s33); //Описание
 +
Readln(gor,s43); //Нужна ли установка 1 или 0
 +
Readln(gor,s53); //Установщик
 +
Readln(gor,s63); //Куда установить
 +
Readln(gor,s4); //Название
 +
Readln(gor,s14); //Размер
 +
Readln(gor,s24); //Ссылка на файл
 +
Readln(gor,s34); //Описание
 +
Readln(gor,s44); //Нужна ли установка 1 или 0
 +
Readln(gor,s54); //Установщик
 +
Readln(gor,s64); //Куда установить
 +
Readln(gor,s5); //Название
 +
Readln(gor,s15); //Размер
 +
Readln(gor,s25); //Ссылка на файл
 +
Readln(gor,s35); //Описание
 +
Readln(gor,s45); //Нужна ли установка 1 или 0
 +
Readln(gor,s55); //Установщик
 +
Readln(gor,s65); //Куда установить
 +
Readln(gor,s6); //Название
 +
Readln(gor,s16); //Размер
 +
Readln(gor,s26); //Ссылка на файл
 +
Readln(gor,s36); //Описание
 +
Readln(gor,s46); //Нужна ли установка 1 или 0
 +
Readln(gor,s56); //Установщик
 +
Readln(gor,s66); //Куда установить
 +
nextpage := new ButtonABC(360,500, 60, 50, 'На след. стр.', clGreen);
 +
nextpage.OnClick := pageup;
 +
app2 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen);
 +
app2.OnClick := appload1;
 +
app3 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen);
 +
app3.OnClick := appload1;
 +
app4 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen);
 +
app4.OnClick := appload1;
 +
app5 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen);
 +
app5.OnClick := appload1;
 +
app6 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen);
 +
app6.OnClick := appload1;
 +
app1 := new ButtonABC(20, 50, 190, 50, s1, clGreen);
 +
SetBrushColor(rgb(255,255,255));
 +
setfontsize(8);
 +
textout(25,110,s11);
 +
textout(25,125,s31);
 +
app1.OnClick := appload1;
 +
end;
 +
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 +
begin
 +
MkDir('C://games/RedBot/Codefiles');
 +
Page:='a1';
 +
basego := new Thread(base);
 +
basego.Start;
 +
end.</code>
 +
 +
'''Lua'''
 +
[https://github.com/RedGuys/OpenComputers github]
 +
Последний код: <br>
 +
<code>{
 +
  label = "Кружка",
 +
  tooltip = "выпей из меня",
 +
  lightLevel = 15,
 +
  shapes = {
 +
    { 2,0,3,6,1,7,texture = "hardened_clay_stained_white" },
 +
    { 1,1,3,2,6,7,texture = "hardened_clay_stained_white" },
 +
    { 2,1,2,6,6,3,texture = "hardened_clay_stained_white" },
 +
    { 2,1,3,6,3,7,texture = "wool_colored_brown", tint = 0x554236 },
 +
    { 2,1,7,6,6,8,texture = "hardened_clay_stained_white" },
 +
    { 6,1,3,7,6,7,texture = "hardened_clay_stained_white" },
 +
    { 3,2,0,5,3,3,texture = "hardened_clay_stained_white" },
 +
    { 2,3,3,6,4,7,texture = "wool_colored_brown", tint = 0x43341b },
 +
    { 3,3,0,5,5,1,texture = "hardened_clay_stained_white" },
 +
    { 3,4,1,5,5,3,texture = "hardened_clay_stained_white" },
 +
  }
 +
}</code>
 +
 +
'''Макросы'''
 +
[https://github.com/RedGuys/KeyBind-mod-macros GitHub]
 +
<code>Опечатано Толями</code>
 +
 +
== Имущество ==
 +
 +
Его так много...
 +
 +
 +
== ШОУ ==
 +
Из жизни игроков.
 +
Админиум Чат версия.
 +
Подробнее об админах.

Версия 20:13, 20 мая 2020

B12 - Игрок чья личность загадочна и не понятна.

Место обитания

В жизни: Россия.

В майне: На ХП, на TFC, на Clans, на Classic.


Должности

Данный игрок имел должность на сервере HiPower(Помощник).

Ссылки

ВК Picabu


Коды

Pascal ABC.net Github Самый последний код:
program webmarket; //и тут начинаеться ад) uses GraphABC, ABCButtons,System.Threading, System.Net; //не спашивайте что делают эти dll,хз var Pics:byte; PicYES,PicNO,app1,app2,app3,app4,app5,app6,nextpage: buttonABC; basego: Thread; z:color; s1,s2,s3,s4,s5,s6,s11,s12,s13,s14,s15,s16,s21,s22,s23,s24,s25,s26,s31,s32,s33,s34,s35,s36,s41,s42,s43,s44,s45,s46,s51,s52,s53,s54,s55,s56,s61,s62,s63,s64,s65,s66,g,ss,pr:string; i,l,p,a:integer; gor:text; gors,page,link:string; web := new WebClient(); //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //Сколько их? //процедурки начались и я погиб( //скачивание procedure ander(); begin end; procedure appload1(); begin app1.Destroy; app2.Destroy; app3.Destroy; app4.Destroy; app5.Destroy; app6.Destroy; ClearWindow; setfontsize(15); textout(170,10, 'Установка'); web.DownloadFile(s21,s61); basego := new Thread(ander); basego.Start; end; procedure pageup(); begin end; //скачивание страницы Procedure base(); begin SetBrushColor(rgb(255,255,255)); setfontsize(15); TextOut(170, 10, 'Ожидайте, идёт загрузка...'); sleep(1000); ClearWindow; assign(gor,'test'); reset(gor); Readln(gor,s1); //Название Readln(gor,s11); //Размер Readln(gor,s21); //Ссылка на файл Readln(gor,s31); //Описание Readln(gor,s41); //Нужна ли установка 1 или 0 Readln(gor,s51); //Установщик Readln(gor,s61); //Куда установить Readln(gor,s2); //Название Readln(gor,s12); //Размер Readln(gor,s22); //Ссылка на файл Readln(gor,s32); //Описание Readln(gor,s42); //Нужна ли установка 1 или 0 Readln(gor,s52); //Установщик Readln(gor,s62); //Куда установить Readln(gor,s3); //Название Readln(gor,s13); //Размер Readln(gor,s23); //Ссылка на файл Readln(gor,s33); //Описание Readln(gor,s43); //Нужна ли установка 1 или 0 Readln(gor,s53); //Установщик Readln(gor,s63); //Куда установить Readln(gor,s4); //Название Readln(gor,s14); //Размер Readln(gor,s24); //Ссылка на файл Readln(gor,s34); //Описание Readln(gor,s44); //Нужна ли установка 1 или 0 Readln(gor,s54); //Установщик Readln(gor,s64); //Куда установить Readln(gor,s5); //Название Readln(gor,s15); //Размер Readln(gor,s25); //Ссылка на файл Readln(gor,s35); //Описание Readln(gor,s45); //Нужна ли установка 1 или 0 Readln(gor,s55); //Установщик Readln(gor,s65); //Куда установить Readln(gor,s6); //Название Readln(gor,s16); //Размер Readln(gor,s26); //Ссылка на файл Readln(gor,s36); //Описание Readln(gor,s46); //Нужна ли установка 1 или 0 Readln(gor,s56); //Установщик Readln(gor,s66); //Куда установить nextpage := new ButtonABC(360,500, 60, 50, 'На след. стр.', clGreen); nextpage.OnClick := pageup; app2 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen); app2.OnClick := appload1; app3 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen); app3.OnClick := appload1; app4 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen); app4.OnClick := appload1; app5 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen); app5.OnClick := appload1; app6 := new ButtonABC(320,500, 60, 50, 'На след. стр.', clGreen); app6.OnClick := appload1; app1 := new ButtonABC(20, 50, 190, 50, s1, clGreen); SetBrushColor(rgb(255,255,255)); setfontsize(8); textout(25,110,s11); textout(25,125,s31); app1.OnClick := appload1; end; ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// begin MkDir('C://games/RedBot/Codefiles'); Page:='a1'; basego := new Thread(base); basego.Start; end.

Lua github Последний код:
{

 label = "Кружка",
 tooltip = "выпей из меня",
 lightLevel = 15,
 shapes = {
   { 2,0,3,6,1,7,texture = "hardened_clay_stained_white" },
   { 1,1,3,2,6,7,texture = "hardened_clay_stained_white" },
   { 2,1,2,6,6,3,texture = "hardened_clay_stained_white" },
   { 2,1,3,6,3,7,texture = "wool_colored_brown", tint = 0x554236 },
   { 2,1,7,6,6,8,texture = "hardened_clay_stained_white" },
   { 6,1,3,7,6,7,texture = "hardened_clay_stained_white" },
   { 3,2,0,5,3,3,texture = "hardened_clay_stained_white" },
   { 2,3,3,6,4,7,texture = "wool_colored_brown", tint = 0x43341b },
   { 3,3,0,5,5,1,texture = "hardened_clay_stained_white" },
   { 3,4,1,5,5,3,texture = "hardened_clay_stained_white" },
 }

}

Макросы GitHub Опечатано Толями

Имущество

Его так много...


ШОУ

Из жизни игроков. Админиум Чат версия. Подробнее об админах.