Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/25/25 in all areas

  1. Version 1.0.0

    655 downloads

    The size of attachments (30mb) on rAthena does not allow to add map resources. You can find the full materials here: https://mega.nz/folder/8atXmYgC#yJEL_ssWj8D8XwmpgInYiQ Map list: ve_fild08 https://rathena.org/board/topic/144005-showcase-veins-field-08/ mosk_dun04 https://rathena.org/board/topic/143959-showcase-moscovia-dungeon-lvl-4/ ttmoon https://rathena.org/board/topic/116150-showcase-ttmoon/ navayo (+nav_beach, nav_in01, nav_in02) https://rathena.org/board/topic/116200-showcase-navayo/ anrydrago https://rathena.org/board/topic/124265-showcase-miniquest-anry-dragon/ x_base https://rathena.org/board/topic/140494-showcase-x-base/ crimea https://rathena.org/board/topic/132870-showcase-crimea/ barcode https://rathena.org/board/topic/116040-showcase-barcode/ ice2xlake https://rathena.org/board/topic/124194-showcase-ice-twice-lake/ lv_beach https://rathena.org/board/topic/116553-showcase-love-beach/ yavin1b https://rathena.org/board/topic/116300-showcase-yavin1b/ mystvil https://rathena.org/board/topic/117187-showcase-mystical-vil/ crystal https://rathena.org/board/topic/116079-showcase-crystal/ 1@scp087 https://rathena.org/board/topic/116223-showcase-scp-087/ mag_dun03_ https://rathena.org/board/topic/127185-showcase-magma-dungeon-lvl-3/ b_book(1,2,3,4) https://rathena.org/board/topic/116491-showcase-four-battle-books/ ~ Keep calm and use it on your server ~ ~ Don't claim my work as yours please and etc ~ ~ Any requests/reports - https://rathena.org/board/profile/47250-w0wzukubg/ Thanks, Zuku ~
    Free
    1 point
  2. Fiz isso enquanto estava no ônibus voltando dl serviço, veja se funciona e caso de erros poste aqui pra ver se consigo ajudar. - Id: 400001 AegisName: YSF01_Bandage Name: Curativo YSF01 Type: Armor SubType: Lower Buy: 20 Weight: 10 Defense: 0 Slots: 1 Jobs: All: true Locations: LowerHeadgear: true Bonuses: SpeedRate: 25 Script: | bonus bSpeedRate, 25; if (getstatus(SC_BERSERK) && rand(100) < 20) { sc_start SC_ATK_INC, 5000, 1000; }
    1 point
  3. View File Custom Cursor by Speedrun Don't worry. Be Happy s2s2s2 Submitter Speedrun Submitted 02/18/25 Category Sprites & Palettes Video https://youtu.be/Wa9zezkvnO8?si=wC-8vt6tNlH2tbKD Content Author Speedrun  
    1 point
  4. It has been awhile, I don't really remember what was the tip i gave. But now I am curious how it was done, are those moving wall objects a NPC ? Or there exists a hidden NPC that matching these wall object moving speed ? and pushing everyone off the area? anyway great work
    1 point
  5. bonus3 bAddEle,Ele_All,x,BF_NORMAL; This is a not so obvious but clever way to increase only normal attack damage through item bonus or player scripts. I was worried I would need to change the source since I didn't find this anywhere, so I assume not many people know about this, and felt like sharing. I had to dig through all ideas and item bonuses to find this hidden gem. This specific use of bAddEle manages to increase all normal attack damage by X against all enemies without affecting skill damage. Explanation: From the documentation, "bonus3 bAddEle,e,x,bf; +x% physical damage against element e with trigger criteria bf", so this was meant to increase damage against specific element enemies. This is the only damage increase with a bf criteria in rAthena's documentation, so this had to be used. So a friend and I thought of only triggering on Normal Attacks, and using Ele_All to affect all enemies, giving us the equivalent of something like a "bAddNormal" that rAthena doesn't have.
    1 point
  6. Version 1.0.0

    283 downloads

    This is a simple function I'm using for custom box/egg items to allow players selecting an item. Example usage: - Id: 100717 AegisName: Fluffy_Semi_Long_Box Name: Costume Fluffy Semi-long Hair Type: DelayConsume Buy: 10 Weight: 100 Script: | callfunc("muh_eggpick","Fluffy_Semi_Long_Box",420036,420037,420038,420039,420040,420041,420042,420043);
    Free
    1 point
  7. You can try below and let me know if it works for you prontera,130,215,5 script Lottery 76,{ function ShowNumbers; function GenerateNumbers; function MatchCount; function GenerateID; function GenerateID { $LWID = $LID; $LID = rand(100000, 999999); return; } function MatchCount { .@cnt = 0; for (.@i = 0; .@i < .combinations; .@i++) { if (inarray($LW, #LW[.@i]) != -1) .@cnt++; } return .@cnt; } function ShowNumbers { switch (getarg(0)) { default: case 0: .@color$ = "^FF0000"; .@prefix$ = "#LW"; break; case 1: .@color$ = "^0000FF"; .@prefix$ = "$LW"; break; case 2: .@color$ = "^006600"; .@prefix$ = "$LR"; break; } if (getarg(1, 0)) .@color$ = ""; .@mes$ = .@color$; for (.@i = 0; .@i < .combinations; .@i++) .@mes$ = .@mes$ + "[" + getd(.@prefix$+"["+.@i+"]") + "] "; if (!getarg(1, 0)) .@mes$ = .@mes$ + "^000000"; return .@mes$; } function GenerateNumbers { .@a = 0; deletearray getarg(0); while (.@a < .combinations) { do { .@i = rand(1, 40); } while (inarray(getarg(0), .@i) != -1); set getelementofarray(getarg(0), .@a), .@i; .@a++; } return; } mes .npc$; mes "Winning Lotto Numbers ("+$LWID+"):"; mes ShowNumbers(1, 0); mes "Your Ticket ("+#LID+"):"; mes ShowNumbers(0, 0); mes "Next Draw-ID: ^FF0000" + $LID + "^000000."; next; switch(select((#LID == $LWID ? "Claim Prize" : ""), "Buy New Ticket", (getgmlevel() < .gm_level ? "" : "^FF0000[GM]^000000 Do Draw Now"), (getgmlevel() < .gm_level ? "" : "^FF0000[GM]^000000 Rig the Lottery"), "Cancel")) { default: break; // Claim Prize case 1: .@match_count = MatchCount(); if (.@match_count != .combinations) { mes .npc$; mes "Bad luck, it appears you do not hold a winning ticket."; next; mes .npc$; mes "Better luck next time!."; close; } mes .npc$; mes "You have matched all " + .combinations + " numbers!"; mes "Jackpot!"; mes "You've won ^0000FF" + F_InsertComma(.jackpot_zeny) + "^000000z & " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!"; Zeny = (Zeny + .jackpot_zeny) > 2147483647 ? 2147483647 : (Zeny + .jackpot_zeny); getitem .jackpot_items[0], .jackpot_items[1]; announce "Lottery: " + strcharinfo(0) + " has won the JACKPOT of " + F_InsertComma(.jackpot_zeny) + "z & " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!", 0; #LID = 0; break; // Buy New Ticket case 2: if (#LW && #LID == $LID) { mes .npc$; mes "It appears that you already have a ticket for today."; mes "You may only purchase one ticket per draw."; close; } mes .npc$; mes "Tickets cost ^0000FF" + F_InsertComma(.ticket_price) + "^000000z."; mes "The Jackpot is ^FF0000" + F_InsertComma(.jackpot_zeny) + "^000000z & " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!"; next; if (Zeny < .ticket_price) { mes .npc$; mes "You can't afford a lottery ticket."; close; } mes .npc$; mes "Would you like your numbers hand picked or computer generated?"; next; switch(select("Computer Generated", "Hand Picked")) { case 1: while (true) { mes .npc$; mes "The computer has selected the following numbers:"; GenerateNumbers(#LW); mes ShowNumbers(0, 0); next; if (select("Re-Generate", "Confirm") & 2) break; } break; case 2: while (true) { mes .npc$; mes "Please pick your numbers (1-40):"; .@a = 0; .@j = 0; deletearray #LW; while (.@a < .combinations) { if (getarraysize(#LW)) { mes "PICK " + .@a + ": ^0000FF" + #LW[.@j] + "^000000"; .@j++; } do { input @pick; } while (@pick < 1 || @pick > 40 || inarray(#LW, @pick) != -1); #LW[getarraysize(#LW)] = @pick; .@a++; } mes "PICK " + .@a + ": ^0000FF" + #LW[.@j] + "^000000"; next; mes .npc$; mes "Your numbers are:"; mes ShowNumbers(0, 0); next; if (select("Confirm", "Re-Pick") == 1) break; } break; } Zeny -= .ticket_price; #LID = $LID; mes .npc$; mes "The live broadcasted draw is at 9pm."; mes "You can claim your ticket between then and the next draw."; next; mes .npc$; mes "Good luck!"; break; // Do Draw Now case 3: deletearray $LW; if (!$LR) GenerateNumbers($LW); else copyarray $LW, $LR, getarraysize($LR); close2; announce "Lottery: Welcome to the special GM's lotto draw!", 0; sleep 3000; announce "The numbers are as follows: " + ShowNumbers(1, 1), 0; sleep 3000; announce "Congratulations to the winners!", 0; GenerateID(); deletearray $LR; end; // Rig the Lottery case 4: while (true) { mes .npc$; mes "Please pick your numbers (1-40):"; .@a = 0; .@j = 0; deletearray $LR; while (.@a < .combinations) { if (getarraysize($LR)) { mes "PICK " + .@a + ": ^0000FF" + $LR[.@j] + "^000000"; .@j++; } do { input @pick; } while (@pick < 1 || @pick > 40 || inarray($LR, @pick) != -1); $LR[getarraysize($LR)] = @pick; .@a++; } mes "PICK " + .@a + ": ^0000FF" + $LR[.@j] + "^000000"; next; mes .npc$; mes "Your rigged numbers are:"; mes ShowNumbers(2, 0); next; if (select("Confirm", "Re-Pick") == 1) break; } mes .npc$; mes "Lottery rigged for next draw."; break; } close; // Automatic Draw OnClock0200: OnClock0400: OnClock0600: OnClock0800: OnClock1000: OnClock1200: OnClock1600: OnClock1800: OnClock2000: OnClock2006: OnClock2007: OnClock2200: deletearray $LW; if (!$LR) GenerateNumbers($LW); else copyarray $LW, $LR, getarraysize($LR); announce "Lottery: This hour's draw is worth " + F_InsertComma(.jackpot_zeny) + " Zeny and " + .jackpot_items[1] + " " + getitemname(.jackpot_items[0]) + "!!", 0; sleep 3000; announce "The numbers are as follows: " + ShowNumbers(1, 1), 0; sleep 3000; announce "Congratulations to the winners of tonight!", 0; GenerateID(); deletearray $LR; end; OnInit: .npc$ = "[Lottery]"; .gm_level = 99; .combinations = 3; .ticket_price = 100000; .jackpot_zeny = 2000000000; setarray .jackpot_items[0], 501, 20; if (!$LID) GenerateID(); waitingroom "Hourly Lottery",0; end; } You can set below configs as per your desire .gm_level .combinations .ticket_price .jackpot_zeny .jackpot_items
    1 point
×
×
  • Create New...