Warning.png

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

Изменения

Перейти к: навигация, поиск

Участник:B12

5545 байтов убрано, 20:28, 25 февраля 2021
Должности
'''B12 - Игрок чья личность загадочна и не понятна.''' == Место обитания == В жизни: Россия. В майне: На ХПPHP, JS, C#, Java, на TFCPascal, на ClansC++, на ClassicPython devloper
== Должности ==
 Данный игрок имеет должность на сервере 17 января 2018 - стажёр HiPower(Помощник).  == Ссылки == [http://vk.com ВК][http://picabi.ru Picabu]  == Коды ==<!-- Зачем ты тут? --br>'''Pascal ABC.net'''[https://github.com/RedGuys/RedBot Github]Самый последний код: 10 марта 2018 - помощник HiPower<br>10 августа 2018 - помощник MagiTech<codebr>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();beginend;procedure appload1();beginapp1.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();beginend;//скачивание страницыProcedure base();beginSetBrushColor(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 или 0Readln(gor,s51); //УстановщикReadln(gor,s61); //Куда установитьReadln(gor,s2); //НазваниеReadln(gor,s12); //РазмерReadln(gor,s22); //Ссылка на файлReadln(gor,s32); //ОписаниеReadln(gor,s42); //Нужна ли установка 1 или 0Readln(gor,s52); //УстановщикReadln(gor,s62); //Куда установитьReadln(gor,s3); //НазваниеReadln(gor,s13); //РазмерReadln(gor,s23); //Ссылка на файлReadln(gor,s33); //ОписаниеReadln(gor,s43); //Нужна ли установка 1 или 0Readln(gor,s53); //УстановщикReadln(gor,s63); //Куда установитьReadln(gor,s4); //НазваниеReadln(gor,s14); //РазмерReadln(gor,s24); //Ссылка на файлReadln(gor,s34); //ОписаниеReadln(gor,s44); //Нужна ли установка 1 или 0Readln(gor,s54); //УстановщикReadln(gor,s64); //Куда установитьReadln(gor,s5); //НазваниеReadln(gor,s15); //РазмерReadln(gor,s25); //Ссылка на файлReadln(gor,s35); //ОписаниеReadln(gor,s45); //Нужна ли установка 1 или 0Readln(gor,s55); //УстановщикReadln(gor,s65); //Куда установитьReadln(gor,s6); //НазваниеReadln(gor,s16); //РазмерReadln(gor,s26); //Ссылка на файлReadln(gor,s36); //ОписаниеReadln(gor,s46); //Нужна ли установка 1 или 0Readln(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;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////beginMkDir('C://games/RedBot/Codefiles');Page:='a1';basego := new Thread(base);basego.Start;end.сентября 2018 - ушёл</codebr'''Lua'''[https://github.com/RedGuys/OpenComputers github]Последний код: 17 мая 2020 - урядчик HiTech<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/KeyBind18 декабря 2020 -mod-macros GitHub]<code>Опечатано Толями</code> == Имущество == Его так много...  == ШОУ ==Из жизни игроков.Админиум Чат версия.Подробнее об админах.Администратор Minigames

Навигация