Jump to content
bakuriyu2

help nmn po sa script!

By bakuriyu2, in Tulong para sa Script at Database

Recommended Posts

bakuriyu2 Poring

bakuriyu2

Posted
Posted

pano po e change ung price .. to mithril coins? ayaw kc bumibigay ng mithril coins after ko makakill ng poring ehh

//
- script poring#announcer -1,{
OnInit:
   disablenpc "poringevent";
   hideonnpc "Poring Catcher#evnt2";
   end;OnMinute02:
OnMinute10:
OnMinute20:
OnMinute30:
OnMinute40:
OnMinute50:
OnMinute00: // 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 [email protected]$;
   if([email protected]$ != 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, "[email protected]$+". - This player tried to cheat the system. Muhahahahaha!",0;
   warp "prontera",155,182;
   end;L_PORING:
   mes "Please tell me your name";
   next;
   input [email protected]$;
   if([email protected]$ != 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, "[email protected]$+". - 150 Mithril Coins!",0;
   set @prize,674; //Change the 7227 to your reward item ID
set @amoun,150; //Change the 10 to your reward amount
dispbottom "You have Won 150 Mithril Coins";    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

bump

Link to comment
Share on other sites
Jayz Marin

Jayz

Posted
Posted

Hi.. what do u mean?? once nkakapatay ka ng Poring.. gus2 mo may makukuha kang M.Coin??

Link to comment
Share on other sites
bakuriyu2 Poring

bakuriyu2

Posted
  • Author
Posted

once po napatay ung "Correct na Poring" tapos after mo e write ung name mo sa Npc na lalabas ay makaka recieve ka nang Mithril coins..

Link to comment
Share on other sites
Jayz Marin

Jayz

Posted
Posted

Find this - dispbottom "You have Won 150 Mithril Coins"; set PORING,0;

Add below:

getitem @prize;

getitem prize;

not tested

try mo yang dalawa.. if d nag work yan.. ttest ko..

Link to comment
Share on other sites
bakuriyu2 Poring

bakuriyu2

Posted
  • Author
Posted (edited)

sus pa kiss ako sayo tol! hahaha

ito pa boss tol last.. okey lng?

yung d na kailangan e configure yan... mag coconfig pa kc para mag start ang mvp event..

//============================================================
//= 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" + [email protected]$ + "^000000";
 }
 close;
}
set [email protected],0;
set [email protected], [email protected];
set [email protected], [email protected];
set [email protected], [email protected];
set [email protected], [email protected];
set [email protected]$, [email protected]$;
while([email protected]) {
 mes "[ ^0065DFxMachina^000000 ]";
 mes "Customizing MVP Attack Event:";
 mes "> MVP Item: " + ([email protected]?"^0000ff" + [email protected]:"^ff0000<Undefined>") + "^000000 x " + (getitemname([email protected]) == "null"?"^ff0000<Item>":"^0000ff" + getitemname([email protected])) + "^000000";
 mes "> Location: " + (getstrlen([email protected]$)?"^0000ff" + [email protected]$:"^ff0000<Undefined>") + "^000000";
 mes "> Special MVP: " + ([email protected]?"^0000ff" + [email protected]:"^ff0000<None>") + "^000000";
 mes "> Normal MVP: " + ([email protected]?"^0000ff" + [email protected]:"^ff0000<None>") + "^000000";
 mes "> Status: " + (.Event?"^ff44ffActive^000000":"^ff0000Inactive^000000");
 next;
 set [email protected], getitemname([email protected])!="null" && getstrlen([email protected]$) && getstrlen([email protected]$) < 24 && [email protected] && [email protected] && [email protected];
 if (.Event) {
  set [email protected]$, "^ff0000[·] Stop Event^000000:::::[x] ^ff0000Exit^000000";
 } else {
  set [email protected]$, (.Event?":"[email protected]?"^0000ff[!] Start Event^000000:":":") + "- Set MVP Item:- Set Location:- Special MVP Count:- Normal MVP Count:[x] ^ff0000Exit^000000");
 }
 switch(select([email protected]$)) {
  case 1:
mes "[ ^0065DFxMachina^000000 ]";
mes "Are you sure you want to " + (.Event?"Stop the Event":"Start the Event") + "?";
next;
set [email protected], 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 [email protected],501,32767;
} while (getitemname([email protected]) == "null");
mes "[ ^0065DFxMachina^000000 ]";
mes "Input the Amount of ^0000ff" + getitemname([email protected]) + "^000000 to be Rewarded for Special MVP Killer.";
next;
input [email protected],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 [email protected]$;
 monster [email protected]$,0,0,".",1084,1,strnpcinfo(3)+"::OnNormalKill";
 sleep2 100;
 set [email protected], mobcount([email protected]$,strnpcinfo(3)+"::OnNormalKill");
 killmonster [email protected]$,strnpcinfo(3)+"::OnNormalKill";
} while ([email protected]<1);
break;
  case 4:
