Jump to content
  • 0

how to set this script?

NeoGenesis

Asked by NeoGenesis,

 Share

Question

NeoGenesis Poring

NeoGenesis

Posted
  • Group:  Members
  • Topic Count:  40
  • Topics Per Day:  0.01
  • Content Count:  120
  • Reputation:   0
  • Joined:  01/03/12
  • Last Seen:  
Posted

me wan set this but donno at where can any 1 help me?

prize = platinium coin[677]

location = izlude

special poring = 50

normal poring = 200

how to set that ?

//Made by Light from MoonlightRO
welgaia,179,228,4 script Poring Summoner 99,{
mes "[Poring Summoner]";
if(getgmlevel() < 99) {
	if(.Event) mes "There is no Poring Summon Event on now.";
	else {
		mes "There is a Poring Summon Event on now!";
		mes "Location: " + .Map$;
		mes "Special Porings: " + .SpecialPorings[1];
		mes "Normal Porings: " + .NormalPorings[0];
	}
	close;
}
mes "Please customize the Poring Summon Event:";
Main:
next;
mes "[Poring Summoner]";
switch(select("Item [" + getitemname(677) + "]:Location [" + .Map$ + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {
case 1:
	mes "Which item would you like Special Porings to drop?";
	mes "Please input the item ID:";
	input 677;
	goto Main;
case 2:
	mes "Which map would you like me to host this event?";
	input .Map$;
	goto Main;
case 3:
	mes "How many Special Porings would you like me to summon?";
	input .SpecialPorings;
	goto Main;
case 4:
	mes "How many Normal Porings would you like me to summon?";
	input .NormalPorings;
	goto Main;
case 5:
	mes "Starting the event now...";
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
OnClock0000:
	set .Event,1;
	monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";
	monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill";
	set .SpecialPorings[1],.SpecialPorings;
	set .NormalPorings[1],.NormalPorings;
	announce "The Poring Event has begun!",bc_all;
	announce "Location: " + .Map$,bc_all;
	announce "Special Porings: " + .SpecialPorings,bc_all;
	announce "Normal Porings: " + .NormalPorings,bc_all;
	close;
case 6:
	mes "Ending the event now...";
OnClock0300:
OnClock0500:
OnClock0700:
OnClock0900:
OnClock1100:
OnClock1300:
OnClock1500:
OnClock1700:
OnClock1900:
OnClock2100:
OnClock2300:
OnClock0100:
	goto EndEvent;
}
OnSpecialKill:
set .SpecialPorings[1],.SpecialPorings[1]-1;
announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
getitem 677,10;
goto PoringCount;
OnNormalKill:
set .NormalPorings[1],.NormalPorings[1]-1;
goto PoringCount;
PoringCount:
announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
if(!.SpecialPorings[1]) goto EndEvent;
end;
EndEvent:
if(.Event) announce "The Poring Summon Event is now over!",bc_all;
killmonster .Map$,"All";
set .Event,0;
set .SpecialPorings[1],0;
set .NormalPorings[1],0;
close;
}

specialporing.txt

Link to comment
Share on other sites

8 answers to this question

Recommended Posts

Gerome Poring

Gerome

Posted
  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  185
  • Reputation:   26
  • Joined:  12/07/11
  • Last Seen:  
Posted

By talking to the npc.. You can Set the location and Prize of the Event.

i think you Edit the Script.. if you want to have different Prize for Special Porings and Normals you can add new user Input for the Item Id and Quantity prize for Normal porings and Special Porings..

Link to comment
Share on other sites
NeoGenesis Poring

NeoGenesis

Posted
  • Group:  Members
  • Topic Count:  40
  • Topics Per Day:  0.01
  • Content Count:  120
  • Reputation:   0
  • Joined:  01/03/12
  • Last Seen:  
  • Author
Posted

can u create to me? me donno wan edit that script..

Link to comment
Share on other sites
Gerome Poring

Gerome

Posted
  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  185
  • Reputation:   26
  • Joined:  12/07/11
  • Last Seen:  
Posted 

// Made by Light from MoonlightRO
// Revised by Gerome
//    - can set Individual Prize for Special Poring and Normal poring
//===================================================================

izlude,120,162,6    script    Poring Summoner    99,{
       set .npcname$, "[Poring Summoner]";

       mes.npcname$;
       if(getgmlevel() < 99) {
       if(.Event) mes "There is no Poring Summon Event on now.";
       else {
         mes "There is a Poring Summon Event on now!";
         mes "Location: " + .Map$;
         mes "Special Porings: " + .SpecialPorings[1];
         mes "Normal Porings: " + .NormalPorings[0];
       }
       close;
       }
       mes "Please customize the Poring Summon Event:";
Main:
   next;
   mes.npcname$;
   mes "--- information ---";
   mes "^000099Special Poring^000000 prize is " + $SpclPoringPrizeQ  + " " + getitemname($SpclPoringPrize);
   mes "And i can Summon " + $SpecialPorings + " of them in " + $map$ + ".";
   mes "^990000Normal Poring^000000 Prize is " + $NrmlPoringPrizeQ  + " " + getitemname($NrmlPoringPrize);
   mes "And i can Summon " + $NormalPorings + " of them in " + $map$ + ".";
   mes "---------------------------";
   switch( select("Special Poring Prize("+$SpclPoringPrizeQ+" -  "+getitemname($SpclPoringPrize)+"):Normal Poring Prize("+$NrmlPoringPrizeQ+" - "+getitemname($NrmlPoringPrize)+"):Location(" +$map$+ "):Special Porings NO. to Summon[" + $SpecialPorings + "]:Normal Porings NO. to Summon[" + $NormalPorings + "]:Start Event:End Event") ) {
       case 1:
           next;
           mes.npcname$;
           mes "Which item would you like Special Porings to drop?";
           mes "Please input the item ID:";
           input $SpclPoringPrize;
           next;
           mes .npcname$;
           mes "How many " + getitemname($SpclPoringPrize) + " ?";
           input $SpclPoringPrizeQ;
           goto Main;
           break;
       case 2:
           next;
           mes.npcname$;
           mes "Which item would you like Normal Porings to drop?";
           mes "Please input the item ID:";
           input $NrmlPoringPrize;
           next;
           mes .npcname$;
           mes "How many " + getitemname($NrmlPoringPrize) + " ?";
           input $NrmlPoringPrizeQ;
           goto Main;
           break;
       case 3:
           next;
           mes.npcname$;
           mes "Which map would you like me to host this event?";
           input $map$;
           goto Main;
           break;
       case 4:
           next;
           mes.npcname$;
           mes "How many Special Porings would you like me to summon?";
           input $SpecialPorings;
           goto Main;
           break;
       case 5:
           next;
           mes.npcname$;
           mes "How many Normal Porings would you like me to summon?";
           input $NormalPorings;
           goto Main;
           break;
       case 6:
           goto STARTEVENT;
           break;
       case 7:
           goto ENDINGEVENT;
           break;
       default:
       close;
       break;
   }




STARTEVENT:
  mes "Starting the event now...";
   OnClock0200:
   OnClock0400:
   OnClock0600:
   OnClock0800:
   OnClock1000:
   OnClock1200:
   OnClock1400:
   OnClock1600:
   OnClock1800:
   OnClock2000:
   OnClock2200:
   OnClock0000:
  set .Event,1;
  monster $map$,0,0,"Poring",1002,$SpecialPorings,"Poring Summoner::OnSpecialKill";
  monster $map$,0,0,"Poring",1002,$NormalPorings,"Poring Summoner::OnNormalKill";
  set .SpecialPorings[1],$SpecialPorings;
  set .NormalPorings[1],$NormalPorings;
  announce "The Poring Event has begun!",bc_all;
  sleep2 3000;
  announce "Location: " + $map$ + " Special Porings: " + $SpecialPorings + " Normal Porings: " + $NormalPorings,bc_all;
  close;
  end;
ENDINGEVENT:
   mes "Ending the event now...";
   OnClock0300:
   OnClock0500:
   OnClock0700:
   OnClock0900:
   OnClock1100:
   OnClock1300:
   OnClock1500:
   OnClock1700:
   OnClock1900:
   OnClock2100:
   OnClock2300:
   OnClock0100:
   goto EndEvent;

OnSpecialKill:
   set .SpecialPorings[1],.SpecialPorings[1]-1;
   announce strcharinfo(0) + " got a " + getitemname($SpclPoringPrize) + "!",bc_map;
   sleep2 3000;
   getitem $SpclPoringPrize,$SpclPoringPrizeQ;
   goto PoringCount;
   end;

OnNormalKill:
   set .NormalPorings[1],.NormalPorings[1]-1;
   announce strcharinfo(0) + " got a " + getitemname($NrmlPoringPrize) + "!",bc_map;
   sleep2 3000;
   getitem $NrmlPoringPrize,$NrmlPoringPrizeQ;
   goto PoringCount;
   end;
PoringCount:
   announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
   if(!.SpecialPorings[1]) goto EndEvent;
   end;

EndEvent:
   if(.Event) announce "The Poring Summon Event is now over!",bc_all;
   killmonster $map$,"All";
   set .Event,0;
   set .SpecialPorings[1],0;
   set .NormalPorings[1],0;
   close;

}

Tell me if theres Some bugz..

Link to comment
Share on other sites
WhatFT Poring

WhatFT

Posted
  • Group:  Members
  • Topic Count:  142
  • Topics Per Day:  0.03
  • Content Count:  511
  • Reputation:   7
  • Joined:  02/15/12
  • Last Seen:  
Posted

@Gerome

Bugs are the announcer, when player gets a coin.. it says NULL not the item, but they got the item in their inventories

Link to comment
Share on other sites
NeoGenesis Poring

NeoGenesis

Posted
  • Group:  Members
  • Topic Count:  40
  • Topics Per Day:  0.01
  • Content Count:  120
  • Reputation:   0
  • Joined:  01/03/12
  • Last Seen:  
  • Author
Posted

yea have bug at annoucer n not auto set ..

me wan auto set respawn .. like this ..

prize = platnium coin(677=10)

location = izlude

special poring = 50

normal poring = 200

how to set it ? can help me?

Link to comment
Share on other sites
Lelouch vi Britannia Drops

Lelouch vi Britannia

Posted
  • Group:  Members
  • Topic Count:  45
  • Topics Per Day:  0.01
  • Content Count:  715
  • Reputation:   83
  • Joined:  01/05/12
  • Last Seen:  
Posted (edited)

Please don't do double post .Same topic Here

Edited by Lelouch
Link to comment
Share on other sites
Gerome Poring

Gerome

Posted
  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  185
  • Reputation:   26
  • Joined:  12/07/11
  • Last Seen:  
Posted

Make sure to set the prize first.. by talking to the NPC..just follow what the npc said.. :)

Event Start Every 30 Minutes..

// Made by Light from MoonlightRO
// Revised by Gerome
//        1.1    - can set Individual Prize for Special Poring and Normal poring by Talking to hte npc
//        1.2    - Event Starts Every 30 minutes
//                 - Event can not be Start if the event is Currently started
//===================================================================

izlude,120,162,6    script    Poring Summoner    99,{
    set .npcname$, "[Poring Summoner]";

    mes.npcname$;
    if(getgmlevel() < 99 || getgroupid() <99 ) {
    if(.Event) mes "There is no Poring Summon Event on now.";
    else {
	  mes "There is a Poring Summon Event on now!";
	  mes "Location: " + .Map$;
	  mes "Special Porings: " + .SpecialPorings[1];
	  mes "Normal Porings: " + .NormalPorings[0];
    }
    close;
    }
    mes "Please customize the Poring Summon Event:";
Main:
   next;
   mes.npcname$;
   mes "--- information ---";
   mes "^000099Special Poring^000000 prize is " + $SpclPoringPrizeQ  + " " + getitemname($SpclPoringPrize);
   mes "And i can Summon " + $SpecialPorings + " of them in " + $map$ + ".";
   mes "^990000Normal Poring^000000 Prize is " + $NrmlPoringPrizeQ  + " " + getitemname($NrmlPoringPrize);
   mes "And i can Summon " + $NormalPorings + " of them in " + $map$ + ".";
   mes "---------------------------";
   switch( select("Special Poring Prize("+$SpclPoringPrizeQ+" -  "+getitemname($SpclPoringPrize)+"):Normal Poring Prize("+$NrmlPoringPrizeQ+" - "+getitemname($NrmlPoringPrize)+"):Location(" +$map$+ "):Special Porings NO. to Summon[" + $SpecialPorings + "]:Normal Porings NO. to Summon[" + $NormalPorings + "]:Start Event:End Event") ) {
    case 1:
	    next;
	    mes.npcname$;
	    mes "Which item would you like Special Porings to drop?";
	    mes "Please input the item ID:";
	    input $SpclPoringPrize;
	    next;
	    mes .npcname$;
	    mes "How many " + getitemname($SpclPoringPrize) + " ?";
	    input $SpclPoringPrizeQ;
	    goto Main;
	    break;
    case 2:
	    next;
	    mes.npcname$;
	    mes "Which item would you like Normal Porings to drop?";
	    mes "Please input the item ID:";
	    input $NrmlPoringPrize;
	    next;
	    mes .npcname$;
	    mes "How many " + getitemname($NrmlPoringPrize) + " ?";
	    input $NrmlPoringPrizeQ;
	    goto Main;
	    break;
    case 3:
	    next;
	    mes.npcname$;
	    mes "Which map would you like me to host this event?";
	    input $map$;
	    goto Main;
	    break;
    case 4:
	    next;
	    mes.npcname$;
	    mes "How many Special Porings would you like me to summon?";
	    input $SpecialPorings;
	    goto Main;
	    break;
    case 5:
	    next;
	    mes.npcname$;
	    mes "How many Normal Porings would you like me to summon?";
	    input $NormalPorings;
	    goto Main;
	    break;
    case 6:
           next;
           mes .npcname$;
           if(.Event){ mes "the Event is Currently Started"; close; }
           mes "Starting the event now...";
           close2;
	    goto STARTEVENT;
	    break;
    case 7:
	    goto ENDINGEVENT;
	    break;
    default:
    close;
    break;
   }

// Starts Every 30 Minutes
OnMinute30:
   goto STARTEVENT;
   end;

STARTEVENT:
   OnClock0200:
   OnClock0400:
   OnClock0600:
   OnClock0800:
   OnClock1000:
   OnClock1200:
   OnClock1400:
   OnClock1600:
   OnClock1800:
   OnClock2000:
   OnClock2200:
   OnClock0000:
  set .Event,1;
  monster $map$,0,0,"Poring",1002,$SpecialPorings,"Poring Summoner::OnSpecialKill";
  monster $map$,0,0,"Poring",1002,$NormalPorings,"Poring Summoner::OnNormalKill";
  set .SpecialPorings[1],$SpecialPorings;
  set .NormalPorings[1],$NormalPorings;
  announce "The Poring Event has begun!",bc_all;
  sleep2 4000;
  announce "Location: " + $map$ + " Special Porings: " + $SpecialPorings + " Normal Porings: " + $NormalPorings,bc_all;
  end;
ENDINGEVENT:
   mes "Ending the event now...";
   OnClock0300:
   OnClock0500:
   OnClock0700:
   OnClock0900:
   OnClock1100:
   OnClock1300:
   OnClock1500:
   OnClock1700:
   OnClock1900:
   OnClock2100:
   OnClock2300:
   OnClock0100:
   goto EndEvent;

OnSpecialKill:
   set .SpecialPorings[1],.SpecialPorings[1]-1;
   announce strcharinfo(0) + " got a " + getitemname($SpclPoringPrize) + "!",bc_map;
   sleep2 3000;
   getitem $SpclPoringPrize,$SpclPoringPrizeQ;
   goto PoringCount;
   end;

OnNormalKill:
   set .NormalPorings[1],.NormalPorings[1]-1;
   announce strcharinfo(0) + " got a " + getitemname($NrmlPoringPrize) + "!",bc_map;
   sleep2 3000;
   getitem $NrmlPoringPrize,$NrmlPoringPrizeQ;
   goto PoringCount;
   end;
PoringCount:
   announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
   if(!.SpecialPorings[1]) goto EndEvent;
   end;

EndEvent:
   if(.Event) announce "The Poring Summon Event is now over!",bc_all;
   killmonster $map$,"All";
   set .Event,0;
   set .SpecialPorings[1],0;
   set .NormalPorings[1],0;
   close;

}

Link to comment
Share on other sites
NeoGenesis Poring

NeoGenesis

Posted
  • Group:  Members
  • Topic Count:  40
  • Topics Per Day:  0.01
  • Content Count:  120
  • Reputation:   0
  • Joined:  01/03/12
  • Last Seen:  
  • Author
Posted

sry Lelouch .. me me will be delete 1 post at here .. im very2 sory about that .. gerome cant set auto ? if reloadscript or restart server that prize n monster respawn gone .. how to fix that ?

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