Jump to content
  • 0

scripting problem..

bakuriyu2

Asked by bakuriyu2,

 Share

Question

bakuriyu2 Poring

bakuriyu2

Posted
  • Group:  Members
  • Topic Count:  21
  • Topics Per Day:  0.00
  • Content Count:  132
  • Reputation:   1
  • Joined:  07/19/12
  • Last Seen:  
Posted (edited)

ive searched for poring catcher event.. and got this one.. but it the event wont start

x.x

//
- script poring#announcer -1,{
OnInit:
disablenpc "poringevent";
hideonnpc "Poring Catcher#evnt2";
end;
OnMinute2: // SET THE 30 TO THE MINUTE YOU WANT THE EVENT TO START EACH HOUR.
announce "Poring Catcher : It's time to play some Poring Catcher!",0;
killmonster "poring_w01","All";
sleep2 10000;
announce "Poring Catcher : Please make your way to the centre of Prontera.",0;
sleep2 10000;
announce "Poring Catcher : After one minute the portal will close.",0;
sleep2 10000;
announce "Poring Catcher : Enter the warp portal now if you want to join.",0;
enablenpc "poringevent";
initnpctimer;
end;

OnTimer30000:
announce "Poring Catcher : Last 30 seconds.",0;
sleep2 5000;
announce "Poring Catcher : Hurry to the centre of Prontera if you want to join.",0;
end;

OnTimer50000:
announce "Poring Catcher : Last 10 seconds.",0;
end;

OnTimer55000:
announce "Poring Catcher : 5.",0;
end;

OnTimer56000:
announce "Poring Catcher : 4.",0;
end;

OnTimer57000:
announce "Poring Catcher : 3.",0;
end;

OnTimer58000:
announce "Poring Catcher : 2.",0;
end;

OnTimer59000:
announce "Poring Catcher : 1.",0;
end;

OnTimer60000:
announce "Poring Catcher : Time's up. Portal Will Open again when a GM activates it.",0;
end;

OnTimer61000:
disablenpc "poringevent";
donpcevent "Poring Catcher#evnt2::OnEnable";
stopnpctimer;
end;
}

//--------------------------------------------------

prontera,156,163,0 warp poringevent 2,2,poring_w01,106,129  

//--------------------------------------------------
poring_w01,100,127,4 script Poring Catcher#evnt2 715,{
//--------------------------------------------------
mes "[Poring Catcher]";
if(PORING == 1) goto L_PORING;
mes "Please tell me your name";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
	mes "[Poring Catcher]";
	mes "Are you sure thats your character name?";
	close;
}
mes "[Poring Catcher]";
mes "Congrats. You've won.";
close2;
announce "Poring Catcher : All laugh at, "+.@name$+". - This player tried to cheat the system. Muhahahahaha!",0;
warp "prontera",155,182;
end;
L_PORING:
mes "Please tell me your name";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
	mes "[Poring Catcher]";
	mes "Are you sure thats your character name?";
	close;
}
mes "[Poring Catcher]";
mes "Congrats. You've won.";
close2;
announce "Poring Catcher : We have a winner, "+.@name$+". - 200 Cash Points Prize!",0;
set #CASHPOINTS,#CASHPOINTS + 200;
dispbottom "You have Won 200 Cash Points Total of = "+#CASHPOINTS+" Points.";
set PORING,0;
warp "prontera",155,182;
hideonnpc "Poring Catcher#evnt2";
end;

OnEnable:
mapannounce "poring_w01","Poring Catcher : I will be summoning 100 different Porings.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : Only one of these Porings is the correct Poring.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : The correct Poring is called [ Poring ], all the other Porings have different names.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : Take your time because if you kill the wrong Poring, your out of the game.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : The first player to kill the correct Poring wins.",0;
sleep2 10000;
mapannounce "poring_w01","Poring Catcher : That's that.. Now let's play...",0;
goto L_Start;
end;

L_Start:
mapannounce "poring_w01","Poring Catcher : 5",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 4",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 3",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 2",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : 1",0;
sleep2 1000;
mapannounce "poring_w01","Poring Catcher : Lets Do This!",0;
areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled";
areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled";
end;
}
- script poringwin -1,{
OnMobKilled:
dispbottom "Poring : Congratulations. You've got me.";
set PORING,1;
atcommand "@doommap";
killmonster "poring_w01","All";
mapannounce "poring_w01","Poring Catcher : Come to me and tell me your name.",0;
hideoffnpc "Poring Catcher#evnt2";
end;
}