mes "[ ^0065DFxMachina^000000 ]";
mes "How many ^FF0000Special^000000 MVP would you like me to summon?";
next;
input [email protected];
break;
  case 5:
mes "[ ^0065DFxMachina^000000 ]";
mes "How many ^FF0000Normal^000000 MVP would you like me to summon?";
next;
input [email protected];
break;
  case 6:
mes "[ ^0065DFxMachina^000000 ]";
mes "See you later.";
close;
 }
}
if (!.Event) {
 set .Event,1;
 set [email protected],17;
 set [email protected],10;
 set [email protected],50;
 set [email protected],674;
 set [email protected]$,izlude;
 monster [email protected]$,0,0,"--ja--",-3,[email protected],strnpcinfo(3)+"::OnSpecialKill";
 monster [email protected]$,0,0,"--ja--",-3,[email protected],strnpcinfo(3)+"::OnNormalKill";
 announce "Map Invasion Begin : " + [email protected] + " Special MVP has invaded in " + [email protected]$ + ". Hurry Up..",bc_all,0x98FB98;
} else {
 set .Event,0;
 announce "The MVP Attack Event is now over!",0,0x98FB98;
 killmonster [email protected]$,"All";
}
mes "[ ^0065DFxMachina^000000 ]";
mes (.Event?"Starting":"Stopping") + " the event now...";
close;
OnClock0000:
OnClock0400:
OnClock0800:
OnClock1200:
OnClock1600:
OnClock2000:
if (!.Event) {
 set .Event,1;
 monster [email protected]$,0,0,"--ja--",-3,[email protected],strnpcinfo(3)+"::OnSpecialKill";
 monster [email protected]$,0,0,"--ja--",-3,[email protected],strnpcinfo(3)+"::OnNormalKill";
 announce "Map Invasion Begin : "[email protected]+" Special MVP has invaded in " + [email protected]$ + ". Hurry Up..",bc_all,0x98FB98;
}
OnSpecialKill:
set [email protected], mobcount([email protected]$,strnpcinfo(3)+"::OnSpecialKill");
if (playerattached()) {
 if ([email protected]) {
  announce [email protected]$ + ": " + strcharinfo(0) + " has killed the last Special MVP",bc_all;
 } else {
  announce [email protected]$ + ": " + strcharinfo(0) + " has killed 1 Special MVP and Gained Mystery Items - Remaining Special MVP: " + [email protected],(!rand(3)?bc_all:bc_map);
 }
 getitem [email protected],[email protected];
}
if ([email protected]) {
 set .Event,0;
 killmonster [email protected]$,"All";
 sleep 5000;
 mapannounce [email protected]$, "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([email protected]$,strnpcinfo(3)+"::OnSpecialKill")+" .";
end;
}

Edited by bakuriyu2
Link to comment
Share on other sites
Jayz Marin

Jayz

Posted
Posted

ung auto start sya u mean na hnd na c onfiguire Aalisjn ung gm panel tapos i ffix ang mga monster and amoun ?

Link to comment
Share on other sites
Jayz Marin

Jayz

Posted
Posted

kpg delete mo nyan mwwala n ng control ung mga array kung aalisin mo yan dpat meron kang llgan na mga monster at kung anong map etc kung ano ung nklgy dyan sa aalisin mo ppalitan mo sya kung baga i ffix mo sya sa rektang monster and prize nya

Link to comment
Share on other sites
Jayz Marin

Jayz

Posted
Posted

ang ibig kong sbhn .. ung script mo naba yan kpag kinausap ng Admin need mo pa customize mga monster location etc.. dba kung anong monster i ssummon at kung saan... yan ung advantage nyan... i sset mo kht anung monster

kpag i ffix mo sya.. 2lad ng snabi mo automatic..

ggwa ka ng Monster Script.. pero d 2lad nyan na mag rrandom monster sya.. kung ano lang ang monster sa gnawa mo un lang ang lalabas.. dpende nlng kpag nlgyan mo ng random array.. pero kung llgay kang random array.. limited parin sya.. kung ano lang ang monster nilgay mo un lang ang massummon...

getz?

Link to comment
Share on other sites
Jayz Marin

Jayz

Posted
Posted

sge bukas try ko gumawa ng sample.... tapos tgnan mo nlng nun....oras na kasi.. 22log nko

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
Reply to this topic...

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

×
Go to topic listing
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use and Privacy Policy.

  I accept