Jump to content
The forums will be going offline for an extended maintenance period at 1400hrs GMT on 19th June 2025. The number of hours for this downtime is intentionally not advertised due to the nature of these upgrades. ×
  • 0

@help point to cash

PapaZola

Asked by PapaZola,

 Share

Question

PapaZola Poring

PapaZola

Posted
  • Group:  Members
  • Topic Count:  318
  • Topics Per Day:  0.06
  • Content Count:  925
  • Reputation:   33
  • Joined:  12/05/11
  • Last Seen:  
Posted (edited) 

//=======================================
// Script By:
// eAthenanabs
//
// http://astral-RO.net
//
//=======================================
//= Info:
//
//= This event triggers every 15 minutes of the server time.
//=======================================
//= Mechanics:
//
//= Players have to run / choose a box between box 1 up to box 4
//= After that, that NPCs picks a number randomly
//= (obviously,between 1-4)
//= All players that are not inside the box that the NPC chose will
//= all be eliminated.
//= This event would run until there's only 1 player left.
//= Winner would get an incrementation on its #EVENTPOINTS variable
//= (users can simply just change the prize given.)
//
//========================================

- script DiceTrigger -1,{

OnInit:
disablenpc "Dice Event Warper#dice";
disablenpc "Claim Your Prize!#dice";
end;


OnMinute15:
if(agitcheck() == 1 || $@diceon == 1) end;
enablenpc "Dice Event Warper#dice";
announce "Dice Event: We are going to have a Dice Event",bc_all;
sleep2 1000;
announce "Dice Event: For those who want to join, please warp @ prontera 178 135",bc_all;
sleep2 1000;
announce "Dice Event: The Warper would be open for 1 minute",bc_all;
sleep2 30000;
announce "Dice Event: Last 30 Seconds.",bc_all;
sleep2 30000;
announce "Dice Event: Warper Closed.",bc_all;
disablenpc "Dice Event Warper#dice";
donpcevent "DiceEvent::OnDiceStart";
set $@diceon,1;
end;

}

prontera,179,135,3 script Dice Event Warper#dice 723,{

mes "Do you want to join the Dice Event?";
menu "Yes",-;
warp "quiz_02",55,87;
close;

}

quiz_02,55,90,3 script Got Stuck?#dice 779,{

mes "[ Got Stuck? ]";
mes "Do you wish to go back?";
menu "Yes",-;
warp "prontera",0,0;
close;

}


quiz_02,37,80,3 script Box 1 111,{

warp "quiz_02",37,70;
close;

}

quiz_02,49,80,3 script Box 2 111,{

warp "quiz_02",49,70;
close;

}

quiz_02,61,80,3 script Box 3 111,{

warp "quiz_02",61,70;
close;

}


quiz_02,73,80,3 script Box 4 111,{

warp "quiz_02",73,70;
close;

}

quiz_02,37,64,3 script Go Back#1 858,{

warp "quiz_02",55,76;
close;

}


quiz_02,49,64,3 script Go Back#2 858,{

warp "quiz_02",55,76;
close;

}

quiz_02,61,64,3 script Go Back#3 858,{

warp "quiz_02",55,76;
close;

}

quiz_02,73,64,3 script Go Back#4 858,{

warp "quiz_02",55,76;
close;

}


