Hyroshima

View File Mir4 Enchant It allows you to enchant equipment using a random system between possibilities, and each registered title has 4 categories of rarity: S,A,B,C and each one with its respective chances. Note: It is necessary to add the functions to manipulate arrays and found here: Submitter Hyroshima Submitted 05/07/24 Category Utility  

View File Baron of Cards By deliver with noble items to the baron he will allow you to try your luck in your card game, being able to get cards mini-boss, mvps or common. Important: I was unable to upload the illustration images (always returns error -200), they are just images to use in cutin, here directly from my domain: (3mb): https://hyroshima.com/files/Card_illust.zip VirusTotal Rash: 59bd666490e2258c62c367200d3079d36a05f6e67349d5331a6f8987d36a65ca OBS: It is necessary to add the functions to manipulate arrays and found here: https://www.youtube.com/watch?v=BIfQYpXqsPg Submitter Hyroshima Submitted 04/26/24 Category Events & Games  

It's not a big deal but I'm providing a utility that I made because I hadn't found anything that did this, basically you pass 2 guild IDs to check if they are allies, 1 for true and 0 for false. script.c /* //Hyroshima *guild_ally(guild_id1,guild_id2) //= PARAM 1 (guild1) PARAM 2 (guild2) RETURN 0= false, 1= true */ static BUILDIN(guild_ally) { int guild1,guild2 = 0; if(script_getnum(st,2) == script_getnum(st,3)) { ShowError("buildin_guild_ally: guild_id1(%d) cannot be equal to guild_id2(%d).\n",script_getnum(st,2),script_getnum(st,3)); script_pushint(st,0); return true; } guild1 = script_getnum(st,2); guild2 = script_getnum(st,3); if(guild->search(guild1) == NULL) { ShowError("buildin_guild_ally: Guild does not exist (guild_id1: %d).\n",guild1); script_pushint(st,0); return true; } if(guild->search(guild2) == NULL) { ShowError("buildin_guild_ally: Guild does not exist (guild_id2: %d).\n",guild2); script_pushint(st,0); return true; } script_pushint(st,guild->isallied(guild1,guild2)); return true; } BUILDIN_DEF(guild_ally,"ii"),

when I want to round values I check if the remainder of the division is greater than 5. example: .@calc1 = 237/7; .@calc1_r = 237%7; if(.@calc1_r > 5) .@calc1++;

//Add a call function in item // callfunc "Boxx"; function script Boxx { //Item ID //== setarray .@ItemID[0],1108,2104,5011,2301,2404; setarray .@itemRF[0], 10, 10, 10, 7, 10; //check if you still have an item with a refine lower than 10 //== for(set .@i,0; .@i<getarraysize(.@ItemID); set .@i,.@i+1) if((getd("eqi_"+.@ItemID[.@i])-1) < .@itemRF[.@i]) setarray .@equips[getarraysize(.@equips)],.@ItemID[.@i]; //All max refined //== if(!getarraysize(.@equips)){ dispbottom "Bye bye."; end; } set .@idx,rand(getarraysize(.@equips)); set .@slot,getiteminfo(.@equips[.@idx],ITEMINFO_LOC); switch(.@slot) { case 2: set .@slot,EQI_HAND_R; break; case 16: set .@slot,EQI_ARMOR; break; case 32: set .@slot,EQI_HAND_L; break; case 64: set .@slot,EQI_SHOES; break; case 256: set .@slot,EQI_HEAD_TOP; break; } if(getd("eqi_"+.@equips[.@idx])) { if(!countitem(.@equips[.@idx])){ dispbottom "Item not found "+getitemname(.@equips[.@idx])+"!"; end; } if(getequipid(.@slot) != .@equips[.@idx]) equip .@equips[.@idx]; successrefitem .@slot; setd "eqi_"+.@equips[.@idx],getd("eqi_"+.@equips[.@idx])+1; } else { setd "eqi_"+.@equips[.@idx],1; getitem .@equips[.@idx],1; } end; } I haven't tested it, check if it will work as you wanted.

