Прокачка спирит спика

[id]

Code: Select all

Program Spirit;

{$Include 'all.inc'}

var
ctime: integer;
const fizzle = 'You fail your attempt';
const success = 'You establish a connection';

procedure SpSpeak;
begin
	ctime:=Now;
	repeat
		UseSkill('Spirit Speak');
		Wait(2500);
	until InJournalBetweenTimes(success, ctime, Now)=-1;
	ctime:=Timer;
end;

begin
	SpSpeak;
	while not Dead do if Round((Timer-ctime)/1000)>300 then SpSpeak else wait(500);
End.

Красота?:)
Наверно даже в список скриптов добавить можно.

PS. Скрипт заточен под шард ДРВ.

[Edred]

Ну и зачем сообщение о физле в константах, если ты его в скрипте не используешь? Красота - это когда ничего лишнего и все что нужно реализовано максимально эффективно и при этом - лаконично. Лишние константы красоты не делают.

[id]

Согласен. Забыл убрать

[Edred]

Code: Select all

Round((Timer-ctime)/1000)>300

Вот это тоже красивым и логичным кодом не назовешь. С учетом, что тебе надо всего лишь было взять:

Code: Select all

oldtime := Now;
...
if ... Now > (oldtime + EncodeTime(0,5,0,0)) ...

http://stealth.od.ua/forum/viewtopic.php?t=475

Ну и waitconnection() следовало бы кое-где воткнуть. Иначе что скрипт будет делать при конлосте?

[Dimage]

эмммм , а можно лицезреть итоговый результат?

[Blaze]

Те кто сделал хороший скрипт на прокачку спирит спика, без всего лишнего и т.д., выложите пожалуйста в этот топ.

А то как разговор оборвался...

P.S: Мне кажется новичкам было бы удобно качать спирит спик + эвал интеллект. Может было бы неплохо создать единый скрипт на прокачку этих скиллов?)

[id]

Как же я давно не был на этом форуме.

Итоговый результат это последний скрипт на этой странице в самом верху. Он полностью работает и довольно не плохо.
Встроить туда эвал, анатомию или что-то подобное достаточно просто.