Leaderboard

LessGRF What? LessGRF (LGRF) is an extension to the GRF format which adds a new algorithm for file compression. Normally the GRF will compress files using the DEFLATE algorithm which is the compression method typically used in ZIP files, but LessGRF adds the LZMA algorithm as an option. Why? Ragnarok's GRF files can get quite big. Back in the days the game data used to take up a few hundred megabytes, but today the GRF archives are about 2GB and contain tens of thousands of files. Since the data is starting to get pretty big it's possible to save quite a bit of space simply by re-compressing the game files with a more efficient algorithm. In my test on a full data.grf the file was reduced to about 60% of its former size. Maybe someone will find it useful if they want to make a mini client or something? Honestly, this was just a little experiment I did out of curiosity. How? Two simple steps are all that's necessary to use the LGRF format. First, download this file. 1. Installation To upgrade your client, replace the cps.dll in your Ragnarok folder with the one from the download. (Make a backup of the old DLL file first.) 2. Recompression Extract GRFCrush.exe somewhere. Run it from command line or just drag and drop your GRF file onto it. It will generate a new GRF file which you can use instead of the old one. The recompression process will likely take about 20 minutes on a moderately powerful computer. Q&A Q: Since the compression rate is better, will files load slower? A: I've not notice any different in map load times. LZMA is more expensive to decompress, but modern processors are so fast the load time might just as well be reduced since less data has to be read from the hard disk. Q: Can I use both GRF files and LGRF files at the same time? A: Yes. The new cps.dll supports the old GRF compression as well. You can mix LGRF and GRF Q: Can patchers or GRF tools update LGRF archives? A: Very likely, but only if they don't attempt to decode the data in the process. Q: Can current GRF tools extract files from LGRF archives? A: No. Q: ...Does that mean it can also be used for GRF protection? A: I wouldn't recommend it. (That being said I guess this is no less "secure" than GRF protectors like SecureGRF.) Q: Are there any penalties involved with using this format? A: Incompatibility with GRF extractors is currently the only thing I've been able to think of. Let me know if you notice something else.