I made this model as you explained how it works. //Add a call function in item // callfunc "Boxx"; function script Boxx { //Item ID //== setarray .@ItemID[0],1108,2104,5011,2301,2404; //check if you still have an item with a refine lower than 10 //== for(set .@i,0; .@i<getarraysize(.@ItemID); set .@i,.@i+1) if((getd("eqi_"+.@ItemID[.@i])-1) < 10) setarray .@equips[getarraysize(.@equips)],.@ItemID[.@i]; //All refined +10 //== if(!getarraysize(.@equips)){ dispbottom "Bye bye."; end; } set .@idx,rand(getarraysize(.@equips)); set .@slot,getiteminfo(.@equips[.@idx],ITEMINFO_LOC); switch(.@slot) { case 2: set .@slot,EQI_HAND_R; break; case 16: set .@slot,EQI_ARMOR; break; case 32: set .@slot,EQI_HAND_L; break; case 64: set .@slot,EQI_SHOES; break; case 256: set .@slot,EQI_HEAD_TOP; break; } if(getd("eqi_"+.@equips[.@idx])) { if(!countitem(.@equips[.@idx])){ dispbottom "Item not found "+getitemname(.@equips[.@idx])+"!"; end; } if(getequipid(.@slot) != .@equips[.@idx]) equip .@equips[.@idx]; successrefitem .@slot; setd "eqi_"+.@equips[.@idx],getd("eqi_"+.@equips[.@idx])+1; } else { setd "eqi_"+.@equips[.@idx],1; getitem .@equips[.@idx],1; } end; }

Sorry but it's still a little confusing for me to understand. let's do it like this, tell me what you want the script to do, so that instead of looking for a solution for this model you mentioned, I can create one without using your base. 🙂 without using codes, just place an order xD

seria isso? prontera,151,169,5 script Alquimista Teleport 113,{ if(Class == 5 || Class == 18 || Class == 4019) { dispbottom "class: "+Class+""; mes "Você pode ser teleportado."; next; warp "prontera",150,150; end; } mes "Somente Alquimistas podem usar esse npc."; close; }

tell me a little more about it, I need to understand the reason and why you will call again and again until the 5 cases are completed. so that I can make a suitable solution for the situation.

I made this function for a friend and it can be useful in general. basically allows you to add wait time for something in npc, you can put different times in the same npc using the reference names. a utility to put in Global_Functions //== Function F_SetNpcCD ================================ // Add cooldown to access specific functions of a pc but not limited //== // callfunc "F_SetNpcCD","reference_name",time_in_seconds{,cooldown type}; // Examples: // callfunc("F_SetNpcCD","name_example0",45) // Adds 45 second cooldown at player level // callfunc("F_SetNpcCD","name_example1",85,1) // Adds 1 minute 25 second cooldown at player level // callfunc("F_SetNpcCD","name_example2",120,2) // Adds 2-minute cooldown at account level function script F_SetNpcCD { set .@var$,(countstr(getarg(0)," ")?replacestr(getarg(0)," ","_"):getarg(0)); set .@time,getarg(1); set .@type,getarg(2,0); setd(""+(.@type==2?"#":"")+""+.@var$+"_time",gettimetick(2)+.@time); return; } //== Function F_GetNpcCD ================================ // Check npc access cooldown //== // callfunc "F_GetNpcCD","name_example"{,cooldown type}; // Examples: // callfunc("F_GetNpcCD","name_example0") // returns "NPC Cooldown: 00H:00M:45s (player)" // callfunc("F_GetNpcCD","name_example1",1) // returns "NPC Cooldown: 00H:01M:25s (player)" // callfunc("F_GetNpcCD","name_example2",2) // returns "NPC Cooldown: 00H:02M:00s (account)" function script F_GetNpcCD { set .@var$,(countstr(getarg(0)," ")?replacestr(getarg(0)," ","_"):getarg(0)); set .@type,getarg(1,0); if(gettimetick(2) < getd(""+(.@type==2?"#":"")+""+.@var$+"_time")) { set .@ts,getd(""+(.@type==2?"#":"")+""+.@var$+"_time")-gettimetick(2); set .@h,.@ts/3600; set .@m,(.@ts%3600)/60; set .@s,.@ts%60; dispbottom "NPC Cooldown: "+(.@h<10?"0"+.@h:.@h)+"H:"+(.@m<10?"0"+.@m:.@m)+"M:"+(.@s<10?"0"+.@s:.@s)+"s ("+(.@type==2?"account":"player")+")"; end; } return; }

