Автор: Kill Spirit: Дата: 12.08.2010
prontera,156,223,4 script Рулетка 107,{
if(getgmlevel() >= 20){
if($@nachalo>0){
mes "Эвент уже идет, хочешь закончить регистрацию и приступить к эвенту?";
switch(select("Нет:Да, приступить:Хочу остановить эвент")){
case 1:
close;
case 2:
stopnpctimer;
close2;
goto st;
close;
case 3:
close2;
stopnpctimer;
areaannounce "prontera",144,211,170,236,"Ставка отменена Администратором.",0;
for(set .i,0;.i
if($@nachalo==1)
set zeny, zeny+$@stavka;
if($@nachalo==2)
getitem $@loot,$@stavka;
}
goto the_end;
close;
}
}
mes "В чем сделать ставку?";
switch(select("Деньги:Крупные ставки(больше 10кк):Лут:Передумал")){
case 1:
stavk1:
mes "Какая будет ставка?";
input $@stavka;
if($@stavka<1){
mes "Ставка должна быть больше 0";
next;
goto stavk1;
}
next;
kol1:
mes "Введи максимальное количество человек, которые смогут участвовать в эвенте.";
input $@kol;
if($@kol<3){
mes "Количество человек должно быть не меньше 3";
next;
goto kol1;
}
set $@nachalo, 1;
set $@name$, "zeny";
close2;
donpcevent "Рулетка::OnStart";
close;
case 2:
stavk3:
mes "Какая будет ставка?";
mes "То что ты введешь будет умножено на 1кк";
input $@stavka;
set $@stavka, $@stavka*1000000;
if($@stavka<1){
mes "Ставка должна быть больше 0";
next;
goto stavk3;
}
next;
kol3:
mes "Введи максимальное количество человек, которые смогут участвовать в эвенте.";
input $@kol;
if($@kol<3){
mes "Количество человек должно быть не меньше 3";
next;
goto kol3;
}
set $@nachalo, 1;
set $@name$, "zeny";
close2;
donpcevent "Рулетка::OnStart";
close;
case 3:
loot:
mes "Введи id вещи, какой лут будет выставлен на ставку.";
input $@loot;
if(getitemname($@loot)=="null"){
mes "Вы не правильно ввели id вещи";
next;
goto loot;
}
next;
stavk2:
mes "Какая будет ставка?";
input $@stavka;
if($@stavka<1){
mes "Ставка должна быть больше 0";
next;
goto stavk2;
}
next;
kol2:
mes "Введи максимальное количество человек, которые смогут участвовать в эвенте.";
input $@kol;
if($@kol<3){
mes "Количество человек должно быть не меньше 3";
next;
goto kol2;
}
set $@nachalo, 2;
set $@name$, getitemname($@loot);
close2;
donpcevent "Рулетка::OnStart";
close;
case 4:
close;
}
}
else
{
if($@regend>0){
mes "Эвент уже начался.";
close;
}
for(set .i,0;.i
mes "Ты уже зарегистрирован.";
close;
}
}
mes "Хочешь сделать ставку?";
mes "Ставка: ^FF0000"+$@stavka+" "+$@name$+"^000000";
menu "Да хочу",-,"Нет, я передумал",lno;
switch($@nachalo){
case 0:
mes "Эвент сейчас не идет.";
close;
case 1:
if(zeny < $@stavka){
mes "Ставка: ^FF0000"+$@stavka+"^000000";
close;
}
set zeny,zeny - $@stavka;
goto reg;
close;
case 2:
if(countitem($@loot) < $@stavka){
mes "Ставка: ^FF0000"+$@stavka+" "+getitemname($@loot)+"^000000";
close;
}
delitem $@loot,$@stavka;
goto reg;
close;
}
reg:
if(getarraysize($@reg$)<$@kol){
set $@reg$[getarraysize($@reg$)],strcharinfo(0);
areaannounce "prontera",144,211,170,236,getarraysize($@reg$)+" - "+strcharinfo(0),0;
if(getarraysize($@reg$)==$@kol){
stopnpctimer;
close2;
goto st;
close;
}
}
else{
mes "Ты опоздал, места закончились.";
close;
}
lno:
close;
}
close;
OnStart:
announce "Рулетка началась! НПЦ сверху от фонтана.",bc_all;
areaannounce "prontera",144,211,170,236,"Ставка: "+$@stavka+" "+$@name$+"! Максимальное количество людей: "+$@kol,0,0x00FF00;
initnpctimer;
end;
OnTimer180000:
st:
announce "Регистрация закончена.",bc_all;
set $@regend, 1;
set $@kolich, getarraysize($@reg$);
if($@kolich < 2){
announce "Участников не набралось",bc_all;
for(set .i,0;.i
if($@nachalo==1)
set zeny, zeny+$@stavka;
if($@nachalo==2)
getitem $@loot,$@stavka;
}
goto the_end;
close;
}
while(getarraysize($@reg$)>1){
sleep 2000;
set $@i,0;
set .raund, .raund+1;
areaannounce "prontera",144,211,170,236,"Раунд №"+.raund,0,0xB200FF;
sleep 2000;
while($@i
set .random, rand(1,100);
if(.random>50){
areaannounce "prontera",144,211,170,236,$@reg$[$@i]+" выжил.",0,0x2DC3FF;
}
else{
attachrid getcharid(3,$@reg$[$@i]);
percentheal -100,0;
specialeffect2 183;
areaannounce "prontera",144,211,170,236,$@reg$[$@i]+" проиграл.",0,0xAD030B;
deletearray $@reg$[$@i],1;
if(getarraysize($@reg$)==1) goto one;
set $@i, $@i-1;
}
set $@i, $@i+1;
}
}
if(getarraysize($@reg$)==1){
one:
areaannounce "prontera",144,211,170,236,"Победил "+$@reg$[0]+". Он выиграл "+$@kolich*$@stavka+" "+$@name$,0,0xB200FF;
attachrid getcharid(3,$@reg$[0]);
if($@nachalo==1)
set zeny, zeny + $@kolich*$@stavka;
if($@nachalo==2)
getitem $@loot,$@kolich*$@stavka;
the_end:
deletearray $@reg$[0],getarraysize($@reg$);
atcommand "@raisemap";
set $@nachalo,0;
set $@regend,0;
set .raund,0;
close;
}
}Автор: : Дата: 01.01.1970