Автор: JaneAir: Дата: 01.23.2010
Вот .. старенький правда)
prontera,142,171,5 script Quester 123,{
// if(@work==1) goto Qu_est;
mes "Привет,^777777 "+strcharinfo(0);
if(@work==1) goto Qu_est;
mes "^000000Ты хочешь наменя поработать?";
menu "Ага",Wo_rk,"Лениво мне!",fi_g;
Wo_rk:
mes "Отлично! держи задание!";
set @i1,groupranditem(IG_BlueBox);
set @i2,groupranditem(IG_BlueBox);
set @i3,groupranditem(IG_BlueBox);
set @i4,groupranditem(IG_BlueBox);
set @i5,groupranditem(IG_BlueBox);
set @i6,2278;
set @i7,2613;
set @ii1,rand(1,5);
set @ii2,rand(1,10);
set @ii3,rand(1,3);
set @ii4,rand(1,60);
set @ii5,rand(2,100);
set @ii6,1;
set @ii7,rand(1,2);
next;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i1)+" ^000000 ( "+@i1+" ) в количестве ^FFFFFF" + @ii1;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i2)+" ^000000 ( "+@i2+" ) в количестве ^FFFFFF" + @ii2;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i3)+" ^000000 ( "+@i3+" ) в количестве ^FFFFFF" + @ii3;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i4)+" ^000000 ( "+@i4+" ) в количестве ^FFFFFF" + @ii4;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i5)+" ^000000 ( "+@i5+" ) в количестве ^FFFFFF" + @ii5;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i6)+" ^000000 ( "+@i6+" ) в количестве ^FFFFFF" + @ii6;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i7)+" ^000000 ( "+@i7+" ) в количестве ^FFFFFF" + @ii7;
set @exp,(@i1+@i2+@i3+@i4+@i5+@i6+@i7)*250;
set @mony,(@i1+@i2+@i3+@i4+@i5+@i6+@i7)*150;
set @work,1;
next;
set @st1,@ii3+1;
mes "Награда за выполненное задание:";
mes @exp + " Базового опыта";
mes @exp + " Джоб опыта";
mes @mony + " зени";
mes "Дополнительные статпоинты - " + @st1;
close;
fi_g:
mes "Ну как хочешь!";
close;
pl_ak:
set @minu,(@i1+@i2+@i3+@i4+@i5+@i6+@i7)*100;
mes "Я могу отменить текущее задание за " +@minu+ " зени";
next;
mes "Будешь сбрасывать?";
menu "Да!",-,"Нет, я передумал",fi_g;
if (zeny < @minu) goto no_mon;
mes "Ок, готово!";
next;
set zeny,zeny-@minu;
set @work,0;
close;
Qu_est:
mes "^000000 Что вы хотели?";
menu "Напомнить список",it_li,"Сбросить задание",pl_ak,"Сдать предметы",-;
if(countitem(@i1) < @ii1 || countitem(@i2) < @ii2 || countitem(@i3) < @ii3 || countitem(@i4) < @ii4 || countitem(@i5) <
@ii5 || countitem(@i6) < @ii6 || countitem(@i7) < @ii7) goto Fa_le;
mes "Отлично! Ты собрал все то, о чем я тебя просил.";
delitem @i1,@ii1;
delitem @i2,@ii2;
delitem @i3,@ii3;
delitem @i4,@ii4;
delitem @i5,@ii5;
delitem @i6,@ii6;
delitem @i7,@ii7;
set zeny,zeny+@mony;
set BaseExp,BaseExp+@exp;
set JobExp,JobExp+@exp;
set StatusPoint,StatusPoint + @st1;
set @work,0;
close;
no_mon:
mes "Недостаточно денег!";
close;
it_li:
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i1)+" ^000000 ( "+@i1+" ) в количестве ^FFFFFF" + @ii1;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i2)+" ^000000 ( "+@i2+" ) в количестве ^FFFFFF" + @ii2;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i3)+" ^000000 ( "+@i3+" ) в количестве ^FFFFFF" + @ii3;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i4)+" ^000000 ( "+@i4+" ) в количестве ^FFFFFF" + @ii4;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i5)+" ^000000 ( "+@i5+" ) в количестве ^FFFFFF" + @ii5;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i6)+" ^000000 ( "+@i6+" ) в количестве ^FFFFFF" + @ii6;
mes "^000000 Вам потребуется: ^FF0000"+getitemname(@i7)+" ^000000 ( "+@i7+" ) в количестве ^FFFFFF" + @ii7;
goto Qu_est;
Fa_le:
mes "Извини, не достаточно предметов.";
mes "Возвращайся, когда соберешь все, о чем я тебя просил.";
mes "Удачи!";
next;
if (select("Уйти.:Вернуться.") == 1) {close;}
goto Qu_est;
}Автор: JaneAir: Дата: 01.23.2010
mes "Награда за выполненное задание:";
mes @exp + " Базового опыта";
mes @exp + " Джоб опыта";
mes @mony + " зени";
mes "Дополнительные статпоинты - " + @st1;
close;