Jump to content

Archduke

Members
  • Posts

    19
  • Joined

  • Last visited

Everything posted by Archduke

  1. I have a problem of my card remover npc when i remove the card all cards are gone when a use @refresh for my account, and when i also remove the card, Cards will disappear it wont go directly to may alt + e which my inventory please help This is my script //===== rAthena Script ======================================= //= Card Removal NPC //===== By: ================================================== //= TyrNemesis^ //===== Current Version: ===================================== //= 1.2a //===== Compatible With: ===================================== //= rAthena Project //===== Description: ========================================= //= Removes cards from equipped items. //===== Additional Comments: ================================= //= 1.0 First version. [TyrNemesis^] //= 1.2 Optimized and fixed getequipname menu. [Kisuka] //= 1.2a Added 'disable_items' command. [Euphy] //============================================================ welgaia,204,144,3 script Wise Old Woman#eAcustom 78,{ set .zenycost,200000; // base cost of the card remover services (in Zeny) set .percardcost,25000; // cost per card of the card remover services (in Zeny) set .faildestroy,0; // should the card remover have a chance of failure that destroys items? (1=yes, 0=no) disable_items; 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 .@indices[1], EQI_HEAD_TOP, EQI_ARMOR, EQI_HAND_L, EQI_HAND_R, EQI_GARMENT, EQI_SHOES, EQI_ACC_L, EQI_ACC_R, EQI_HEAD_MID, EQI_HEAD_LOW; for( set .@i,1; .@i <= 10; set .@i,.@i+1 ) { if( getequipisequiped(.@indices[.@i]) ) set .@menu$, .@menu$ + F_getpositionname(.@indices[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]"; set .@menu$, .@menu$ + ":"; } set .@part, .@indices[ 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 " + (.zenycost+(.@cardcount * .percardcost)) + " 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 < (.zenycost+(.@cardcount * .percardcost))) || (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 - (.zenycost+(.@cardcount * .percardcost)); delitem 1000,1; //Star_Crumb delitem 715,1; //Yellow_Gemstone // 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 (.faildestroy==1) { 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 "+callfunc("F_InsertComma",.zenycost)+" zeny, plus "+callfunc("F_InsertComma",.percardcost)+" 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; } }
  2. Try to remove the | SCCB_CHEM_PROTECT make it status_change_clear_buffs(target, SCCB_BUFFS ); just try it then recompile
  3. Who has script that can disable 4 cards in a time for example Cards that bound to weapon just max 2 same card just be bound to weapon but beyond 2 like 3 the effect will not be functions for 3 cards and 4. I mean when 2 Turtle General will function but 3 Turtle General will not function already because it is already 3 max will be 2 cards. sorry for my english
  4. I have this problem in my script which is the tarot script in skill.c, the issue is when i use the tarot skill to a player when the yellow sun which is the card will appear it will stop i need to hit the player so that na tarot will start again, this is my script see picture attached also. THIS HERCULES EMULATOR. case CG_TAROTCARD: { int count = -1; if (tsc && tsc->data[type]) { map->freeblock_unlock(); return 0; } if (rnd() % 100 > skill_lv * 8 || (dstmd && ((dstmd->guardian_data && dstmd->class_ == MOBID_EMPELIUM) || mob_is_battleground(dstmd)))) { if (sd != NULL) clif->skill_fail(sd, skill_id, USESKILL_FAIL_LEVEL, 0); map->freeblock_unlock(); return 0; } status_zap(src,0,skill->dbs->db[skill->get_index(skill_id)].sp[skill_lv]); // consume sp only if succeeded [Inkfish] do { int eff = rnd() % 14; if( eff == 5 ) clif->specialeffect(src, 528, AREA); else clif->specialeffect(bl, 523 + eff, AREA); switch (eff) { case 0: // heals SP to 0 status_percent_damage(src, bl, 0, 100, false); break; case 1: // matk halved sc_start(src,bl,SC_INCMATKRATE,100,-50,skill->get_time2(skill_id,skill_lv)); break; case 2: // all buffs removed status->change_clear_buffs(bl,1); break; case 3: // 1000 damage, random armor destroyed { status_fix_damage(src, bl, 1000, 0); clif->damage(src,bl,0,0,1000,0,BDT_NORMAL,0); if( !status->isdead(bl) ) { int where[] = { EQP_ARMOR, EQP_SHIELD, EQP_HELM, EQP_SHOES, EQP_GARMENT }; skill->break_equip(bl, where[rnd()%5], 10000, BCT_ENEMY); } } break; case 4: // atk halved sc_start(src,bl,SC_INCATKRATE,100,-50,skill->get_time2(skill_id,skill_lv)); break; case 5: // 2000HP heal, random teleported status->heal(src, 2000, 0, 0); if( !map_flag_vs(bl->m) ) unit->warp(bl, -1,-1,-1, CLR_TELEPORT); break; case 6: // random 2 other effects if (count == -1) count = 3; else count++; //Should not re-trigger this one. break; case 7: // stop freeze or stoned { enum sc_type sc[] = { SC_STOP, SC_FREEZE, SC_STONE }; sc_start(src,bl,sc[rnd()%3],100,skill_lv,skill->get_time2(skill_id,skill_lv)); } break; case 8: // curse coma and poison sc_start(src,bl,SC_COMA,100,skill_lv,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_CURSE,100,skill_lv,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_POISON,100,skill_lv,skill->get_time2(skill_id,skill_lv)); break; case 9: // confusion sc_start(src,bl,SC_CONFUSION,100,skill_lv,skill->get_time2(skill_id,skill_lv)); break; case 10: // 6666 damage, atk matk halved, cursed status_fix_damage(src, bl, 6666, 0); clif->damage(src,bl,0,0,6666,0,BDT_NORMAL,0); sc_start(src,bl,SC_INCATKRATE,100,-50,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_INCMATKRATE,100,-50,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_CURSE,skill_lv,100,skill->get_time2(skill_id,skill_lv)); break; case 11: // 4444 damage status_fix_damage(src, bl, 4444, 0); clif->damage(src,bl,0,0,4444,0,BDT_NORMAL,0); break; case 12: // stun sc_start(src,bl,SC_STUN,100,skill_lv,5000); break; case 13: // atk,matk,hit,flee,def reduced sc_start(src,bl,SC_INCATKRATE,100,-20,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_INCMATKRATE,100,-20,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_INCHITRATE,100,-20,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_INCFLEERATE,100,-20,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,SC_INCDEFRATE,100,-20,skill->get_time2(skill_id,skill_lv)); sc_start(src,bl,type,100,skill_lv,skill->get_time2(skill_id,skill_lv)); break; default: break; } } while ((--count) > 0); clif->skill_nodamage(src,bl,skill_id,skill_lv,1); }
  5. Hello @HappyMan i have this problem in your script i already tried it but the problem was it was not a continues fishing i need to click the fish again to have a fishing do you have the fishing session continuously i will just leave may character and he we be fishing by itself? Thank you !
  6. Where can i get fishing script ? that can make the fishing session continuous? 1 click and let is fish by it self? Help please thanks.
  7. i have one question how can i fix this one, because after clicking it, it will stop. what is the script for cotinues fishing they will just click it once. Thank you !
  8. I have this problem that even though i have my own party i can still hit my partymember how can i disable it ? i want a party vs party but they can still kill each one of them in the same party. Is this gm commands or server side or client ? how can i fix it need help please.
  9. Thank you so much @Emistry =D
  10. We can i find this one in rathena ? can any one help me ? Thank you
  11. Thank you so much @Habilis for sharing this information =D thumbs up Thank you @Habilis very much appreciated =D
  12. Can anyone help me how to add cloth palletes? Newbie here
×
×
  • Create New...