- script DiceEvent -1,{

OnDiceStart:
mapannounce "quiz_02","We are about to start the Dice event.",bc_blue;
sleep2 1000;
mapannounce "quiz_02","Rules are simple:",bc_blue;
sleep2 1000;
mapannounce "quiz_02","I'm going to pick a number, 1 to 4. Then I'll do a countdown from 5 to 0",bc_blue;
sleep2 1000;
mapannounce "quiz_02","All you have to do is go to box of the number you want",bc_blue;
sleep2 1000;
mapannounce "quiz_02","Example, If I get the number 4, All players standing on number 1 to 3 loses.",bc_blue;
sleep2 1000;
mapannounce "quiz_02","We'll do it again and again until we have 1 player left on this map.",bc_blue;
sleep2 2000;
mapannounce "quiz_02","Before I forget, you must GO INSIDE THE BOX! because if you're caught standing outside the box you'll be automatically disqualified!",bc_blue;
sleep2 2000;
mapannounce "quiz_02","That's it.. Now let's get it on!",bc_blue;
sleep2 3000;
goto L_start;
end;


L_start:
enablenpc "Go Back#1";
enablenpc "Go Back#2";
enablenpc "Go Back#3";
enablenpc "Go Back#4";
if(getmapusers("quiz_02") == 1) goto L_winner;
enablenpc "Box 1";
enablenpc "Box 2";
enablenpc "Box 3";
enablenpc "Box 4";
if(getmapusers("quiz_02") == 0) goto L_noone;
if(getmapusers("quiz_02") > 1) {
set $@number,rand(1,4);
sleep2 1000;
mapannounce "quiz_02","I'm ready to pick a number. Please go to the box of the number you want! Go go go!",bc_blue;
sleep2 20000;
mapannounce "quiz_02","5",bc_blue;
sleep2 1500;
mapannounce "quiz_02","4",bc_blue;
sleep2 1500;
mapannounce "quiz_02","3",bc_blue;
sleep2 1500;
mapannounce "quiz_02","2",bc_blue;
sleep2 1500;
mapannounce "quiz_02","1",bc_blue;
disablenpc "Box 1";
disablenpc "Box 2";
disablenpc "Box 3";
disablenpc "Box 4";
disablenpc "Go Back#1";
disablenpc "Go Back#2";
disablenpc "Go Back#3";
disablenpc "Go Back#4";
areawarp "quiz_02",32,95,79,76,"prontera",0,0;
areawarp "quiz_02",80,85,80,76,"prontera",0,0;
areawarp "quiz_02",31,85,31,76,"prontera",0,0;
if(getmapusers("quiz_02") == 0) goto L_noone;
sleep2 1000;
mapannounce "quiz_02","Time's Up. Winning number is "+$@number+"!",bc_blue;
if($@number == 4) goto L_Lose1;
if($@number == 3) goto L_Lose2;
if($@number == 2) goto L_Lose3;
if($@number == 1) goto L_Lose4;
end;

}

L_Lose1:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
goto L_start;
end;

L_Lose2:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;

L_Lose3:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;

L_Lose4:
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;

L_noone:
announce "No one won the Dice Event!",bc_all;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
set $@diceon,0;
end;

L_winner:
enablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
end;

}

quiz_02,55,84,3 script Claim Your Prize!#dice 904,{

set #EVENTPOINTS,#EVENTPOINTS+1;
announce strcharinfo(0)+" won the Dice Event!",bc_all;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
dispbottom "You now have "+#EVENTPOINTS+" Event Point(s).";
warp "prontera",0,0;
set $@diceon,0;
close;
end;

}

how to change to cash point?

Edited by Arcenciel
Please use a CODEBOX next time for long scripts.
Link to comment
Share on other sites

2 answers to this question

Recommended Posts

KeiKun Poring

KeiKun

Posted
  • Group:  Members
  • Topic Count:  31
  • Topics Per Day:  0.01
  • Content Count:  967
  • Reputation:   53
  • Joined:  11/13/11
  • Last Seen:  
Posted 

//=======================================
// Script By:
// eAthenanabs
//
// http://astral-RO.net
//
//=======================================
//= Info:
//
//= This event triggers every 15 minutes of the server time.
//=======================================
//= Mechanics:
//
//= Players have to run / choose a box between box 1 up to box 4
//= After that, that NPCs picks a number randomly
//= (obviously,between 1-4)
//= All players that are not inside the box that the NPC chose will
//= all be eliminated.
//= This event would run until there's only 1 player left.
//= Winner would get an incrementation on its #EVENTPOINTS variable
//= (users can simply just change the prize given.)
//
//========================================
- script DiceTrigger -1,{
OnInit:
disablenpc "Dice Event Warper#dice";
disablenpc "Claim Your Prize!#dice";
end;

OnMinute15:
if(agitcheck() == 1 || $@diceon == 1) end;
enablenpc "Dice Event Warper#dice";
announce "Dice Event: We are going to have a Dice Event",bc_all;
sleep2 1000;
announce "Dice Event: For those who want to join, please warp @ prontera 178 135",bc_all;
sleep2 1000;
announce "Dice Event: The Warper would be open for 1 minute",bc_all;
sleep2 30000;
announce "Dice Event: Last 30 Seconds.",bc_all;
sleep2 30000;
announce "Dice Event: Warper Closed.",bc_all;
disablenpc "Dice Event Warper#dice";
donpcevent "DiceEvent::OnDiceStart";
set $@diceon,1;
end;
}
prontera,179,135,3 script Dice Event Warper#dice 723,{
mes "Do you want to join the Dice Event?";
menu "Yes",-;
warp "quiz_02",55,87;
close;
}
quiz_02,55,90,3 script Got Stuck?#dice 779,{
mes "[ Got Stuck? ]";
mes "Do you wish to go back?";
menu "Yes",-;
warp "prontera",0,0;
close;
}

