Jump to content
  • 0

help about event script editting

darking123

Asked by darking123,

 Share

Question

darking123 Poring

darking123

Posted
  • Group:  Members
  • Topic Count:  318
  • Topics Per Day:  0.07
  • Content Count:  931
  • Reputation:   13
  • Joined:  12/20/11
  • Last Seen:  
Posted (edited)

how to edit this so that the winner will have the prize automatically without claiming the reward from the npc

// ---			ARTHistic's Property			---
// ---	Please visit http://thdesigns.co.nr	 ---
// ---		   Scripted By: ARTHistic		   ---
// ---		 Do Not Revomed the Credits		 ---
- script PPE_inital -1,{
OnInit:
set $@PoringEventChecker, 0;
set $@PoringEventPrizeChecker, 0;
set $PPEDefendingChampion$,"secret";
end;
}
prontera,130,205,5 script Poring Punch Event 952,{
mes "[ Poring Punch Event ]";
mes "Hello, I'm the Poring Punch Event Manager. My record says that the defending champion on this event was "+$PPEDefendingChampion$+". Anyways, what do you want to do?";
mes " ";
mes "Scripted by: ^777777ARTHistic^000000";
next;
menu "How does this work?",PPE_HowTo,"Host this Event",PPE_Host,"Join Event Now",PPE_Join,"Claim my reward",PPE_claim,"Nevermind",PPE_nvm;
PPE_HowTo:
 mes "[ Poring Punch Event ]";
 mes "This is an event where everyone can join in. All you have to do is to punch the right monsters and to avoid the wrong ones. Each kind of monster has its corresponsing points. You only have 5 minutes to earn points as much as you can. The Highest Scorer at the end of this event shall win Poring Coins";
 mes "Reminder: No weapons, cart, and pets is allowed in this event.";
 mes " ";
 mes "Scripted by: ^777777ARTHistic^000000";
 close;
PPE_Host:
 if ( $@PoringEventChecker != 0 ){
  mes "[ Poring Punch Event ]";
  mes "There is Poring Punch Event on-going. You can host this event if it is still on-going.";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  close;
 }else{
  mes "[ Poring Punch Event ]";
  mes "You need to pay 200,000,000 z to host this event. Would you like to pay to host this event?";
  next;
  menu "Yes",PPE_HostYes,"No",-;
  mes "[ Poring Punch Event ]";
  mes "Okay. Maybe next time.";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  close;
PPE_HostYes:
 if ( Zeny >= 200000000 ){
  mes "[ Poring Punch Event ]";
  mes "Thanks "+strcharinfo(0)+", for hosting this event. It will start shortly.";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  set Zeny, Zeny-200000000;
  close2;
  set $@PoringEventChecker, 1;
  announce ""+strcharinfo(0)+" paid to host Poring Punch Event!", bc_all;
  killmonsterall "pvp_n_1-2";
  sleep2 10000;
  initnpctimer;
  end;
 }else{
  mes "[ Poring Punch Event ]";
  mes "Sorry "+strcharinfo(0)+", you dont have enough zenies to host this event.";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  close;
 }end;
 }end;
PPE_Join:
 if ( $@PoringEventChecker != 0 ){
  if (gethominfo(2) != "null"){
mes "[ Poring Punch Event ]";
mes "No homunculus is allowed in this event! Sorry "+strcharinfo(0)+" but you can't join this event!";
close;
  }
  if (getpetinfo(2) != "null"){
mes "[ Poring Punch Event ]";
mes "No pet is allowed in this event! Sorry "+strcharinfo(0)+" but you can't join this event!";
close;
  }
  if (checkcart()){
mes "[ Poring Punch Event ]";
mes "[ Poring Punch Event ]";
mes "No cart is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
close;
  }
  if (checkfalcon()){
mes "[ Poring Punch Event ]";
mes "No falcon is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
close;
  }
  if (checkriding()){
mes "[ Poring Punch Event ]";
mes "[ Poring Punch Event ]";
mes "No riding is allowed! Sorry "+strcharinfo(0)+" but you can't join this event!";
close;
  }
  mes "[ Poring Punch Event ]";
  mes "Good luck "+strcharinfo(0)+".";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  close2;
  set @PoringPoints, 0;
  warp "pvp_n_1-2.gat",0,0;
  end;
 }else{
  mes "[ Poring Punch Event ]";
  mes "Sorry. No Poring Punch Event is held at the moment.";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  close;
 }end;
PPE_claim:
 if ($HighestPoringPointsName$ == strcharinfo(0) && $@PoringEventPrizeChecker == 1) {
  mes "[Poring Punch Event]";
  mes "Congragulations "+strcharinfo(0)+". Here is your reward.";
  getitem 674,10;
  set $HighestPoringPointsName$,"";
  set $HighestPoringPoints,0;
  set $@PoringEventPrizeChecker, 0;
  close;
 } else {
  mes "[ Poring Punch Event ]";
  mes "Sorry "+strcharinfo(0)+". You're not the winner so you can't claim anything";
  mes " ";
  mes "Scripted by: ^777777ARTHistic^000000";
  close;
 }end;
PPE_nvm:
 mes "[ Poring Punch Event ]";
 mes "Okay. Maybe next time.";
 mes " ";
 mes "Scripted by: ^777777ARTHistic^000000";
 close;
OnPoringKill:
 if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
  set @PoringPoints,@PoringPoints+1;
  if (@PoringPoints > $HighestPoringPoints) {
set $HighestPoringPointsName$,strcharinfo(0);
set $PPEDefendingChampion$,strcharinfo(0);
set $HighestPoringPoints,@PoringPoints;
  }
  dispbottom "You have "+@PoringPoints+" point(s)";
  end;
 }else {
  dispbottom "You have to punch the monster without any weapon.";
  warp "prontera",130,200;
  end;
 }
