Jump to content

irawrsilentpls

Members
  • Posts

    20
  • Joined

  • Last visited

Profile Information

  • Gender
    Male
  • Location
    philippines

Recent Profile Visitors

1857 profile views

irawrsilentpls's Achievements

Poring

Poring (1/15)

0

Reputation

  1. Hi, Im not sure tho if i am on the right section but i think its source discussion since its regarding on whole Items Regarding and Items Color. (Please Move this Topic If i am on wrong section Thank you. ) Had anyone release this kind of Idea so far on Rathena? 7 Rarity of Weapons / Items Example. (Dota 2 Inspired) * Common * Uncommon * Rare * Mythical * Legendary * Immortal * Ancient - On the NPC you can Increase the Rarity of your Items with the requirements of some items. Example Effect of Rarity Common Knife Attack + 3 Uncommon Knife [Color Medium Blue] Attack + 5 Rare Knife [ Color Blue ] Attack + 7 Mythical Knife [ Color Purple ] Attack + 10 Legendary Knife [ Color Violet ] Attack + 15 Immortal Knife [ Color Gold ] Attack + 20 Ancient Knife [ Color Red ] Attack + 30 Effects are just Example hoping someone can support this idea tho. (Please post the link here if this Idea Exist already ) Thanks Admin's Sorry about the Topic Tittle I can't edit it anymore i forgot to put [suggestion]. Sorry again.
  2. Freaking Awesome <3 Olrox Never fail to amuse me :3 Please release it <3 Request for some RO2 MOBS too Thanks in Advance.
  3. Thanks, Sir God Damn Eit this is more related on my request script just need revised some of it
  4. Sir Euphy, why is the format of the scripts of MVP Ladder seems messed up ? hmm
  5. if you're not busy sir god dam, mind fixing it condition : when poring race starts = NPC Hide the chat will be auto close. if is it possible thanks in advance.
  6. Poring Race Script //===== Athena Script ======================================== //= Poring Race System //===== By: ================================================== //= Masao //= Original Script from Zell_ff8 & xianz //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= Any eAthena SVN //===== Description: ========================================= //= Poring Race //===== Additional Comments: ================================= //= Version 1.0 if there are any Bugs please let me know. //= Thanks to goddameit for helping me with the prize distribution. //============================================================ goodev_c02.gat,0,0,0 script PraceAnnouncer -1,{ Onclock0120: Onclock0320: Onclock0520: Onclock0720: Onclock0920: Onclock1120: Onclock1320: Onclock1520: Onclock1720: Onclock1920: Onclock2120: Onclock2320: set $accessPrace,1; initnpctimer "Race Manager#prace0"; announce "The Poring Race is now Open!",0; end; } quiz_00,14,128,6 script Poring Race Warper 909,{ set .@name$,"[Warper]"; if ($accessPrace == 0) goto L_PraceOff; mes .@name$; mes "Would you like to be warped onto the Poringrace Map??"; menu "Yes, please!",-,"No, thanks.",L_Cancel; close2; announce strcharinfo(0)+" has Participated in Event Poring Race!",0,0xEB5E66; warp "p_track01.gat",74,42; end; L_Cancel: mes .@name$; mes "Ok, bye."; close; L_PraceOff: set @Hour, gettime(3); set @Minute, gettime(2); set @PraceTime, gettime(3) + 4; if (gettime(3) == 1) set @PraceTime, @PraceTime-1; if (gettime(3) == 2) set @PraceTime, @PraceTime-2; if (gettime(3) == 3) set @PraceTime, @PraceTime-3; if (gettime(3) == 5) set @PraceTime, @PraceTime-1; if (gettime(3) == 6) set @PraceTime, @PraceTime-2; if (gettime(3) == 7) set @PraceTime, @PraceTime-3; if (gettime(3) == 9) set @PraceTime, @PraceTime-1; if (gettime(3) == 10) set @PraceTime, @PraceTime-2; if (gettime(3) == 11) set @PraceTime, @PraceTime-3; if (gettime(3) == 13) set @PraceTime, @PraceTime-1; if (gettime(3) == 14) set @PraceTime, @PraceTime-2; if (gettime(3) == 15) set @PraceTime, @PraceTime-3; if (gettime(3) == 17) set @PraceTime, @PraceTime-1; if (gettime(3) == 18) set @PraceTime, @PraceTime-2; if (gettime(3) == 19) set @PraceTime, @PraceTime-3; if (gettime(3) == 21) set @PraceTime, @PraceTime-1; if (gettime(3) == 22) set @PraceTime, @PraceTime-2; if (gettime(3) == 23) set @PraceTime, @PraceTime-3; mes .@name$; mes "The Poringrace is closed right now.."; mes "The next Race takes place on "+@PraceTime+"."; mes "And right now it is "+@Hour+":"+@Minute+"."; close; } p_track01,58,41,2 script Race Manager#prace0 765,{ set .@name$,"[Race Manager]"; set .@prace_zeny,10000; if ($prace_random < 1) callsub OnInit; if (@prace_bet == 1) goto L_AlreadyPlaying; getmapxy(.@mapname$,.@mapx1,.@mapy,1,"Poring#prace1"); getmapxy(.@mapname$,.@mapx2,.@mapy,1,"Angeling#prace2"); getmapxy(.@mapname$,.@mapx3,.@mapy,1,"Metaling#prace3"); getmapxy(.@mapname$,.@mapx4,.@mapy,1,"Deviling#prace4"); getmapxy(.@mapname$,.@mapx5,.@mapy,1,"Santa Poring#prace5"); getmapxy(.@mapname$,.@mapx6,.@mapy,1,"Poporing#prace6"); if (.@mapx1 != 58 || .@mapx2 != 58 || .@mapx3 != 58 || .@mapx4 != 58 || .@mapx5 != 58 || .@mapx6 != 58) { mes .@name$; mes "The Race alreday begun..."; close; } mes .@name$; mes "On which Poring would you like to bet??"; mes "It only costs you "+.@prace_zeny+" Zeny to make a bet."; next; menu "Poring",L_P1,"Angeling",L_P2,"Metaling",L_P3,"Deviling",L_P4,"Santa Poring",L_P5,"Poporing",L_P6,"Keines",-; mes .@name$; mes "Have a nice day."; close; L_P1: if (Zeny < .@prace_zeny) goto L_NoZeny; set Zeny,Zeny-.@prace_zeny; set @prace_winner$,"Poring"; goto L_Ready; L_P2: if (Zeny < .@prace_zeny) goto L_NoZeny; set Zeny,Zeny-.@prace_zeny; set @prace_winner$,"Angeling"; goto L_Ready; L_P3: if (Zeny < .@prace_zeny) goto L_NoZeny; set Zeny,Zeny-.@prace_zeny; set @prace_winner$,"Metaling"; goto L_Ready; L_P4: if (Zeny < .@prace_zeny) goto L_NoZeny; set Zeny,Zeny-.@prace_zeny; set @prace_winner$,"Deviling"; goto L_Ready; L_P5: if (Zeny < .@prace_zeny) goto L_NoZeny; set Zeny,Zeny-.@prace_zeny; set @prace_winner$,"Santa Poring"; goto L_Ready; L_P6: if (Zeny < .@prace_zeny) goto L_NoZeny; set Zeny,Zeny-.@prace_zeny; set @prace_winner$,"Poporing"; goto L_Ready; L_Ready: set $@prace_bets,$@prace_bets+1; set $prace_bidders[$@prace_bets],getcharid(3); set @prace_bet,1; mes .@name$; mes "I've got "+$@prace_bets+" bets so far."; npctalk "I've got "+strcharinfo(0)+"'s bet for this race!"; close; L_AlreadyPlaying: mes .@name$; mes "You've already chosen ^00bb00"+@prace_winner$+"^000000."; close; L_NoZeny: mes .@name$; mes "You do not have enough zeny."; close; OnInit: set $prace_random,70; set $prace_random2,600; set $prace_winner$,""; set $@prace_bets,0; set $prace_bidders,0; end; OnTimer60000: mapannounce "p_track01","3 minutes until the Race starts!",1,0xFFAB54; end; OnTimer120000: mapannounce "p_track01","2 minutes until the Race starts!",1,0xFFAB54; end; OnTimer180000: mapannounce "p_track01","1 minute until the Race starts!",1,0xFFAB54; end; OnTimer240000: mapannounce "p_track01","Porings, on your marks... get ready...",1,0xFFAB54; end; OnTimer241000: mapannounce "p_track01","...1...",1,0xFFAB54; end; OnTimer242000: mapannounce "p_track01","...2...",1,0xFFAB54; end; OnTimer243000: donpcevent "Race Manager#prace0::OnStartRace"; mapannounce "p_track01","...3...",1,0xFFAB54; end; OnTimer243500: mapannounce "p_track01","Goooo!!!",1,0xFFAB54; end; OnTimer303500: set $prace_winner$,""; set $@prace_bets,0; callsub ReturnRace; end; OnStartRace: donpcevent "Poring#prace1::OnRace"; donpcevent "Angeling#prace2::OnRace"; donpcevent "Metaling#prace3::OnRace"; donpcevent "Deviling#prace4::OnRace"; donpcevent "Santa Poring#prace5::OnRace"; donpcevent "Poporing#prace6::OnRace"; end; OnStopRace: donpcevent "Poring#prace1::OnStop"; donpcevent "Angeling#prace2::OnStop"; donpcevent "Metaling#prace3::OnStop"; donpcevent "Deviling#prace4::OnStop"; donpcevent "Santa Poring#prace5::OnStop"; donpcevent "Poporing#prace6::OnStop"; if ($prace_winner$ != "") callsub WinRace; end; ReturnRace: donpcevent "Poring#prace1::OnReturn"; donpcevent "Angeling#prace2::OnReturn"; donpcevent "Metaling#prace3::OnReturn"; donpcevent "Deviling#prace4::OnReturn"; donpcevent "Santa Poring#prace5::OnReturn"; donpcevent "Poporing#prace6::OnReturn"; end; WinRace: mapannounce "p_track01","And the Winner is "+$prace_winner$,1,0xFFAB54; donpcevent "Checker#prace0::OnCheck"; sleep2 10000; mapwarp "p_track01.gat","goodev_c02",102,49; set $accessPrace,0; end; } - script Checker#prace0 -1,{ OnCheck: for(set .@tmp1,1;.@tmp1<=$@prace_bets;set .@tmp1,.@tmp1+1){ if(attachrid($prace_bidders[.@tmp1])){ dispbottom "The winner is "+$prace_winner$+" and you bet on "+@prace_winner$+"."; if (@prace_winner$ == $prace_winner$) { dispbottom "You've won!"; getitem 20010,2; getitem 7227,1; emotion 21,1; } else { dispbottom "You've lost."; emotion 28,1; } set @prace_winner$,""; set @prace_bet,0; detachrid; } } deletearray $prace_bidders[1],128; set $@prace_bets,0; end; } p_track01,58,38,2 script Poring#prace1 1002,{ end; OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: npcwalkto 58,38; end; OnTimer1000: getmapxy(.@mapname$,.@mapx,.@mapy,1,"Poring#prace1"); if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy; setnpctimer rand($prace_random2); startnpctimer; if ((.@mapx-1) == 29) { set $prace_winner$,"Poring"; emotion 29; donpcevent "Race Manager#prace0::OnStopRace"; } end; } p_track01,58,36,2 script Angeling#prace2 1096,{ end; OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: npcwalkto 58,36; end; OnTimer1000: getmapxy(.@mapname$,.@mapx,.@mapy,1,"Angeling#prace2"); if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy; setnpctimer rand($prace_random2); startnpctimer; if ((.@mapx-1) == 29) { set $prace_winner$,"Angeling"; emotion 29; donpcevent "Race Manager#prace0::OnStopRace"; } end; } p_track01,58,34,2 script Metaling#prace3 1613,{ end; OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: npcwalkto 58,34; end; OnTimer1000: getmapxy(.@mapname$,.@mapx,.@mapy,1,"Metaling#prace3"); if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy; setnpctimer rand($prace_random2); startnpctimer; if ((.@mapx-1) == 29) { set $prace_winner$,"Metaling"; emotion 29; donpcevent "Race Manager#prace0::OnStopRace"; } end; } p_track01,58,32,2 script Deviling#prace4 1582,{ end; OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: npcwalkto 58,32; end; OnTimer1000: getmapxy(.@mapname$,.@mapx,.@mapy,1,"Deviling#prace4"); if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy; setnpctimer rand($prace_random2); startnpctimer; if ((.@mapx-1) == 29) { set $prace_winner$,"Deviling"; emotion 29; donpcevent "Race Manager#prace0::OnStopRace"; } end; } p_track01,58,30,2 script Santa Poring#prace5 1062,{ end; OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: npcwalkto 58,30; end; OnTimer1000: getmapxy(.@mapname$,.@mapx,.@mapy,1,"Santa Poring#prace5"); if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy; setnpctimer rand($prace_random2); startnpctimer; if ((.@mapx-1) == 29) { set $prace_winner$,"Santa Poring"; emotion 29; donpcevent "Race Manager#prace0::OnStopRace"; } end; } p_track01,58,28,2 script Poporing#prace6 1031,{ end; OnRace: initnpctimer; end; OnStop: stopnpctimer; end; OnReturn: npcwalkto 58,28; end; OnTimer1000: getmapxy(.@mapname$,.@mapx,.@mapy,1,"Poporing#prace6"); if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy; setnpctimer rand($prace_random2); startnpctimer; if ((.@mapx-1) == 29) { set $prace_winner$,"Poporing"; emotion 29; donpcevent "Race Manager#prace0::OnStopRace"; } end; } p_track01 mapflag nobranch p_track01 mapflag noicewall p_track01 mapflag nomemo p_track01 mapflag noreturn p_track01 mapflag noteleport p_track01 mapflag nowarpto p_track01 mapflag nowarp p_track01 mapflag pvp off p_track01 mapflag nosave Main Problem * Click the NPC wait for the poring race start, see whose leading. * Click Bet to the leading poring, and then you win easy. Any solution guys?
  7. Thanks, GM Ocean that would be great
  8. You guys seen the source code of the Kafra Storage, it has a password to open. thinking to copy that buttons for password bound/unbound putting a extra buttons or putting it on npc. (for some security reasons) i found some game has bind / unbind items wonder if is it possible for ro to modify it ^^
  9. Is it possible to put password on bound items example you wanted to bound / rebound it on some npc.
  10. Sir, the NPC is Unclickable which is not doing anything, not even warping or popping message, the announcement that Event has started is working but the warper after Unhide the npc is unclickable. any solution?
  11. Sorry, sir Euphy the problem was the NPC i made for warper is not warping the NPC was unclickable, seems something is missing ?
  12. I need a MVP Ladder Party Version :((

  13. MVP Arena 15 Rounds Reloaded. Blue Dot = 12 Character Respawn Red Dot = MVP Spawn Condition : * All Players " Must " be in party, a player Who leave the party will be send out. * 12/12 Players only can join the Event * There is map will be a Waiting Room 12/12, it will warp when reach the players needed. * All kinds of Revive is allowed but @storage is disable. * If players Last hit the MVP [ Extra Reward for him ] * If MAP = 0 the npc will shout [ Team < Party Name> has failed to survive the 15 rounds of Extreme MVP Event ] sleep5000 [ Extreme MVP Event is Open again ] * Each round will summon a random monster example first round [Maya , Eddga , Moonlight] 1 of this monster will spawn in the middle randomly each level are getting harder so ALL MVP BOSS can be useable each round. * After a Team finish the MVP it will cooldown for 1 hour to avoid bugs and error of simultaneous using the room. Mechanics : * Basically 12 Players Must Finish the 12 rounds to face the 3 Extreme Boss. * Every Extreme Boss will chance you to gain something nice. * When the players successfully clear the stage, their team name / Party name will be shouted. ex [ Team ABCD has Successfully Clear the 15 Extreme MVP Event ... ] ------------ Re edit this if you have more idea or may enhance this. and i hope it fits on eAthena SVN version : 676M
×
×
  • Create New...