Hey guys! In about 20 minutes (use this post's timestamp as a reference) i'll be taking the rAthena webserver offline for some quick maintenance updates. No data will be affected. I'll edit this post once it's complete. Thanks. EDIT: Maintenance complete! (Time < 40s)

Thanks for your interest in this guide. The main purpose of all these lines is, to have an -advance level- resource for those guys that wish to go further with their map creations. This guide will cover a useful amount of guides that has never been out there before. Yes, this is a compilation of things I have learned so far until this day; there is more mapping than just learning browedit! Requirements You have already read Aeries Browedit tutorial ---> http://rathena.org/b...e-for-browedit/ You have completely learned Syouji Browedit Tutorial ---> http://rathena.org/b...utorial-videos/ You already have experience with mapping. More than just edit maps, I mean, building your own. You have experience doing -re texturizing- Ragnarok Models and you are able to make your browedit read them You are capable to use Image Editors. Photoshop, GIMP, ... whatever. Probably just the basics, like flipping images or cutting an image. Please... Don't ask for support if you have not fullfilled the previous points I'm listing here. Another point: This guide will not contain links to download copyright software. Here, I will only list the software you will need to follow the video tutorials I will add... it is up to you too obtain this software by purchasing it, or Google it. GR2 Granny Custom 3D models in RO Watch in Full Screen at 1080p About: "An example of how you can add your own custom 3D GR2 models as mobs in Ragnarok Online just like the WoE Guardians or the emperium. You can add them as mobs, or even as NPC. Software Requirements: Granny Pack: https://dl.dropboxusercontent.com/u/52175822/Granny.rar Granny Converter: http://rathena.org/board/files/file/3022-granny-converter-by-ricky92/ Umodel: http://www.gildor.org/downloads ActorXImporter: http://www.gildor.org/projects/unactorx RO2 GoTW: https://mega.co.nz/#F!tQwyQCTD!JNEehQnbvdl6Ww5JYo3Kcg If you want to only do a quick test maybe you can download directly the Mejonora already extracted: https://dl.dropboxusercontent.com/u/52175822/mejonora_test.rar Tips & Troubleshoting: FBX to RSM Animated Models Watch in Full Screen at 1080p About: "Importing and doing your own animated RSM Models now it is possible.." Software Requirements: RSMConverter 3.0 by @xarple ---> LINK FBX Converter 2013.3 by Autodesk ---> LINK 3DS Max 2013 or More RSW and GND Maps into FBX Watch in Full Screen at 1080p About: "Think about the possibilities you can have by importing whole Ragnarok Maps and be able to edit them with the all powerful 3DS Max design tool" ... transform ground shapes, into complex structures with curves presents for ex. modify vertices structures of map areas, etc." Software Requirements: ROMAPCONV9 by Xarple LINK FBX Converter by Autodesk LINK 3DS Max 2012 or More Importing and Editing RSM Models into 3DS Watch in Full Screen at 1080p About: "You might know that it is possible to Import 3DS to RSM ... But how about the reverse of this? In this tutorial you will learn How to Import RSM to 3DS And open your possibilities to do complex editions to default Ragnarok Models" Software Requirements: Browedit 3D Object Converter any version. 3DS Max 7 or more. I use ver 9 here. I will try to keep this tutorial updated. Volume 1 is ready, and Volume 2 is under progress... Any Inquiries, suggestion or... thanks! are very well appreciated, and will keep me motivated to add more and more videos of all of these things I have learned in years with a lot of effort!. Thanks to all and don't forget to follow this thread. Have a nice day.~

Evening All! As the school-goers of our community are about to finish off their exams for the year, now is an ideal time to submit your applications to become a member of our team! The following is a list of positions that are open and available for filling right now! Development Positions (Special requirements apply): Core Developer The Core Developer mainly works out of the /src directory, providing C programming experience to the emulator. They do a number of fixes or additions that effect the operation of the emulator. * A core developer must be proficient in C and have some sort of experience with C programming. Supporting Developer The Supporting Developer is a special development position mostly associated with our Bug Tracker. They are a team of devs that go out of their way to break rAthena so they can create Bug Reports. They also provide the occasional fix, too! * Coding experience in C is a plus, but not essential for this role. * Good English typing skills are required to fill out concise reports. * Bug Tracker Lv2 badge. Script/DB Developer The Script/DB Developer is responsible for managing, fixing, and writing new scripts and database entries. These could be taken from iRO or kRO sources. * A script/DB developer must know the rAthena scripting language intimately. * Bonus if you know the aegis scripting language. Document Developer The Document Developer is responsible for the upkeep of the documentation (/doc directory) as well as the upkeep of the documentation on the wiki. They also provide formatted code documentation within our source code for use with Doxygen. * The Document Developer must know the inner workings of rAthena. * Applicant must be able to type fluent English. Forum Moderator Positions Global Moderator The Global Moderator takes direction from the Community Manager to moderate all forums on the support board. They have the second-to-final say on what happens with moderation (next to the Community Manager). * This role can only be applied for by current staff. Support Leader The Support Leader is in charge of the support sections, provides moderation and support to members running rAthena or any similar emulators (eAthena and 3ceam typically fall under this). They will also be willing to write occasionally in the wiki about the installation and configuration of the emulator. Scripting Moderator The Scripting Moderator takes charge over the scripting sections of the forums. They are considered experts in rAthena scripting and also have moderation powers over the scripting sections to help keep it clean. Graphics Moderator The Graphics Moderator Takes charge over the graphics area of the IP.Downloads installation. They should have a knowledge of spriting, mapping, colouring, or anything involving RO graphics. They also moderate the Arts & Writings forum and the Graphic Enhancements forums. International Moderator (Special requirements apply) The International Moderators take charge over a specific language forum, providing moderation, support and such to the international community where they are most fluent. * An international moderator must be fluent (usually a native) of the language he/she wants to moderate for. * An international moderator must also speak decent to very good English to communicate with the rest of the team as needed. Non-Forum Moderator Positions Wiki Leader The Wiki Leaders take direction from the Document Developer to provide support and write articles on the wiki. All of the above roles can be filled by more than one user, so if you've applied for a position and it was filled by someone else, don't worry! I am adding a maximum turnaround of 2 weeks to all applications. If you don't hear anything after 14 days, it's safe to assume your application was unsuccessful - but don't worry! I will personally be sending out fully formed rejection notices to applicants who have failed to reach the mark by summarising our decision and stating the reasons why. You can then read this notice and make the necessary changes in order to try and change our minds! As always, you may submit your applications to us by clicking on the Staff Applications link in the top navigation bar. I look forward to seeing your applications - good luck!

RagEffect Client Plug-In About A client plug-in that replaces client's special effect table (.str) with data from an external database. This release is per request from Ragno with the permission to release it publicly. Known issues Currently the file is not loaded from GRF, but from data\ folder only. The range of clients might be limited, tested with 2012-07-02aRE and 2013-12-23c. For further possible issues see the Simple DLL Loader for RO Clients topic. Download binary, reference source This work is licensed under a Creative Commons Attribution-Noncommercial 3.0 Unported License.

Hello, first of all, this Guide was requested by a friend of mine, there's an already existing guide in the Wiki http://rathena.org/wiki/Custom_Items and it's more detailed, you may use it as reference Remember that this Guide is for 2012-04-10 clients and simillar! Before starting, you will need the following Diffs at least (recommended): Uncheck "read data folder first" so it will read first your GRFs Uncheck "load lua before lub" if you have .lua i recommend you to change them all to .lub Checked "Increase Item View ID" (i recommend 15,000 View IDs, max 30,000) Checked "Read multiple GRF" (i recommend max 2 custom GRFs) Also, make sure that your DATA.INI reads your GRFs This Guide doesn't use iteminfo.lub, just lua files Requeriments Adding the items | Text File Side Adding the items | Sprite Side And that's it, if you follow this Guide step by step without skipping the notes and so on you shouldn't have any error. If you are stuck or soemthing don't pm me D: just repply to this post. You may ask why, well the answer is simeple, you should repply to this post first so if someone has the same error, problem or got stucked like you it may find the answer here. This is really easy to do, it's about practice and you will do it automaticlly with the time. I can add 1 single custom item in about 2 minutes with everything ready to add. Well, good luck! FAQs: To do: Fix some (many) grammar mistakes X Add colors ✓ (done) Add FAQs ✓

Hey guys just wanted to show off a novice grounds that I made for a server. =] Overview Zone In area. Small nook for quest. Right Side Left Side Boats to leave. Simple Indoor Shop. Ingame Effects. Whelp there you go.

