Автор: dimjke: Дата: 12.09.2010

// by mrboob

-	script	polechudes	-1,{

OnClock2359:

set @gg,0;

end;

}



prontera,190,181,5	script	Поле Чудес	800,{

// конфиг

set $@names$,"[Поле Чудес]";

set .tcgitem,7227;

set .box,20197;

set .points,1000;

//

polechudes:

mes $@names$;

mes "Хочешь крутануть барабан?";

next;

switch(select("Да, давай","Сам крути...","Обменять очки")){

case 1:

if(@gg==1){mes $@names$;mes "Ты сегодня уже крутил барабан!";close;}

set $@rand,rand(9);

if($@rand==0){mes "Крутим...";next;mes "Эхх.. Выпало 0. Сегодня вам не повезло";set @gg,1;close;}

if($@rand==1){mes "Крутим...";next;mes "На барабане 100 очков.";set @point,@point+100;set @gg,1;close;}

if($@rand==2){mes "Крутим...";next;mes "На барабане 200 очков.";set @point,@point+200;set @gg,1;close;}

if($@rand==3){mes "Крутим...";next;mes "На барабане 300 очков.";set @point,@point+300;set @gg,1;close;}

if($@rand==4){mes "Крутим....";next;mes "Выпало x2. Все ваши очки увеличиваются в 2 раза!!";set @point,@point*2;set @gg,1;close;}

if($@rand==5){mes "Крутим....";next;mes "На барабане +1. У вас есть ещё одна попытка!";goto polechudes;}

if($@rand==6){mes "Крутим....";next;mes "На барабане фиг. К сожалению, все ваши очки обнулены.";set @point,0;set @gg,1;close;}

if($@rand==7){mes "Крутим....";next;mes "На барабане 500 очков.";set @point,@point+500;set @gg,1;close;}

if($@rand==8){

emotion 46;

mes $@names$;

mes "Сектор-приз на барабане! Возьмете приз или карту?";

menu "Приз",-,"Карту",card;

getitem .box,1;

close;

card:

getitem .tcgitem,1;

close;

}

case 2:

close;

case 3:

mes $@names$;

mes "У вас сейчас: "+@point+" очков";

mes "1x TCG Card = "+.points+" очков";

mes "Будете менять?";

menu "Да",yes,"Нет, спасибо",-;

close;

yes:

If(@point<.points){mes "У вас недостаточно очков.";close;}

set @point,@point-.points;

getitem .tcgitem,1;

close;

}

}

Автор: : Дата: 01.01.1970