OnDropsKill:
 if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
  set @PoringPoints,@PoringPoints+5;
  if (@PoringPoints > $HighestPoringPoints) {
set $HighestPoringPointsName$,strcharinfo(0);
set $PPEDefendingChampion$,strcharinfo(0);
set $HighestPoringPoints,@PoringPoints;
  }
  dispbottom "You have "+@PoringPoints+" point(s)";
  end;
 }else {
  dispbottom "You have to punch the monster without any weapon.";
  warp "prontera",130,200;
  end;
 }

OnPoporingKill:
 if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
  if (@PoringPoints < 10) {
set @PoringPoints, 0;
dispbottom "You have "+@PoringPoints+" point(s)";
end;
  }else {
set @PoringPoints,@PoringPoints-10;
dispbottom "You have "+@PoringPoints+" point(s)";
end;
  }end;
 }else {
  dispbottom "You have to punch the monster without any weapon.";
  warp "prontera",130,200;
  end;
 }

OnHour30:
if ( $@PoringEventChecker == 0 ) {
 set $@PoringEventChecker, 1;
 initnpctimer;
 end;
}
OnTimer10000:
announce "Poring Punch Event has started.",0;
monster "pvp_n_1-2",0,0,"1 Point",1002,50,"Poring Punch Event::OnPoringKill";
monster "pvp_n_1-2",0,0,"5 Points",1113,10,"Poring Punch Event::OnDropsKill";
monster "pvp_n_1-2",0,0,"-10 Ponts",1031,50,"Poring Punch Event::OnPoporingKill";
end;
OnTimer70000:
mapannounce "pvp_n_1-2.gat","Poring Punch Event: 4 minutes left.",0;
monster "pvp_n_1-2",0,0,"1 Point",1002,50,"Poring Punch Event::OnPoringKill";
monster "pvp_n_1-2",0,0,"5 Points",1113,5,"Poring Punch Event::OnDropsKill";
monster "pvp_n_1-2",0,0,"-10 Ponts",1031,20,"Poring Punch Event::OnPoporingKill";
end;
OnTimer130000:
mapannounce "pvp_n_1-2.gat","Poring Punch Event: 3 minutes left.",0;
monster "pvp_n_1-2",0,0,"1 Point",1002,30,"Poring Punch Event::OnPoringKill";
monster "pvp_n_1-2",0,0,"5 Points",1113,5,"Poring Punch Event::OnDropsKill";
monster "pvp_n_1-2",0,0,"-10 Ponts",1031,15,"Poring Punch Event::OnPoporingKill";
end;
OnTimer190000:
mapannounce "pvp_n_1-2.gat","Poring Punch Event: 2 minutes left.",0;
monster "pvp_n_1-2",0,0,"1 Point",1002,30,"Poring Punch Event::OnPoringKill";
monster "pvp_n_1-2",0,0,"5 Points",1113,5,"Poring Punch Event::OnDropsKill";
monster "pvp_n_1-2",0,0,"-10 Ponts",1031,5,"Poring Punch Event::OnPoporingKill";
end;
OnTimer250000:
mapannounce "pvp_n_1-2.gat","Poring Punch Event: 1 minute left.",0;
monster "pvp_n_1-2",0,0,"1 Point",1002,50,"Poring Punch Event::OnPoringKill";
monster "pvp_n_1-2",0,0,"5 Points",1113,5,"Poring Punch Event::OnDropsKill";
monster "pvp_n_1-2",0,0,"-10 Ponts",1031,5,"Poring Punch Event::OnPoporingKill";
end;
OnTimer310000:
stopnpctimer;
announce "Poring Punch Event has ended and the event Winner is "+$HighestPoringPointsName$+".",0;
killmonsterall "pvp_n_1-2";
set $@PoringEventChecker, 0;
set $@PoringEventPrizeChecker, 1;
sleep2 5000;
mapannounce "pvp_n_1-2.gat","You'll be warp at prontera in a short while.",16;
sleep2 10000;
mapwarp "pvp_n_1-2","prontera",155,166;
end;
}