i think you have to save it as 256 Color Bitmap

Change your loading screens name into loading00.jpg and so on... On your clientinfo.xml change the <image>loadingscreen00.jpg</image> into <image>loading00.jpg</image> Hope it helps,

Hello, i recommend you the Peopleperson49's Character Deletion script ;D! http://rathena.org/board/topic/93776-utility-delete-character-command/ You are missing some tables that you also have to clear too D:!

I'll send it to a dev friend for testing in real server =o, thank you, I'll reply here with more info later!

//======Name======================================== // Mining NPC //======Version===================================== // 1.0 //======Author(s)=================================== // Sandbox //======Comments==================================== // In loving memory of AstralRO //================================================== mellina,110,90,3 script Hermoining 726,{ mes "[^0000FF Hermoining ^000000]"; mes "Hiya! I'm the master of Mining, ^880000Hermoining^000000!"; menu "Whoa, teach me master!",-; next; mes "[^0000FF Hermoining ^000000]"; mes "Okay, You'll be needing a ^008800Pick Axe^000000 for mining. While inside the map, you'll be able to mine mithril ores which can be sold for zeny!"; next; mes "[^0000FF Hermoining ^000000]"; mes "So, do you want to proceed?"; menu "Yes master!",-,"Buy Pick Axe",Lpick; next; if(JobLevel < 50) goto Lnjob; mes "[^0000FF Hermoining ^000000]"; mes "Have fun!"; sc_end SC_ALL; warp "force_2-2",174,115; close; Lpick: callshop "PickShop"; close; Lnjob: next; mes "[^0000FF Hermoining ^000000]"; mes "Sorry, you need to be atleast job 50 or higher in order to enter."; close; } - shop PickShop -1,6010:10000 force_2-2,159,177,5 script Mine Exit 848,{ mes "[^888800 Minero ^000000]"; mes "Do you want to get out of here?"; menu "Yes please!",-; next; mes "[^888800 Minero ^000000]"; mes "See you soon!"; warp "mellina",118,86; close; } force_2-2,161,184,3 script Mithril Ore 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; //Comment if you dont want to put a limit on mining if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { //Comment if you dont want to put a limit on mining DEFAULT = 10,000x failed or success set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); //50% chance to obtain mithril ore set @purechance,rand(1,3); //33.33% chance to obtain an ADDITIONAL mithril, which sells higher set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; //Mining level 0 waits 4 seconds before mining sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; //Mining level 1 waits 3 seconds before mining sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { //Mining level 2 waits 2 seconds before mining misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; //Mining level 3 waits 1 second before mining sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: //Required experience before a player's mining level increases. dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } //================================================================== // I did not duplicate the NPCs since I encountered players who tried // To abuse this script by using WPE/macros that can get the NPC ID // That can bypass the delay between the mining process.. //================================================================== force_2-2,161,184,3 script Mithril Ore#1 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#2 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#3 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#4 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#5 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#6 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#7 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#8 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#9 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#10 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#11 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#12 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#13 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#14 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#15 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#16 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#17 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#18 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#19 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#20 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#21 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#22 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#23 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } end; Lfail: dispbottom "You got nothing from the ore."; end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } force_2-2,161,184,3 script Mithril Ore#24 1976,{ if(#minedelay+86400 > gettimetick(2)) goto Ldelay; if(@mining != 0) goto Lstillmine; if(.mining != 0) goto Lalreadymine; //mes "Do you want to mine this rock?"; //menu "Proceed",-; //next; if(countitem(6010) < 1) goto Lnopick; delitem 6010,1; set #MineCount,#MineCount+1; if(#MineCount == 10000) { set #minedelay,gettimetick(2); set #MineCount,0; } set @minechance,rand(1,2); set @purechance,rand(1,3); set .mining,1; set @mining,1; pcblockmove getcharid(3),1; if(MineLvl == 0) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 1) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } else if(MineLvl == 2) { misceffect 102; sleep2 1000; misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } if(MineLvl == 3) { misceffect 102; sleep2 1000; set .mining,0; set @mining,0; pcblockmove getcharid(3),0; if(@minechance == 2) { misceffect 154; set MineExp,MineExp+1; if(@purechance == 3) getitem 7757,1; else getitem 7233,1; goto Lsuccess; } else { misceffect 155; goto Lfail; } } Lsuccess: dispbottom "You've successfully mined the ore."; if(MineExp < 10000) dispbottom "You've gained 1 Mining Exp."; if(MineExp == 1000) { set MineLvl,1; dispbottom "Congratulations! Your Mining Mastery is now Level 1!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 1!",bc_all,0x00FFFF; } else if(MineExp == 5000) { set MineLvl,2; dispbottom "Congratulations! Your Mining Mastery is now Level 2!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 2!",bc_all,0x00FFFF; } else if(MineExp == 10000) { set MineLvl,3; dispbottom "Congratulations! Your Mining Mastery is now Level 3!"; announce strcharinfo(0)+"'s Mining Mastery reached Level 3!",bc_all,0x00FFFF; } sleep2 1000; npcwalkto rand(161,186),rand(119,184); end; Lfail: dispbottom "You got nothing from the ore."; sleep2 1000; npcwalkto rand(161,186),rand(119,184); end; Lnopick: mes "^FF0000*Hand Smash!!*^000000"; next; mes "Ouch! I'll be needing a ^008800Pickaxe^000000 for this.."; close; Lalreadymine: mes "Hey! Get your own spot!"; close; Lstillmine: mes "Ugh, i'm not done mining yet!"; close; Ldelay: mes "You can only mine 10,000 ores a day!"; close; } //force_2-2,161,184,3 script Mithril Ore#25 1976,{} //force_2-2,161,184,3 script Mithril Ore#26 1976,{} //force_2-2,161,184,3 script Mithril Ore#27 1976,{} //force_2-2,161,184,3 script Mithril Ore#28 1976,{} //force_2-2,161,184,3 script Mithril Ore#30 1976,{} //force_2-2,161,184,3 script Mithril Ore#31 1976,{} //force_2-2,161,184,3 script Mithril Ore#32 1976,{} //force_2-2,161,184,3 script Mithril Ore#33 1976,{} //force_2-2,161,184,3 script Mithril Ore#34 1976,{} //force_2-2,161,184,3 script Mithril Ore#35 1976,{} //force_2-2,161,184,3 script Mithril Ore#36 1976,{} //force_2-2,161,184,3 script Mithril Ore#37 1976,{} //force_2-2,161,184,3 script Mithril Ore#38 1976,{} //force_2-2,161,184,3 script Mithril Ore#39 1976,{} //force_2-2,161,184,3 script Mithril Ore#40 1976,{} Modified the script for you, let me know if you find any errors.. Though you still have to edit the coordinates one by one for they will be stacked on force_2-2 161 184 upon loading. Also, try to seek help on the support thread of that NPC next time, to get faster support.

