|
|
| Строка 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>
| |
| − |
| |
| − | == Имущество ==
| |
| − |
| |
| − | Его так много...
| |
| − |
| |
| − |
| |
| − | == ШОУ ==
| |
| − | Из жизни игроков.
| |
| − | Админиум Чат версия.
| |
| − | Подробнее об админах.
| |
