Jump to content

MelMel

Members
 View Profile  See their activity

  • Posts

    114

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by MelMel

    Utility: Ragnarok Guild Package NPC

    in Utility Script Releases

    Posted

    On 7/20/2017 at 11:52 AM, whodhell said:

    hello i have some error on your script

      

    
[SQL]: DB error - You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '`SELECT `name` FROM `guild` WHERE `guild_id` = '10'' at line 1
[Debug]: at script.c:16506 - `SELECT `name` FROM `guild` WHERE `guild_id` = '10'
[Debug]: Source (NPC): Guild Master at morocc (155,91)

    NPC is working but everytime i check the code that will show up on console

    thnx for  the help

    Is there a fix for this issues yet?

     

    Thank you in advance

    R>Item Script consume level up

    in Script Requests

    Posted

    Good day rAthena,

    can some one please tell me the script command if example they consume a red potion they gain 1level and 1 job level

    and another of the script command would be gain base and job exp by 5000 please.

    501,Red_Potion,Red Potion,0,50,,70,,,,,0xFFFFFFFF,7,2,,,,,,{ baselevel,1; },{},{}

    thank you in advance

    Added Skills But Can't Learn It.

    in Database Support

    Posted

    On 4/28/2017 at 1:13 PM, crazyarashi said:

    Hi Good Day Rathena!, Im quite on what's happening here. I added the Expanded Summoner in my database and in the client sided files but this happens.
    I Can't learn the skills >.< Im Pretty sure I added all the things that's needed for adding a skill. Do you have any idea how to fix this or did I miss something :o
    Pardon me also if I posted in the wrong section :D not sure if it's server side or clientside.. 

    screenStormRO001.jpg

    is your problem solved now O_O?

    is there any solution for this issues now?

    Latest ROEnglish Data folder not edited yet Error on Summoning homonculus

    in Database Support

    Posted · Edited by MelMel

    Hi guys,

    Just like the title say.

    i am facing an error when i summon homonculus, it's either the sprite is wrong or when i summon filir my client instantly close down.

    Below are the list of my error

    vanilmirth sprite become - poring
    Amistr sprite become - poring cannot feed or delete
    Lif sprite become - show loki but can be delete
    filir - error close client

    -the client date that i use = 2015-11-04a

    -i did not apply custom homonculus diff.

     

    List of things i've tried:

    -i tried on a fresh server without any editing too but the same things happen.

    -i tried roenglish data folder the latest without anything edited on it but just changing ip , lang 55 version 1 and that's it. But the same error happen.

    but just for info i am using Gepard. Could gepard cause something like this?

     

    I hope some one help me with this issues please.

    Quests, Games: Dice Event

    in Game, Event, Quest Script Releases

    Posted

    @sandbox I try using your script with the latest rathena it just don't work.

    when the event start the announcement just went through everything and announce no winner without a portal even appear. I try solving it by changing sleep2 to sleep, finally the event work and I am able to get inside the room to try the event... but still there is just so much error still like it say using the wrong close command and the event is not running after we are inside.

    does anyone have any fix for this script for the latest rathena?

     

    thank you whoever willing to help.

    Channel System Expanded!

    in Source Releases

    Posted

    hi i have problems with the one on rathena it self.

    i make an npc so that player can choose if they wanted to on which channel they want to be when they login.

    the first parts works player able to choose which channel they want to be in the command i use for the script is @channel join #main and it works

    but when it want to leave the channel using the npc which i script in and put the command @channel leave #main it does not work. 

    the command @channel leave #main works only on GM char itself and from npc it does not make the char leave the channel.

    i have also set the channel.cnf to be able to leave channel and autojoin:false.

     

    anyone know how to fix this issues?

     

    Thank you in advance

    R>Custom MVP ROOm with 1 day time limit

    in Script Requests

    Posted · Edited by MelMel

    Good day Rathena,

     

    Today i would like to request a custom mvp room with a time limit of 1 day:

    there will be a total of 5 room

     

    here is how the npc work.

    the npc will required 1 gold coin to enter or zeny 200,000,000 to enter either of the 5 room.

     

    and inside each room there will only be 1 monster and monster  id is:3615

     

    so if the player manage to kill the monster 3615 in the room.

    The room will be reset meaning they no longer need to wait time limit 1 day to be reset.

     

    if the monster is not dead yet no one can enter the room but only the player who pay for the room may enter again and again until the time limit 1 day then the room will expire and the monster inside be killed.

     

    if the player rent the room manage to kill the monster id: 3615 before the time limit the player will then be kick out after 1 minutes and the room will be reset meaning other player will be able to rent the room and the previous player who have manage to kill will not be able to enter the room anymore because is already reset if the player wish to enter again he/she will have to pay for rent again.

     

    the player can choose to solo or

    the player who rent the room can get a party of maximum 5 to help him get in and kill the monster too.

    not more than 5 but can less than 5

     

    looking forwards to anyone who is willing to help me script this custom mvp room.

    thank You in advance

    Regards

    MelMel

    Coin bank npc

    in Script Requests

    Posted · Edited by MelMel

    hi rathena,

     

    I would like to request a script bank npc that deposite coin instead of zeny

    the normal bank only deposite zeny.

     

    i really hope someone can script me a coin bank npc that deposite coin and withdraw coin.

     

    thank you in advance

     

    looking forwards for anyone who help me.

    Thank You

    Regards

    MelMel

    deduct zeny /token before they play so no exploit for logging out

    in Script Requests

    Posted 

    // == Script Name =========================
// ---- Blackjack for CASINO pack
// == Original Author =====================
// ---- kobra_k88
//===== Modified for CASINO pack by: ======
// ---- Zigbigidorlu (( [GM] Dionysus ))
// == Designed For ========================
// ---- FaithRO (( http://faithro.net ))
// == Version =============================
// ---- 8.05 rv2.05
// == Release =============================
// ---- 5.5.8
// == Description =========================
// ---- Black Jack card game.  Gameplay
// based off standard casino black jack
// rules.  Dealer must have at least 17 to
// stay and will automatically stay at 17
// and up.  Player must have at least 13
// to stay.  Aces counted as 11 or 1. 
// Option to "Double Down". Currently
// does not allow for "insurance", or 
// "splitting" of pairs.


cmd_in02.gat,188,89,1	script	Black Jack Dealer	57,{

	mes "[Dealer]";
	mes "Hello there! Would you like to play a game of Black Jack?";
	M_Menu:
	next;
	menu "What are the rules?",M_0, "I want to play.",L_Play, "No thanks.",M_End;

	M_0:
		mes "[Dealer]";
		mes "What would you like to know?";
		sM_Menu0:
		next;
		menu "The basics.",sM_0a, "Winning and loosing.",sM_0b, "'Double Down'.",sM_0c,
			"Ace value.",sM_0d, "Nothing.",M_Menu;

		sM_0a:
			mes "[Dealer]";
			mes "Black Jack is a card game in which the goal is to get 21, or as";
			mes "close to 21 points as possible, without going over 21.";
			next;
			mes "[Dealer]";
			mes "Before the game starts, the player must make a bet.  Once the bet";
			mes "has been made, both the dealer and the player are dealt 2 cards";
			mes "each.  Depending on what cards you have, you can choose to ^5533FF'stay'^000000,";
			mes "or you can choose to ^5533FF'pull'^000000.";
			next;
			mes "[Dealer]";
			mes "When you choose to 'stay', you are telling the dealer that you don't";
			mes "need anymore cards.  This allows the dealer to pull if he/she";
			mes "wants to.  In order to stay, you must have ^FF3355at least 13 points^000000. The";
			mes "dealer can only stay when he/she has^FF3355 17 points or more^000000.";
			next;
			mes "[Dealer]";
			mes "When you choose to 'pull', you are telling the dealer that you want";
			mes "another card.  By pulling more cards you can increase your point";
			mes "total.  As long has you have ^FF3355less than 21^000000 points you can pull a";
			mes "card from the deck.";
			goto sM_Menu0;
		sM_0b:
			mes "[Dealer]";
			mes "There are 3 ways to win and loose at Black Jack.";
			next;
			mes "[Dealer]";
			mes "1.) At the end of a Black Jack round, if you have more points";
			mes "than the dealer you will win the round.  Conversely if you have";
			mes "less points than the dealer you will loose.";
			next;
			mes "[Dealer]";
			mes "2.) If you pull a card that makes your point total go over 21 you";
			mes "will automatically loose the round.  This is called a ^5533FF'bust'^000000.  If";
			mes "the dealer busts then you will win the round.";
			next;
			mes "[Dealer]";
			mes "3.) If you have a point total of 21 with the first 2 cards, you";
			mes "will automatically win the round.  This is called a ^5533FF'Black Jack'^000000";
			mes "and happens when you get an 'Ace' and a '10 valued' card. If the";
			mes "dealer gets a Black Jack he/she will automatically win the round.";
			next;
			mes "[Dealer]";
			mes "4.) Besides winning and loosing, you can tie with the dealer.  If";
			mes "both you and the dealer have the same point total at the end of a";
			mes "round, this will result in a tie with no winner and no loss or gain";
			mes "in money.";
			next;
			mes "[Dealer]";
			mes "This is called a ^5533FF'push'^000000 with the dealer.  This also";
			mes "applies to both you and the dealer having Black Jack at the same";
			mes "time.";
			goto sM_Menu0;
		sM_0c:
			mes "[Dealer]";
			mes "The 'Double Down' option allows you to double your current bet,";
			mes "but with the drawback that you will only be able to pull one";
			mes "additional card.  This option is only available at the beggining of";
			mes "each round.";
			next;
			mes "[Dealer]";
			mes "An example of when doubling down is usefull, is when";
			mes "your first 2 cards give you a point total of 11.  You have a good";
			mes "chance of getting 21 or 20 with the next card that you draw.  This";
			mes "would be a good hand to double down on.";
			goto sM_Menu0;
		sM_0d:
			mes "[Dealer]";
			mes "The 'Ace' card is a unique card in the game of Black Jack because";
			mes "it can have 2 values.  An Ace can be counted as either 11 points,";
			mes "or just 1 point.  For example if you had an Ace and a 4, that would";
			mes "give you either 15 or 5 points.";
			next;
			mes "[Dealer]";
			mes "If you decided to stay, the Ace would automatically be counted as";
			mes "11 points to give you 15 points total.";
			next;
			mes "[Dealer]";
			mes "If you had decided to pull and recieved a 9, the ace would";
			mes "automatically be counted as 1 point to give you a total of 14";
			mes "points.  If the Ace was counted as 11 points, you would have a";
			mes "point total over 21 and would have lost.";
			next;
			mes "[Dealer]";
			mes "It is because of the flexibilty you have with the 'Ace' that makes";
			mes "it the most powerfull card in the game.";
			goto sM_Menu0;
	M_End:
		mes "[Dealer]";
		mes "Feel free to come back anytime";
		close;

//================
L_Play:
	mes "[Dealer]";
	mes "Please place your bets...";
	next;
	menu "2z",M_1a, "10z",M_1b, "20z",M_1c, "100z",M_1d, "Too rich for my blood....",M_End;

	M_1a:
		if(tokens < 2) goto sL_NotEnuf;
		set @bet, 2;
		goto L_Cont0;
	M_1b:
		if(tokens < 10) goto sL_NotEnuf;
		set @bet, 10;
		goto L_Cont0;
	M_1c:
		if(tokens < 20) goto sL_NotEnuf;
		set @bet, 20;
		goto L_Cont0;
	M_1d:
		if(tokens < 100) goto sL_NotEnuf;
		set @bet, 100;
		goto L_Cont0;

		sL_NotEnuf:
			mes "[Dealer]";
			mes "I'm sorry but you don't have enough tokens to make that bet.";
			close;

	L_Cont0:
	mes "(the cards are being dealt)";
	next;
	deletearray $@card[0],13;
	set @dealerTurn, 0;
	set @numP, 0;
	set @numD, 0;
	set @pAce, 0;
	set @dAce, 0;
	callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
	callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
	callsub sF_GetCards, @numD, @dealCard[@numD], @dealCard$[@numD], @dAce;
	callsub sF_GetCards, @numD, @dealCard[@numD], @dealCard$[@numD], @dAce;

//==============
L_Start:
	callsub sF_GetTot;

	mes "- Here are the ^FF5533DEALER'S^000000 cards:";
	if (@numD==2) callsub sF_D2cards;
	if (@numD==3) callsub sF_D3cards;
	if (@numD==4) callsub sF_D4cards;
	if (@numD==5) callsub sF_D5cards;
	mes "    The DEALER has: ^FF5533"+@dealTot+"^000000";
	mes " ";
	mes "- Here are ^5533FFYOUR^000000 cards:";
	if (@numP==2) callsub sF_P2cards;
	if (@numP==3) callsub sF_P3cards;
	if (@numP==4) callsub sF_P4cards;
	if (@numP==5) callsub sF_P5cards;
	if(@pAce != 1 || @playTot == 21) mes "    YOU have: ^5533FF" +@playTot+ "^000000";
	if(@pAce == 1 && @playTot != 21) mes "    You have: ^5533FF" +@playTot+ "^000000, or ^5533FF" +(@playTot-10)+ "^000000";

	if(@playTot==21 && @dealTot==21) goto sL_Push;
	if(@numP==2 && @playTot == 21) goto sL_Win;
	if(@numD==2 && @dealTot == 21) goto sL_Lose;
	if(@playTot > 21) goto sL_Lose;
	if(@dealTot > 21) goto sL_Win;
	next;
	if(@numP==2 && @dealerTurn==0) menu "Hit me(pull)",M_Hit, "Stay",M_Stay, "Double Down",M_Double;
	if(@dealerTurn == 0) menu "Hit me(pull)",M_Hit, "Stay",M_Stay;

	M_Stay:
		mes "[Dealer]";
		if(@playTot < 13) goto sL_PlayToLow;
		if(@dealTot > 16) mes "The Dealer stays.";
		if(@dealTot > 16 || @numD == 5) goto L_Check;
		mes "The Dealer is going to pull";
		next;
		callsub sF_GetCards, @numD, @dealCard[@numD], @dealCard$[@numD], @dAce;
		set @dealerTurn, 1;
		goto L_Start;

		sL_PlayToLow:
			mes "I'm sorry but you do not have a high enough total to stay.  You must pull.";
			next;
			goto M_Hit;

	M_Hit:
		if(@numP == 5) goto M_Stay;
		callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
		goto L_Start;
	M_Double:
		mes "[Dealer]";
		mes "Player has chosen to Double Down.  You're current bet will be";
		mes "doubled, and you will only be able to pull 1 extra card.";
		next;
		set @dealerTurn, 1;
		set @bet, @bet*2;
		callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
		goto L_Start;

//=============
L_Check:
	next;
	if(@playTot < @dealTot) goto sL_Lose;
	if(@playTot == @dealTot) goto sL_Push;

	sL_Win:
		set tokens, tokens + @bet;
		next;
		mes "[Dealer]";
		mes "Congratulations, you've won!";
		next;
		goto L_Play;
	sL_Lose:
		set tokens, tokens - @bet;
		next;
		mes "[Dealer]";
		mes "I'm sorry but you've lost.";
		next;
		goto L_Play;
	sL_Push:
		next;
		mes "[Dealer]";
		mes "Its a push.  You tied with the Dealer.";
		next;
		goto L_Play;


//==================================
// Sub function for dealing/pulling the cards
sF_GetCards:
	set @rnd, rand(1,13);
	if($@card[@rnd] == 4) goto sF_GetCards;
	set $@card[@rnd], $@card[@rnd] + 1;
	set getarg(1), @rnd;
	if(getarg(1) > 10) set getarg(1), 10;
	if(getarg(1) == 1 && getarg(3) < 1) set getarg(1), 11;
	if(getarg(1) == 11) set getarg(3), 1;
	set getarg(2), " " + getarg(1) + " ";
	if(@rnd == 10) set getarg(2), getarg(1);
	if(@rnd == 1) set getarg(2), " A ";
	if(@rnd == 11) set getarg(2), " J ";
	if(@rnd == 12) set getarg(2), " Q ";
	if(@rnd == 13) set getarg(2), " K ";
	set getarg(0), getarg(0) + 1;
	return;

//==================================
// Sub function for getting the total score for each hand
sF_GetTot:
	set @i, 0;
	set @dealTot, 0;
	set @playTot, 0;

	GetDealTot:
		set @dealTot, @dealTot + @dealCard[@i];
		set @i, @i + 1;
		if(@i < @numD) goto GetDealTot;
		if(@dAce == 1 && @dealTot > 21) set @dealTot, @dealTot - 10;
		set @i, 0;
	GetPlayTot:
		set @playTot, @playTot + @playCard[@i];
		set @i, @i + 1;
		if(@i < @numP) goto GetPlayTot;
		if(@pAce == 1 && @playTot > 21) set @pAce, 2;
		if(@pAce > 0 && @playTot > 21) set @playTot, @playTot - 10;
	return;

//=======================================
// Sub function for displaying the Cards
sF_D2cards:
	mes "    .-----.   .-----. ";
	mes "    | "+@dealCard$[0]+" |   | "+@dealCard$[1]+" | ";
	mes "    '-----'   '-----' ";
	return;
sF_P2cards:
	mes "    .-----.   .-----. ";
	mes "    | "+@playCard$[0]+" |   | "+@playCard$[1]+" | ";
	mes "    '-----'   '-----' ";
	return;
sF_D3cards:
	mes "    .-----.   .-----.   .-----. ";
	mes "    | "+@dealCard$[0]+" |   | "+@dealCard$[1]+" |   | "+@dealCard$[2]+" | ";
	mes "    '-----'   '-----'    '-----' ";
	return;
sF_P3cards:
	mes "    .-----.   .-----.   .-----. ";
	mes "    | "+@playCard$[0]+" |   | "+@playCard$[1]+" |   | "+@playCard$[2]+" | ";
	mes "    '-----'   '-----'    '-----' ";
	return;
sF_D4cards:
	mes " .-----.  .-----.  .-----. ";
	mes " | "+@dealCard$[0]+" |  | "+@dealCard$[1]+" |  | "+@dealCard$[2]+" | ";
	mes " '-----'  '-----'   '-----' ";
	mes "    .-----.  ";
	mes "    | "+@dealCard$[3]+" |";
	mes "    '-----'   ";
	return;
sF_P4cards:
	mes " .-----.  .-----.  .-----. ";
	mes " | "+@playCard$[0]+" |  | "+@playCard$[1]+" |  | "+@playCard$[2]+" |";
	mes " '-----'  '-----'   '-----' ";
	mes "    .-----.  ";
	mes "    | "+@playCard$[3]+" |";
	mes "    '-----'   ";
	return;
sF_D5cards:
	mes " .-----.  .-----.  .-----. ";
	mes " | "+@dealCard$[0]+" |  | "+@dealCard$[1]+" |  | "+@dealCard$[2]+" | ";
	mes " '-----'  '-----'   '-----' ";
	mes "    .-----.   .-----. ";
	mes "    | "+@dealCard$[3]+" |   | "+@dealCard$[4]+" | ";
	mes "    '-----'   '-----' ";
	return;
sF_P5cards:
	mes " .-----.  .-----.  .-----. ";
	mes " | "+@playCard$[0]+" |  | "+@playCard$[1]+" |  | "+@playCard$[2]+" | ";
	mes " '-----'  '-----'   '-----' ";
	mes "    .-----.   .-----. ";
	mes "    | "+@playCard$[3]+" |   | "+@playCard$[4]+" | ";
	mes "    '-----'   '-----' ";
	return;
}

    hello capuche sorry to ask but may i know where did you change>.<?

     

    thank you in advance

    regards

    MelMel

×
×
  • Create New...