prontera,150,180,5 script Hunter monster 87,{ end; OnEvent: waitingroom "Mob to hunt: "+ getmonsterinfo( getvariableofnpc( .monster_hunt_id,"atcmd_monsterhunt" ),0 ) + " (ID: " + getvariableofnpc( .monster_hunt_id,"atcmd_monsterhunt" ) + ")",0; } - script atcmd_monsterhunt -1,{ OnInit: bindatcmd "monsterhunt",strnpcinfo(3)+"::OnCmd"; end; OnCmd: if ( .monster_hunt_id == 0 && ( .@atcmd_numparameters == 0 || .@atcmd_parameters$[0] == "on" || .@atcmd_parameters$[0] == "off" ) ) dispbottom "there is none monster to hunt"; else if ( .@atcmd_numparameters == 0 ) dispbottom "the new monster to hunt is " + getmonsterinfo( .monster_hunt_id,0 ) + " (ID: " + .monster_hunt_id + ")"; else if ( .@atcmd_parameters$[0] == "on" ) { if ( @display_message == 0 ) dispbottom "killing a " + getmonsterinfo( .monster_hunt_id,0 ) + " (ID: " + .monster_hunt_id + ") already display a message"; else { dispbottom "killing a " + getmonsterinfo( .monster_hunt_id,0 ) + " (ID: " + .monster_hunt_id + ") will display a message"; @display_message = 0; } } else if ( .@atcmd_parameters$[0] == "off" ) { if ( @display_message == 1 ) dispbottom "killing a " + getmonsterinfo( .monster_hunt_id,0 ) + " (ID: " + .monster_hunt_id + ") already don't display a message"; else { dispbottom "killing a " + getmonsterinfo( .monster_hunt_id,0 ) + " (ID: " + .monster_hunt_id + ") won't display a message"; @display_message = 1; } } else if ( getgmlevel() >= 25 ) { if ( .@atcmd_parameters$[0] == "0" ) { dispbottom "you stop the hunt"; .monster_hunt_id = 0; delwaitingroom "Hunter monster"; } else { .@mob_name$ = getmonsterinfo( atoi(.@atcmd_parameters$[0]),0 ); if ( .@mob_name$ == "null" ) dispbottom "wrong mob id"; else { .monster_hunt_id = atoi(.@atcmd_parameters$[0]); dispbottom "the new monster to hunt is "+ .@mob_name$ + " (ID: " + .monster_hunt_id + ")"; donpcevent "Hunter monster::OnEvent"; } } } else dispbottom "@" + .@atcmd_command$ + " failed. @" + .@atcmd_command$ + " to display the mob to hunt. @" + .@atcmd_command$ + " on/off to display a message killing the mob"; end; OnNPCKillEvent: if ( .monster_hunt_id == 0 || killedrid != .monster_hunt_id ) end; if ( hunter_points >= 1000 && @display_message == 0 ) message strcharinfo(0), "you can exceed 1000 hunters points (you have " + hunter_points + " hunters points)"; else if ( hunter_points < 1000 ) { hunter_points++; if ( @display_message == 0 ) message strcharinfo(0), "you have now " + hunter_points + " hunters points for killing a " + getmonsterinfo( .monster_hunt_id,0 ); } end; }

