Jump to content

quesoph

Members
  • Content Count

    562
  • Joined

  • Last visited

  • Days Won

    6

Reputation Activity

  1. Upvote
    quesoph got a reaction from Eros in Hi!, I just need a lil tweak   
    try..

    //===== rAthena Script =======================================//= HD Refiners//===== By: ==================================================//= Euphy//===== Current Version: =====================================//= 1.0//===== Compatible With: =====================================//= rAthena SVN//===== Description: =========================================//= [Official Conversion]//= Refiners that use HD ores to refine equipment. Upon//= failure, the equipment is not destroyed; rather, its//= refine level decreases by 1. The success rate is identical//= to that for Enriched ores.//= - "Blacksmith Mighty Hammer" only refines from +7~9.//= - "Basta" only refines from +10 and up.//===== Additional Comments: =================================//= 1.0 First version. [Euphy]//============================================================// Blacksmith Mighty Hammer (+7~9)//============================================================-  script  ::MightyHammer  -1,{  disable_items;  mes "[blacksmith Mighty Hammer]";  mes "Unlike others, I am a blacksmith who refines a very limited number of items.";  mes "I refine only items that are ^CC0000+7 to +9^000000.";  next;  mes "[blacksmith Mighty Hammer]";  mes "My specialty is that even if my refining fails, the refine level decreases by 1 without losing the gear. Isn't it great?";  next;  mes "[blacksmith Mighty Hammer]";  mes "So lets kick this into overdrive, what d' ya say? What item do you want to refine?";  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)    set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Not equipped]")+":";  set .@part, select(.@menu$);  if (!getequipisequiped(.@part)) {    mes "[blacksmith Mighty Hammer]";    switch(.@part) {    case 1:      mes "I'm a blacksmith, not a hairstylist.";      break;    case 2:      mes "With my hammer, I will make you a star of the sky.";      break;    case 3:    case 4:      mes "Making artificial hands is not my specialty.";      break;    case 5:      mes "Bring out the item so I can refine it!";      break;    case 6:      mes "Where is this foot odor coming from?";      break;    case 7:    case 8:      mes "Where is the accessory?";      break;    case 9:      mes "What do you want me to refine?";      break;    case 10:      mes "Huh? What do you want me to do?";      break;    }    close;  }  if (!getequipisenableref(.@part)) {    mes "[blacksmith Mighty Hammer]";    mes "This item can't be refined.";    close;  }  switch(getequipweaponlv(.@part)) {  default:  case 0:    set .@price,20000;    set .@material,6241; //HD_Elunium    break;  case 1:  case 2:  case 3:  case 4:    set .@price,20000;    set .@material,6240; //HD_Oridecon    break;  }  mes "[blacksmith Mighty Hammer]";  mes "In order to refine the gear you selected you need ^ff9999"+getitemname(.@material)+"^000000 and 20,000 zeny as a fee.";  mes "Do you have them ready?";  next;  if(select("Yes:No") == 2) {    mes "[blacksmith Mighty Hammer]";    mes "I will wait until you are ready.";    close;  }    if (getequiprefinerycnt(.@part) < 7 ) {      mes "Refine Count is Lower than 7.";      callsub N_odowngrade, .@part, .@material, .@price; end;  }    if (getequippercentrefinery(.@part) < 100) {    mes "[blacksmith Mighty Hammer]";    mes "It looks like this item will likely fail to be refined.";    mes "Well, even if it fails, it only decreases by 1 refine level.";    mes "Would you like to continue refining?";    next;    if(select("Yes:No") == 2) {      mes "[blacksmith Mighty Hammer]";      mes "Only those who overcome fear of failure will obtain a masterpiece.";      close;    }  }  if (countitem(.@material) == 0 || Zeny < .@price) {    mes "[blacksmith Mighty Hammer]";    mes "Didn't you just say you had everything ready?";    close;  }  delitem .@material,1;  set Zeny, Zeny-.@price;  mes "[blacksmith Mighty Hammer]";  mes "Tac! Tac! Tac!";  if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {    successrefitem .@part;    next;    emotion e_no1;    mes "[blacksmith Mighty Hammer]";    mes "The sound refreshes my mind everytime I hear it.";    mes "Here, have it. Refine succeeded flawlessly!";    close;  }  downrefitem .@part;  next;  emotion e_omg;  mes "[blacksmith Mighty Hammer]";  mes "Oops!!";  next;  mes "[blacksmith Mighty Hammer]";  mes "I am sure a person like you would never blame me for a decrease in refine level by 1. Hmm.";  close;  N_odowngrade:next;    delitem getarg(1),1;    set Zeny, Zeny - getarg(2);    mes "[blacksmith Mighty Hammer]";    mes "Tac! Tac! Tac!";    successrefitem getarg(0);    next;    emotion e_no1;    mes "[blacksmith Mighty Hammer]";    mes "The sound refreshes my mind everytime I hear it.";    mes "Here, have it. Refine succeeded flawlessly!";    close;  }prt_in,59,54,3  duplicate(MightyHammer)  Mighty Hammer#prt  826morocc_in,65,30,3  duplicate(MightyHammer)  Mighty Hammer#morocc  826payon,148,176,3  duplicate(MightyHammer)  Mighty Hammer#pay  826alberta_in,16,56,3  duplicate(MightyHammer)  Mighty Hammer#alb  826yuno_in01,171,18,3  duplicate(MightyHammer)  Mighty Hammer#yuno  826ein_in01,22,82,3  duplicate(MightyHammer)  Mighty Hammer#ein  826lhz_in02,280,19,3  duplicate(MightyHammer)  Mighty Hammer#lhz  826// iRO NPC locations:// moc_para01,38,185,4  duplicate(MightyHammer)  Mighty Hammer#ed  826// payon,174,133,4  duplicate(MightyHammer)  Mighty Hammer#im  826
  2. Upvote
    quesoph got a reaction from khael22 in [REQUEST] Card Remover (Lazy Edition)   
    prontera,165,185,4  script  Card Remover  100,{  disable_items;  mes "["+strnpcinfo(1)+"]";  mes "Do u want to remove some cards?";  if(select("Remove Card","Close") == 2 ) close;    mes " ","Choose an item.";    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 " ","Check Equip.";      close;    }    if(getequipcardcnt(.@part) == 0) {      mes " ","No cards compounded.";      close;    }    successremovecards .@part;    close;}
  3. Upvote
    quesoph got a reaction from falce in [REQUEST] Npc zeny convert to coin   
    prontera,164,186,3  script  Coin Trader  860,{    // ----------------------  // - Core Code  // ----------------------    cutin "kafra_08",2;  mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]";  mes "What do you want to do today?";  set .@trade_type, select("Coins -> Zeny:Zeny -> Coins");    mes "Very well. Here is the list on how much each coin is worth:";  for (set .@a, 0; .@a < getarraysize(.coin_id); set .@a, .@a + 1) {    mes .colors$[3 + .@a] + getitemname(.coin_id[.@a]) + .colors$[0] + ": " + .coin_to_zeny_format$[.@a] + "z";    set .@coin_menu$, .@coin_menu$ + (.@coin_menu$ == "" ? "" : ":") + .colors$[3 + .@a] + getitemname(.coin_id[.@a]) + .colors$[0];  }  mes "Tell me, what coin would you like to exchange?";  next;  set .@coin_choice, select(.@coin_menu$) - 1;    next;    mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]";    switch(.@trade_type) {    case 1: // Coins -> Zeny      mes "How many coins would you like to give up?";      input .@amount;      if (.@amount <= 0) { // Invalid Number?        mes .colors$[2] + "Please Input a Number Greater Than 0";        cutin "",255;        close;      } else if ( Zeny == 2000000000 ) {        mes .colors$[2] + "Cant go over 2 Billion...";        cutin "",255;        close;      } else if (countitem(.coin_id[.@coin_choice]) < .@amount) {        mes .colors$[2] + "I'm sorry, you do not have " + .@amount + " " + getitemname(.coin_id[.@coin_choice]) + (.@amount == 1 ? "" : "s");        cutin "",255;        close;      } else { // Ok! Checks Passed, Let's Trade!        set Zeny,Zeny + (.coin_to_zeny[.@coin_choice] * .@amount);        delitem .coin_id[.@coin_choice],.@amount;        cutin "",255;        break;      }          case 2: // Zeny -> Coins      mes "How many coins would you like?";      input .@amount;      if (.@amount <= 0) { // Invalid Number?        mes .colors$[2] + "Please Input a Number Greater Than 0";        cutin "",255;        close;      } else if (Zeny < .coin_to_zeny[.@coin_choice] * .@amount) {        mes .colors$[2] + "I'm sorry, you do not have enough zeny...";        cutin "",255;        close;      } else { // Checks OK! Let's trade!        set Zeny, Zeny - (.coin_to_zeny[.@coin_choice] * .@amount);        getitem .coin_id[.@coin_choice], .@amount;                cutin "",255;      }    }    mes "[" + .colors$[1] + .npc_name$ + .colors$[0] + "]";    mes "Pleasure doing business with you.";    close2;    cutin "", 255;    close;      // ----------------------      // - Soft Code      // ----------------------        OnInit:      // Store NPC Name      set .npc_name$, "Coin Master";            // Store Colors      // default text, npc name, error, coin_type1, coin_type2, coin_type3, coin_type4, etc...      // Note: If you plan on adding additional coins, simply add a new color here      setarray .colors$[0],"^000000", "^336699", "^550000";//, "^996633", "^666666", "^FFFF66", "^99CCCC";            // Set Coin Item ID's      // In Order coin_id1, coin_id2, coin_id3, coin_id4, etc...      setarray .coin_id[0],20104, 20105, 20106;//, 674;            // Coin -> Zeny Value      setarray .coin_to_zeny[0],10000000,50000000,100000000;//,200000000;            // Currency Formatted String of Zeny      setarray .coin_to_zeny_format$[0],"10,000,000","50,000,000","100,000,000";//,"200,000,000";}
  4. Upvote
    quesoph got a reaction from krypton99 in INSTANT JOB CHANGER   
    I think this is Euphy's original script. I can't remember.
     
     

  5. Upvote
    quesoph got a reaction from x3Takux3 in [REQUEST] Card Remover (Lazy Edition)   
    prontera,165,185,4  script  Card Remover  100,{  disable_items;  mes "["+strnpcinfo(1)+"]";  mes "Do u want to remove some cards?";  if(select("Remove Card","Close") == 2 ) close;    mes " ","Choose an item.";    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 " ","Check Equip.";      close;    }    if(getequipcardcnt(.@part) == 0) {      mes " ","No cards compounded.";      close;    }    successremovecards .@part;    close;}
  6. Upvote
    quesoph got a reaction from Tsuuu in request movespeed mapflag   
    here
     
    @edit
    updated
     
    map.patch
  7. Upvote
    quesoph got a reaction from IndieRO in how can i add soul link buffs on this script?   
    -  script  Healer  -1,{    set .@Price,0;  // Zeny required for heal  set .@Buffs,1;  // Also buff players? (1: yes / 0: no)  set .@Delay,0;  // Heal delay, in seconds  callfunc "F_ClearGarbage",0;  switch ( BaseJob ) {    case 18:  .@spirit = 445; break;    case 20:    case 15:  .@spirit = 447; break;    case 19:  .@spirit = 455; break;    case 4047: .@spirit = 448; break;    case 17:  .@spirit = 456; break;    case 16:  .@spirit = 449; break;    case 12:  .@spirit = 457; break;    case 14:  .@spirit = 450; break;    case 10:  .@spirit = 458; break;    case 23:  .@spirit = 451; break;    case 11:  .@spirit = 460; break;    case 7: .@spirit = 452; break;    case 4049:  .@spirit = 461; break;    case 8: .@spirit = 454; break;    case 9: .@spirit = 453; break;  }  if (@HD > gettimetick(2)) end;  if (.@Price) {    message strcharinfo(0),"Healing costs "+.@Price+" Zeny.";    if (Zeny < .@Price) end;    if(select("^0055FFHeal^000000:^777777Cancel^000000") == 2) close;    set Zeny, Zeny-.@Price;  }  specialeffect2 EF_HEAL2; percentheal 100,100;      if (.@Buffs) {    for( .@i = 0; .@i < getarraysize( .Buffs$ ); .@i++ ) {      .@sum = atoi(.@b$[.@i]) + .min_Levels[.@i];      .@j = .Buffs$[.@i];      stand (strcharinfo(0)); // <- Added this so characters dont get stuck when soul link is casting.      if( .@sum )        sc_start4 .@j, 240000, 5,  .@spirit,0,0;      if ( .min_Levels[3] )        skilleffect .@spirit, 5;   // Start Soul Link Effect.    }  }  if (.@Delay) set @HD, gettimetick(2)+.@Delay;  close;OnInit:  setarray .Buffs$, SC_INC_AGI, SC_BLESSING, SC_KYRIE, SC_SOULLINK;  setarray .min_Levels,    5,   5, 1, 5;  end;  }prontera,163,185,6  duplicate(Healer)  Healer1#alb  909
  8. Upvote
    quesoph got a reaction from IndieRO in [REQUEST] Card Remover (Lazy Edition)   
    prontera,165,185,4  script  Card Remover  100,{  disable_items;  mes "["+strnpcinfo(1)+"]";  mes "Do u want to remove some cards?";  if(select("Remove Card","Close") == 2 ) close;    mes " ","Choose an item.";    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 " ","Check Equip.";      close;    }    if(getequipcardcnt(.@part) == 0) {      mes " ","No cards compounded.";      close;    }    successremovecards .@part;    close;}
  9. Upvote
    quesoph got a reaction from Loky in R> Gold Room for Hercules SVN   
    // _______ __ ____ ____ __ __ ____ __ __ __ __ __ __ __ ____ _ ____ // /__ __/ / / / __ / __ / / / / /__ / / /_/ __/ /_ / // / / /__/ / /__ / /__ / __ _____// / / / /_ / /_/ / / / / / / / / / ____/ / / / __ /_ __// // / / _ _ / ____/ / / // / / /_/ / / __ // / / / __ / ____/ / / / / / / / / / __ / / / / / / / _ / / // /// / __ / / __/ / ____/ / / /_/// / / / / / / / /__ / /_/ /_ / /_/ / / /_/ / / / / / / / __/ / / // /// / /_/ / / _ / /__ / ////_/ /_/ /_/ ____/ _______/ ____/ ____/ /_/ /_/ /_/ __/ /_//_/// ____/ /_/ _ ____/ /_///=============================================================================//// Gold Room Advance Script - Mining Gold for wealth - Please Leave Credit //=============================================================================//POWERED by: rudolp//[The Quality Maker]//Time Finished :6:28 PM 6/7/2009//Please Report any bug and suggestions.//===== Compatible With: =================================================================//= Any eAthena Version//=============Gold Room Settings===================//This should always be enable for a better Gold Room System.//==================================================ordeal_1-2.gat mapflag noskillordeal_1-2.gat mapflag nomemoordeal_1-2.gat mapflag nobranchordeal_1-2.gat mapflag noloot ordeal_1-2.gat mapflag noexpordeal_1-2.gat mapflag nodropordeal_1-2.gat mapflag novendingordeal_1-2.gat mapflag nowarpordeal_1-2.gat mapflag nowarptoordeal_1-2.gat mapflag noreturn//=================================================ordeal_1-2,0,0,0 script Gold Room -1,{OnInit://No. of Mine Guardian.//For golden peko it is default to 100 and 4 seconds~2 seconds spawn rate. set .guardian,50;//Type of guardian. 0 = normal 1 = extreme set .@guardiantype,0; if(.@guardiantype == 0){ monster "ordeal_1-2",0,0,"Taga Bantay",2001,.guardian,""; }else{ monster "ordeal_1-2",0,0,"Taga Bantay",2002,.guardian,""; }end;OnNPCKillEvent://===== Configurations: ========================================================================//Max gold can a player get after killing 1 golden peko (default 5 note:this will increase if luk bonus is enable). set .@maxgaingold,5;//Apply gold penalty. 0 = no 1 = yes set .@penalty1,1;//The Maximum no. of gold Penalty. set .@maxpenalty1,3;//Apply speed & HP penalty. 0 = no 1 = yes set .@penalty2,1;//Gold limitation penalty must be enable set .@maxgold,200;//The maximum no. of hp penalty by %. set .@maxpenalty2,10;//Enable luk bonus. 0=no 1=yes set .@lukbonus,0;//If luk Bonus is enable,luk divider default 49 w/ 99 max parameter. Note: the quotient of your max parameter and .@lukdiv must not grater than 5 to avoid over mining. set .@lukdiv,49;//Show Server Name. 0=no 1=yes set .@showservername,1;//Name of your Server set .@servername$,"[The Quality Maker]";//=========================================================================================if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish;if (@mapname$ == "ordeal_1-2"){ set @bonus,0; set @deduction,0; set @gain,rand (.@maxgaingold);//Luk bonus if (.@lukbonus != 0){ set @bonus,readparam(bLuk)/.@lukdiv; }//Gold Penalty if (.@penalty1 != 0){ set @deduction,rand(.@maxpenalty1); if(@deduction == 0) set @deduction,1; } set @gain, @gain + @bonus - @deduction; set golds, golds + @gain ;//Displaying Gained Gold if(.@showservername != 0){ if(golds%5 == 0){ //Show Server Name every 10 gold gain. dispbottom "===============Brought to you by==============="; dispbottom "==============" + .@servername$ +"=============="; } } if(@gain){ dispbottom "-|You got: " +@gain+ " gold| - |Total: " +golds+ " gold|- "; }else{ dispbottom "-|You got: NOTHING! |- "; } if (.@penalty2 != 0){ if (golds >= .@maxgold/2 && golds <=.@maxgold/2+20){ sc_start SC_DECREASEAGI,240000,10; }else if(golds >.@maxgold){ sc_start SC_CURSE,240000,10; percentheal (.@maxpenalty2*-1),(.@maxpenalty2*-1); heal -50,0; //For him to die } } if(paid == 0){ mapannounce "ordeal_1-2"," x( "+strcharinfo(0)+" is a cheater!",bc_map; dispbottom "Go out you bastard!"; set golds,0; warp "prontera", 173, 160; } end;}OnPCDieEvent: if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish;if (@mapname$ == "ordeal_1-2"){ dispbottom "Holy Shit you died!"; dispbottom "All of your gold will gone!"; set alive, 0; set paid, 0; end;}L_Finish:close;}//===============================================//warper//===============================================ordeal_1-2,154,156,5 script Gold Miner 813,{ mes "[Gold Miner]"; if(golds >=50){ goto wa; } mes "Want to go now?"; mes "Your gold is just "+golds+" you can still get more."; close;wa: mes "Want to go now?"; if(select("Yes", "No") == 1) { set alive,1; warp "prontera", 173, 160; } close;} prontera,165,158,5 script Gold Room Warperer#pront 813,{ set @name$,"prontera"; callfunc "goldmain"; end;}aldebaran,133,116,4 script Gold Room Warperer#alde 813,{ set @name$,"aldebaran"; callfunc "goldmain"; end;}alberta,23,247,4 script Gold Room Warperer#alb 813,{ set @name$,"alberta"; callfunc "goldmain"; end;}payon,151,182,4 script Gold Room Warperer#pay 813,{ set @name$,"payon"; callfunc "goldmain"; end;}geffen,115,74,4 script Gold Room Warperer#gef 813,{ set @name$,"geffen"; callfunc "goldmain"; end;}function script goldmain { if (getgmlevel() >= 90){ mes "[Gold Room Warperer]"+zeny," "+#CASHPOINTS; if(sex != 0){ mes "Hello Sir what can I do for you?"; }else{ mes "Hello Maam what can I do for you?"+#KAFRAPOINTS; } next; menu "Enter Mining Site",start,"Please close the mine Site. Now!",-,"Please Open the mine Site. Now!",G_open,"Nothing",C_s; next; mes "[Gold Room Warperer]"; mapannounce "ordeal_1-2","Excuse me Miners.",bc_map; mes "Ok."; next; mapannounce "ordeal_1-2",strcharinfo(0) +" wants to close the Gold Room for a while",bc_map; mes "Just a second I will just ask them to"; mes "go out in the mining site"; next; mapannounce "ordeal_1-2","Please settle your things and move quitely",bc_map; mes "[Gold Room Warperer]"; mes "............."; mes "........"; next; mes "[Gold Room Warperer]"; mes "Ok your done"; set .opengoldroom,1; areawarp "ordeal_1-2",21,286,286,22,"prontera", 173, 160; close; } if(.opengoldroom == 0){ goto start; }else{ mes "[Gold Room Warperer]"; mes "Sorry!"; mes "The Mining Site is closed."; close; }G_open: mes "[Gold Room Warperer]"; mes "Ok."; mes "Mining Site is Already Available."; announce " Gold Room is open for public!",bc_map; set .opengoldroom,0;close;start: if ( alive == 0){ set golds,0; } mes "[Gold Room Warperer]"; mes "What do you want?"+cash; next; menu "To the Gold Room",-,"Exchange Gold",exchange,"Nothing",C_s; mes "[Gold Room Warperer]"; mes "Hmm.."; mes "It cost 100,000z"; mes "Would you like to go now to the gold room?"; if(select("Yes", "No") == 2) close; if(@name$ == "prontera") savepoint "prontera", 173, 160; if(@name$ == "aldebaran") savepoint "aldebaran",166, 163; if(@name$ == "alberta") savepoint "alberta",16, 246; if(@name$ == "payon") savepoint "payon",160, 179; if(@name$ == "geffen") savepoint "geffen",124, 85; if (Zeny < 100000) goto nomoney; set Zeny, Zeny - 100000; set alive, 1; set paid, 1; set golds,0; warp "ordeal_1-2", 156, 155; close;nomoney: mes "[Gold Room Warperer]"; mes "Sorry insufficient balance"; close;exchange: mes "[Gold Room Warperer]"; mes "Hmm...let me see"; mes "You have " +golds+ "."; if (golds == 0) goto nogold; mes "Ok get this."; next; if (checkweight(969,golds) == 0) goto L_OverWeight; getitem 969, golds; set golds, 0; emotion e_gg; close;L_OverWeight: mes "[Gold Room Warperer]"; mes "Sorry your overweight"; close;nogold: close;C_s: close;}//============================================================//===========================================================//========================================//warps you may edit this one for your convenience//========================================ordeal_1-2,73,265,0 warp ord500 1,1,prontera,173,160ordeal_1-2,129,194,0 warp ord501 1,1,prontera,173,160ordeal_1-2,130,194,0 warp ord502 1,1,prontera,173,160ordeal_1-2,178,193,0 warp ord503 1,1,prontera,173,160ordeal_1-2,290,130,0 warp ord504 1,1,prontera,173,160ordeal_1-2,241,281,0 warp ord505 1,1,prontera,173,160ordeal_1-2,66,25,0 warp ord506 1,1,prontera,173,160ordeal_1-2,202,129,0 warp ord509 1,1,prontera,173,160ordeal_1-2,105,154,0 warp ord510 1,1,prontera,173,160//============Spawns=================ordeal_1-2,0,0,0,0 monster Golden Pecopeco 1002,100,40000,20000,0
  10. Upvote
    quesoph got a reaction from mrlongshen in how can i add soul link buffs on this script?   
    -  script  Healer  -1,{    set .@Price,0;  // Zeny required for heal  set .@Buffs,1;  // Also buff players? (1: yes / 0: no)  set .@Delay,0;  // Heal delay, in seconds  callfunc "F_ClearGarbage",0;  switch ( BaseJob ) {    case 18:  .@spirit = 445; break;    case 20:    case 15:  .@spirit = 447; break;    case 19:  .@spirit = 455; break;    case 4047: .@spirit = 448; break;    case 17:  .@spirit = 456; break;    case 16:  .@spirit = 449; break;    case 12:  .@spirit = 457; break;    case 14:  .@spirit = 450; break;    case 10:  .@spirit = 458; break;    case 23:  .@spirit = 451; break;    case 11:  .@spirit = 460; break;    case 7: .@spirit = 452; break;    case 4049:  .@spirit = 461; break;    case 8: .@spirit = 454; break;    case 9: .@spirit = 453; break;  }  if (@HD > gettimetick(2)) end;  if (.@Price) {    message strcharinfo(0),"Healing costs "+.@Price+" Zeny.";    if (Zeny < .@Price) end;    if(select("^0055FFHeal^000000:^777777Cancel^000000") == 2) close;    set Zeny, Zeny-.@Price;  }  specialeffect2 EF_HEAL2; percentheal 100,100;      if (.@Buffs) {    for( .@i = 0; .@i < getarraysize( .Buffs$ ); .@i++ ) {      .@sum = atoi(.@b$[.@i]) + .min_Levels[.@i];      .@j = .Buffs$[.@i];      stand (strcharinfo(0)); // <- Added this so characters dont get stuck when soul link is casting.      if( .@sum )        sc_start4 .@j, 240000, 5,  .@spirit,0,0;      if ( .min_Levels[3] )        skilleffect .@spirit, 5;   // Start Soul Link Effect.    }  }  if (.@Delay) set @HD, gettimetick(2)+.@Delay;  close;OnInit:  setarray .Buffs$, SC_INC_AGI, SC_BLESSING, SC_KYRIE, SC_SOULLINK;  setarray .min_Levels,    5,   5, 1, 5;  end;  }prontera,163,185,6  duplicate(Healer)  Healer1#alb  909
  11. Upvote
    quesoph got a reaction from Quazi in how to add image on custom cards   
    data/num2cardillustnametable.txt Add Custom Card here.
    eg:
    20000#customcard#
     
    data/texture/À¯ÀúÀÎÅÍÆäÀ̽º/cardbmp/ paste your customcard.bmp here
  12. Upvote
    quesoph got a reaction from neil413 in Scammer Developer Dev Kuro   
    This is the reason why other countries doesn't trust some Filipinos in *athena community.
  13. Upvote
    quesoph reacted to Dastgir in [Release] ExtendedBG for Hercules (with eAmod BG modes)   
    Hello Hercules Community,
     
    Let me explain it first.
    It is ExtendedBG, which tends to contain all eAmodBG modes and extra modes(as and when coded).
    Some Previews:
    http://imgur.com/a/2SSVR
    Ohh, and the last thing I forgot to tell,
    Its 100% Plugin and Script, no Source Edits ..
     
    Special Thanks To:
    jaBote co-founded this project(and really thanks to him , that he motivated me at start at provided some functions and idea of how the base should be, and what we should do it to give flavor of Hercules in it).
     
    Repository Link: https://github.com/dastgirp/eBG (Please read README.md for installation steps)
     
    Leave Comments/Suggestions if you find something.
    NOTE:
     There might be some(/many) debug messages left in map-server which will be cleaned up. I will add battle.conf soon (you have to add it yourself for now or edit the plugin) The plugin might be a big mess to read/understand (I did many experiments over the year) There might be some bugs Thanks to @Rebel and @Myriad for testing and providing initial feedback
    Contact me on Discord: @Dastgir#1460 if there's some urgent issue or else open the issue in github. keep this topic for support.
     
    Want to encourage me??

     
  14. Upvote
    quesoph got a reaction from Hyoru in How to make Spider Web into trap like and...   
    https://github.com/HerculesWS/Hercules/blob/master/src/map/skill.c#L11601
    Add:
     
    + case UNT_SPIDERWEB:    case UNT_ANKLESNARE:    case UNT_MANHOLE: Pre-Renewal: https://github.com/HerculesWS/Hercules/blob/master/db/pre-re/skill_unit_db.txt#L85
    Renewal: https://github.com/HerculesWS/Hercules/blob/master/db/re/skill_unit_db.txt#L85
    Replace with:
     
    405,0xb7,   ,  0, 1,1000,enemy, 0x002  //PF_SPIDERWEB  
    Pre-Renewal:https://github.com/HerculesWS/Hercules/blob/master/db/pre-re/skill_db.txt#L451
    Renewal: https://github.com/HerculesWS/Hercules/blob/master/db/re/skill_db.txt#L451
    Replace with:
     
    405,7,6,2,0,0x1,0,1,1,no,0,0,3,magic,0,    PF_SPIDERWEB,Fiber Lock  
    tested.
  15. Upvote
    quesoph got a reaction from Yoh Asakura in Disabling 'Cash Shop' button in upper right corner   
    You need to hex your client..
     
    Find this:
    4E 43 5F 43 61 73 68 53 68 6F 70and replace with00 00 00 00 00 00 00 00 00 00 00This would disable cashshop. 
    * back up your client first just in case something goes wrong.
  16. Upvote
    quesoph got a reaction from Neneka in homunculus and pet Intimacy command?   
    @petfriendly <0-1000>Sets the intimacy level of your pet, with 1000 being "Loyal". @homfriendly <0-1000>Sets the intimacy level of your homunculus, with 1000 being "Loyal".  
    ?
  17. Upvote
    quesoph got a reaction from mouraneto11 in [Share] Replace Gunslinger's sprite to rebellion.   
    Just sharing some of my unused stuff
     
    Paste this inside your data folder and you're good to go.
     
    data.7z
  18. Upvote
    quesoph got a reaction from Milamber in Harmony Patch 3.3.12 30 MAI   
    ^ I think harmony only supports up to 2012-04-10..
  19. Upvote
    quesoph got a reaction from nana in Party Drop Rate Updated.   
    Created by WiseWarrior
    Modified by quesoph
    Original Thread: http://www.eathena.ws/board/index.php?showtopic=241064
    Download: Party Drop Rate.patch
  20. Upvote
    quesoph reacted to kisuka in [FORUM] IP.Nexus / IP.Downloads   
    I don't know if I support this :/ considering this software is open source and free, to allow users to upload paid files to our forums would go against our own license in a sense imo. I'd say if you are making things like sprites, textures, etc and want to charge people for them, you should make your own website, with your own payment gateway and such and just link to it. I dunno. That's just my opinion though. I believe in things being shared for free (when it comes to sprites, scripts, textures, etc) out of the passion for wanting to contribute to the community, like how things were in the past. Too many people trying to profit off this community now a days.
  21. Upvote
    quesoph got a reaction from Edwige in Extended Vending System UPDATED rev14395! by Lilith   
    ^ double check the changes you've done to your server. maybe you miss something in item_db.h
  22. Upvote
    quesoph got a reaction from jaBote in Disabling 'Cash Shop' button in upper right corner   
    You need to hex your client..
     
    Find this:
    4E 43 5F 43 61 73 68 53 68 6F 70and replace with00 00 00 00 00 00 00 00 00 00 00This would disable cashshop. 
    * back up your client first just in case something goes wrong.
  23. Upvote
    quesoph got a reaction from Mumbles in Disabling 'Cash Shop' button in upper right corner   
    You need to hex your client..
     
    Find this:
    4E 43 5F 43 61 73 68 53 68 6F 70and replace with00 00 00 00 00 00 00 00 00 00 00This would disable cashshop. 
    * back up your client first just in case something goes wrong.
  24. Upvote
    quesoph reacted to Mystery in July Digest 2014   
    July Digest 2014
    The following digest covers the month of July 1st - July 31st 2014.
     

    Development Highlights
    [*]Update rAthena-main-upgrade.sql (f5de504) [*]Update rAthena-logs-upgrade.sql (9a36b78) [*]Fixed some skill checks considering Super Novices the same as Novices (92a249) [*]Updated SR_FLASHCOMBO behaviour (17e414) [*]Mado Behaviour Changes (da190e0) [*]Corrected list of skills that can be used while using mado [*]Corrected list of supportive skills that can't be cast in users with mado [*]Fixed *setmadogear behaviour, it would set mado to any character
    [*]Updated warg skill check (cc4c87c) [*]Updated SQL-UPGRADE files (ef8700d) [*]Organized SQL-TOOLS (3213a3b) [*]SQL Reorganization (3ecf877) [*]Corrected some SC behaviour (9dd6ee) [*]Corrected compile errors in case DB_ENABLE_STATS is defined (222345) [*]Fixed an issue in the 'Invalid client hash' console message (8a1ad06) [*]Fixed issue with [AT]mount, it wasn't displaying the expected message (ec5117) [*]Fixed issue with mounts and jobchange, ranger and mechanic mounts (1eee0f) [*]Extracted method to obtain SYSTEM_INFO from functions in sysinfo.c (7cd967) [*]Minor script core fixes (2bbde24)
    [*]Removed useless calls in script.c, Removed nullpo calls in script.c, scripts shouldn't crash the server [*]Added checks in several functions in order to prevent possible crashes [*]*resetstatus, *resetskill, *skillpointcount, *changesex, *successremovecards, *failedremovecards, *getequipcardid, *skilleffect, *atcommand, *cardscnt, *equip, *useatcmd [*]Corrected *specialeffect2 behaviour, when no player was attached and another player name was supplied it would stop script execution instead of displaying the effect
    [*]Removed redundant data from guardian_data, saving up to 40 bytes per guardian (10240 bytes total) (d1d99a9) [*]Added support to show children of struct/union in Debug Help plugin (74c804) [*]Added sysinfo support to Debug Help plugin (23d696) [*]Fixed issue that when players used [at]fakename when disguised (1e492e3)


     
    Scripting Highlights
    [*]Removed duplicate code from the Cool Event NPCs (5955d8) [*]Moved common code to a function [*]Modified to use appropriate functions from function_kafras.txt [*]Modernized syntax/updated function documentation in both files [*]Fixed the Rachel NPC incorrectly stating it's warping you to Rachel, instead of Veins



     
    Documentation Highlights
    [*]Added documentation regarding hard coded constants (a10dd560)

     
    July Statistics
    [*]During the period there were 47 Commits. [*]Of these 47 commits, 11 included bug-fixes. [*]5 Commits from Pull Requests  [*]In this month, there were 1,929 Additions and 1,905 Deletions.

  25. Upvote
    quesoph got a reaction from Zirius in [ HELP ] Making the OLD payon map as default   
    I think your problem is your map's name.. it should be "payon". You cannot rename it unless you edit it using BrowEdit.
     
    I haven't tried this but i think it will work
     
    try to open old payon's file using BrowEdit and save it as "pay2".
×
×
  • Create New...

Important Information

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