-
Posts
29 -
Joined
-
Last visited
Profile Information
-
Gender
Male
-
Location
Philippines
-
Server
Wisteria Ragnarok Online
- Github: ryomahostingph
- Discord: ヅཞყơɱą#2089
-
Interests
VPS and Hosting
Contact Methods
- Website URL
Recent Profile Visitors
1903 profile views
Ryoma27's Achievements
-
Release: Battleground Extended 2020 ! With Bomberman/Poring Ball
Ryoma27 replied to grenat50's topic in Source Releases
Having compiling issue in this Update: Solved Wrong Input in //non - tradable item column #ifdef BGEXTENDED if (sd->inventory.u.items_inventory[index].card[0] == CARD0_CREATE && ((MakeDWord(sd->inventory.u.items_inventory[index].card[2], sd->inventory.u.items_inventory[index].card[3])) == (battle_config.bg_reserved_char_id || battle_config.woe_reserved_char_id) && !battle_config.bg_can_trade )) { // Items where creator's ID is important clif_buyingstore_trade_failed_seller(sd, BUYINGSTORE_TRADE_SELLER_FAILED, item->itemId); clif_displaymessage(sd->fd, "Cannot Trade event reserved Items (Battleground, WoE)."); return; } #endif -
i want to add Skull Exchanger to items depends on the Top PVP ladder, let say Top 1 will exchange 10 potion, till top 10 and no rank will get 1 potion, is this possible? want to upgrade or add features in this script by sir Ghost, //======================================================================================== //Title: Ghost's PvP System (Multi-announcer + Ladder) //Version: 1.3 //Author: Ghost //Created: 12/27/2011 //Released: 01/31/2012 //Compatibility: rAthena | eAthena //Support: TXT & SQL //rAthena Topic: http://rathena.org/board/topic/58222-ghosts-scripts/ //Required File: // SQL Table: http://pastebin.com/dEqrkczy // Wav Files: http://www.mediafire.com/?i3uutvdp00jw4r8 //References: // http://www.wowwiki.com/Defense_of_the_Ancients:_Allstars // http://honwiki.net/wiki/Kill_Streak // http://honwiki.net/wiki/Multi_Kill // http://honwiki.net/wiki/Patch_2.0.0#Nemesis_and_Payback // http://igamepros.com/viewtopic.php?f=62&t=4342 //Additional Note: // Multiple kill timer is set to Heroes of Newerth's 18 seconds. // KDR Algorithm is originally written by me, Ghost. // If you like this PvP System, say thanks at my rAthena topic. //Glossary: // KDR: Kill Death Ratio // SK: Streak Kill // MK: Multi Kill //Credits: // Thank you to the Athena community. //Changelog: // v1.3 = Fixed .PvPMap$[0] settings [Ghost] // = Added .GMLevel at configuration [Ghost] // = Change SK Hex Color to ^00FF00 for visibility [Ghost] // = Fixed Streak Kill ended broadcast [Ghost] // = Typographical error (Ms. Pudding to Flamboyant) on Announcer Setting corrected [Ghost] // = Changed Top 10 Players ranking from KDR to Kills [Ghost] // v1.2 = Fixed obfuscation at PvP Statistics [Ghost] // v1.1 = KDR Algorithm update for undefined calculation check [Lighta] // = Fixed obfuscation at Nemesis Kill [Lighta] // v1.0 = Initial release //©2011-2012 Ghost //======================================================================================== - script Versus -1,{ OnInit: //--Configuration set .System, 1; //Toggle PvP System (0:Disable|1:Enable) set .ServerType, 1; //Are you using TXT or SQL? (0:TXT|1:SQL) set .GMLevel, 40; //GM levels above or equal this level will be ignored by the system setarray .PvPMap$[0], "All"; //List all pvp maps here (Index 0:"All" to enable all maps) //PvP Ladder set .Top, 10; //What is the length of the list? set .Reset, 0; //Allow players to reset their PvP statistics? (0:Disable|1:Zeny|2:Cashpoint|3:Skull) set .ZenyFee, 0; //How much zeny you want to charge to reset their pvp stat? set .CashFee, 1000; //How much cashpoint you want to charge to reset their pvp stat? set .SkullFee, 1000; //How much skull you want to charge to reset their pvp stat? set .AnnouncerFee, 5; //How much cashpoint per announcer? (DotA announcer is set as default) //Reward Setting (Every Kill) set .MaxZeny, 1000000000; //What is the max zeny of the server? set .Zeny, 500; //Earn zeny each kill? (0:Disable) set .Cash, 0; //How much #CASHPOINT every kill? (0:Disable) set .Skull, 1; //Collect player's skull each kill? (0:Disable|1:Enable) setarray .ItemID[0], 0; //Get items each kill? (0:Disable) setarray .Amount[0], 0; //How many items per kill? //Penalty Setting set .Feed, 10; //How many kills before feeding is called? (10:Recommended) set .Penalty, 1; //What is the penalty for the feedee? (0:Disable|1:Kill Rollback|2:Server Kick|3:Server Block) set .Kick, 0; //Who to kick? (0:Feedee|1:Feeder|2:Both) set .Rollback, 10; //How many times should the kill count rollback when feeding is called? (10:Recommended) //Announcer Setting set .Broadcast, 0; //Where do you want to broadcast? (0:bc_all|1:bc_map) set .Streak, 1; //Show number of killing streak in broadcast? e.g. Ghost is Beyond Godlike(8) set .Multiple, 1; //Show number of multiple kill in broadcast? e.g. Makizushi just got an Ownage(5) set .Nemesis, 1; //Show number of nemesis in broadcast? e.g. Epoque is owning Jguy(9) set .Feeder, 1; //Show number of feed in broadcast? e.g. Cookies is feeding `KeiKun(10) set .RandomKillWord, 1; //Randomize the kill words? e.g. Arcenciel "Kill Word" jTynne (0:Disable|Default:"pwned") setarray .KillWord$[0], "pwned", "killed", "disintegrated", "neutralized"; //Enable above setting for this to work //Broadcast Color | See HexTable: http://johncfish.com/bggallery/otherchart/hextable.gif set .KColor$, "0xFFFF00"; //Kill Broadcast Color | e.g. Jguy pwned Mercurial set .KSColor$, "0xFFFF00"; //Killing Streak Broadcast Color | e.g. jTynne is on a Killing Spree set .MKColor$, "0x33FF00"; //Multiple Kill Broadcast Color | e.g. Mercurial just got a Double Kill set .ESColor$, "0xFF0000"; //End Streak Broadcast Color | e.g. BrianL just ended Jguy's Killing Spree set .NMColor$, "0x0099FF"; //Nemesis Broadcast Color | e.g. Xazax is owning Cookies set .PBColor$, "0xFF0000"; //Payback Broadcast Color | e.g. Makizushi just have a payback againts lilcooldude69 set .FDColor$, "0xFF00CC"; //Feeder Broadcast Color | e.g. Cookies is feeding Z3R0 //--Warning: Critical Setting | Killing Streaks and Multiple Kills Announcer setarray .KSDotA$[0], "is on a Killing Spree", "is Dominating", "has a Mega-Kill", "is Unstoppable", "is Wicked Sick", "has a M-m-m-m....Monster Kill", "is Godlike", "is Beyond Godlike"; setarray .KSHoN$[0], "is a Serial Killer", "is an Ultimate Warrior", "is Legendary", "is on an Onslaught!", "is Savage Sick", "is Dominating", "has a Bloodbath", "is Immortal"; //Took out #9. Champion of Newearth setarray .MKDotA$[0], "just got a Double Kill", "just got a Triple Kill", "just got an Ultra Kill", "is on a Rampage", "is Owning his enemies"; setarray .MKHoN$[0], "just got a Double Tap", "just got a Hat Trick", "just got an Quad Kill", "annihilated his enemies", "just got a Genocide"; setarray .ESDotA$[0], "Killing Spree", "Dominating", "Mega-Kill", "Unstoppable", "Wicked Sick", "Monster Kill", "Godlike", "Beyond Godlike"; setarray .ESHoN$[0], "Serial Killer", "Ultimate Warrior", "Legendary", "Onslaught", "Savage Sick", "Dominating", "Bloodbath", "Immortal"; //Took out #9. Champion of Newearth setarray .EMDotA$[0], "Double Kill", "Triple Kill", "Ultra Kill", "Rampage", "Ownage"; setarray .EMHoN$[0], "Double Tap", "Hat Trick", "Quad Kill", "Annihilation", "Genocide"; //--Warning: Fail Safe | Do Not Touch if(.System > 1){ set .System, 1; } if(.System < 0){ set .System, 0; } if(.ServerType > 1){ set .ServerType, 1; } if(.ServerType < 0){ set .ServerType, 0; } if(.GMLevel > 99){ set .GMLevel, 99; } if(.GMLevel < 0){ set .GMLevel, 0; } if((.PvPMap$[0] == "ALL")||(.PvPMap$[0] == "ALl")||(.PvPMap$[0] == "AlL")||(.PvPMap$[0] == "aLL")||(.PvPMap$[0] == "aLl") || (.PvPMap$[0] == "alL")){ setarray .PvPMap$[0], "All"; } if(.Ladder > 1){ set .Ladder, 1; } if(.Ladder < 0){ set .Ladder, 0; } if(.Top < 0){ set .Top, 0; } if(.Reset > 3){ set .Reset, 0; } if(.Reset < 0){ set .Reset, 0; } if((.Reset == 1)&&(.ZenyFee <= 0)){ set .Reset, 0; } if((.Reset == 1)&&(.ZenyFee >= .MaxZeny)){ set .Reset, 0; } if((.Reset == 2)&&(.CashFee <= 0)){ set .Reset, 0; } if((.Reset == 3)&&(.SkullFee <= 0)){ set .Reset, 0; } if(.Zeny > .MaxZeny){ set .Zeny, 0; } if(.Zeny < 0){ set .Zeny, 0; } if(.Cash < 0){ set .Cash, 0; } if(.Broadcast > 1){ set .Broadcast, 1; } if(.Broadcast < 0){ set .Broadcast, 0; } if(.Feed < 1){ set .Feed, 0; } if(.Penalty > 3){ set .Penalty, 3; } if(.Penalty < 1){ set .Penalty, 0; } if(.Rollback < 1){ set .Rollback, 0; } if(.Streak > 1){ set .Streak, 1; } if(.Streak < 1){ set .Streak, 0; } if(.Multiple > 1){ set .Multiple, 1; } if(.Multiple < 1){ set .Multiple, 0; } if(.Nemesis > 1){ set .Nemesis, 1; } if(.Nemesis < 0){ set .Nemesis, 0; } if(.Feeder > 1){ set .Feeder, 1; } if(.Feeder < 1){ set .Feeder, 0; } if(.RandomKillWord > 1){ set .RandomKillWord, 1; } if(.RandomKillWord < 0){ set .RandomKillWord, 0; } end; OnPCKillEvent: if(.System){ if(getgmlevel() >= .GMLevel){ end; } if(.PvPMap$[0] != "All"){ for(set .@i, 0; .@i < (getarraysize(.PvPMap$) - 1); set .@i, .@i + 1){ if(strcharinfo(3) != .PvPMap$[.@i]){ end; } } } if((@nm == .Feed) && (.Penalty)){ callsub OnClearData; switch(.Penalty){ case 0: break; case 1: callsub OnRollback; break; case 2: callsub OnRollback; if(.Kick == 0){ atcommand "@kick "+strcharinfo(0); } if(.Kick == 1){ atcommand "@kick "+rid2name(killedrid); } if(.Kick == 2){ atcommand "@kick "+strcharinfo(0); atcommand "@kick "+rid2name(killedrid); } break; case 3: callsub OnRollback; if(.Kick == 0){ atcommand "@block "+strcharinfo(0); } if(.Kick == 1){ atcommand "@block "+rid2name(killedrid); } if(.Kick == 2){ atcommand "@block "+strcharinfo(0); atcommand "@block "+rid2name(killedrid); } break; default: break; } } if(@nm < .Feed){ if(.Zeny && ((Zeny + .Zeny) < .MaxZeny)){ set Zeny, Zeny + .Zeny; } if(.Cash){ dispbottom "[Point System] +1 Cash Point"; set #CASHPOINT, #CASHPOINT + .Cash; } if(.Skull){ getnameditem 7420, rid2name(killedrid); } for(set .@i, 0; .@i < getarraysize(.ItemID); set .@i, .@i + 1){ if(.ItemID){ getitem .ItemID[.@i], .Amount[.@i]; }} } if(.RandomKillTerm){ announce strcharinfo(0)+" "+.KillWord$[rand(0, getarraysize(.KillWord$) - 1)]+" "+rid2name(killedrid)+"'s head", ((.Broadcast)?bc_all:bc_map), .KColor$; } else { announce strcharinfo(0)+" pwned "+rid2name(killedrid)+"'s head", ((.Broadcast)?bc_all:bc_map), .KColor$; } set Kill, Kill + 1; if(@ks < 10){ set @ks, @ks + 1; } if(@mk < 6){ set @mk, @mk + 1; } if(!NemesisKilled){ set NemesisKilled, killedrid; } if(NemesisKilled == killedrid){ set @nm, @nm + 1; } deltimer "Versus::OnMKReset"; addtimer 18000, "Versus::OnMKReset"; callsub OnRecordStreak; callsub OnAnnounce; callsub OnDeath; end; } end; OnPCDieEvent: if(.System){ if(getgmlevel() >= .GMLevel){ end; } if(.PvPMap$[0] != "All"){ for(set .@i, 0; .@i < (getarraysize(.PvPMap$) - 1); set .@i, .@i + 1){ if(strcharinfo(3) != .PvPMap$[.@i]){ end; } set Death, Death + 1; } } } end; OnPCLogoutEvent: if(.System){ if(getgmlevel() >= .GMLevel){ end; } if((.ServerType) && (Kill)){ query_sql("REPLACE INTO `pvp_rank` (`char_id`, `account_id`, `char`, `kill`, `death`, `kdr`, `killingstreak`, `multikill`, `nemesiskill`, `feedcount`,`killingspree`, `dominating`, `megakill`, `unstoppable`, `wickedsick`, `monsterkill`, `godlike`, `beyondgodlike`, `doublekill`, `triplekill`, `ultrakill`, `rampage`, `ownage`) VALUES ("+getcharid(0)+","+getcharid(3)+", '"+rid2name(getcharid(3))+"', "+Kill+", "+Death+", '"+callfunc("KDR_Calc", Kill, Death)+"', "+KillingStreak+", "+MultiKill+", "+NemesisKill+", "+FeedCount+", "+KillingSpree+", "+Dominating+", "+MegaKill+", "+Unstoppable+", "+WickedSick+", "+MonsterKill+", "+Godlike+", "+BeyondGodlike+", "+DoubleKill+", "+TripleKill+", "+UltraKill+", "+Rampage+", "+Ownage+")"); } if(.PvPMap$[0] != "All"){ for(set .@i, 0; .@i < (getarraysize(.PvPMap$) - 1); set .@i, .@i + 1){ if(strcharinfo(3) != .PvPMap$[.@i]){ end; } } } callsub OnClearData; deltimer "Versus::OnMKReset"; } end; OnRecordStreak: if(@ks > 2){ set KillingStreak, KillingStreak + 1; switch(@ks){ case 0: case 1: case 2: break; case 3: set KillingSpree, KillingSpree + 1; break; case 4: set Dominating, Dominating + 1; break; case 5: set MegaKill, MegaKill + 1; break; case 6: set Unstoppable, Unstoppable + 1; break; case 7: set WickedSick, WickedSick + 1; break; case 8: set MonsterKill, MonsterKill + 1; break; case 9: set Godlike, Godlike + 1; break; case 10: set BeyondGodlike, BeyondGodlike + 1; break; default: break; } } if(@mk > 1){ set MultiKill, MultiKill + 1; switch(@mk){ case 0: case 1: break; case 2: set DoubleKill, DoubleKill + 1; break; case 3: set TripleKill, TripleKill + 1; break; case 4: set UltraKill, UltraKill + 1; break; case 5: set Rampage, Rampage + 1; break; case 6: set Ownage, Ownage + 1; break; default: break; } } if((@nm > 3) && (@nm < .Feed)){ set NemesisKill, NemesisKill + 1; } if(@nm >= .Feed){ set FeedCount, FeedCount + 1; } return; OnAnnounce: if((@ks == 1) && (#FirstBlood == 1)){ if(#Announcer == 0){ announce strcharinfo(0)+" drew first blood", ((.Broadcast)?bc_all:bc_map), .KSColor$; } if(#Announcer > 1){ announce strcharinfo(0)+" got bloodlust", ((.Broadcast)?bc_all:bc_map), .KSColor$; } set #FirstBlood, 0; soundeffectall ""+#Announcer+"_KS"+1+".wav", 0, strcharinfo(3); } if(@ks > 2){ if(#Announcer == 0){ announce strcharinfo(0)+" "+.KSDotA$[@ks - 3]+" "+((.Streak)?"("+@ks+")":"")+"", ((.Broadcast)?bc_all:bc_map), .KSColor$; } if(#Announcer > 1){ announce strcharinfo(0)+" "+.KSHoN$[@ks - 3]+" "+((.Streak)?"("+@ks+")":"")+"", ((.Broadcast)?bc_all:bc_map), .KSColor$; } soundeffectall ""+#Announcer+"_KS"+@ks+".wav", 0, strcharinfo(3); } if(@mk > 1){ if(#Announcer == 0){ announce strcharinfo(0)+" "+.MKDotA$[@mk - 2]+" "+((.Multiple)?"("+@mk+")":"")+"", ((.Broadcast)?bc_all:bc_map), .MKColor$; } if(#Announcer > 1){ announce strcharinfo(0)+" "+.MKHoN$[@mk - 2]+" "+((.Multiple)?"("+@mk+")":"")+"", ((.Broadcast)?bc_all:bc_map), .MKColor$; } sleep2 1500; soundeffectall ""+#Announcer+"_MK"+@mk+".wav", 0, strcharinfo(3); } if((@nm > 3) && (@nm < .Feed)){ announce strcharinfo(0)+" is owning "+rid2name(NemesisKilled)+" "+((.Nemesis)?"("+@nm+")":"")+"", ((.Broadcast)?bc_all:bc_map), .NMColor$; sleep2 2000; if(#Announcer > 0){ soundeffectall #Announcer+"_Nemesis.wav", 0, strcharinfo(3); } else { soundeffectall "1_Nemesis.wav", 0;} } if(@nm >= .Feed){ announce rid2name(NemesisKilled)+" is feeding "+strcharinfo(0)+" "+((.Feeder)?"("+@nm+")":"")+"", ((.Broadcast)?bc_all:bc_map), .FDColor$; sleep2 1500; soundeffectall "Feeder.wav", 0, strcharinfo(3); } return; OnDeath: if(@ks > 2){ if(#Announcer == 0){ announce rid2name(killedrid)+" just ended "+strcharinfo(0)+"'s "+.ESDotA$[@ks - 3]+" "+((.Streak)?"("+@ks+")":"")+"", ((.Broadcast)?bc_all:bc_map), .ESColor$; } if(#Announcer > 1){ announce rid2name(killedrid)+" just ended "+strcharinfo(0)+"'s "+.ESHoN$[@ks - 3]+" "+((.Streak)?"("+@ks+")":"")+"", ((.Broadcast)?bc_all:bc_map), .ESColor$; } } if(@nm > 3){ soundeffectall #Announcer+"_Payback.wav", 0, rid2name(killedrid); announce rid2name(killedrid)+" just have a payback againts "+strcharinfo(0)+" "+((.Nemesis)?"("+@nm+")":"")+"", ((.Broadcast)?bc_all:bc_map), .PBColor$; } attachrid(killedrid); callsub OnClearData; return; OnMKReset: set @mk, 0; end; OnClearData: sleep2 3000; set NemesisKilled, 0; set @ks, 0; set @mk, 0; set @nm, 0; return; OnRollback: if(.Zeny){ set Zeny, Zeny - (.Zeny * .Rollback); } if(.Cash){ dispbottom "[Point System] -"+(.Cash * .Rollback)+" Cash Point"; set #CASHPOINT, #CASHPOINT - (.Cash * .Rollback); } if(.Skull){ delitem 7420, .Rollback; } for(set .@i, 0; .@i < getarraysize(.ItemID); set .@i, .@i + 1){ if(.ItemID){ delitem .ItemID[.@i], .Amount[.@i] * .Rollback; }} if((Kill - .Rollback) > 0){ set Kill, Kill - .Rollback; } else { set Kill, 0; } if((KillingSpree - 1) > 0){ set KillingSpree, KillingSpree - 1; } else { set KillingSpree, 0; } if((Dominating - 1) > 0){ set Dominating, Dominating - 1; } else { set Dominating, 0; } if((MegaKill - 1) > 0){ set MegaKill, MegaKill - 1; } else { set MegaKill, 0; } if((Unstoppable - 1) > 0){ set Unstoppable, Unstoppable - 1; } else { set Unstoppable, 0; } if((WickedSick - 1) > 0){ set WickedSick, WickedSick - 1; } else { set WickedSick, 0; } if((MonsterKill - 1) > 0){ set MonsterKill, MonsterKill - 1; } else { set MonsterKill, 0; } if((Godlike - 1) > 0){ set Godlike, Godlike - 1; } else { set Godlike, 0; } if((BeyondGodlike - 1) > 0){ set BeyondGodlike, BeyondGodlike - 1; } else { set BeyondGodlike, 0; } if((DoubleKill - 1) > 0){ set DoubleKill, DoubleKill - 1; } else { set DoubleKill, 0; } if((TripleKill - 1) > 0){ set TripleKill, TripleKill - 1; } else { set TripleKill, 0; } if((UltraKill - 1) > 0){ set UltraKill, UltraKill - 1; } else { set UltraKill, 0; } if((Rampage - 1) > 0){ set Rampage, Rampage - 1; } else { set Rampage, 0; } if((Ownage - 1) > 0){ set Ownage, Ownage - 1; } else { set Ownage, 0; } if((NemesisKill - (.Rollback - 3)) > 0){ set NemesisKill, NemesisKill - (.Rollback - 3); } else { set NemesisKill, 0; } announce "[Anti-Feed] Your kill count has been rollbacked "+.Rollback+" times.",bc_self,0xFF0000; return; } prontera,147,172,5 script PVP Manager 4254,{ mes "[PVP Manager]"; mes "What can I do for you today?"; switch(select("Player Ranking:PvP Statistic:Announcer Setting")){ case 1: //Player Ranking next; if(getvariableofnpc(.ServerType, "Versus")){ mes "[Top "+getvariableofnpc(.Top, "Versus")+" PvP Players]"; mes "^0000FFKill^000000 | ^FF0000Death^000000 | ^FF22FFKDR^000000 | ^00FF00SK^000000 | ^666666MK^000000"; query_sql "SELECT `char`, `kill`, `death`, `kdr`, `killingstreak`, `multikill` FROM `pvp_rank` ORDER BY `pvp_rank`.`kill` DESC LIMIT "+getvariableofnpc(.Top, "Versus")+"", .@char$, .@kill, .@death, .@kdr$, .@sk, .@mk; for(set .@i, 0; .@i < getarraysize(.@char$); set .@i, .@i + 1){ mes .@i+1+". "+.@char$[.@i]+" ^0000FF"+.@kill[.@i]+"^000000 ^FF0000"+.@death[.@i]+"^000000 ^FF22FF"+.@kdr$[.@i]+"^000000 ^00FF00"+.@sk[.@i]+"^000000 ^666666"+.@mk[.@i]+"^000000 "; } close; } else { mes "Top "+getvariableofnpc(.Top, "Versus")+" ranking is not yet implemented for this server type."; } case 2: //PvP Statistic next; mes strcharinfo(0)+"'s PvP Statistic"; mes "^666666Kill:^000000 "+Kill+" ^666666Death:^000000 "+Death+" ^666666KDR:^000000 "+callfunc("KDR_Calc", Kill, Death)+"^000000"; mes "^666666Killing Streak:^000000 "+KillingStreak+" ^666666Multi-Kills:^000000 "+MultiKill+""; switch(select("Killing Streak:Multi-Kill Streak:Nemesis Streak:"+(getvariableofnpc(.Reset, "Versus")?"Reset":"")+"")){ case 1: //Killing Streak next; setarray .LSDotA$[0], ""+KillingSpree+"", ""+Dominating+"", ""+MegaKill+"", ""+Unstoppable+"", ""+WickedSick+"", ""+MonsterKill+"", ""+Godlike+"", ""+BeyondGodlike+""; mes "Killing Streak Stats"; switch(#Announcer){ case 0: for(set .@i, 0; .@i < getarraysize(.LSDotA$); set .@i, .@i + 1){ mes "^666666"+getvariableofnpc(.ESDotA$[.@i], "Versus")+"^000000: "+ .LSDotA$[.@i]; } close; default: for(set .@i, 0; .@i < getarraysize(.LSDotA$); set .@i, .@i + 1){ mes "^666666"+getvariableofnpc(.ESHoN$[.@i], "Versus")+"^000000: "+ .LSDotA$[.@i]; } close; } close; case 2: //Multi-Kill next; setarray .LMDotA$[0], ""+DoubleKill+"", ""+TripleKill+"", ""+UltraKill+"", ""+Rampage+"", ""+Ownage+""; mes "Multi-Kill Stats"; switch(#Announcer){ case 0: for(set .@i, 0; .@i < getarraysize(.LMDotA$); set .@i, .@i + 1){ mes "^666666"+getvariableofnpc(.EMDotA$[.@i], "Versus")+"^000000: "+ .LMDotA$[.@i]; } close; default: for(set .@i, 0; .@i < getarraysize(.LMDotA$); set .@i, .@i + 1){ mes "^666666"+getvariableofnpc(.EMHoN$[.@i], "Versus")+"^000000: "+ .LMDotA$[.@i]; } close; } case 3: //Nemesis next; mes "Nemesis Stat"; mes "^666666Nemesis Kill^000000: "+NemesisKill; mes "^666666Feed Count^000000: "+FeedCount; close; case 4: //Reset Stat next; set .Reset, getvariableofnpc(.Reset, "Versus"); set .ZenyFee, getvariableofnpc(.ZenyFee, "Versus"); set .CashFee, getvariableofnpc(.CashFee, "Versus"); set .SkullFee, getvariableofnpc(.SkullFee, "Versus"); mes "[PVP Manager]"; mes "Are you sure you want to reset your PvP Statistics?"; if(.Reset == 1){ mes "^FF0000Reset Fee:^000000 "+.ZenyFee+" Zeny"; } if(.Reset == 2){ mes "^FF0000Reset Fee:^000000 "+.CashFee+" Cash Point"; } if(.Reset == 3){ mes "^FF0000Reset Fee:^000000 "+.SkullFee+" Skull"; } switch(select("No:Yes")){ case 1: close; case 2: switch(.Reset){ case 0: break; case 1: if(Zeny < .ZenyFee){ next; mes "[PVP Manager]"; mes "You don't have enough Zeny."; close; } set Zeny, Zeny - .ZenyFee; break; case 2: if(#CASHPOINTS < .CashFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .CashFee; break; case 3: if(countitem(7420) < .SkullFee){ next; mes "[PVP Manager]"; mes "You don't have enough Skull."; close; } delitem 7420, .SkullFee; break; default: break; } if(getvariableofnpc(.ServerType, "Versus")){ query_sql "DELETE FROM `pvp_rank` WHERE `pvp_rank`.`char_id` = "+getcharid(0)+""; } callsub OnPvPReset; announce "[PVP Manager] Your PvP Statistic has been reset.",bc_self,0xFF0000; close; } close; } close; case 3: //Announcer Setting next; mes "[PVP Manager]"; mes "What kind of announcer you want to use?"; if(getvariableofnpc(.AnnouncerFee, "Versus")){ set .AnnouncerFee, getvariableofnpc(.AnnouncerFee, "Versus"); } L_Announce: switch(select(""+((#Announcer == 0)?"^FF0000DotA^000000":"DotA")+":"+((#Announcer == 1)?"^FF0000HoN^000000":"HoN")+":"+((#Announcer == 2)?"^FF0000Ms. Pudding^000000":"Ms. Pudding")+":"+((#Announcer == 3)?"^FF0000Flamboyant^000000":"Flamboyant")+":"+((#Announcer == 4)?"^FF0000English^000000":"English")+":"+((#Announcer == 5)?"^FF0000Balls of Steel^000000":"Balls of Steel")+":"+((#Announcer == 6)?"^FF0000BreakyCPK^000000":"BreakyCPK")+"")){ case 1: //DotA if(#Announcer == 0){ goto L_Announce; } soundeffect "0_KS1.wav", 0; set #Announcer, 0; announce "[PVP Manager] DotA announcer has been configured to your account.",bc_self,0xFF0000; close; case 2: //HoN if(#Announcer == 1){ goto L_Announce; } if((.AnnouncerFee) && (!#Hon)){ next; mes "[PVP Manager]"; mes "Do you want to purchase HoN announcer for "+.AnnouncerFee+" Cash Point?"; switch(select("No:Yes")){ case 1: close; case 2: if(#CASHPOINTS < .AnnouncerFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .AnnouncerFee; set #Hon, 1; } } soundeffect "1_KS1.wav", 0; set #Announcer, 1; announce "[PVP Manager] HoN announcer has been configured to your account.",bc_self,0xFF0000; close; case 3: //Ms. Pudding if(#Announcer == 2){ goto L_Announce; } if((.AnnouncerFee) && (!#MsPudding)){ next; mes "[PVP Manager]"; mes "Do you want to purchase Ms. Pudding announcer for "+.AnnouncerFee+" Cash Point?"; switch(select("No:Yes")){ case 1: close; case 2: if(#CASHPOINTS < .AnnouncerFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .AnnouncerFee; set #MsPudding, 1; } } soundeffect "2_KS1.wav", 0; set #Announcer, 2; announce "[PVP Manager] Ms. Pudding announcer has been configured to your account.",bc_self,0xFF0000; close; case 4: //Flamboyant if(#Announcer == 3){ goto L_Announce; } if((.AnnouncerFee) && (!#Flamboyant)){ next; mes "[PVP Manager]"; mes "Do you want to purchase Flamboyant announcer for "+.AnnouncerFee+" Cash Point?"; switch(select("No:Yes")){ case 1: close; case 2: if(#CASHPOINTS < .AnnouncerFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .AnnouncerFee; set #Flamboyant, 1; } } soundeffect "3_KS1.wav", 0; set #Announcer, 3; announce "[PVP Manager] Flamboyant announcer has been configured to your account.",bc_self,0xFF0000; close; case 5: //English if(#Announcer == 4){ goto L_Announce; } if((.AnnouncerFee) && (!#English)){ next; mes "[PVP Manager]"; mes "Do you want to purchase English announcer for "+.AnnouncerFee+" Cash Point?"; switch(select("No:Yes")){ case 1: close; case 2: if(#CASHPOINTS < .AnnouncerFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .AnnouncerFee; set #English, 1; } } soundeffect "4_KS1.wav", 0; set #Announcer, 4; announce "[PVP Manager] English announcer has been configured to your account.",bc_self,0xFF0000; close; case 6: //Balls of Steel if(#Announcer == 5){ goto L_Announce; } if((.AnnouncerFee) && (!#BallsofSteel)){ next; mes "[PVP Manager]"; mes "Do you want to purchase Balls of Steel announcer for "+.AnnouncerFee+" Cash Point?"; switch(select("No:Yes")){ case 1: close; case 2: if(#CASHPOINTS < .AnnouncerFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .AnnouncerFee; set #BallsofSteel, 1; } } soundeffect "5_KS1.wav", 0; set #Announcer, 5; announce "[PVP Manager] Balls of Steel announcer has been configured to your account.",bc_self,0xFF0000; close; case 7: //BreakyCPK if(#Announcer == 6){ goto L_Announce; } if((.AnnouncerFee) && (!#BreakyCPK)){ next; mes "[PVP Manager]"; mes "Do you want to purchase BreakyCPK announcer for "+.AnnouncerFee+" Cash Point?"; switch(select("No:Yes")){ case 1: close; case 2: if(#CASHPOINTS < .AnnouncerFee){ next; mes "[PVP Manager]"; mes "You don't have enough Cash Point."; close; } set #CASHPOINTS, #CASHPOINTS - .AnnouncerFee; set #BreakyCPK, 1; } } soundeffect "6_KS1.wav", 0; set #Announcer, 6; announce "[PVP Manager] BreakyCPK announcer has been configured to your account.",bc_self,0xFF0000; close; default: close; } end; } close; OnPvPReset: set Kill, 0; set Death, 0; set KillingStreak, 0; set MultiKill, 0; set KillingSpree, 0; set Dominating, 0; set MegaKill, 0; set Unstoppable, 0; set WickedSick, 0; set MonsterKill, 0; set Godlike, 0; set BeyondGodlike, 0; set DoubleKill, 0; set TripleKill, 0; set UltraKill, 0; set Rampage, 0; set Ownage, 0; set NemesisKill, 0; set FeedCount, 0; return; } //Ghost's KDR Algorithm function script KDR_Calc { if(!getarg(1)) { debugmes "Error in KDR function, getarg(1) invalid value"; return 0; } // [Lighta] if(getarg(0) >= getarg(1)){ if(getarg(1)){ set .@i, getarg(0)/getarg(1); if((getarg(0)%getarg(1)) == 0){ return .@i+".00"; } set .@j, (getarg(0)%getarg(1))*100/getarg(1); return .@i+"."+.@j; } else { return getarg(0)+".00"; } } if(getarg(0) < getarg(1)){ if(getarg(0)){ set .@i, (getarg(0)*10)/getarg(1); set .@j, ((getarg(0)*10)%getarg(1))*10/getarg(1); return "0."+.@i +.@j; } else { return "0.00"; } } }
-
let me try this thanks
-
@Emistry sir Emistry is there a way to convert this to rathena? having problem on mesf function,
-
@AnnieRuru how can to use this in rathena? i love this work of yours
-
function script F_MesItemInfo { .@item = getarg(0); .@itemname$ = getitemname(.@item); if (.@itemname$ != "null") { .@itemslot = getitemslots(.@item); if (.@itemslot) .@itemname$ = sprintf("%s [%d]", .@itemname$, .@itemslot); } else .@itemname$ = "Unknown Item"; if (PACKETVER >= 20150729) return sprintf("<ITEM>%s<INFO>%d</INFO></ITEM>", .@itemname$, .@item); else if (PACKETVER >= 20130130) return sprintf("<ITEMLINK>%s<INFO>%d</INFO></ITEMLINK>", .@itemname$, .@item); else return .@itemname$; } //===== Hercules Script ====================================== //= Lotti Girl //===== By: ================================================== //= AnnieRuru //===== Current Version: ===================================== //= 1.0 //===== Compatible With: ===================================== //= Hercules 2019-02-22 //===== Description: ========================================= //= Roll a lottery ticket and get some cool items //= even if you get all the trash items, you still collecting points to buy in lotti shop //===== Topic ================================================ //= http://herc.ws/board/topic/16579-lotti-girl/ //===== Additional Comments: ================================= //= //============================================================ /* create table lotti_rank ( char_id int(11), name varchar(24), lotti_point int(11), primary key (char_id), key (lotti_point) ) engine = innodb; */ prontera,155,180,5 script Lotti Girl 1_F_MARIA,{ goto L_talk; OnInit: // Announce to the server when player roll on a rare item .rare_announcement = 1; // Default 1 : means any item with 0.00%~0.99% // Amount of points gain for each roll .lotti_points = 1; // If the player choose to Roll Repeatedly, what is the maximum amount of Roll in the input .max_roll = 100; setarray .item, Id_Lottery_Ticket, // Item ID requirement 1, // amount of the Item needed 0, // chance of not getting any items // chance of getting the items // <Item ID>, <amount>, <chance> Apple, 10, 1000, Red_Potion, 5, 50, Orange_Potion, 4, 40, Yellow_Potion, 3, 30, White_Potion, 2, 20, Blue_Potion, 1, 10; setarray .itemshop, // Item sold in the shop // <Item ID>, <Lotti Points needed> Red_Potion, 100, Orange_Potion, 200, Yellow_Potion, 300, White_Potion, 400, Blue_Potion, 500; // ========================================================================================================= .size = getarraysize(.item); for ( .@i = 2; .@i < .size; .@i += 3 ) .totalchance += .item[.@i]; for ( .@i = 2; .@i < .size; .@i += 3 ) { .@chance = .item[.@i] *10000 / .totalchance; .@division = .@chance / 100; .@remainder$ = .@chance % 100; while ( getstrlen(.@remainder$) < 2 ) .@remainder$ = insertchar(.@remainder$, "0", 0); .chance_display$[.@i] = .@division +"."+ .@remainder$ +"%"; if ( .@division < .rare_announcement ) .announce[.@i] = true; } .shop_size = getarraysize(.itemshop); npcshopdelitem "Lotti#hidden", 512; for ( .@i = 0; .@i < .shop_size; .@i += 2 ) npcshopadditem "Lotti#hidden", .itemshop[.@i], .itemshop[.@i +1]; npcshopattach "Lotti#hidden"; .npcname$ = "["+ strnpcinfo(NPC_NAME) +"]"; end; L_talk: mes .npcname$; mes "Hello, do you want to play lottery ?"; next; switch( select( "Deal me in!", "More Information", "Lotti Shop", "Lotti Ranking" ) ) { mes .npcname$; case 1: mesf "It costs %dx %s to play.", .item[1], F_MesItemInfo( .item[0] ); if ( countitem( .item[0] ) < .item[1] ) close; next; if ( select( "Play", "Roll Repeatedly" ) == 1 ) { mes .npcname$; while ( true ) { mes "Here we go..."; mes " "; .@r = rand(.totalchance); for ( .@i = 2; ( .@r -= .item[.@i] ) >= 0; .@i += 3 ); if ( checkweight( .item[.@i -2], .item[.@i -1] ) == false ) { mes "It appears you have overweight"; break; } delitem .item[0], .item[1]; if ( .@i == 2 ) mes "You get nothing..."; else { mesf "You get %s%dx%s %s", F_MesColor(C_TEAL), .item[.@i -1], F_MesColor(C_BLACK), F_MesItemInfo(.item[.@i -2]); getitem .item[.@i -2], .item[.@i -1]; if ( .announce[.@i] ) announce sprintf( _$( "Lotti Girl: Player [%s] has roll on [%s](%s)" ), strcharinfo(0), getitemname(.item[.@i -2]), .chance_display$[.@i] ), bc_all, C_PINK; } lotti_points += .lotti_points; query_sql "insert into lotti_rank values ( "+ getcharid(CHAR_ID_CHAR) +", '"+ escape_sql( strcharinfo(PC_NAME) ) +"', "+ .lotti_points +" ) on duplicate key update lotti_point = lotti_point + "+ .lotti_points; mes " "; mes "wanna try again ?"; next; if ( select( "Yes", "No" ) == 2 ) break; mes .npcname$; if ( countitem( .item[0] ) < .item[1] ) { mes " "; mesf "It appears you have ran out of %s", F_MesItemInfo( .item[0] ); break; } } } else { mes .npcname$; mes "Input how many rounds to roll"; mesf "Currently you have %dx %s", countitem( .item[0] ), F_MesItemInfo( .item[0] ); next; input .@roll_input, 1, min( countitem( .item[0] ) / .item[1], .max_roll ); mes .npcname$; mesf "Are you sure you want to roll %d times ?", .@roll_input; next; if ( select( "Yes", "No" ) == 2 ) close; mes .npcname$; mes "Here we go..."; mes " "; // freeloop true; for ( .@j = 0; .@j < .@roll_input; ++.@j ) { .@r = rand(.totalchance); for ( .@i = 2; ( .@r -= .item[.@i] ) >= 0; .@i += 3 ); if ( checkweight( .item[.@i -2], .item[.@i -1] ) == false ) { mes "It appears you have overweight"; break; } delitem .item[0], .item[1]; if ( .@i == 2 ) mes "You get nothing..."; else { mesf "You get %s%dx%s %s", F_MesColor(C_TEAL), .item[.@i -1], F_MesColor(C_BLACK), F_MesItemInfo(.item[.@i -2]); getitem .item[.@i -2], .item[.@i -1]; if ( .announce[.@i] ) announce sprintf( _$( "Lotti Girl: Player [%s] has roll on [%s](%s)" ), strcharinfo(0), getitemname(.item[.@i -2]), .chance_display$[.@i] ), bc_all, C_PINK; } ++.@roll; sleep2 1; // prevent lag the server } lotti_points += .lotti_points * .@roll; query_sql "insert into lotti_rank values ( "+ getcharid(CHAR_ID_CHAR) +", '"+ escape_sql( strcharinfo(PC_NAME) ) +"', "+ .lotti_points +" ) on duplicate key update lotti_point = lotti_point + "+( .lotti_points * .@roll ); mesf "Total roll : %d times.", .@roll; } mes " "; mes "Thank you for using Lotti service~"; close; case 2: freeloop true; mesf "Item required: %s%dx%s %s", F_MesColor(C_TEAL), .item[1], F_MesColor(C_BLACK), F_MesItemInfo(.item[0]); if ( .item[2] ) mesf "Chance to gain nothing : %s%s%s", F_MesColor(C_CHOCOLATE), .chance_display$[2], F_MesColor(C_BLACK); mes "Possible gains:"; for ( .@i = 3; .@i < .size; .@i += 3 ) mesf "%s%dx%s %s (%s%s%s)", F_MesColor(C_TEAL), .item[.@i +1], F_MesColor(C_BLACK), F_MesItemInfo(.item[.@i]), F_MesColor(C_CHOCOLATE), .chance_display$[.@i +2], F_MesColor(C_BLACK); next; mes .npcname$; mesf "Each time you roll, will gain %d Lotti Points.", .lotti_points; mes "Which can be use to buy rare items in Lotti Shop."; close; case 3: mesf "You currently have %s Lotti Points.", lotti_points; dispbottom sprintf( _$("You currently have %s Lotti Points."), lotti_points ); close2; callshop "Lotti#hidden", 1; end; case 4: .@query$ = "SELECT `name`, IF(@d=t.`lotti_point`, @r, @r:=@i), @d:=t.`lotti_point`, @i:=@i+1 "; .@query$ += "FROM `lotti_rank` t, (SELECT @d:=0, @r:=0, @i:=1)q "; .@query$ += "ORDER BY `lotti_point` DESC LIMIT 5"; .@nb = query_sql(.@query$, .@name$, .@rank, .@points, .@dummy); if ( !.@nb ) { mes "There's no ranking yet ~"; close; } for ( .@i = 0; .@i < .@nb; ++.@i ) mesf "%d. %s%s %s%d%s Points", .@rank[.@i], F_MesColor(C_TEAL), .@name$[.@i], F_MesColor(C_CHOCOLATE), .@points[.@i], F_MesColor(C_BLACK); mes " "; if ( !query_sql( "SELECT `lotti_point`, 1+(SELECT COUNT(1) FROM `lotti_rank` t1 WHERE t1.lotti_point > t2.lotti_point) FROM `lotti_rank` t2 WHERE `char_id` = "+ getcharid(CHAR_ID_CHAR), .@points, .@rank ) ) { mes "You are not in the rank."; close; } mesf "Your current Point > %d", .@points; mesf "Your current Rank > %d", .@rank; close; } end; // shouldn't reach OnBuyItem: mes .npcname$; if ( !@bought_quantity ) end; if ( checkweight2( @bought_nameid, @bought_quantity ) == false ) { mes "It appears you can't carry them all"; close; } .@size = getarraysize( @bought_nameid ); for ( .@i = 0; .@i < .@size; .@i++ ) { for ( .@j = 0; .@j < .shop_size; .@j += 2 ) if ( @bought_nameid[.@i] == .itemshop[.@j] ) break; .@itemcost += .itemshop[.@j +1] * @bought_quantity[.@i]; } if ( .@itemcost > lotti_points ) { mes "You don't have enough Lotti Points"; close; } lotti_points -= .@itemcost; for ( .@i = 0; .@i < .@size; ++.@i ) getitem @bought_nameid[.@i], @bought_quantity[.@i]; deletearray @bought_nameid; deletearray @bought_quantity; mes "Thanks for buying ~"; close; } - shop Lotti#hidden -1,512:1000 Help Translate in Rathena, got an error in mesf
-
R> Npc for Counting Total item in Inventory and Cart item or whole database?
Ryoma27 replied to Ryoma27's question in Script Requests
new_zone04,93,108,5 shop Wisteria_Shop 757,30006:-1 - script Wisteria_Shop_main -1,{ OnInit: .item_id = 30006; .max_amount = 20000000; .shop_npc$ = "Wisteria_Shop"; OnMinute00: // update every hour hideonnpc .shop_npc$; npcshopdelitem .shop_npc$, .item_id; .@sql$ = .@sql$ + "SELECT `amount` FROM `inventory` WHERE `nameid` = "+.item_id; .@sql$ = .@sql$ + " UNION "; .@sql$ = .@sql$ + "SELECT `amount` FROM `cart_inventory` WHERE `nameid` = "+.item_id; .@sql$ = .@sql$ + " UNION "; .@sql$ = .@sql$ + "SELECT `amount` FROM `storage` WHERE `nameid` = "+.item_id; .@sql$ = .@sql$ + " UNION "; .@sql$ = .@sql$ + "SELECT `amount` FROM `guild_storage` WHERE `nameid` = "+.item_id; .@size = query_sql(.@sql$, .@amount); for (.@i = 0; .@i < .@size; .@i++) .@total_amount += .@amount[.@i]; setiteminfo .item_id, ITEMINFO_SELL, (.max_amount / .@total_amount); setiteminfo .item_id, ITEMINFO_BUY, (((.max_amount / .@total_amount) * 100) / rand(1, 3))); npcshopadditem .shop_npc$, .item_id, (.max_amount / .@total_amount); hideoffnpc .shop_npc$; end; } -
R> Npc for Counting Total item in Inventory and Cart item or whole database?
Ryoma27 replied to Ryoma27's question in Script Requests
let me try this Sir Emistry, -
use ##curentquest instead i think
-
let say the server has a total 2,000,000 apples and the players Farm of total 500,000 apples, npc will set the price of that item depends on the total price 2M/500k=4z for selling Price, and 1-3% buying price, like in stock exchange? the price will automatically change based on supply and demand every minute or every hour, any one?
-
up error merging in latest rathena trunk,
-
just update your rathena trunk, using git stash && git pull && git stash pop
-
do we have Armor and Weapon Dealer for 4th job? that will include in itemall npc?
-
when i summon monster using @monster the Monster like Poring will have a high Stats, is this a bug or for new 4th job rathena? im using 2021ragexe and my trunk is updated, any one experiencing @monster Poring but it cant kill lower jobs and level tried @monster Fabre same