Leaderboard

Euphy's Scripts Disclaimer You may use, modify, and host all of my released scripts. You may not sell them, re-release them in any way (modified or otherwise), or remove the credits. < Event Manager > < Hunting Missions > < Queue System > < Euphy's WOE Controller > < All-In-One NPC > < Euphy's Quest Shop > < Euphy's Warper > < Item Rewards > < Custom Currency Multi-Shop > < Build Manager + > < Class Mastery System > < Class Specialization > < Badge System > < Guarantee Refine Ticket > < Item Fusion > < Euphy's MVP Ladder > < Card Trader > < NPC Duplicate Generator > < Auto-Potion >

Hi everyone, i'm here to tell you that Green Peach is BACK ! OoooohYeaaaah Link : http://www.green-peach.net/ At the moment, there are not all that I created from the beginning because I put everything in order before sharing. Trickster Online mobs are very neat but I still have to manage some data. The novelty is the Pokemon Sprite section ! In short, the website will fill in with my old and new creations. See ya! Name : Bulbizarre Game : Pokemon File Size: 529 KB Author: ToZorMan Download : Mob - Bulbizarre [ToZorMan].zip Link : www.green-peach.net ----------------------------------------------------------------- Name : Herbizarre Game : Pokemon File Size: 536 KB Author: ToZorMan Download : Mob - Herbizarre [ToZorMan].zip Link : www.green-peach.net ----------------------------------------------------------------- Name : Addax Game : Trickster Online File Size: 668 KB Author: ToZorMan Download : Mob - Addax [ToZorMan].zip Link : www.green-peach.net

