Jump to content
  • 0

can you make this script every 55mins


Question

4 answers to this question

Recommended Posts

Posted

Here:

//===== rAthena Script =======================================
//= Poring Summoner
//===== By: ==================================================
//= Bahmut (Made it automated)
//= MoonlightRO (Original)
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= TXT & SQL
//===== Link to orginal: =====================================
//= http://www.eathena.ws/board/index.php?showtopic=236779
//============================================================

-	script	Poring Summoner	-1,{

OnInit:
	//---- NPC Config -----
	set .ItemID,1000;
	set .SpecialPorings,2;
	set .NormalPorings,2;
	//---------------------
	initnpctimer;
	end;

OnSpecialKill:
	set .SpecialPorings[1],.SpecialPorings[1]-1;
	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
	getitem .ItemID,1;
	goto PoringCount;

OnNormalKill:
	set .NormalPorings[1],.NormalPorings[1]-1;
	goto PoringCount;

PoringCount:
	announce "Special Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map;
	if(!.SpecialPorings[1]) goto EndEvent;
	end;

OnTimer216000000:
RestartEvent:
	killmonster .Map$,"All";
	set .Event,0;
	set .SpecialPorings[1],0;
	set .NormalPorings[1],0;

	removemapflag .Map$,mf_noskill;
	set $@ran, rand(1,10);
	if ($@ran == 10) set .Map$,"lighthalzen";
	if ($@ran == 9) set .Map$,"louyang";
	if ($@ran == 8) set .Map$,"comodo";
	if ($@ran == 7) set .Map$,"xmas";
	if ($@ran == 6) set .Map$,"aldebaran";
	if ($@ran == 5) set .Map$,"izlude";
	if ($@ran == 4) set .Map$,"payon";
	if ($@ran == 3) set .Map$,"geffen";
	if ($@ran == 2) set .Map$,"morocc";
	if ($@ran == 1) set .Map$,"prontera";
	setmapflag .Map$,mf_noskill;
	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 Poring: " + .SpecialPorings,bc_all;
	announce "Normal Poring: " + .NormalPorings,bc_all;

	setnpctimer 0;
	end;
}

Posted

This should work. But I haven't tested it yet so report any error.

Also I want to recommend you to learn the rA scripting language by yourself. Because you are requesting quite a lot of scripts lately.

//===== rAthena Script =======================================
//= Poring Summoner
//===== By: ==================================================
//= Bahmut (Made it automated)
//= MoonlightRO (Original)
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
//= TXT & SQL
//===== Link to orginal: =====================================
//= http://www.eathena.ws/board/index.php?showtopic=236779
//============================================================

-    script    Poring Summoner    -1,{

   OnInit:
       //---- NPC Config -----
       set .ItemID,1000;
       set .SpecialPorings,2;
       set .NormalPorings,2;
       //---------------------
       initnpctimer;
       end;

   OnSpecialKill:
       set .SpecialPorings[1],.SpecialPorings[1]-1;
       announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
       getitem .ItemID,1;
       goto PoringCount;

   OnNormalKill:
       set .NormalPorings[1],.NormalPorings[1]-1;
       goto PoringCount;

   PoringCount:
       announce "Special Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map;
       if(!.SpecialPorings[1]) goto EndEvent;
       end;

   OnTimer216000000:
   RestartEvent:
       killmonster .Map$,"All";
       set .Event,0;
       set .SpecialPorings[1],0;
       set .NormalPorings[1],0;

       set $@ran, rand(1,10);
       if ($@ran == 10) set .Map$,"lighthalzen";
       if ($@ran == 9) set .Map$,"louyang";
       if ($@ran == 8) set .Map$,"comodo";
       if ($@ran == 7) set .Map$,"xmas";
       if ($@ran == 6) set .Map$,"aldebaran";
       if ($@ran == 5) set .Map$,"izlude";
       if ($@ran == 4) set .Map$,"payon";
       if ($@ran == 3) set .Map$,"geffen";
       if ($@ran == 2) set .Map$,"morocc";
       if ($@ran == 1) set .Map$,"prontera";
       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 Poring: " + .SpecialPorings,bc_all;
       announce "Normal Poring: " + .NormalPorings,bc_all;

       setnpctimer 0;
       end;
}

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.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...