Json
-
Posts
22 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Posts posted by Json
-
-
i have no idea how to do that
-
im trying to put my new themes after installing there's an error showed
Warning: mysql_connect() [function.mysql-connect]: Access denied for user 'ragnarok'@'localhost' (using password: YES) in /home/maharotr/public_html/themes/defaults/phpScript/data.php on line 6Notice: Undefined index: mrodb in /home/maharotr/public_html/themes/defaults/phpScript/data.php on line 9Warning: mysql_select_db() [function.mysql-select-db]: Access denied for user 'maharotr'@'localhost' (using password: NO) in /home/maharotr/public_html/themes/defaults/phpScript/data.php on line 9Warning: mysql_select_db() [function.mysql-select-db]: A link to the server could not be established in /home/maharotr/public_html/themes/defaults/phpScript/data.php on line 9Unable to select database
-
Jumper:
//==========================================================// //========= Script by RyCHIRO =========// //========= http://reincarnation-network.com =========// //========= http://chiyan-ro.com =========// //==========================================================// - script jumpevent -1,{ OnWhisperGlobal: if ( getgmlevel() < 99 ) end; L_JumpAdmin: mes "[Manager]"; mes "^FF0000~Hi GM " + strcharinfo(0) + "!~^000000"; mes "^FF0000The Current Prize is:^000000"; mes "^FF00001. Random Prize:^000000 ^008000"+$jmp_item_amount1+" "+getitemname($jmp_item_id1)+"^000000"; mes "^FF00002. Random Prize:^000000 ^008000"+$jmp_item_amount2+" "+getitemname($jmp_item_id2)+"^000000"; mes "^FF00003. Random Prize:^000000 ^008000"+$jmp_item_amount3+" "+getitemname($jmp_item_id3)+"^000000"; switch(select("Start Jump Event?:Set Prize:Not today Fellas!")){ case 1: next; if( $@JumpStart == 1 ){ mes "[Manager]"; mes "I Can't Start The Event!!"; mes "The Event is still ON!!"; next; goto L_JumpAdmin; } next; mes "[Manager]"; mes "^FF0000~Sure thing!~^000000"; close2; goto L_StartJmp; case 2: next; mes "[Manager]"; mes "^FF0000~What should the prize for winning be? Please input the ID.~^000000"; menu "Set Prize 1",SP1,"Set Prize 2",SP2,"Set Prize 3",SP3,"Go Back to main",L_JumpAdmin; SP1: next; mes "[Manager]"; mes "^FF0000~What should the prize for winning be? Please input the ID.~^000000"; input $jmp_item_id1; next; mes "[Manager]"; mes "^FF0000~How many if this item should I give away?~^000000"; input $jmp_item_amount1; next; mes "[Manager]"; mes "^FF0000~So, the prize is^000000 ^008000"+ $jmp_item_amount1 +" "+ getitemname($jmp_item_id1) +"^000000? ^FF0000Great.~^000000"; next; goto L_JumpAdmin; SP2: next; mes "[Manager]"; mes "^FF0000~What should the prize for winning be? Please input the ID.~^000000"; input $jmp_item_id2; next; mes "[Manager]"; mes "^FF0000~How many if this item should I give away?~^000000"; input $jmp_item_amount2; next; mes "[Manager]"; mes "^FF0000~So, the prize is^000000 ^008000"+ $jmp_item_amount2 +" "+ getitemname($jmp_item_id2) +"^000000? ^FF0000Great.~^000000"; next; goto L_JumpAdmin; SP3: next; mes "[Manager]"; mes "^FF0000~What should the prize for winning be? Please input the ID.~^000000"; input $jmp_item_id3; next; mes "[Manager]"; mes "^FF0000~How many if this item should I give away?~^000000"; input $jmp_item_amount3; next; mes "[Manager]"; mes "^FF0000~So, the prize is^000000 ^008000"+ $jmp_item_amount3 +" "+ getitemname($jmp_item_id3) +"^000000? ^FF0000Great.~^000000"; next; goto L_JumpAdmin; Case 3: next; mes "[Manager]"; mes "Bye!!"; close; }// End Admin Manager... OnMinute25: L_StartJmp: announce "Jumper Event : will begin in 20 seconds",bc_blue; sleep2 5000; announce "Jumper Event : I'm Going to JUMP somewhere..!!",bc_blue; sleep2 5000; announce "Jumper Event : By the way I'm going to disguise into a random monster.!!",bc_blue; sleep2 10000; announce "Jumper Event : Last 10 seconds",bc_blue; sleep2 10000; set $@ran, rand(1,10); if ($@ran == 10) set $@jmpmap$,"hugel"; if ($@ran == 9) set $@jmpmap$,"yuno"; if ($@ran == 8) set $@jmpmap$,"comodo"; if ($@ran == 7) set $@jmpmap$,"xmas"; if ($@ran == 6) set $@jmpmap$,"aldebaran"; if ($@ran == 5) set $@jmpmap$,"izlude"; if ($@ran == 4) set $@jmpmap$,"payon"; if ($@ran == 3) set $@jmpmap$,"geffen"; if ($@ran == 2) set $@jmpmap$,"morocc"; if ($@ran == 1) set $@jmpmap$,"prontera"; announce "Jumper Event : Go Find me!! I'm here in "+$@jmpmap$+"!!!",bc_blue; set $@JmpRnd,10; goto OnStart; OnStart: if ($@JmpRnd == 0){ stopnpctimer; set $@JumpStart,0; sleep2 3000; announce "Jumper Event : is now OVER!!",bc_blue; sleep2 15000; movenpc "Jumper"+$@ran+"",1,1; //move the NPC setnpcdisplay "Jumper"+$@ran+"",1002; end; } if ($@JmpRnd == 10){ goto OnStart2; } stopnpctimer; sleep2 3000; announce "Jumper Event : Next Round will begin in 15 seconds...",bc_blue; sleep2 15000; setnpcdisplay "Jumper"+$@ran+"",1002; movenpc "Jumper"+$@ran+"",1,1; //move the NPC set $@ran, rand(1,10); if ($@ran == 10) set $@jmpmap$,"hugel"; if ($@ran == 9) set $@jmpmap$,"yuno"; if ($@ran == 8) set $@jmpmap$,"comodo"; if ($@ran == 7) set $@jmpmap$,"xmas"; if ($@ran == 6) set $@jmpmap$,"aldebaran"; if ($@ran == 5) set $@jmpmap$,"izlude"; if ($@ran == 4) set $@jmpmap$,"payon"; if ($@ran == 3) set $@jmpmap$,"geffen"; if ($@ran == 2) set $@jmpmap$,"morocc"; if ($@ran == 1) set $@jmpmap$,"prontera"; announce "Jumper Event : Go Find me!! I'm here in "+$@jmpmap$+"!!!",bc_blue; goto OnStart2; OnStart2: set $monster, rand(1001,1995); if($monster == 1003 || $monster == 1218 || $monster == 1006 || $monster == 1017 || $monster == 1021 || $monster == 1022 || $monster == 1027 || $monster == 1043 || $monster == 1006 || $monster == 1136 || $monster == 1137 || $monster == 1168 || $monster == 1171 || $monster == 1172 || $monster == 1173 || $monster == 1181 || $monster == 1210 || $monster == 1223 || $monster == 1284 || ($monster >= 1324 && $monster <= 1363) || $monster == 1006 || $monster == 1407 || $monster == 1411 || $monster == 1414 || $monster == 1496 || $monster == 1501 || $monster == 1900){ goto OnStart2; end; } while(1) { //Initiate an infinite loop set $@jx,rand(0,300); //Set a randon X coordinate set $@jy,rand(0,300); //Set a random Y coordinate if(checkcell(""+$@jmpmap$+"",$@jx,$@jy,cell_chkpass)) break; //If cell is walkable break out of the loop } initnpctimer; set $@JumpStart,1; movenpc "Jumper"+$@ran+"",$@jx,$@jy; //move the NPC setnpcdisplay "Jumper"+$@ran+"",$monster; set $@JmpRnd,$@JmpRnd-1; end; OnTimer60000: set $@JumpStart,0; announce "Jumper Event : WOW no One Found ME!! I'm here in "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue; sleep2 3000; donpcevent "jumpevent::OnStart"; end; }//End Script - script Jumper -1,{ if( $@JumpStart == 0 ){ mes "[Jumper]"; mes "I'm sorry, Someone Found me.."; close; } set $@prize, rand(1,100); if ( $@prize <= 50 ){ set $@JumpStart,0; getitem $jmp_item_id1,$jmp_item_amount1; announce "Jumper Event : "+strcharinfo(0)+" is the WINNER!! I'm here in "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue; donpcevent "jumpevent::OnStart"; mes "[Jumper]"; mes "WOW you found me!!"; mes "Take this as a REWARD!!"; mes "You got ^008000"+ $jmp_item_amount1 +" "+ getitemname($jmp_item_id1) +"^000000"; close; end; } set $@prize, rand(1,100); if ( $@prize <= 49 ){ set $@JumpStart,0; getitem $jmp_item_id2,$jmp_item_amount2; announce "Jumper Event : "+strcharinfo(0)+" is the WINNER!! I'm here in "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue; donpcevent "jumpevent::OnStart"; mes "[Jumper]"; mes "WOW you found me!!"; mes "Take this as a REWARD!!"; mes "You got ^008000"+ $jmp_item_amount2 +" "+ getitemname($jmp_item_id2) +"^000000"; close; end; } set $@prize, rand(1,100); if ( $@prize <= 48 ){ set $@JumpStart,0; getitem $jmp_item_id3,$jmp_item_amount3; announce "Jumper Event : "+strcharinfo(0)+" is the WINNER!! I'm here in "+$@jmpmap$+" "+$@jx+" "+$@jy+"!!",bc_blue; donpcevent "jumpevent::OnStart"; mes "[Jumper]"; mes "WOW you found me!!"; mes "Take this as a REWARD!!"; mes "You got ^008000"+ $jmp_item_amount3 +" "+ getitemname($jmp_item_id3) +"^000000"; close; end; } }//End Script prontera,1,1,1 duplicate(Jumper) Jumper1 1002 morocc,1,1,1 duplicate(Jumper) Jumper2 1002 geffen,1,1,1 duplicate(Jumper) Jumper3 1002 payon,1,1,1 duplicate(Jumper) Jumper4 1002 izlude,1,1,1 duplicate(Jumper) Jumper5 1002 aldebaran,1,1,1 duplicate(Jumper) Jumper6 1002 xmas,1,1,1 duplicate(Jumper) Jumper7 1002 comodo,1,1,1 duplicate(Jumper) Jumper8 1002 yuno,1,1,1 duplicate(Jumper) Jumper9 1002 hugel,1,1,1 duplicate(Jumper) Jumper10 1002
Poring Catcher:
//=========== PORING CATCHER MADE ==============\\ //=== BY: SHOGS-GFX and RAGNAROK DEVELOPERS ====\\ //= Please Report if you encounter some errors =\\ //===== https://www.facebook.com/ShogsGfx ======\\ //==============================================\\ //==FUNCTIONS===================================\\ /* GM Can start the event manualy GM Can also stop the event manualy HOW: just PM this npc (npc:pcatch) The Next Guide Will Be Given by the Manager */ //======= PLEASE DO NOT REMOVE CREDITS =========\\ //==============================================\\ //== MORE UPDATES TO COME FOR BETTER FUNCTION ==\\ //===== https://www.facebook.com/ShogsGfx ======\\ //==============================================\\ //====LEVEL OF GM CAN CONTROL THE EVENT=========\\ - script GMCONTROL -1,{ OnInit: set $gmcontrol,60; end; } //---------------END OF SETUP-------------------\\ //================ON WHISPER=========================\\ - script pcatch -1,{ //====LEVEL OF GM CAN CONTROL THE EVENT=========\\ //OnInit: //set $gmcontrol,60; //end; //---------------END OF SETUP-------------------\\ OnWhisperGlobal: if(getgmlevel() >= $gmcontrol) { mes "^3399FF[Poring Catcher]^000000"; mes "Hello GameMaster!"; mes "What do you want to do?"; switch(select("Start Event:Stop Event:Nothing")) { case 1: { next; mes "^3399FF[Poring Catcher]^000000"; mes "Please confirm by typing START."; input .@confirm$; if (.@confirm$ == "START") { donpcevent "Announcer2::OnGMStart"; close; } mes "Confirmation failed"; close; break; } case 2: { next; mes "^3399FF[Poring Catcher]^000000"; mes "Please confirm by typing STOP."; input .@confirm$; if (.@confirm$ == "STOP") { donpcevent "Announcer2::OnGMStop"; close; } mes "Confirmation failed"; close; break; } case 3: { next; mes "^3399FF[Poring Catcher]^000000"; mes "Good bye"; close; } } } } //====================ANNOUNCER======================\\ - script Announcer2 -1,{ OnGMStart: killmonster "poring_w01.gat","All"; announce "(Poring Manager) : A Gamemaster started a Poring Catcher Event now.",0; sleep 3000; announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0; enablenpc "PoringCatcher"; sleep 2000; announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0; sleep 2000; announce "(Poring Manager) : The portal is going to close in one minute.",0; sleep 60000; announce "(Poring Manager) : The portal has been closed.",0; disablenpc "PoringCatcher"; if(getmapusers("poring_w01") == 0) { disablenpc "Poring Banker"; announce "Event Poring Catcher didn't start because there's no players.",0; end; } donpcevent "Poring Banker::OnEnable"; end; OnGMStop: killmonster "poring_w01.gat","All"; announce "A Gamemaster has stopped the Poring Catcher Event",0; mapwarp "poring_w01.gat","prontera.gat",155,173; disablenpc "Poring Banker"; disablenpc "PoringCatcher"; end; OnClock1200: OnClock1100: OnClock1300: OnClock2300: killmonster "poring_w01.gat","All"; announce "(Poring Manager) : Poring Catcher Event will start at the moment.",0; sleep 3000; announce "(Poring Manager) : If you want to join, come at the middle of Prontera, enter the warp portal.",0; enablenpc "PoringCatcher"; sleep 2000; announce "(Poring Manager) : Prize: will be TCG and Gold Coins",0; sleep 2000; announce "(Poring Manager) : The portal is going to close in one minute.",0; sleep 60000; announce "(Poring Manager) : The portal has been closed.",0; disablenpc "PoringCatcher"; if(getmapusers("poring_w01") == 0) { disablenpc "Poring Banker"; announce "Event Poring Catcher didn't start because no players found in map.",0; end; } donpcevent "Poring Banker::OnEnable"; end; OnInit: disablenpc "Poring Banker"; disablenpc "PoringCatcher"; } //---------All Job Registration---------------------------------------- prontera,155,173,0 warp PoringCatcher 2,2,poring_w01,105,128 //--------------------------------------------------------------------- //--------------------------------------------------------------------- - script Poring Banker -1,{ OnEnable: mapannounce "poring_w01","Poring Manager: The Poring Catcher Event will start shortly",0; sleep2 10000; mapannounce "poring_w01","Poring Manager: I will be summoning 100 porings with different names kill the real poring",0; sleep2 10000; mapannounce "poring_w01","Poring Manager: What are we waiting for?..Let's Catch some Porings!!...",0; sleep2 10000; goto L_Start; end; L_Start: if(getmapusers("poring_w01") == 0) goto L_None; if(getmapusers("poring_w01") >= 1) { mapannounce "poring_w01","Poring Manager: Get ready at the count of 5 we will start!....",0; sleep2 6000; mapannounce "poring_w01","Poring Manager: 5",0; sleep2 5000; mapannounce "poring_w01","Poring Manager: 4",0; sleep2 4000; mapannounce "poring_w01","Poring Manager: 3",0; sleep2 3000; mapannounce "poring_w01","Poring Manager: 2",0; sleep2 2000; mapannounce "poring_w01","Poring Manager: 1",0; donpcevent "Poringsummoner::OnSummon"; end; } L_None: disablenpc "Poring Banker"; killmonster "poring_w01.gat","All"; end; } //==================SUMMONER OF PORINGS ======================\\ - script Poringsummoner -1,{ OnSummon: if(getmapusers("poring_w01") == 0) goto L_2None; monster "poring_w01.gat",0,0,"Poring",1002,1,"poringwin::OnMobKilled"; monster "poring_w01.gat",0,0,"Pouring",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Proing",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poirng",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poing",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"I'm not a Poring",1002,5,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Gnirop",1002,1,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poring",1113,1,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Poring",1062,1,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Por|ng",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Por1ng",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Porong",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"P0ring",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"P@ring",1002,10,"poringlose::OnMobKilled"; monster "poring_w01.gat",0,0,"Porng",1002,1,"poringlose::OnMobKilled";end; L_2None: disablenpc "Poring Banker"; killmonster "poring_w01.gat","All"; end; } //==================REAL PORING FOR WIN======================\\ - script poringwin -1,{ OnMobKilled: killmonster "poring_w01.gat","All"; atcommand "@doommap"; getitem 7227,1; getitem 671, 10; announce "Poring Banker: We have a winner! well done " + strcharinfo(0) + ".",0; warp "SavePoint",0,0; end; } //==================DUMY PORINGS FOR LOSERS======================\\ - script poringlose -1,{ OnMobKilled: dispbottom "Your out of the game, You did not catch the right Poring !"; percentheal -99,-99; warp "SavePoint",0,0; end; } //==================Mapflags========================\\ poring_w01 mapflag nowarp poring_w01 mapflag nowarpto poring_w01 mapflag noteleport poring_w01 mapflag nosave poring_w01 mapflag nomemo poring_w01 mapflag nobranch poring_w01 mapflag noloot poring_w01 mapflag noskill poring_w01 mapflag nopenalty
Thankyooou .
Btw how bout Poring Race Poring Punch u have ?
-
HI rA.
Can i Request for this script
JUMPER
PORING CATCHER
PORING RACE
DICE
Lucky Pick Event
Poring Punch
That Start Every 10 Mins ?
Thanks
-
Fixed
thanks anyway
-
HI rA
How to rename Double Strafing to Triple Strafing ?
thanks in advance
-
help me thanks
-
use LUB Decompiler.
learn how to decompile lub files...hope this helpsThanks
-
Ok i will try.
-
( STR/DEX/VIT +3 & "ARCHER/SWORDSMAN/THIEF CLASS reduce damge to demi human 3%" & enable to use SIGHT)
And
STR/DEX/INT +3 & "MAGE,GUNSLINGER CLASS FLEE +50 HP+10%" & enable to use SIGHT
Advance thanks rA
-
Can someone help me to Decompile my lub to lua ?
-
btw here's mine that i found on google.
Jazeera,161,156,3 script Java Dullihan 58,{
//- multi dyestuff 0/1 - disabled/enabled
.multi = 1;
//-
if ((MaxWeight-Weight) < 200 || checkweight(1201,1) == 0) {
mes "- Wait a moment! -";
mes "- Currently you're carrying -";
mes "- too many items with you. -";
mes "- Please come back later -";
mes "- after you put some items into kafra storage. -";
close;
}
mes "[Dye Maker Java Dullihan]";
mes "Wow...";
mes "Such a nice day. Days like this are perfect to make dyes.";
next;
switch(select("Talk:Make Dyestuffs:Cancel")) {
case 1:
mes "[Dye Maker Java Dullihan]";
mes "Erm, I don't really have much to say to you. But, if you would like me to tell you about my life, I can do that. It's a little long and boring, but would you like to listen?";
next;
if (select("Listen:Don't Listen") == 1) {
mes "[Dye Maker Java Dullihan]";
mes "As long as I can remember, my father has been making dyes. He used to spend countless hours making dyes of different colors. Even when my mother passed away, he never stopped.";
next;
mes "[Dye Maker Java Dullihan]";
mes "At one point in my life, I became rebellious and ran away from home. I didn't want to be stuck to the family business and wanted to try other things.";
next;
mes "[Dye Maker Java Dullihan]";
mes "Anyways...";
mes "I eventually wound up back home to carry on the family tradition, making dyes for 15 years already. I guess it was really in my blood.";
next;
mes "[Dye Maker Java Dullihan]";
mes "Something I realized these days is that now I can understand my father. Why my father devoted everything to making dyes...";
next;
mes "[Dye Maker Java Dullihan]";
mes "In the middle of all that tedious and hard work, he probably felt the magic of those colors passing on so many dreams for other people.";
next;
mes "[Dye Maker Java Dullihan]";
mes "It was probably for those dreams that he tried so hard to make dyes for his customers...";
next;
mes "[Dye Maker Java Dullihan]";
mes "Heh... How do I know this? Well, that's the way I feel right now. Since a couple years ago, I've been able to hear what the colors were saying...";
next;
mes "[Dye Maker Java Dullian]";
mes "Just watch. Someday, I'm going to succeed in making the color my father wanted to, but never got the chance to make.";
close;
}
mes "[Dye Maker Java Dullihan]";
mes "Ahahahaha...";
mes "Well, I guess no one would want to listen to a measly dyemaker's story anyway. Hahaha....";
close;
case 2:
mes "[Dye Maker Java Dullihan]";
mes "Great! If you want it, I'll make it for you. I promise I'll make you the color you want. But what color dye would you like to make? The fee is different depending on the color.";
next;
mes "[Dye Maker Java Dullihan]";
mes "Why, do you ask? Just remember that there are colors that are easy to make, and those that require more effort and work. Please don't think the fee is too expensive.";
next;
mes "[Dye Maker Java Dullihan]";
mes "The color of the dye is special, made with all my heart and soul.";
next;
switch( select( .@a$ = "Scarlet Dyestuffs:Lemon Dyestuffs:Cobaltblue Dyestuffs:Darkgreen Dyestuffs:Orange Dyestuffs:Violet Dyestuffs:White Dyestuffs:Black Dyestuffs:Cancel" )) {
case 1: callsub S_MakeDye,1,1,.@a$; break;
case 2: callsub S_MakeDye,2,1,.@a$; break;
case 3: callsub S_MakeDye,3,2,.@a$; break;
case 4: callsub S_MakeDye,4,3,.@a$; break;
case 5: callsub S_MakeDye,5,4,.@a$; break;
case 6: callsub S_MakeDye,6,4,.@a$; break;
case 7: callsub S_MakeDye,7,4,.@a$; break;
case 8: callsub S_MakeDye,8,4,.@a$; break;
case 9:
mes "[Dye Maker Java Dullihan]";
mes "Eeeehhhh!! What's this? You change your mind now!? So disappointing...";
close;
}
case 3:
mes "[Dye Maker Java Dullihan]";
mes "I'm not bragging or anything. But I have the skills to make dyestuff. If you ever need dyestuff, please come to me. I'll make them for you at a reasonable price.";
close;
}
S_MakeDye:
mes "[Dye Maker Java Dullihan]";
if ( .multi ) {
explode(.@b$, getarg(2), ":");
mes "How must ^FF0000"+ .@b$[ @menu-1 ] +"^000000 do you want to do ?";
if( input( .@n, 1, 100000) != 0 ) {
mes "Sorry, wrong value.";
close; }
} else
.@n = 1;
switch(getarg(0)) {
case 1:
setarray .@count[0], 30*.@n, 1*.@n, 1*.@n;
set .@cost,3000*.@n;
mes "Mmm... I need "+.@count[0]+" Red Herbs, "+.@count[1]+" Counteragent, and "+.@count[2]+" Empty Bottle to make Red Dyestuffs. The fee is only "+.@cost+" zeny to make it.";
setarray .@item[0], 507, 973, 713;
set .@dyestuff,975;
break;
case 2:
setarray .@count[0], 30*.@n, 1*.@n, 1*.@n;
set .@cost,3000*.@n;
mes "Mmm... I need "+.@count[0]+" Yellow Herbs, "+.@count[1]+" Couneragent, and "+.@count[2]+" Empty Bottle to make Lemon Dyestuffs. The fee is only "+.@cost+" zeny to make it.";
setarray .@item[0], 508, 973, 713;
set .@dyestuff,976;
break;
case 3:
setarray .@count[0], 20*.@n, 1*.@n, 1*.@n;
set .@cost,3500*.@n;
mes "Mmm... I need "+.@count[0]+" Blue Herbs, "+.@count[1]+" Counteragent, and "+.@count[2]+" Empty Bottle to make Cobaltblue Dyestuff. It's hard to use the Blue Herb, so the fee is going to be "+.@cost+" zeny.";
setarray .@item[0], 510, 973, 713;
set .@dyestuff,978;
break;
case 4:
setarray .@count[0], 5*.@n, 20*.@n, 20*.@n, 1*.@n, 1*.@n, 1*.@n;
set .@cost,5000*.@n;
mes "Mmm... I need "+.@count[0]+" Blue Herbs, "+.@count[1]+" Green Herbs, "+.@count[2]+" Yellow Herbs, "+.@count[3]+" Counteragent, "+.@count[4]+" Mixture, and "+.@count[5]+" Empty Bottle to make Darkgreen Dyestuffs. Don't get all of the materials confused. The fee is only "+.@cost+" zeny.";
setarray .@item[0], 510, 511, 508, 974, 973, 713;
set .@dyestuff,979;
break;
case 5:
setarray .@count[0], 20*.@n, 20*.@n, 1*.@n, 1*.@n, 1*.@n;
set .@cost,5000*.@n;
mes "Mmm... I need "+.@count[0]+" Red Herbs, "+.@count[1]+" Yellow Herbs, "+.@count[2]+" Counteragent, "+.@count[3]+" Mixture, and "+.@count[4]+" Empty Bottle to make Orange Dyestuff. The fee is going to be "+.@cost+" zeny.";
setarray .@item[0], 507, 508, 974, 973, 713;
set .@dyestuff,980;
break;
case 6:
setarray .@count[0], 10*.@n, 30*.@n, 1*.@n, 1*.@n, 1*.@n;
set .@cost,5000*.@n;
mes "Mmm... I need "+.@count[0]+" Blue Herbs, "+.@count[1]+" Red Herbs, "+.@count[2]+" Counteragent, "+.@count[3]+" Mixture, and "+.@count[4]+" Empty Bottle to make Violet Dyestuffs. The fee will be "+.@cost+" zeny.";
setarray .@item[0], 510, 507, 974, 973, 713;
set .@dyestuff,981;
break;
case 7:
setarray .@count[0], 30*.@n, 1*.@n, 1*.@n;
set .@cost,3000*.@n;
mes "Mmm... I need "+.@count[0]+" White Herbs, "+.@count[1]+" Counteragent, and "+.@count[2]+" Empty bottle to make White Dyestuffs. The fee will be "+.@cost+" zeny.";
setarray .@item[0], 509, 973, 713;
set .@dyestuff,982;
break;
case 8:
setarray .@count[0], 30*.@n, 30*.@n, 30*.@n, 5*.@n, 1*.@n, 1*.@n, 1*.@n;
set .@cost,7000*.@n;
mes "Mmm... I need "+.@count[0]+" of each Red, Yellow, and Green Herb, "+.@count[3]+" Blue Herbs, "+.@count[4]+" Counteragent, "+.@count[5]+" Mixture, and "+.@count[6]+" Empty Bottle. The process takes longer and more effort than the others, so it is going to be "+.@cost+" zeny.";
setarray .@item[0], 507, 508, 511, 510, 974, 973, 713;
set .@dyestuff,983;
break;
}
next;
mes "[Dye Maker Java Dullihan]";
switch(getarg(1)) {
case 1: mes "Ah! I think you would have everything ready. Would you like to start the process?"; break;
case 2: mes "Okay! I believe you would have everything ready. Would you like to start the process?"; break;
case 3: mes "Okay! I believe you would have everything ready. Shall we begin the process?"; break;
case 4: mes "Okay! I believe you would have everything prepared. Would you like to start the process?"; break;
}
next;
if (select("Make Dyestuffs:Cancel") == 1) {
set .@size, getarraysize(.@item);
// check requirements
for( set .@i,0 ; .@i < .@size ; set .@i,.@i+1 )
if( countitem(.@item[.@i]) < .@count[.@i] )
break;
if( .@i < .@size || Zeny < .@cost ) {
mes "[Dye Maker Java Dullihan]";
mes "Hmmm. Not enough...";
mes "I don't think I'll be able to make the color you want with those materials. Why don't you go get some more materials...?";
close;
}
// delete items
for (set .@i, 0; .@i < .@size ; set .@i, .@i+1)
delitem .@item[.@i], .@count[.@i];
set zeny,zeny-.@cost;
// get dyestuff
getitem .@dyestuff,.@n;
mes "[Dye Maker Java Dullihan]";
mes "Hmm... It came out pretty well. A very rich color. Of course I'll be trying harder to make a more charming color...";
next;
mes "[Dye Maker Java Dullihan]";
mes "Well, then. Stop by whenever you need more dyes.";
close;
}
mes "[Dye Maker Java Dullihan]";
mes "Eeeehhhh!! What's this?";
mes "You change your mind now!? So disappointing...";
return;
}Sorry for my bad English.
-
im confuse
-
-
oh sorry i want to fix that script
-
Actually, there's only 1 variable you need to rename: DailyReward
Change that to an account variable: #DailyReward
(replace 3 times in the script).
THanks it's work !
-
[Mage, Gunslinger]
MaxHP+ 20% Flee+ 50
[Lord Knight, Whitesmith]
Add 10% chance of auto casting Lvl 1 Parrying when hit.
[Paladin]
Increase Shield Chain damage by 30%
[Creator]
MaxHP+10%
[sniper]
Reduce received Neutral property damage by 10%
[stalker]
MaxHP+10% Perfect Dodge+ 10
[Acolyte]
Reduce aftercast delay by 10%
[Clown & Dancer]
Deals 25% more damage on Musical Strike
[Assassin Cross]
Flee + 20, Perfect Dodge + 7
I used this script:{ bonus bAllStats,5; if(BaseClass==Job_Mage||BaseClass==Job_Gunslinger){ bonus bMaxHPrate,20; bonus bFlee,50; } else if(Class==4008||Class==4014||BaseClass==Job_Merchant) {bonus3 bAutoSpellWhenHit,LK_PARRYING,1,100; }else if(Class==4015||Class==4022) {bonus bMaxHPrate,10; }else if(Class==Job_Stalker) {bonus bFlee2,10; bonus bMaxHPrate,10; }else if(BaseClass==Job_Bard||BaseClass==Job_Dancer){ bonus2 bSkillAtk,BA_MUSICALSTRIKE,25; }else if(Class==4013){ bonus bFlee,20; bonus bFlee2,7;}},{},{}
-
// //=====// /==/ /==/ /==/
// // // /==/ /==/ /=/ /==/
// //=====// /==/ /=/ /==============/ /========/ /==//===/ /==/ /==/
// //=////// /==/ /==//=/ /==/ /==/==/==/==/==/ / / / /==/ /==/ /==/
// // == /==/ /==//=/ /==/ /==/ /==/ /==/ ======/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/=====/==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ /========/ /==/ /==///////==/
// ================ rAthena Script ====================================================================
//=== Made by Rikimaru
//==================== Information ====================================================================
//==== Daily Reward Script
//================= Version : =========================================================================
//=== V 1.1 Fixed a typo in the Script [ Rikimaru ]
//=== V 1.0 Finished Scripting the Daily Reward Script [ Rikimaru ]
//============== Credits : ============================================================================
//=== Credits to Rikimaru for the Daily Reward Script
//=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/
//=====================================================================================================
//*************************************************************************
prontera,164,160,4 script CrownRo Vote NPC 911,{
mes "[Vote NPC]";
if(DailyReward>gettimetick(2)) {
set .@Time, DailyReward-gettimetick(2);
set .@SecondLeft,( .@Time % 60 );
set .@MinuteLeft,( .@Time / 60 % 60 );
set .@HourLeft,( .@Time / ( 60 * 60 ) % 24 );
set .@DayLeft,( .@Time / ( 24 * 60 * 60 ) );
set .@TimeLeft$,(( .@DayLeft )?.@DayLeft+" Day ":"" ) +
(( .@HourLeft )?.@HourLeft+" hours ":"" ) +
(( .@MinuteLeft )?.@MinuteLeft+" minutes ":"" ) +
(( .@SecondLeft )?.@SecondLeft+" seconds":"" );
mes "You have to wait for ^FF0000"+.@TimeLeft$+"^000000 before you can claim your prize again.";
close;
}
mes "Hello "+strcharinfo(0)+"!";
mes "Here's your Vote Reward.";
getitem 672,25;
set DailyReward, gettimetick(2)+43200;
next;
mes "[Vote NPC]";
mes "Talk to me again in the next 12 hours.";
close;
}How can i make this to Base Account because this script is base for Character Only so Player Will Abuse it
Sorry for my english >.<
-
Thankyoou its working !
-
Sorry for my wrong post -.-
this one
// //=====// /==/ /==/ /==/
// // // /==/ /==/ /=/ /==/
// //=====// /==/ /=/ /==============/ /========/ /==//===/ /==/ /==/
// //=////// /==/ /==//=/ /==/ /==/==/==/==/==/ / / / /==/ /==/ /==/
// // == /==/ /==//=/ /==/ /==/ /==/ /==/ ======/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/ /==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ / /===/ / /==/ /==/=====/==/
// // == /==/ /==/ /=/ /==/ /==/ /==/ /==/ /========/ /==/ /==///////==/
// ================ rAthena Script ====================================================================
//=== Made by Rikimaru
//==================== Information ====================================================================
//==== Daily Reward Script
//================= Version : =========================================================================
//=== V 1.1 Fixed a typo in the Script [ Rikimaru ]
//=== V 1.0 Finished Scripting the Daily Reward Script [ Rikimaru ]
//============== Credits : ============================================================================
//=== Credits to Rikimaru for the Daily Reward Script
//=== rAthena Profile Link : http://rathena.org/board/user/434-rikimaru/
//=====================================================================================================
//*************************************************************************
vip_lounge,228,133,4 script DDRO Vote NPC 911,{
//=========================== Settings ================================================================
set .@rewname$,"^0000FF[ Daily Reward ]^000000";// YOU MAY CHANGE THE NAME OF THE NPC
set .rewardid,672;// CHANGE THE XXXXX TO THE ITEM ID,WHICH THE PLAYER SHOULD GET
set @rewardamount,25;// CHANGE THE XX TO THE AMOUNT OF THE ITEM WHICH YOU WANT THE PLAYER TO GET
//======================= Settings End ================================================================
//*****************************************************************************************************
if((gettime(7))*365*24)+(gettime(8)*24)+gettime(3);
sleep2 .Rest*60000; {
mes .@rewname$;
mes "Hello "+strcharinfo(0)+",I";
mes "POTAPETE NA CORNER !";
mes "MARAMING SALAMAT SA PAG BOTO KING INA MO";
mes "ETO ISAKSAK MO SA BAGA MO GAGO";
next;
switch(select("-Yes,OO SUGAPA AKO!:-No,PAALAM TANGA!:-Cancel")) {
case 1:
if( #quest_done == 1) {
mes .@rewname$;
mes "POTANG INA MO GUSTO MO PA!";
mes" SUGAPA KA PO TANG INA MO ?";
mes "MAG HANTAY K NG BENTE KWATRO ORAS GAGO KANG SUGAPA KA! ";
close;
}
mes .@rewname$;
mes "FUCK K MUNA SAGAD!";
next;
mes .@rewname$;
set #quest_done, 1;
getitem .rewardid,@rewardamount;
mes "MAMATAY KNA ENJOYIN MO ETO!";
set lastTimeTalked,gettimetick(2);
close;
case 2:
mes .@rewname$;
mes "BOBO POTANG INA MO PAALAM!";
close;
case 3:
close;
}
}
mes .@rewname$;
mes "POTANG INA MO GUSTO MO PA!";
mes" SUGAPA KA PO TANG INA MO ?";
mes "MAG HANTAY K NG BENTE KWATRO ORAS GAGO KANG SUGAPA KA! ";
close;
OnInit:
waitingroom "Vote NPC",0;
end;
} -
Hi can i request a vote npc script that give a poring coin every 12 hrs or can u fix this script ?
//===== eAthena Script =======================================
//= Card Removal NPC
//===== By: ==================================================
//= TyrNemesis^
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= eAthena SVN
//===== Description: =========================================
//= Removes cards from equipped items.
//===== Additional Comments: =================================
//= 1.0 First version. [TyrNemesis^]
//= 1.2 Optimized and fixed getequipname menu. [Kisuka]
//============================================================
hun_vil,247,68,6 script Wise Old Woman#eAcustom 78,{
mes "[Wise Old Woman]";
mes "Good day, young one. I have the power to remove cards that you have compounded onto your equipment. Does this idea please you?";
next;
switch(select("Yes, it does.:What do you charge?:No thanks.")) {
case 1:
mes "[Wise Old Woman]";
mes "Very well. Which item shall I examine for you?";
next;
setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
set .@menu$,"";
for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
{
if( getequipisequiped(.@i) )
set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
set .@menu$, .@menu$ + ":";
}
set .@part,select(.@menu$);
if(!getequipisequiped(.@part)) {
mes "[Wise Old Woman]";
mes "Young one... Your not wearing anything there that I can remove cards from.";
close;
}
if(getequipcardcnt(.@part) == 0) {
mes "[Wise Old Woman]";
mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
close;
}
set .@cardcount,getequipcardcnt(.@part);
if (!checkweight(1202,(.@cardcount+1))) {
mes "^3355FFJust a minute!";
mes "I can't offer any of my";
mes "services to you because";
mes "you're carrying too much";
mes "stuff. Put your extra items in";
mes "Kafra Storage and come again~";
close;
}
mes "[Wise Old Woman]";
mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (200000+(.@cardcount * 25000)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
next;
if(select("Very well. Do it.:Nevermind.") == 2) {
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
}
if((zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) {
mes "[Wise Old Woman]";
mes "You do not have all the items I require to work my magic, child. Come again when you do.";
close;
}
mes "[Wise Old Woman]";
mes "Before I begin, I must warn you--I may fail. If I do, I may destroy the cards, the item, or both. I do not give refunds. That being said, which is more important to you: The cards, or the item?";
next;
switch(select("I changed my mind about this.:The item.:The cards.")) {
case 1:
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
case 2:
set .@failtype,1;
break;
case 3:
set .@failtype,2;
}
mes "[Wise Old Woman]";
mes "Very well. I shall begin.";
set zeny,zeny - (200000+(.@cardcount * 25000));
delitem 1000,1;
delitem 715,1;
// Replace the constants in the next 3 lines with failure chance values defined in refine_db.txt
// First value = Total failure chance (item and cards destroyed)
// Second value = Partial failure chance (one or the other is destroyed, player decides which one is safe)
// Third value = Harmless failure chance (all that's lost is your investment)
set .@failchance,rand(100);
/*
if(.@failchance < 2) {
next;
failedremovecards .@part,0;
mes "[Wise Old Woman]";
mes "The process was a total failure. I am afraid the item and the cards were destroyed.";
close;
}
if(.@failchance < 8) {
if (.@failtype == 1) {
next;
failedremovecards .@part,1;
mes "[Wise Old Woman]";
mes "While I have managed to remove the cards from the item, they were destroyed in the process. The item, however, is okay.";
close;
}
if (.@failtype == 2) {
next;
failedremovecards .@part,2;
mes "[Wise Old Woman]";
mes "Most unfortunate. I succeeded at removing the cards, but the item itself was destroyed in the process.";
close;
}
}
*/
if(.@failchance < 10) {
next;
failedremovecards .@part,3;
mes "[Wise Old Woman]";
mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay.";
close;
}
next;
successremovecards .@part;
mes "[Wise Old Woman]";
mes "The process was a success. Here are your cards and your item. Farewell.";
close;
case 2:
mes "[Wise Old Woman]";
mes "I charge a flat fee of 200000 zeny, plus 25000 zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic.";
close;
case 3:
mes "[Wise Old Woman]";
mes "Very well. Return at once if you seek my services.";
close;
}
}
NID HELP WITH MY THEMS
in Web Support
Posted
i have my host company