src/map/pc.c suche : int map_day_timer(int tid, unsigned int tick, int id, intptr_t data) { char tmp_soutput[1024]; if (data == 0 && battle_config.day_duration <= 0) // if we want a day return 0; if (!night_flag) return 0; //Already day. night_flag = 0; // 0=day, 1=night [Yor] map_foreachpc(pc_daynight_timer_sub); strcpy(tmp_soutput, (data == 0) ? msg_txt(NULL,502) : msg_txt(NULL,60)); // The day has arrived! intif_broadcast(tmp_soutput, strlen(tmp_soutput) + 1, 0); return 0; } /*================================================ * timer to do the night [Yor] * data: 0 = called by timer, 1 = gmcommand/script *------------------------------------------------*/ int map_night_timer(int tid, unsigned int tick, int id, intptr_t data) { char tmp_soutput[1024]; if (data == 0 && battle_config.night_duration <= 0) // if we want a night return 0; if (night_flag) return 0; //Already nigth. night_flag = 1; // 0=day, 1=night [Yor] map_foreachpc(pc_daynight_timer_sub); strcpy(tmp_soutput, (data == 0) ? msg_txt(NULL,503) : msg_txt(NULL,59)); // The night has fallen... intif_broadcast(tmp_soutput, strlen(tmp_soutput) + 1, 0); return 0; } Ersetzen durch : int map_day_timer(int tid, unsigned int tick, int id, intptr_t data) { // char tmp_soutput[1024]; if (data == 0 && battle_config.day_duration <= 0) // if we want a day return 0; if (!night_flag) return 0; //Already day. night_flag = 0; // 0=day, 1=night [Yor] map_foreachpc(pc_daynight_timer_sub); // strcpy(tmp_soutput, (data == 0) ? msg_txt(NULL,502) : msg_txt(NULL,60)); // The day has arrived! // intif_broadcast(tmp_soutput, strlen(tmp_soutput) + 1, 0); return 0; } /*================================================ * timer to do the night [Yor] * data: 0 = called by timer, 1 = gmcommand/script *------------------------------------------------*/ int map_night_timer(int tid, unsigned int tick, int id, intptr_t data) { // char tmp_soutput[1024]; if (data == 0 && battle_config.night_duration <= 0) // if we want a night return 0; if (night_flag) return 0; //Already nigth. night_flag = 1; // 0=day, 1=night [Yor] map_foreachpc(pc_daynight_timer_sub); // strcpy(tmp_soutput, (data == 0) ? msg_txt(NULL,503) : msg_txt(NULL,59)); // The night has fallen... // intif_broadcast(tmp_soutput, strlen(tmp_soutput) + 1, 0); return 0; }

you could use sc_xmas like in the santa's bag 12132,Red_Bag,Santa's Bag,2,0,,200,,,,,0xFFFFFFFF,7,2,,,,,,{ sc_start SC_Xmas,600000,0; },{},{}

And? people can do whatever they want with their time. I think devs doesn't have a contract or are getting paid by their time here. Also most of them are not running a private server as most people does and are having an income with that. How about if we mention the amount of people that runs private servers and never had commited something to this emulator? Thats more interesting. Because if you think that open source software like this one should resides by only 5~ individuals, then you are wrong. Edit: Alternatively, there has been a restructure of the contribution of people at this project, which has increased the amount of free files or commits as a requirement of paid services. That has increased the amount of files and overall activity at a community level on this the forum. Which is something great. That is how everything should be done. Focussing everything to the contribution of the whole community, not depending only of few staff members to maintain everything.

I feel this topic is starting to be disrespectful towards Hercules project and that it's getting unreasonable bashing along with non constructive criticism as rAthena board rules say. However, I'll overlook that and respect the same rAthena's board rules which discourage backseat moderation. Pneuma, blackberie: I'd like to ask you to please tell Hercules devs via its bug tracker if you actually found out any bug throughout the emulator. To the moment your activity on Hercules bug tracker has been nonexistent. Please keep in mind that, for obvious reasons, Hercules can't fix any bugs their developers aren't aware of. It's a basic application of the Principle of Causality. This, or you're simply bashing Hercules project without any kind of reason. Let's now talk about the converter: I proudly made rAthena to Hercules database converter and am happy to maintain it with community help. I also made a 3CeAM to Hercules converter around a year ago but decided not to commit since there wasn't popular demand, and refused to make an (even paid) eAmod to Hercules converter because I didn't want to have anything to do with that modification. Making a converter is a fast and easy process, even further if using basic software such as PhpMyAdmin. I didn't spend more than an hour on each iteration of any of them and trust me, I'm more a novice than an expert on MySQL but it's way too easy on PMA. Contrary to what it's stated here as an opinion, it leads a rAthena database to a fully functional Hercules database (we haven't had any complaints to date). It's not Hercules responsibility to make a converter back, much like rAthena doesn't provide a converter back to eAthena. It's in fact rAthena responsability (if its devs want) to make and maintain it since it's rAthena's interest. For example: Have you seen Invision Power staff providing converters of his boards to phpBB? Isn't that just plain silly? It is that silly to ask Hercules staff to make a converter to other software. Hercules doesn't directly or indirectly force anybody to keep their users. It is, much like rAthena, an open source, free (as in freedom) software community. You are of course free to leave it anytime you want, but you have to ask for an adaptation on the place where you go. And even on rAthena they're free not to help you if they don't want to. I'm pretty much sure that free support staff would ask to get paid otherwise because that's the essence of economy: getting paid for investing efforts in something you're not interested in or don't want to. Please note that, as I've already told to some Staff here, I decided myself to quit having presence on this forum not because I joined Hercules' Staff, but for other personal reasons. I still give free, inconditional support in Spanish section for rAthena here (and also seems in Spanish section of Hercules Forums) and would prefer to keep like that. I've not come here for any kind of grudge. Thanks Shio Devs for trying to calm down things here. P.S.: Kido, I appreciate your intent not to offend either of staff emulators, but I honestly think that the opinion of "Hercules trapping members" is unfair, demagogic and nonetheless offensive because of reasons stated above.

Recently i was facing an issue with newer clients that doesn't allow space in guild names. With ollydbg, I figure out how to allow space and I'm sharing: Open your hexed with a hex editor and search for this hex: Replace for: The 20 hex above is the space string (" ") , I changed it to "!" and If you want change to another just put the hex code in that position. Note: Tested in 2012-05-25-RagexeRE.