// MAPFLAGS
pvp_n_1-2 mapflag nobranch
pvp_n_1-2 mapflag noexp
pvp_n_1-2 mapflag noskill
pvp_n_1-2 mapflag nomemo
pvp_n_1-2 mapflag nopenalty
pvp_n_1-2 mapflag pvp off
pvp_n_1-2 mapflag nosave SavePoint
pvp_n_1-2 mapflag noskill
pvp_n_1-2 mapflag noteleport
pvp_n_1-2 mapflag nowarp
pvp_n_1-2 mapflag nowarpto

also this...i want that even if only round 1 and 1 player is left automatically announce the this player won and give the prize to him already

tapos bawal din po mag dala ng kahit anung pots or pang heal at pang increase ng speed

// Edited version by painisinsane/Eclipse.
// Creator of EclipseRO
// Please dont remove Credits!
// Credits: http://www.paste-it.net/public/a5d2cd4/
quiz_01 mapflag nowarpto
quiz_01 mapflag nowarp
quiz_01 mapflag noteleport
quiz_01 mapflag nomemo
quiz_01 mapflag nosave SavePoint
quiz_01 mapflag nobranch
quiz_01 mapflag noicewall
quiz_01 mapflag nopenalty
quiz_01 mapflag nobranch
quiz_01 mapflag noexp
quiz_01 mapflag noreturn
quiz_01 mapflag pvp_noparty
quiz_01 mapflag restricted 1
- script RFYL#disable -1,{
OnInit:
disablenpc "Zombie Master";
disablenpc "Present For You";
}
rachel,152,144,4 script Zombie Minion 1015,{
if (getgmlevel() >= 40) goto LMS_Admin;
mes "[Minion]";
mes "Hello " + strcharinfo(0) + ", my master is busy.";
mes "*sigh*";
close;
LMS_Admin:
mes "[Minion]";
mes "Hello " + strcharinfo(0) + ", would you like me to call my Boss?";
mes "He is the only one who can start it!";
menu "Start Event",RFYL,"Spectate",M_warp,"End Event",M_EndEvent,"No Thanks",leave;
RFYL:
 next;
 mes "[Minion]";
 mes "Ok, I'll call him this instant.";
 close2;
 set $@offvar,1;
 goto StartEvent;
M_warp:
 mes "[Minion]";
 mes "Very well, I will warp you to the map!";
 warp "quiz_01",42,369;
 close;
leave:
 next;
 mes "[Minion]";
 mes "Ok " + strcharinfo(0) +", nice seeing you.";
 close;

M_EndEvent:
 mes "[Minion]";
 mes "Ok master, I will stop the event for you right away!";
 next;
 set $@offvar,1;
 disablenpc "Zombie Master";
 disablenpc "Present For You";
 killmonsterall "quiz_01";
 areawarp "quiz_01",10,10,450,450,"rachel",120,135;
 stopnpctimer;
 disablenpc "Zombie Minion";
 warp "rachel",120,135;
 sleep 180000;
 enablenpc "Zombie Minion";

StartEvent:
announce "Zombie Vs. Novice event Will begin in 3 minutes. Head East/North",0;
killmonsterall "quiz_01";
sleep 55000;
announce "Zombie Vs. Novice event will begin in 2 minutes! Head East/North",0;
sleep 5000;
announce "Zombie Master: I have now appeared in Rachel!",0;
enablenpc "Zombie Master";
sleep 60000;
announce "Zombie Vs. Novice event will begin in 1 minute!",0;
sleep 30000;
mapannounce "quiz_01","In 30 seconds the zombies will spawn!",0;
sleep 25000;
announce "Zombie Vs. Novice event will begin in ~5~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~4~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~3~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~2~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~1~",0;
sleep 1000;
announce "Zombie Vs. Novice event has now begun!!",0,0x00FF00;
disablenpc "Zombie Master";
disablenpc "Present For You";
sleep 10000;
monster "quiz_01",42,369,"Zombie",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-2",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-3",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
mapannounce "quiz_01","Round 2!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 3!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 4!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 5!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 6!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 7! Final Round!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 20000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 30000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 40000;
monster "quiz_01",42,369,"Zombie-4",1036,1;
sleep 50000;
monster "quiz_01",42,369,"Zombie-4",1036,1;
sleep 60000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
initnpctimer;
end;
OnTimer0500:
if ( getmapusers("quiz_01") == 0 )
{
killmonsterall "quiz_01";
announce "'Zombie Vs. Novice' event has ended. No one joined.",0;
stopnpctimer;
end;
}
else if ( getmapusers("quiz_01") > 1 )
{
mapannounce "quiz_01",getmapusers("quiz_01") +"has survived the event.",0,0x00FF00;;
initnpctimer;
end;
}
initnpctimer;
end;
OnPCDieEvent:
getmapxy .@mapnvz$,.@xnvz,.@ynvz,0;
if ( .@mapnvz$ == "quiz_01") {
sleep2 1;
warp "rachel",120,135;
atcommand "@alive "+ strcharinfo(0);
dispbottom "you have lost...";
}
sleep2 0500;
if ( .@mapnvz$ == "quiz_01" && getmapusers("quiz_01") == 1 ) {
killmonsterall "quiz_01";
mapannounce "quiz_01","You have won, approach the Present For You Npc please.",0;
enablenpc "Present For You";
stopnpctimer;
end;
}
end;
}
quiz_01,42,378,3 script Present For You 72,{
mes "[Present For You]";
mes "Please tell me your name.";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
 mes "[Present For You]";
 mes "Are you sure that is your name?";
 close;
}
mes "[Present For You]";
mes "Congrats. You've won.";
close2;
announce "Present For You: We have a winner! "+.@name$+" has won the Novice vs Zombie event!",0;
getitem 674, 3; // Change This item id to what ever you want
warp "rachel",120,135;
disablenpc "Present For You";
end;
}
rachel,152,146,4 script Zombie Master 1298,{
if (BaseLevel > 1) goto NO;
if (class == 0) goto event;
if (class > 0) goto NO;
event:
mes "[^0000FFZombie Master^000000]";
mes "You wish to participate the Zombie Vs. Novice event?";
next;
switch(select("Yes","No")) {
case 1:
sc_end SC_ALL;
sc_start SC_DECREASEAGI,1200000,10;
percentheal 100,100;
sc_start SC_STRIPSHIELD,1200000,5;
sc_start SC_STRIPWEAPON,1200000,5;
sc_start SC_STRIPARMOR,1200000,5;
sc_start SC_STRIPHELM,1200000,5;
statusup2 bStr,-999;
statusup2 bAgi,-999;
statusup2 bVit,-999;
statusup2 bInt,-999;
statusup2 bDex,-999;
statusup2 bLuk,-999;
warp "quiz_01",42,369;
end;
break;
case 2:
mes "[^0000FFZombie Master^000000]";
mes "Come back when your ready.";
close;
break;
NO:
mes "[^0000FFZombie Master^000000]";
mes "You are not a Novice, level 1.";
close;
}
OnInit:
disablenpc "Zombie Master";
disablenpc "Prize";
end;
}

UPDATED

Edited by glemor123
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

plankt Poring

plankt

Posted
  • Group:  Members
  • Topic Count:  7
  • Topics Per Day:  0.00
  • Content Count:  130
  • Reputation:   43
  • Joined:  12/11/11
  • Last Seen:  
Posted

You can save the AID where the variable $HighestPoringPointsName$ is set.

Then at OnTimer310000 you can attachrid and give the reward. Make sure to remove the price part from the standard NPC.

For the second, change this:

}
initnpctimer;
end;
OnPCDieEvent:

To this:

}
killmonsterall "quiz_01";
mapannounce "quiz_01","You have won, approach the Present For You Npc please.",0;
enablenpc "Present For You";
stopnpctimer;
end;
OnPCDieEvent:

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...