//===== eAthena Script ======================================= //= eAthena Jobchanger AKA Job Master //===== By: ================================================== //= eAthena Dev Team [Ori:LunatikBunnie] [Cur:Lance] //===== Current Version: ===================================== //= 1.5a //===== Compatible With: ===================================== //= eAthena SVN Trunk 6674 //===== Description: ========================================= //= Changes your job without asking too much //= For other info, please contact me at [email protected] //= Editted menu to avoid button mashing. //= 1.3 Added TK/SL/SG, thanks to Haplo. Fixed minor bugs [Lupus] //= script leaves grabage variable: 'lastJob' //= 1.4 Added NJ/GS, changed all job numbers to Job_* constants. //= All credits go to pxxx [Skotlex] //= 1.5 Rewrite everything from scratch. [Lance] //= 1.5a fixed Baby -> Super Baby change. Switched to JobName() [Lupus] //============================================================ prontera,153,193,6 script Job Master 123,{ mes "^ff0000[Job Master]^000000"; if(Upper == 1 && Class >= Job_Lord_Knight) goto L_noReq; if(SkillPoint != 0){ mes "I'm sorry, please use up all your skill points before changing jobs"; mes "Please come again soon!"; close; } if(JobLevel < 10) goto L_LvError; switch(Class){ case Job_Novice_High: case Job_Baby: case Job_Novice: skill 142,1,0; skill 143,1,0; mes "Welcome, please select the job you wish to change into"; if(lastJob != 0 && Class == Job_Novice_High){ switch(lastJob){ case Job_Knight: case Job_Crusader: set @target_job, Job_Swordman_High; break; case Job_Monk: case Job_Priest: set @target_job, Job_Acolyte_High; break; case Job_Alchemist: case Job_Blacksmith: set @target_job, Job_Merchant_High; break; case Job_Rogue: case Job_Assassin: set @target_job, Job_Thief_High; break; case Job_Wizard: case Job_Sage: set @target_job, Job_Mage_High; break; case Job_Hunter: case Job_Bard: case Job_Dancer: set @target_job, Job_Archer_High; break; } } else { switch(select("Swordsman","Mage","Archer","Acolyte","Merchant","Thief", "Super Novice","Taekwon","Gunslinger","Ninja")){ case 7: if(Class == Job_Novice_High) goto L_noReq; if($@JC_SupNovM > BaseLevel) goto L_BvError; if(Upper == 2) set @target_job, Job_Super_Baby; else set @target_job, Job_SuperNovice; break; case 8: if(Class == Job_Novice_High) goto L_noReq; if(Upper == 2) goto L_noReq; set @target_job, Job_Taekwon; break; case 9: case 10: if(Class == Job_Novice_High || Upper == 2) goto L_noReq; set @target_job, @menu + 15; break; default: set @target_job, @menu; if(Class == Job_Novice_High) set @target_job, @target_job + 4001; break; } } mes "Are you sure you want to change to " + JobName(@target_job) + "?"; if(select("No","Yes") == 2){ callfunc "Job_Change", @target_job; if(@target_job == Job_Gunslinger || @target_job == Job_Ninja || @target_job == Job_Taekwon) { callfunc "F_ClearJobVar"; } else { if($@JC_Plat) goto L_GivePlat; } } close; break; default: if(JobLevel < $@JC_MinimumJB) goto L_LvError; deletearray @job_opt, getarraysize(@job_opt); if(Class < Job_Knight || Class == Job_Taekwon || (Class > Job_Baby && Class < Job_Baby_Knight) || (Class > Job_Novice_High && Class < Job_Lord_Knight)){ if(lastJob != 0){ set @target_job, lastJob + 4001; } else { switch(Class){ case Job_Swordman_High: case Job_Baby_Swordman: case Job_Swordman: set @job_opt[0], Job_Knight; set @job_opt[1], Job_Crusader; break; case Job_Mage_High: case Job_Baby_Mage: case Job_Mage: set @job_opt[0], Job_Wizard; set @job_opt[1], Job_Sage; break; case Job_Archer_High: case Job_Baby_Archer: case Job_Archer: set @job_opt[0], Job_Hunter; if(Sex == 0) set @job_opt[1], Job_Dancer; else set @job_opt[1], Job_Bard; break; case Job_Acolyte_High: case Job_Baby_Acolyte: case Job_Acolyte: set @job_opt[0], Job_Priest; set @job_opt[1], Job_Monk; break; case Job_Merchant_High: case Job_Baby_Merchant: case Job_Merchant: set @job_opt[0], Job_Blacksmith; set @job_opt[1], Job_Alchemist; break; case Job_Thief_High: case Job_Baby_Thief: case Job_Thief: set @job_opt[0], Job_Assassin; set @job_opt[1], Job_Rogue; break; default: set @job_opt[0], Job_Star_Gladiator; set @job_opt[1], Job_Soul_Linker; break; } mes "Welcome, please select the job you wish to change into"; set @target_job, @job_opt[select(JobName(@job_opt[0]), JobName(@job_opt[1]))-1]; if(Class > Job_Novice_High && Class < Job_Lord_Knight) set @target_job, @target_job + 4001; } mes "Are you sure you want to change to " + JobName(@target_job) + "?"; if(select("No","Yes")==2){ callfunc "Job_Change", @target_job; if(@target_job == Job_Star_Gladiator || @target_job == Job_Soul_Linker) { callfunc "F_ClearJobVar"; } else { if($@JC_Plat) goto L_GivePlat; } } close; } if(checkfalcon() || checkcart() || checkriding()) goto L_remove; if((Class >=Job_Knight) && (Class <=Job_Crusader2)){ mes "Do you want to reborn?"; if(select("Yes","No")==1){ if(BaseLevel < 99 || JobLevel < 50) goto L_cantCh; set lastJob, Class; if(Class == Job_Knight2){ set lastJob, Job_Knight; } else { if(Class == Job_Crusader2){ set lastJob, Job_Crusader; } } jobchange Job_Novice_High; resetlvl(1); skill 142,1,0; skill 143,1,0; } close; } } mes "I'm sorry, there are no further classes for your job."; close; L_GivePlat: if (BaseClass==Job_SuperNovice) goto L_sSuperN; if (BaseClass==Job_Swordman) goto L_sSword; if (BaseClass==Job_Mage) goto L_sMage; if (BaseClass==Job_Archer) goto L_sArcher; if (BaseClass==Job_Acolyte) goto L_sAcolyte; if (BaseClass==Job_Merchant) goto L_sMerchant; if (BaseClass==Job_Thief) goto L_sThief; close; L_sSuperN: skill 142,1,0; close; L_sSword: skill 142,1,0; skill 144,1,0; skill 145,1,0; skill 146,1,0; close; L_sMage: skill 142,1,0; skill 157,1,0; close; L_sArcher: skill 142,1,0; skill 147,1,0; skill 148,1,0; close; L_sAcolyte: skill 142,1,0; skill 156,1,0; close; L_sMerchant: skill 142,1,0; skill 153,1,0; skill 154,1,0; skill 155,1,0; close; L_sThief: skill 142,1,0; skill 149,1,0; skill 150,1,0; skill 151,1,0; skill 152,1,0; close; L_cantCh: mes "I'm sorry, you do not meet the requirements to change"; mes "Please come again soon!"; close; L_LvError: mes "I'm sorry, you do not seem to have enough Job Levels"; mes "Please come again soon!"; close; L_BvError: mes "I'm sorry, you do not seem to have enough Base Levels"; mes "Please come again soon!"; close; L_noReq: mes "I'm sorry, you do not meet the requirements to change"; mes "Please come again soon!"; close; L_remove: mes "Please remove your cart,falcon or peco"; mes "Please come again soon!"; close; OnInit: // Variable Setup set $@JC_MinimumJB, 40; //Minimum job level for changing between 2nd and advance Class (Default : 40) set $@JC_Plat, 1; //Give Platinum skills on Jobchange (Default : 1-yes) set $@JC_SupNovM, 45; //Base Level to change into Super Novice (Default : 45) end; } Credits to eAthena.

Eventually switched to 2011 client, But soon learned 2012 is the way to go. i highly advise this even if your pre-renewal.