try like this: OnPCDieEvent: if(strcharinfo(3) == MY_EVENT_MAP) { for(set .@i,0; .@i<getarraysize($MY_VARIABLE); set .@i,.@i+1) { if(getcharid(3) == $MY_VARIABLE[.@i]) { deletearray $MY_VARIABLE[.@i],1; dispbottom "Game over."; break; } } } end;

I think you didn't see when I said that I tested both in an old and current revision and both present the same result. the information is there, if anyone is willing to check the consistency or not, it doesn't matter.

apparently the problem is happening with rates at 1x (100) and the mob_db drop at 10000 (100%). I found there on git in edits 2 related problem, a friend who has an older revision that doesn't have the current formula doesn't have this problem. I did the same test in rA and it is normal without this problem. my friend's is like this (because it's a previous review it's normal): if (src) { //Drops affected by luk as a fixed increase [Valaris] if (battle_config.drops_by_luk) drop_rate += status_get_luk(src)*battle_config.drops_by_luk/100; //Drops affected by luk as a % increase [Skotlex] if (battle_config.drops_by_luk2) drop_rate += (int)(0.5+drop_rate*status_get_luk(src)*battle_config.drops_by_luk2/10000.); } and the current one is like this: if (src != NULL) { //Drops affected by luk as a fixed increase [Valaris] if (battle_config.drops_by_luk) drop_rate += status_get_luk(src) * battle_config.drops_by_luk / 100; //Drops affected by luk as a % increase [Skotlex] if (battle_config.drops_by_luk2) drop_rate += (int)(0.5 + drop_rate * status_get_luk(src) * battle_config.drops_by_luk2 / 10000.); and now it has this part: if (sd != NULL) { int drop_rate_bonus = 100; // When PK Mode is enabled, increase item drop rate bonus of each items by 25% when there is a 20 level difference between the player and the monster.[KeiKun] if (battle_config.pk_mode && (md->level - sd->status.base_level >= 20)) drop_rate_bonus += 25; // flat 25% bonus drop_rate_bonus += sd->dropaddrace[md->status.race] + (is_boss(src) ? sd->dropaddrace[RC_BOSS] : sd->dropaddrace[RC_NONBOSS]); // bonus2 bDropAddRace[KeiKun] if (sd->sc.data[SC_CASH_RECEIVEITEM] != NULL) // Increase drop rate if user has SC_CASH_RECEIVEITEM drop_rate_bonus += sd->sc.data[SC_CASH_RECEIVEITEM]->val1; if (sd->sc.data[SC_OVERLAPEXPUP] != NULL) drop_rate_bonus += sd->sc.data[SC_OVERLAPEXPUP]->val2; drop_rate = (int)(0.5 + drop_rate * drop_rate_bonus / 100.); // Limit drop rate, default: 90% drop_rate = min(drop_rate, 9000); } } I'm just reporting it and seeing if it's really a problem because I encountered this while doing a script and I wasn't getting the result I should have. https://github.com/HerculesWS/Hercules/pull/3083 https://github.com/HerculesWS/Hercules/pull/2983