I Found a script made from eathenaa... anyone can make it work for herc?
prontera,156,122,4 script Stop the Clock 102,{
if(.game == 1 && stopped != 1) {
set stopped, 1;
set @stopped, .i;
message strcharinfo(0), "You stopped the clock at "+@stopped+".";
if(.lowest > @stopped) {
set .lowest, @stopped;
set .winner$, strcharinfo(0);
}
end;
}
else if(.game == 1) {
message strcharinfo(0), "You already stopped the clock.";
end;
}
set .name$, "[Event Manager]";
set .menu$, "Times:Information:Price:Leave";
if(strcharinfo(0) == .winner$) {
set stopped, 0;
mes .name$;
mes "Here you get your price.";
mes "Your Price is:";
mes "^ff0000"+$prize_amount+" "+getitemname($prize_id)+"^000000";
getitem $prize_id, $prize_amount;
set .winner$, "";
close;
}
if(stopped == 1) {
set stopped, 0;
mes .name$;
mes "You activated your char for the next round.";
close;
}
if(getgmlevel() > 60) set .menu$, .menu$ + ":StartGame:SetPrice";
mes .name$;
mes "Welcome to the ^ff0000Stop the Clock^000000.";
next;
switch(select(.menu$)) {
case 1:
mes .name$;
mes "^ff0000Stop the Clock^000000 starts each day at:";
mes "^00800015:00^000000, ^00800018:00^000000 and ^00800021:00^000000 o'clock.";
close;
case 2:
mes .name$;
mes "^ff0000Stop the Clock^000000";
mes "is a game where you need to";
mes "click on me exactly when the counter reached 0.";
next;
mes .name$;
mes "It counts down from ^0080001000^000000 to ^ff00000^000000.";
next;
mes .name$;
mes "To win, you need to have the ^ff0000closest value to 0^000000 but at least ^ff0000below 50^000000.";
next;
mes .name$;
mes "The winner will recieve a prize.";
mes "^ff0000Don't forget to talk to me after the Event is over,";
mes "to reset your counter to take part on the next event.^000000";
close;
case 3:
mes .name$;
mes "The Price is:";
mes "^ff0000"+$prize_amount+" "+getitemname($prize_id)+"^000000";
close;
case 4:
close;
case 5:
sleep2 100;
close2;
goto l_start;
end;
case 6:
mes .name$;
mes "Enter the item id of the prize:";
input $prize_id;
next;
mes .name$;
mes "Enter the amount if items the winner will recieve:";
input $prize_amount;
next;
mes .name$;
mes "The price id is: ^ff0000"+$prize_id+"^000000";
mes "^008000("+getitemname($prize_id)+")^000000.";
mes "The amount is: ^ff0000"+$prize_amount+"^000000.";
close;
}
OnClock1500:
OnClock1800:
OnClock2100:
l_start:
announce "[Aline]: We are going to start an Stop the Clock Event in 1 Minute at Prontera!",bc_all;
sleep2 30000;
announce "[Aline]: We are going to start in 30 Seconds!",bc_all;
sleep2 20000;
announce "[Aline]: Hurry up! Event starts in 10 Seconds!",bc_all;
sleep2 5000;
announce "[Aline]: Get Ready only 5 seconds left!",bc_all;
sleep2 5000;
announce "[Aline]: START!!!",bc_all;
sleep2 5000;
set .winner$, "";
set .game, 1;
set .lowest, 1000;
for(set .i, 1000; .i > 300;set .i, .i - 100) {
announce ":: "+.i+" ::",bc_blue|bc_area;
misceffect 377;
sleep2 1000;
}
for(set .i, 300; .i > 50;set .i, .i - 10) {
announce ":: "+.i+" ::",bc_blue|bc_area;
misceffect 377;
sleep2 100;
}
for(set .i, 50; .i > 0;set .i, .i - 1) {
announce ":: "+.i+" ::",bc_blue|bc_area;
misceffect 377;
sleep2 10;
}
set .game, 0;
if(.winner$ == "") {
announce "Nobody hit the clock at the right moment. There is no winner.",bc_blue;
end;
}
announce .winner$+" won Stop the Clock. He stopped it at "+.lowest+".",bc_blue;
sleep2 5000;
announce .winner$+"Please talk to me to get your price.",bc_blue;
sleep2 5000;
announce "To activate your char for the next round, please talk to me, too.",bc_all;
end;
}
then still you let us continue the cancellation request for the refund and disabled/cancelled the service we bought. not use it for whole 30 days?
you shouldn't let the service be cancelled if you're saying "THE SERVICE WORKED AS INTENDED".
(Service bought not even used for a week)
Pandaaa got a reaction from kalabasa in [Event] Stop the Clock Request
Pandaaa got a reaction from vBrenth in [Beware Scammer] RAGNAHOSTING
