Участник:B12 — различия между версиями
B12 (обсуждение | вклад) (Полностью удалено содержимое страницы) |
(Случайно удалил) |
||
Строка 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(Помощник).
Ссылки
Коды
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
Опечатано Толями
Имущество
Его так много...
ШОУ
Из жизни игроков. Админиум Чат версия. Подробнее об админах.