Jump to content

butasro

Members
  • Content Count

    33
  • Joined

  • Last visited

1 Follower

About butasro

  • Rank
    Advanced Member

Profile Information

  • Github
    ButasRO
  1. prontera,152,192,3 script Farm Zone 954,{ function RandomizeItem; while( 1 ){ mes "How can i help you ?"; switch( select( "Information:Farm Items" )){ case 1: mes "This is a Farm Zone."; mes "You are able to Hunt Monster inside this Room."; mes "Every Monster will award you random items."; next; mes "But there is some Condition.."; mes "You can only go in ^FF0000once every "+.RoomCleanMin+" minutes for 1 times.^000000"; mes "And Maximum of ^FF0000"+.MaxPlayers+" Players per "+.RoomCleanMin+" Minutes.^000000"; mes "Maximum Hunting Limit ^FF0000"+.MaxItemLimit+"^000000"; next; mes "There will be a ^FF0000Room Cleaning^000000 from time to time..."; mes "All players will be kicked out, it is your bad luck if you meet this."; mes "Delay will still apply even though you just go in for 1 Seconds.."; next; break; case 2: if( #HuntRoomDelay > gettimetick(2) ){ set .last,#HuntRoomDelay - gettimetick(2); set .@min, .last % ( 24 * 3600 ) % 3600 / (60); mes "Wait for ^FF0000"+.@min+" Minutes^000000."; close; }else if( getarraysize( .Hunter ) >= .MaxPlayers ){ mes "Currently the Room is Full. Please try again later."; close; }else{ warp .Map$,0,0; set .Hunter[getarraysize( .Hunter )],strcharinfo(0); set #HuntRoomDelay,gettimetick(2) + ( .DelayMin * 60 ); set #FarmHunt,0; end; } } } OnInit: // Maximum Player can join per X Minutes. set .MaxPlayers,3; // Adding X Minutes of Delay before can go in again. set .DelayMin,1; // Maximum Hunt Limit per round inside the Zone. set .MaxItemLimit,100; // Map that will be used in those Zone. set .Map$,"guild_vs5"; // Clear Map Every X Minutes. set .RoomCleanMin,15; // Mapflag Initialization //setmapflag .Map$,mf_nogo; setmapflag .Map$,mf_nomobloot; setmapflag .Map$,mf_nomvploot; setmapflag .Map$,mf_nowarpto; setmapflag .Map$,mf_nochat; setmapflag .Map$,mf_novending; setmapflag .Map$,mf_nocommand,60; setmapflag .Map$,mf_nogo; setmapflag .Map$,mf_nojobexp; setmapflag .Map$,mf_nobaseexp; while( 1 ){ killmonster .Map$,"All"; mapwarp .Map$,"prontera",154,212; monster .Map$, 0, 0,"[ Farm Zone ] Resident", 1750, 80, strnpcinfo(0)+"::OnNormalKill"; monster .Map$, 0, 0,"[ Farm Zone ] Guardian", 1565, 5, strnpcinfo(0)+"::OnBossKill"; deletearray .Hunter,getarraysize( .Hunter ); announce "[ Farm Zone ] : Farming Zone has been Cleaned up, another 5 Players may go in now.",bc_blue; sleep ( .RoomCleanMin * 60000 ); mapannounce .Map$,"[ Farm Zone ] : Room Clean Up now...All Users will be warped Out.",0; killmonster .Map$,"All"; sleep 3000; } end; OnNormalKill: RandomizeItem( 0,rand(1,3) ); monster .Map$,0,0,"--ja--",-1,1,strnpcinfo(0)+"::OnNormalKill"; end; OnBossKill: RandomizeItem( 1,rand(1,4) ); monster .Map$,0,0,"--ja--",-3,1,strnpcinfo(0)+"::OnBossKill"; end; // Function that used to Generate Random Items function RandomizeItem { set #FarmHunt,#FarmHunt + getarg(1); // Normal Monster in Zone Drops Lists if( getarg(0) == 0 ) setarray .ItemList[0],607,12016,673; // Normal Boss in Zone Drops Lists if( getarg(0) == 1 ) setarray .ItemList[0],14536,7608,607,673; for( set .@i,1; .@i <= getarg(1); set .@i,.@i + 1 ){ getitem .ItemList[ rand( getarraysize( .ItemList ) ) ],1; } deletearray .ItemList,getarraysize( .ItemList ); dispbottom "[ Farm Zone ] : Farmed "+#FarmHunt+" / "+.MaxItemLimit+" Items"; if( #FarmHunt >= .MaxItemLimit ){ message strcharinfo(0),"Limit Reach , you may join again later."; sleep2 2000; warp "prontera",154,212; } return; } }
  2. can you upload the working script? any one? thanks
  3. tutorial to add this JOB in our server please? ^^
  4. Probably he means, delete all entries of specific character However I feel, this kind of thing should be atcommand but rather be scriptcommand for safety reasons. Like deleting the whole character for example : @charwipe dastgir, then all entries in dbase would be deleted? something like that? sorry i mean, rivert back the character to lvl 1 all stats and skill will be gone, and stats point, it will rivert as new character, something like that Hmm, give us the whole info Only the Characters? How about Inventory Items? Storage Items? Cart Items? it will wipe or stay the same? just the skillpoint statpoint joblevel baselevel of specific character, , example : @charwipe butasro then your char will become novice and blvl & jlvl will turn into 1 right? Edit : give me 10mins to make the script Thanks Master ^^
  5. Probably he means, delete all entries of specific character However I feel, this kind of thing should be atcommand but rather be scriptcommand for safety reasons. Like deleting the whole character for example : @charwipe dastgir, then all entries in dbase would be deleted? something like that? sorry i mean, rivert back the character to lvl 1 all stats and skill will be gone, and stats point, it will rivert as new character, something like that Hmm, give us the whole info Only the Characters? How about Inventory Items? Storage Items? Cart Items? it will wipe or stay the same? just the skillpoint statpoint joblevel baselevel of specific character, ,
  6. Probably he means, delete all entries of specific character However I feel, this kind of thing should be atcommand but rather be scriptcommand for safety reasons. Like deleting the whole character for example : @charwipe dastgir, then all entries in dbase would be deleted? something like that? sorry i mean, rivert back the character to lvl 1 all stats and skill will be gone, and stats point, it will rivert as new character, something like that
  7. how do i add @charwipe command, thanks
  8. any one can convert this or tried this here in herc? //===== eAthena Script ======================================= //= Royal Rumble Event //===== By: ================================================== //= Masao //===== Current Version: ===================================== //= 2.0 //===== Compatible With: ===================================== //= Any Athena Version //===== Description: ========================================= //= Starts an little PvP Event when a total of 10 Players //= have Signed Up. After that every 30 seconds //= a new Player will be warped onto the PvP Map until //= all 10 Players have been warped. //===== Additional Comments: ================================= //= Version 1.0 [Masao] //= Verison 1.1 added GM Control Panel & Autostart [Masao] //= Version 2.0 complete re-script [Masao] //============================================================ prontera,182,207,4 script Royal Rumble 946,{ set .@n$,"[Royal Rumble]"; if (getgmlevel() >= 40) goto L_GMCP; mes .@n$; mes "Hello "+strcharinfo(0)+","; mes "I'm the Royal Rumble NPC, you can Sign Up here for the Royal Rumble Event!"; mes ""; mes "So, would you like to Sign Up?"; next; menu "Yes, please!",-,"Royal Rumble?!",L_R,"No, thanks.",L_E; if(.rrp == 10) { mes .@n$; mes "I'm sorry but the Event already begun!"; close; } set .@myaid, getcharid(3); for ( set .@i, 1; .@i <= .rrp; set .@i, .@i +1 ) if ( .rra[.@i] == .@myaid ) break; if ( .@i > .rrp ) { set .rrp,.rrp+1; set .rra[.rrp],getcharid(3); } set @rre,1; set @rre2,1; if(.rrp < 10) { mes .@n$; mes "Allright, you have been signed up. As soon as the Event begins you'll see an Broadcast."; close; } mes .@n$; mes "Allright, you have been signed up. The Event begins now!"; close2; initnpctimer; disablenpc "Royal Rumble"; announce "The Royal Rumble Event begins now! The first 2 players will now be warped into the Royal Rumble Arena!",bc_all; end; L_R: mes .@n$; mes "The Rules are very easy!"; mes "Just Sign Up to the Game and then wait until a total of 10 Players have Signed Up, as soon as this happens the Game will start."; mes "When the Event starts 2 Players will be warped onto an PvP Map, then they fight each other, the loser get warped out and the Winner stays."; mes "And after the first 2 Players have been warped in, every 30 Seconds a new Player will be warped onto the Map."; mes "As soon as the last player is killed on the Map the Game will end and the last survivor is the Winner!"; mes "And that's all, have Fun and good Luck!"; close; L_E: mes .@n$; mes "Ok, bye."; close; L_GMCP: mes .@n$; mes "Hello "+strcharinfo(0)+","; mes "what can i do for you?"; switch(select("Start Event!:End Event.:Set Prize:Cancel")) { case 1: next; mes .@n$; mes "Allright, the Event starts now!"; close2; enablenpc "Royal Rumble"; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; detachrid; } } } set .rrp,0; deletearray .rra[0],128; mapwarp "guild_vs3","prontera",155,185; announce "The Royal Rumble Event is Open now!",bc_all; end; case 2: next; mes .@n$; mes "Allright, the Event ends now!"; close2; disablenpc "Royal Rumble"; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; detachrid; } } } set .rrp,0; deletearray .rra[0],128; mapwarp "guild_vs3","prontera",155,185; announce "The Royal Rumble Event has been ended by an GM!",bc_all; end; case 3: next; mes .@n$; mes "The current Prize is "+getitemname($rr_id)+", would you like to change it?"; switch(select("No:Yes")) { case 1: next; mes .@n$; mes "Ok, bye."; close; case 2: next; mes .@n$; mes "Ok, then please insert now the new Item ID"; input $rr_id; next; mes .@n$; mes "And now the Amount please."; input $rr_amount; next; mes .@n$; mes "Allright, so the Prize now is ^008000"+$rr_amount+" "+getitemname($rr_id)+"^000000"; close; } case 4: next; mes .@n$; mes "Ok, bye"; close; } OnPCDieEvent: getmapxy .@m$,.@x,.@y,0; if(.@m$ == "guild_vs3") { for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; warp "prontera",155,185; } detachrid; } } set .rrp,.rrp-1; } end; OnPCLogoutEvent: getmapxy .@m$,.@x,.@y,0; if(.@m$ == "guild_vs3") { for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; save "prontera",155,185; } detachrid; } } set .rrp,.rrp-1; } end; OnPCKillEvent: getmapxy .@m$,.@x,.@y,0; if(.@m$ == "guild_vs3") { if(.rrp <= 1) { for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { dispbottom "Congratulations "+strcharinfo(0)+"!"; dispbottom "You won the Royal Rumble Event!"; dispbottom "Here is your Prize, and see you next time!"; getitem $rr_id,$rr_amount; set @rre,0; warp "prontera",155,185; } detachrid; announce strcharinfo(0)+" won this Game of Royal Rumble! Congratulations!",bc_all; } } deletearray .rra[0],128; } } end; OnTimer1000: for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre2 == 1) { set @rre2,0; warpchar "guild_vs3",0,0,.rra[.@i]; } end; } } end; OnTimer1100: for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre2 == 1) { set @ree2,0; warpchar "guild_vs3",0,0,.rra[.@i]; } end; } } end; OnTimer30000: OnTimer60000: OnTimer90000: OnTimer120000: OnTimer150000: OnTimer180000: OnTimer210000: OnTimer240000: OnTimer270000: OnTimer300000: for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre2 == 1) { set @rre2,0; warpchar "guild_vs3",0,0,.rra[.@i]; } end; } } end; OnClock0108: OnClock0808: OnClock1208: OnClock1608: OnClock2008: OnClock0008: enablenpc "Royal Rumble"; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; } detachrid; } } set .rrp,0; deletearray .rra[0],128; mapwarp "guild_vs3","prontera",155,185; announce "The Royal Rumble Event starts now! You have 3 Minutes to Sign Up!",bc_all; end; OnClock0403: OnClock0803: OnClock1203: OnClock1603: OnClock2003: OnClock0003: if(.rrp < 10) { disablenpc "Royal Rumble"; announce "The Royal Rumble Event is closed now! Since there were not 10 Players the Event will not take place.",bc_all; for(set .@i,1;.@i<=.rrp;set .@i,.@i+1) { if(attachrid(.rra[.@i])){ if (@rre == 1) { set @rre,0; set @rre2,0; } detachrid; } } set .rrp,0; deletearray .rra[0],128; } end; OnInit: disablenpc "Royal Rumble"; end; } //============== Mapflags ==================== //guild_vs3 mapflag nogo guild_vs3 mapflag pvp_noguild guild_vs3 mapflag pvp_noparty guild_vs3 mapflag nobranch guild_vs3 mapflag nomemo guild_vs3 mapflag nopenalty guild_vs3 mapflag noreturn guild_vs3 mapflag noteleport guild_vs3 mapflag nowarp guild_vs3 mapflag nowarpto guild_vs3 mapflag noicewall
  9. Thanks it worked ^^ woo! Thanks it worked ^^ woo!
  10. where to put mp3 files? in my BGM folder?
  11. unknown command T_T - script BGMCOMMAND FAKE_NPC,{ OnInit: bidnatcmd "bgm", strnpcinfo(0) + "::OnStartBGM", 99, 99; setarray .musicName$[0], "1", "2", "3"; //add yours end; OnStartBGM: if(.@atcmd_parameters$[0] == "") { message strcharinfo(0), "BGM failed: invalid music name"; end; } freeloop(1); for(.i = 0; .i < getarraysize(.musicName$); .i++) { if(.@atcmd_parameters$[0] == .musicName$[.i]){ playbgmall .@atcmd_parameters$[0]; message strcharinfo(0), "BGM: Played - " + .@atcmd_parameters$[0]; end; } } freeloop(0); message strcharinfo(0), "BGM failed: invalid music name"; end; }
×
×
  • Create New...

Important Information

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