quiz_02,37,80,3 script Box 1 111,{
warp "quiz_02",37,70;
close;
}
quiz_02,49,80,3 script Box 2 111,{
warp "quiz_02",49,70;
close;
}
quiz_02,61,80,3 script Box 3 111,{
warp "quiz_02",61,70;
close;
}

quiz_02,73,80,3 script Box 4 111,{
warp "quiz_02",73,70;
close;
}
quiz_02,37,64,3 script Go Back#1 858,{
warp "quiz_02",55,76;
close;
}

quiz_02,49,64,3 script Go Back#2 858,{
warp "quiz_02",55,76;
close;
}
quiz_02,61,64,3 script Go Back#3 858,{
warp "quiz_02",55,76;
close;
}
quiz_02,73,64,3 script Go Back#4 858,{
warp "quiz_02",55,76;
close;
}

- script DiceEvent -1,{
OnDiceStart:
mapannounce "quiz_02","We are about to start the Dice event.",bc_blue;
sleep2 1000;
mapannounce "quiz_02","Rules are simple:",bc_blue;
sleep2 1000;
mapannounce "quiz_02","I'm going to pick a number, 1 to 4. Then I'll do a countdown from 5 to 0",bc_blue;
sleep2 1000;
mapannounce "quiz_02","All you have to do is go to box of the number you want",bc_blue;
sleep2 1000;
mapannounce "quiz_02","Example, If I get the number 4, All players standing on number 1 to 3 loses.",bc_blue;
sleep2 1000;
mapannounce "quiz_02","We'll do it again and again until we have 1 player left on this map.",bc_blue;
sleep2 2000;
mapannounce "quiz_02","Before I forget, you must GO INSIDE THE BOX! because if you're caught standing outside the box you'll be automatically disqualified!",bc_blue;
sleep2 2000;
mapannounce "quiz_02","That's it.. Now let's get it on!",bc_blue;
sleep2 3000;
goto L_start;
end;

L_start:
enablenpc "Go Back#1";
enablenpc "Go Back#2";
enablenpc "Go Back#3";
enablenpc "Go Back#4";
if(getmapusers("quiz_02") == 1) goto L_winner;
enablenpc "Box 1";
enablenpc "Box 2";
enablenpc "Box 3";
enablenpc "Box 4";
if(getmapusers("quiz_02") == 0) goto L_noone;
if(getmapusers("quiz_02") > 1) {
set $@number,rand(1,4);
sleep2 1000;
mapannounce "quiz_02","I'm ready to pick a number. Please go to the box of the number you want! Go go go!",bc_blue;
sleep2 20000;
mapannounce "quiz_02","5",bc_blue;
sleep2 1500;
mapannounce "quiz_02","4",bc_blue;
sleep2 1500;
mapannounce "quiz_02","3",bc_blue;
sleep2 1500;
mapannounce "quiz_02","2",bc_blue;
sleep2 1500;
mapannounce "quiz_02","1",bc_blue;
disablenpc "Box 1";
disablenpc "Box 2";
disablenpc "Box 3";
disablenpc "Box 4";
disablenpc "Go Back#1";
disablenpc "Go Back#2";
disablenpc "Go Back#3";
disablenpc "Go Back#4";
areawarp "quiz_02",32,95,79,76,"prontera",0,0;
areawarp "quiz_02",80,85,80,76,"prontera",0,0;
areawarp "quiz_02",31,85,31,76,"prontera",0,0;
if(getmapusers("quiz_02") == 0) goto L_noone;
sleep2 1000;
mapannounce "quiz_02","Time's Up. Winning number is "+$@number+"!",bc_blue;
if($@number == 4) goto L_Lose1;
if($@number == 3) goto L_Lose2;
if($@number == 2) goto L_Lose3;
if($@number == 1) goto L_Lose4;
end;
}
L_Lose1:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
goto L_start;
end;
L_Lose2:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;
L_Lose3:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;
L_Lose4:
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;
L_noone:
announce "No one won the Dice Event!",bc_all;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
set $@diceon,0;
end;
L_winner:
enablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
end;
}
quiz_02,55,84,3 script Claim Your Prize!#dice 904,{
set #CASHPOINTS,#CASHPOINTS+1;
announce strcharinfo(0)+" won the Dice Event!",bc_all;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
dispbottom "You now have "+#CASHPOINTS+" Cash Point(s).";
warp "prontera",0,0;
set $@diceon,0;
close;
end;
}

try that

Link to comment
Share on other sites
PapaZola Poring

PapaZola

Posted
  • Group:  Members
  • Topic Count:  318
  • Topics Per Day:  0.06
  • Content Count:  925
  • Reputation:   33
  • Joined:  12/05/11
  • Last Seen:  
  • Author
Posted (edited)

its work

thx

Edited by PapaZola
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...