- script poringlose -1,{
OnMobKilled:
	dispbottom "Poring Catcher : Wahaha, your a loser! - I wasn't the correct Poring.";
	warp "SavePoint",0,0;
	end;
}
// -- Mapflags
poring_w01 mapflag nowarp
poring_w01 mapflag nowarpto
poring_w01 mapflag noteleport
poring_w01 mapflag nosave
poring_w01 mapflag nomemo
poring_w01 mapflag nobranch
poring_w01 mapflag noloot
poring_w01 mapflag noskill
poring_w01 mapflag nopenalty

Edited by Arcenciel
Codeboxed
Link to comment
Share on other sites

4 answers to this question

Recommended Posts

Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10018
  • Reputation:   2370
  • Joined:  10/28/11
  • Last Seen:  
Posted 
OnMinute02:
OnMinute10:
OnMinute20:
OnMinute30:
OnMinute05:
OnMinute55:
OnMinute59:
OnMinute00:

Link to comment
Share on other sites
bakuriyu2 Poring

bakuriyu2

Posted
  • Group:  Members
  • Topic Count:  21
  • Topics Per Day:  0.00
  • Content Count:  132
  • Reputation:   1
  • Joined:  07/19/12
  • Last Seen:  
  • Author
Posted (edited) 

OnMinute02:
OnMinute10:
OnMinute20:
OnMinute30:
OnMinute05:
OnMinute55:
OnMinute59:
OnMinute00:

where to put it? after the code?

ok i get it now

ive searched it here

http://rathena.org/b...ent#entry123008

but i have another question.. i want to set the permanent map,rewards,number of mvps and non mvps..

//============================================================
//= Auto MVP Summoner
//===== By: =======================Modified By:=========
//= xMachina / Acetito	  Emistry / Myzter
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eA SVN 5000+
//===== Additional Comments: =================================
//= v1.0 Testing Mode
//============================================================