go to trunk/npc/scripts_athena.conf, search for this line. npc: npc/other/poring_war.txt disable it. // restart your server.

OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; // getitem .ItemID,1; set PoringPoint,PoringPoint+1; dispbottom "You got 1 Poring Point"; dispbottom "Total Poring Points:"+PoringPoint; goto PoringCount; On that part of the script, edit this part : set PoringPoint,PoringPoint+1; to set #PoringPoint,#PoringPoint+1; Since using the # sign is to make the variable eligible to be used by the whole account. And as for the shop, just use any Dynamic shops that uses variables as a currency like Emistry's Multi-Currency Shop. Link : http://rathena.org/board/topic/68468-utility-multi-currency-shop/ Please kindly press the green UP button if it helped. Thanks.

It's all good, inside every add-on you added. There's a theme folder and inside that, just edit the folder name the same to the folder name of the current theme you are using. If you find it helpful, kindly press the green UP button. Thank you.

Haven't tested it //===== rAthena Script ======================================= //= Poring Summoner //===== By: ================================================== //= Bahmut (Made it automated) //= MoonlightRO (Original) //===== Current Version: ===================================== //= 1.4 //===== Compatible With: ===================================== //= TXT & SQL //===== Link to orginal: ===================================== //= [url="http://www.eathena.ws/board/index.php?showtopic=236779"]http://www.eathena.w...howtopic=236779[/url] //============================================================ - script Poring Summoner -1,{ OnInit: //---- NPC Config ----- set .SpecialPorings,100; set .NormalPorings,0; //--------------------- initnpctimer; end; OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " killed a special poring!",bc_map; set PoringPoint,PoringPoint+1; dispbottom "You got 1 Poring Point"; dispbottom "Total Poring Points: "+PoringPoint; 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; OnClock1200: OnClock1600: OnClock2000: OnClock0000: OnClock0400: OnClock0800: RestartEvent: set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; removemapflag .Map$,mf_noskill; set $@ran, rand(1,9); if ($@ran == 9) set .Map$,"lighthalzen"; if ($@ran == 8) set .Map$,"louyang"; if ($@ran == 7) set .Map$,"comodo"; if ($@ran == 6) set .Map$,"xmas"; if ($@ran == 5) set .Map$,"aldebaran"; if ($@ran == 4) set .Map$,"payon"; if ($@ran == 3) set .Map$,"geffen"; if ($@ran == 2) set .Map$,"morocc"; if ($@ran == 1) set .Map$,"prontera"; killmonster .Map$,"All"; 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 in "+.Map$+"!",bc_all; setnpctimer 0; close; 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; end; } - shop PoringEventShop Shop -,501:2000000000; izlude,155,200,3 script Poring Event Shop 51,{ //--------------------- setarray .item[0],4003,4004; set .prize[4003],100; set .prize[4004],150; //--------------------- for(set .i,0; .i<getarraysize(.item) ; set .i,.i+1) { if(.i == 0) { npcshopitem "PoringEventShop",.item[.i],.prize[.item[.i]]; } else { npcshopadditem "PoringEventShop",.item[.i],.prize[.item[.i]]; } } //--------------------- mes "[Poring Event Shop]"; mes "Items are paid in Poring Event Points."; mes "Poring Points: "+PoringPoint+""; npcshopattach "PoringEventShop"; callshop "PoringEventShop",1; close; OnBuyItem: for(set @i,0; @i < getarraysize(@bought_nameid); set @i,@i+1) { set @prize,@bought_quantity[@i]*.prize[@bought_nameid[@i]]; if(PoringPoint >= @prize) { if (checkweight(@bought_nameid[@i],@bought_quantity[@i])) { set PoringPoint,PoringPoint-@prize; getitem @bought_nameid[@i],@bought_quantity[@i]; } else { dispbottom "You can't hold "+@bought_quantity[@i]+"x "+getitemname(@bought_nameid[@i])+"."; } } else { dispbottom "You don't have enough Poring Points to buy "+getitemname(@bought_nameid[@i])+"."; } } end; }

I think you'd be probably better off finding another protection... Harmony has been off and on... then goes off and haven't heard of anything new... etc. etc. etc. and there are other protections too.

Not necessarily. We shouldn't start another hate topic (or something that can arise to become one) between rAthena and Hercules because there are MANY differences between the two and having to list any differences can take offence to individuals which will then create conflict that isn't needed. Best to say, blackberie, you're better off using a clean rAthena SQL since rAthena doesn't have a converter. Hopefully you don't have too many modifications so you could have a clean swap.

you don't have preg_match script command then try .@exclude$ = "prtg_cas01 | prtg_cas02 | payg_cas04 | payg_cas05" ;// etc.. if ( compare( .@exclude$,strcharinfo(3) ) == 0 ) query_sql "update guild set woe_points = woe_points +1 where guild_id = "+ getcharid(2);