Program test;
var
NumberLine:Integer;
procedure RandomNumber;
begin
NumberLine:=RandomRange(HighJournal-100,HighJournal);
end;
Procedure Say(Text:String;Color:Word);
begin
UOSayColor(Text,Color);
end;
function ScanJ(int:Integer):Boolean;
var
Text:String;
Color:Word;
begin
Text:=Journal(int);
Color:=RandomRange(Random(1),Random(500));
Result:=length(Text)>10;
if Result then Say(Text,Color);
end;
procedure Talk;
begin
RandomNumber;
if not ScanJ(NumberLine) then AddToSystemJournal('Не прошло.');
end;
begin
repeat
Talk;
Wait(5500);
until(1<>1)
end.
Re: Скрипты на C#
Posted: 15.03.2014 15:30
by drabadan
а чо на шарпе? и чо делать такой скрипт через внешние скрипты?
у меня маловато моска осознать, что же ты хотел таким скриптом получить...
Объясни словами, может у кого-то реализация другая получится.
Program test;
var
text : String;
begin
text := Journal(RandomRange(0, HighJournal));
if Length(text) > 10 then
UOSayColor(text, RandomRange(Random(1), Random(500)))
else
AddToSystemJournal('Не прошло.');
end.
Конечно так проще. Но это всё специально именно так написано. Я хочу увидеть как это было бы на шарпе. И не заостряй внимание на самом скрипте, вернее на то что он делает.
Туториал что то типа такого http://stealth.od.ua/forum/viewtopic.php?f=8&t=2592 только с VS и С#
зы Спасибо за ссылку. Сразу не заметил.
Re: Скрипты на C#
Posted: 15.03.2014 18:31
by Vizit0r
с шарпом в последней версии некоторые проблемы, орич оффлайн, а у меня времени нет .net библиотеку скриптовую исправить.