Jump to content

MikZ

Members
  • Content Count

    410
  • Joined

  • Last visited

1 Follower

About MikZ

  • Rank
    Advanced Member

Recent Profile Visitors

2136 profile views
  1. up please. seems not working tons of rework T_T
  2. Thanks! Now I'm having prob with convertpcinfo command.
  3. Good day! I found this timely gvg event in rathena. May I request to convert to Hercules please. Got error on below which cant test the script correctly. thank you!
  4. Sweet! Thank you so much!
  5. Hi Samuel, I see. wait let me try.
  6. Hi @meko Good day! I did check in https://haru.ws/scriptchecker/#output and got this error. Haven't tried in my server yet.
  7. Good day! Requesting to convert this to Hercules please.} error found in this line script inarray if(inarray(.blackList[0],[email protected]) != -1){ Full script below. thanks! //===== rAthena Script ======================================= //= Auto-Potion //===== Description: ========================================= //= Provides an @autopot command to automatically use potions. //===== Changelogs: ========================================== //= 1.0 First version. [Euphy] //= 2.0 rewrite and adding SP option. [sader1992] //============================================================ - script #autopot -1,{ OnInit: .HP_Option = true; //Allow HP option .SP_Option = true; //Allow SP option .MinDelay = 100; //Minimum Delay Allowed in milliseconds (Default and Recommended: 100) [lower values will increase server strain] setarray .blackList[0],0; //Array of black listed item ID if(!.HP_Option && !.SP_Option){ debugmes "Warning: @autopot both hp and sp are Disabled"; debugmes "Warning: @autopot script has been Disabled!"; end; } bindatcmd("autopot",strnpcinfo(0)+"::OnCommand",0,99); end; L_Help: dispbottom "Available commands:"; if(.HP_Option && .SP_Option){ dispbottom " @autopot <hp|sp> <item id> {<min hp|sp % [1..100]> {<delay [" + .MinDelay + "..1000]>}}"; dispbottom " @autopot <hp|sp> list"; dispbottom " @autopot <hp|sp> <on|off>"; }else{ dispbottom " @autopot <" + (.HP_Option?"hp":"sp") + "> <item id> {<min " + (.HP_Option?"hp":"sp") + " % [1..100]> {<delay [" + .MinDelay + "..1000]>}}"; dispbottom " @autopot <" + (.HP_Option?"hp":"sp") + "> list"; dispbottom " @autopot <" + (.HP_Option?"hp":"sp") + "> <on|off>"; } dispbottom " @autopot info"; dispbottom " @autopot help"; dispbottom " @autopot blacklist"; return; L_Info: dispbottom "----------Auto-Potion Information-----------"; if(.HP_Option){ dispbottom "HP POTION: " + getitemname(@autopot_hp_ID) + " (" + @autopot_hp_ID + ")"; dispbottom "MIN HP: " + @autopot_hp_Min + " %"; } if(.SP_Option){ dispbottom "SP POTION: " + getitemname(@autopot_sp_ID) + " (" + @autopot_sp_ID + ")"; dispbottom "MIN SP: " + @autopot_sp_Min + " %"; } dispbottom "DELAY: " + @autopot_delay + " ms"; dispbottom "---------------------------------------------"; return; L_Start: deltimer strnpcinfo(3) + "::OnStart"; [email protected]$ = getarg(0,0); [email protected] = getarg(1,0); setd "@autopot_" + [email protected]$ + "_Min",getarg(2,0); @autopot_delay = getarg(3,0); if (getd("@autopot_" + [email protected]$ + "_Min") < 1 || getd("@autopot_" + [email protected]$ + "_Min") > 100) setd "@autopot_" + [email protected]$ + "_Min",90; if (@autopot_delay < 50 || @autopot_delay > 1000) @autopot_delay = .MinDelay; if (getiteminfo([email protected],2) != IT_HEALING) { dispbottom getitemname([email protected]) + " is not a healing item."; end; } if(inarray(.blackList[0],[email protected]) != -1){ message strcharinfo(0), "'" + getitemname([email protected]) + "' is black listed and cannot be used."; end; } if (BaseLevel < getiteminfo([email protected],12)) { message strcharinfo(0), "Your base level is too low to use '" + getitemname([email protected]) + "'."; end; } setd "@autopot_" + [email protected]$ + "_ID",[email protected]; setd "@autopot_" + [email protected]$ + "_Active",true; addtimer [email protected],strnpcinfo(3) + "::OnStart"; message strcharinfo(0), "Auto-Potion " + strtoupper([email protected]$) + " enabled."; callsub L_Info; return; OnCommand: if (!getarraysize([email protected]_parameters$)) { message strcharinfo(0), "Invalid syntax."; callsub L_Help; end; } [email protected]$[0] = strtolower([email protected]_parameters$[0]); [email protected]$[1] = strtolower([email protected]_parameters$[1]); if([email protected]$[0] == "hp" || [email protected]$[0] == "sp"){ if((!.HP_Option && [email protected]$[0] == "hp") || (!.SP_Option && [email protected]$[0] == "sp")){ message strcharinfo(0), "Auto-Potion " + strtoupper([email protected]$[0]) + " is Disabled from The Server."; end; } if([email protected]$[1] == "on"){ if(getd("@autopot_" + [email protected]$[0] + "_Active")){ message strcharinfo(0), "Auto-Potion " + strtoupper([email protected]$[0]) + " is already on."; end; } if(!getd("@autopot_" + [email protected]$[0] + "_ID")){ dispbottom "You need to set a " + strtoupper([email protected]$[0]) + " Potion to be used."; callsub L_Help; end; } callsub L_Start,[email protected]$[0],getd("@autopot_" + [email protected]$[0] + "_ID"); end; } if([email protected]$[1] == "off"){ message strcharinfo(0), "Auto-Potion " + strtoupper([email protected]$[0]) + " disabled."; setd "@autopot_" + [email protected]$[0] + "_Active",false; if([email protected]_hp_Active || [email protected]_sp_Active) deltimer strnpcinfo(3) + "::OnStart"; end; } if([email protected]$[1] == "list"){ getinventorylist; for([email protected] = 0;[email protected] < @inventorylist_count;[email protected]++){ if (getiteminfo(@inventorylist_id[[email protected]],2) == IT_HEALING) { [email protected][[email protected]] = @inventorylist_id[[email protected]]; [email protected]$ = [email protected]$ + sprintf("~ ^0055FF%s^000000 (%dx)" + (inarray(.blackList[0],@inventorylist_id[[email protected]]) != -1? " ^364022Black Listed^000000":"") + (BaseLevel < getiteminfo(@inventorylist_id[[email protected]],12)? " ^E82C0CNeed Higher Level^000000":"") + ":", getitemname(@inventorylist_id[[email protected]]), countitem(@inventorylist_id[[email protected]])); [email protected]++; } } if([email protected]){ mes "[ Auto-Potion ]"; mes "Select a " + strtoupper([email protected]$[0]) + " item."; [email protected] = select([email protected]$ + " ^777777Cancel^000000") - 1; if ([email protected] != [email protected]) callsub L_Start,[email protected]$[0],[email protected][[email protected]]; close2; }else{ message strcharinfo(0), "There are no healing items in your inventory."; } end; } [email protected] = atoi([email protected]$[1]); [email protected] = atoi([email protected]_parameters$[2]); [email protected] = atoi([email protected]_parameters$[3]); if(getitemname([email protected]) != "null"){ callsub L_Start,[email protected]$[0],[email protected],[email protected],[email protected]; end; } message strcharinfo(0), "Auto-Potion : something went wrong!"; callsub L_Help; end; } if([email protected]$[0] == "blacklist"){ dispbottom "--------------Black Listed Items--------------"; for([email protected]=0;[email protected]<getarraysize(.blackList);[email protected]++){ dispbottom " " + getitemname(.blackList[[email protected]]) + " (" + .blackList[[email protected]] + ")"; } dispbottom "---------------------------------------------"; end; } if([email protected]$[0] == "info"){ if(@autopot_hp_Active || @autopot_sp_Active){ message strcharinfo(0), "Auto-Potion information is displayed below."; callsub L_Info; }else{ message strcharinfo(0), "Auto-Potion is not enabled."; } end; } if([email protected]$[0] == "help"){ message strcharinfo(0), "List of commands is displayed below."; callsub L_Help; end; } message strcharinfo(0), "Invalid syntax."; callsub L_Help; end; OnStart: if (!getstatus(SC_BERSERK) && !getstatus(SC_SATURDAYNIGHTFEVER) && !getstatus(SC_GRAVITATION) && !getstatus(SC_TRICKDEAD) && !getstatus(SC_HIDING) && !getstatus(SC__SHADOWFORM) && !getstatus(SC__INVISIBILITY) && !getstatus(SC__MANHOLE) && !getstatus(SC_KAGEHUMI) && !getstatus(SC_HEAT_BARREL_AFTER) && !getstatus(SC_STONE) && !getstatus(SC_FREEZE) && !getstatus(SC_STUN) && !getstatus(SC_SLEEP)) { if(Hp){ if(@autopot_hp_Active && Hp * 100 / MaxHp < @autopot_hp_Min) { if (countitem(@autopot_hp_ID)) { delitem @autopot_hp_ID,1; consumeitem @autopot_hp_ID; specialeffect2 207; } } if(@autopot_sp_Active && Sp * 100 / MaxSp < @autopot_sp_Min) { if (countitem(@autopot_sp_ID)) { delitem @autopot_sp_ID,1; consumeitem @autopot_sp_ID; specialeffect2 208; } } } } if(@autopot_hp_Active || @autopot_sp_Active) addtimer @autopot_delay,strnpcinfo(3) + "::OnStart"; end; }
  8. Good day! Where can I edit this? Please let me know how to make it in Hercules. thanks!
  9. Hi how did you do it?
  10. Good day! May I request assistance please. I have training dummy script but I also have hourly event like treasure box that has command @killmonster2 command. So everytime the event find the treasure enable the training dummy will be forever gone. how can I have the training dummy back after command @killmonster2? - script Punching Bag FAKE_NPC,{ OnInit: setmapflag( "prontera",mf_monster_noteleport ); OnDummyKill: monster "prontera",208,182,"Punching Bag",1905,1,"Punching Bag::OnDummyKill"; end; OnPCAttackEvent: if ( [email protected]_punch ) end; @dps_damage += @damage; end; } - script Punching Bag2 FAKE_NPC,{ OnInit: setmapflag( "prontera",mf_monster_noteleport ); OnDummyKill2: monster "prontera",208,171,"Punching Bag",1905,1,"Punching Bag2::OnDummyKill2"; end; OnPCAttackEvent: if ( [email protected]_punch ) end; @dps_damage += @damage; end; } Treasure Chest Event: // --- Exteria Ragnarok Online [ExRO] 's Property --- // --- Please visit http://www.exteriaro.com --- // --- Scripted By: ARTHistic --- // --- Do Not Revomed the Credits --- prontera,183,172,5 script Treasure Box Summoner::Tbox 4_M_JOB_WIZARD,{ //prontera,165,142,3 script Treasure Box Summoner::Tbox 4_M_JOB_WIZARD,{ mes "[^0000FFTreasure Hunt Event^000000]"; mes "Hello, I'm a new mage here in Midgard. Every hour, I tried to cast my summoning spells and there a chance that i can summon a Treasure Box that will give you items once you destroy it. I only cast my spell on main city and I immediately announce to everyone once I perfectly cast my spells. Anyways, I will give you a little hint..."; if( [email protected] == 0 ){ mes "I ^ff0000failed^000000 to summoned the Treasure Box last time.^000000"; }else { mes " "; mes "^I successfully summoned the Treasure Box last time."; } close; OnStartTbox: set [email protected],1; announce "[Treasure Chest Event: Treasure Chest Event 'I perfectly cast my summoning skills'.]",0,0x00FFFF; sleep2 5000; announce "[Treasure Chest Event: 2 rare Treasure Box will be spawned in 30 seconds at Prontera.]",0,0x00FFFF; sleep2 10000; announce "[Treasure Chest Event: Every Treasure Box gives you 5 Event Coins and a chance to drop 1 TCG.]",0,0x00FFFF; sleep2 20000; announce "[Treasure Chest Event: 2 rare Treasure Box has spawned in Prontera and will disappear in 45 minutes.]",0,0x00FFFF; monster "prontera",0,0,"Treasure Box",1344,2,"Tbox::OnTBoxKilled"; initnpctimer; end; OnTimer1800000: stopnpctimer; killmonster .eventMapTbox$,"all"; set [email protected],0; announce "[Treasure Chest Event: Rare Treasure Chest has disappear.]",0,0x00FFFF; end; OnTBoxKilled: announce "[Treasure Chest Event: The rare Treasure Box has been found and destroyed by "+strcharinfo(0)+"!]", bc_all,0x00FFFF; set [email protected],0; if( rand( 100 ) < .tboxrate ){ getmapxy( [email protected]$,[email protected],[email protected],0 ); makeitem 7227,2,[email protected]$,[email protected],[email protected]; }else{ getmapxy( [email protected]$,[email protected],[email protected],0 ); makeitem 25046,10,[email protected]$,[email protected],[email protected]; } end; OnInit: // craft settings .tboxrate = 70; set .eventMapTbox$, "prontera"; waitingroom "[Treasure Box Summoner]",0; end; }
×
×
  • Create New...

Important Information

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