prontera,156,168,5 script MVP Attack 437,{
if (getgmlevel() < 20) {
 mes "[ ^0065DFxMachina^000000 ]";
 if (!.Event) {
  mes "There is no MVP Attack Event now.";
 } else {
  mes "There is a MVP Attack Event on now!";
  mes "Location: ^ff0000" + $@Map$ + "^000000";
 }
 close;
}
set .@ItsOK,0;
set .@SpecialMVP, $@SpecialMVP;
set .@NormalMVP, $@NormalMVP;
set .@Amount, $@Amount;
set .@ItemID, $@ItemID;
set .@Map$, $@Map$;
while(!.@Configuring) {
 mes "[ ^0065DFxMachina^000000 ]";
 mes "Customizing MVP Attack Event:";
 mes "> MVP Item: " + (.@Amount?"^0000ff" + .@Amount:"^ff0000<Undefined>") + "^000000 x " + (getitemname(.@ItemID) == "null"?"^ff0000<Item>":"^0000ff" + getitemname(.@ItemID)) + "^000000";
 mes "> Location: " + (getstrlen(.@Map$)?"^0000ff" + .@Map$:"^ff0000<Undefined>") + "^000000";
 mes "> Special MVP: " + (.@SpecialMVP?"^0000ff" + .@SpecialMVP:"^ff0000<None>") + "^000000";
 mes "> Normal MVP: " + (.@NormalMVP?"^0000ff" + .@NormalMVP:"^ff0000<None>") + "^000000";
 mes "> Status: " + (.Event?"^ff44ffActive^000000":"^ff0000Inactive^000000");
 next;
 set .@ItsOK, getitemname(.@ItemID)!="null" && getstrlen(.@Map$) && getstrlen(.@Map$) < 24 && .@Amount && .@SpecialMVP && .@NormalMVP;
 if (.Event) {
  set .@Menu$, "^ff0000[·] Stop Event^000000:::::[x] ^ff0000Exit^000000";
 } else {
  set .@Menu$, (.Event?":".@ItsOK?"^0000ff[!] Start Event^000000:":":") + "- Set MVP Item:- Set Location:- Special MVP Count:- Normal MVP Count:[x] ^ff0000Exit^000000");
 }
 switch(select(.@Menu$)) {
  case 1:
mes "[ ^0065DFxMachina^000000 ]";
mes "Are you sure you want to " + (.Event?"Stop the Event":"Start the Event") + "?";
next;
set .@Configuring, select("No:Yes")-1;
break;
  case 2:
mes "[ ^0065DFxMachina^000000 ]";
mes "What item to be given to MVP Killer ?";
next;
do {
 message strcharinfo(0),"Enter a VALID itemID. Example 501 - Red Potion.";
 input .@ItemID,501,32767;
} while (getitemname(.@ItemID) == "null");
mes "[ ^0065DFxMachina^000000 ]";
mes "Input the Amount of ^0000ff" + getitemname(.@ItemID) + "^000000 to be Rewarded for Special MVP Killer.";
next;
input .@Amount,1,30000;
break;
  case 3:
mes "[ ^0065DFxMachina^000000 ]";
mes "Which map would you like me to host this event?";
mes "Input a ^FF0000VALID^000000 mapname.";
next;
do {
 message strcharinfo(0),"Enter a VALID map. Example - izlude.";
 input .@Map$;
 monster .@Map$,0,0,".",1084,1,strnpcinfo(3)+"::OnNormalKill";
 sleep2 100;
 set .@MC, mobcount(.@Map$,strnpcinfo(3)+"::OnNormalKill");
 killmonster .@Map$,strnpcinfo(3)+"::OnNormalKill";
} while (.@MC<1);
break;
  case 4:
mes "[ ^0065DFxMachina^000000 ]";
mes "How many ^FF0000Special^000000 MVP would you like me to summon?";
next;
input .@SpecialMVP;
break;
  case 5:
mes "[ ^0065DFxMachina^000000 ]";
mes "How many ^FF0000Normal^000000 MVP would you like me to summon?";
next;
input .@NormalMVP;
break;
  case 6:
mes "[ ^0065DFxMachina^000000 ]";
mes "See you later.";
close;
 }
}
if (!.Event) {
 set .Event,1;
 set $@SpecialMVP, .@SpecialMVP;
 set $@NormalMVP, .@NormalMVP;
 set $@Amount, .@Amount;
 set $@ItemID, .@ItemID;
 set $@Map$, .@Map$;
 monster $@Map$,0,0,"--ja--",-3,$@SpecialMVP,strnpcinfo(3)+"::OnSpecialKill";
 monster $@Map$,0,0,"--ja--",-3,$@NormalMVP,strnpcinfo(3)+"::OnNormalKill";
 announce "Map Invasion Begin : " + $@SpecialMVP + " Special MVP has invaded in " + $@Map$ + ". Hurry Up..",bc_all,0x98FB98;
} else {
 set .Event,0;
 announce "The MVP Attack Event is now over!",0,0x98FB98;
 killmonster $@Map$,"All";
}
mes "[ ^0065DFxMachina^000000 ]";
mes (.Event?"Starting":"Stopping") + " the event now...";
close;
OnClock0000:
OnClock0400:
OnClock0800:
OnClock1200:
OnClock1600:
OnClock2000:
if (!.Event) {
 set .Event,1;
 monster $@Map$,0,0,"--ja--",-3,$@SpecialMVP,strnpcinfo(3)+"::OnSpecialKill";
 monster $@Map$,0,0,"--ja--",-3,$@NormalMVP,strnpcinfo(3)+"::OnNormalKill";
 announce "Map Invasion Begin : "+$@SpecialMVP+" Special MVP has invaded in " + $@Map$ + ". Hurry Up..",bc_all,0x98FB98;
}
OnSpecialKill:
set .@MobCnt, mobcount($@Map$,strnpcinfo(3)+"::OnSpecialKill");
if (playerattached()) {
 if (!.@MobCnt) {
  announce $@Map$ + ": " + strcharinfo(0) + " has killed the last Special MVP",bc_all;
 } else {
  announce $@Map$ + ": " + strcharinfo(0) + " has killed 1 Special MVP and Gained Mystery Items - Remaining Special MVP: " + .@MobCnt,(!rand(3)?bc_all:bc_map);
 }
 getitem $@ItemID,$@Amount;
}
if (!.@MobCnt) {
 set .Event,0;
 killmonster $@Map$,"All";
 sleep 5000;
 mapannounce $@Map$, "The MVP Attack Event is now over!",bc_all,0x98FB98;
}
end;
OnNormalKill:
if (playerattached()) dispbottom "You killed Normal MVP ( No Reward ).  Special MVP Left : "+mobcount($@Map$,strnpcinfo(3)+"::OnSpecialKill")+" .";
end;
}

Edited by Arcenciel
Codeboxed
Link to comment
Share on other sites
Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10018
  • Reputation:   2370
  • Joined:  10/28/11
  • Last Seen:  
Posted

change

.@

to

$

Link to comment
Share on other sites
bakuriyu2 Poring

bakuriyu2

Posted
  • Group:  Members
  • Topic Count:  21
  • Topics Per Day:  0.00
  • Content Count:  132
  • Reputation:   1
  • Joined:  07/19/12
  • Last Seen:  
  • Author
Posted

change

.@

to

$

i can still configure it ryt?

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