agamanaros

January 31, 2018

Still the same sir .. I also found out that its not just with the refiner npc but also with the card remover npc and also when compounding a card in an item ... I'm wondering if it has something to do with the src ... Please help

January 31, 2018

Up

January 29, 2018

I'm having a bit of troubles with my normal refiner, I never change nor touch anything in the script but the menu's of the npc are all messed up and also when I try to refine an item it says "I don't think I can refine this item at all...."

Please help me,
Thank you very much

// Weapon/Armor Refiners
//============================================================
prt_in,63,60,0	script	Hollgrehenn	85,{
	callfunc "refinemain","Hollgrehenn",0;
	end;
}
morocc_in,73,38,6	script	Aragham	99,{
	callfunc "refinemain","Aragham",0;
	end;
}
payon,144,173,5	script	Antonio	88,{
	callfunc "refinemain","Antonio",0;
	end;
}
alberta_in,28,58,0	script	Fredrik	85,{
	callfunc "refinemain","Fredrik",0;
	end;
}
yuno_in01,171,21,4	script	Lambert	88,{
	callfunc "refinemain","Lambert",0;
	end;
}
ein_in01,24,87,5	script	Manthasman	826,{
	callfunc "refinemain","Manthasman Pruhag",0;
	end;
}
lhz_in02,282,20,7	script	Fulerr	869,{
	callfunc "refinemain","Fulerr",0;
	end;
}

//============================================================
//= Main Refiner Function
//============================================================
//= To allow auto safe refining/multiple refining set the
//= second argument to '1' in the function call.
//= If you enable this function, be sure to edit the value of
//= .@safe to the max safe refine in refine_db.txt as well.
//============================================================
function	script	refinemain	{
	disable_items;
	.@npc_name$ = getarg(0);
	set .@features,getarg(1);
	mes "["+ .@npc_name$ +"]";
	mes "I'm the Armsmith.";
	mes "I can refine all kinds of weapons, armor and equipment, so let me";
	mes "know what you want me to refine.";
	next;

	setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
	set .@menu$,"";
	for(set .@i,1; .@i<=10; set .@i,.@i+1) {
		if(getequipisequiped(.@i)) {
			set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
			set .@equipped,1;
		}
		set .@menu$, .@menu$ + ":";
	}
	if (.@equipped == 0) {
		mes "["+ .@npc_name$ +"]";
		mes "I don't think I can refine any items you have...";
		close;
	}
	set .@part, select(.@menu$);

	if(!getequipisequiped(.@part)) { //custom check
		mes "["+ .@npc_name$ +"]";
		mes "You're not wearing";
		mes "anything there that";
		mes "I can refine.";
		emotion e_an;
		close;
	}
	//Check if the item is refinable...
	if(!getequipisenableref(.@part)) {
		mes "["+ .@npc_name$ +"]";
		mes "I don't think I can";
		mes "refine this item at all...";
		close;
	}
	//Check to see if the items is already +10
	if(getequiprefinerycnt(.@part) >= 10) {
		mes "["+ .@npc_name$ +"]";
		mes "I can't refine this";
		mes "any more. This is as";
		mes "refined as it gets!";
		close;
	}
	set .@refineitemid, getequipid(.@part); // save id of the item
	set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
	switch(getequipweaponlv(.@part)){
	case 0: 	//Refine Armor
		set .@price,2000;
		set .@material,985; //Elunium
		set .@safe,4;
		break;
	case 1: 	//Refine Level 1 Weapon
		set .@price,50;
		set .@material,1010; //Phracon
		set .@safe,7;
		break;
	case 2: 	//Refine Level 2 Weapon
		set .@price,200;
		set .@material,1011; //Emveretarcon
		set .@safe,6;
		break;
	case 3: 	//Refine Level 3 Weapon
		set .@price,5000;
		set .@material,984; //Oridecon
		set .@safe,5;
		break;
	case 4: 	//Refine Level 4 Weapon
		set .@price,20000;
		set .@material,984; //Oridecon
		set .@safe,4;
		break;
	case 5: 	//Refine other stuff?
		set .@price,2000;
		set .@material,985; //Elunium
		set .@safe,4;
		break;
	}

	// If the VIP system is enabled, the prices for non-VIP players are considerably higher.
	if (VIP_SCRIPT && !vip_status(1)) {
		switch(getequipweaponlv(.@part)) {
			case 0: set .@price, .@price * 10; break;
			case 1: set .@price, .@price * 40; break;
			case 2: set .@price, .@price * 50; break;
			case 3: set .@price, .@price * 2; break;
			case 4: set .@price, .@price * 2; break;
			case 5: set .@price, .@price * 10; break;
		}
	}

	if(.@features != 1) {
		mes "["+ .@npc_name$ +"]";
		mes "To refine this I need";
		mes "one ^003366"+getitemname(.@material)+"^000000 and";
		mes "a service fee of " + .@price + " Zeny.";
		mes "Do you really wish to continue?";
		next;
		if(select("Yes:No") == 2){
			mes "["+ .@npc_name$ +"]";
			mes "Yeah...";
			mes "There's no need to";
			mes "rush. Take your time.";
			close;
		}
		if(getequippercentrefinery(.@part) < 100) {
			mes "["+ .@npc_name$ +"]";
			mes "Oh no! If I continue to";
			mes "refine this, there's a risk it could";
			switch(.@material) {
			case 985:
				mes "be destroyed! That means that ^FF0000this equipment^000000, and ^FF0000any cards^000000 or special properties added to this armor, ^FF0000will be gone^000000.";
				break;
			default:
				mes "be destroyed, and you'd ^FF0000lose the weapon^000000, any ^FF0000cards in the weapon^000000,";
				mes "or any added special properties.";
				break;
			}
			next;
			mes "["+getarg(0)+"]";
			mes "I can't make it any clearer.";
			mes "Once a weapon is destroyed,";
			mes "there's no getting it back.";
			mes "You really have a chance to";
			mes "^FF0000lose this weapon^000000 forever.";
			mes "Do you still want to refine?";
			next;
			if(select("Yes:No") == 2){
				mes "["+ .@npc_name$ +"]";
				mes "I completely agree...";
				mes "I might be a great refiner, but sometimes even I make mistakes.";
				close;
			}
		}
		if((countitem(.@material) < 1) || (Zeny < .@price)) {
			mes "["+ .@npc_name$ +"]";
			mes "You don't seem to have";
			mes "enough Zeny or "+getitemname(.@material)+"...";
			mes "Go get some more. I'll be";
			mes "here all day if you need me.";
			close;
		}
		set Zeny, Zeny-.@price;
		delitem .@material,1;

		// anti-hack
		if (callfunc("F_IsEquipIDHack", .@part, .@refineitemid) ||
		    callfunc("F_IsEquipRefineHack", .@part, .@refinerycnt)) {
			mes "["+ .@npc_name$ +"]";
			emotion e_an;
			mes "Wait a second...";
			mes "Do you think I'm stupid?!";
			mes "You switched the item while I wasn't looking! Get out of here!";
			close;
		}

		if(getequippercentrefinery(.@part) <= rand(100)) {
			failedrefitem .@part;
			mes "["+ .@npc_name$ +"]";
			emotion (!rand(5))?e_cash:e_omg;
			set .@lose,rand(1,3);
			if (.@lose == 1) {
				mes "OH! MY GOD!";
				mes "Damn it! Not again!";
				mes "I'm terribly sorry, but you know practice does make perfect.";
				mes "Um, right? Heh heh...";
			} else if(.@lose == 2) {
				mes "Nooooooo!";
				mes "It broke!";
				mes "I-I'm sorry!";
			} else {
				mes "Crap!";
				mes "It couldn't take";
				mes "much more tempering!";
				mes "Sorry about this...";
			}
			close;
		}
		mes "["+getarg(0)+"]";
		successrefitem .@part;
		emotion e_heh;
		set .@win,rand(1,3);
		if (.@win == 1) {
			mes "Perfect!";
			mes "Heh heh!";
			mes "Once again,";
			mes "flawless work";
			mes "from the master~";
		} else if(.@win == 2) {
			mes "Success...!";
			mes "Yet again, my amazing";
			mes "talent truly dazzles";
			mes "and shines today.";
		} else {
			mes "Heh heh!";
			mes "I'm all done.";
			mes "No doubt, my work is";
			mes "to your satisfaction.";
			mes "Sheer, utter perfection~";
		}
		close;
	}

// New Refining Functions ========================
	if(getequiprefinerycnt(.@part) < .@safe) {
		mes "["+ .@npc_name$ +"]";
		mes "I can refine this to the safe limit or a desired number of times. It's your choice.";
		next;
		set .@menu2,select("To the safe limit, please.","I'll decide how many times.","I've changed my mind...");
	} else
		set .@menu2,2;
	switch(.@menu2){
	case 1: 
		set .@refinecnt,.@safe - getequiprefinerycnt(.@part);
		break;
	case 2:
		next;
		mes "["+ .@npc_name$ +"]";
		mes "How many times would you like me to refine your item?";
		next;
		input .@refinecnt;
		set .@refinecheck,.@refinecnt + getequiprefinerycnt(.@part);
		if (.@refinecnt < 1 || .@refinecheck > 10) {
			mes "["+ .@npc_name$ +"]";
			mes "I can't refine this item that many times.";
			close;
		}
		if(.@refinecheck > .@safe) {
			set .@refinecheck,.@refinecheck - .@safe;
			mes "["+ .@npc_name$ +"]";
			mes "This will try to refine the equipment " + .@refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";
			next;
			if(select("Yes...","No...") == 2){
				mes "["+ .@npc_name$ +"]";
				mes "You said so... So be it.";
				close;
			}
		}
		break;
	case 3:
		next;
		mes "["+ .@npc_name$ +"]";
		mes "You said so... So be it.";
		close;
	}
	set .@fullprice,.@price * .@refinecnt;
	mes "["+ .@npc_name$ +"]";
	mes "That will cost you " + .@refinecnt + " " + getitemname(.@material) + " and " + .@fullprice + " Zeny. Is that ok?";
	next;
	if(select("Yes","No...") == 2){
		mes "["+ .@npc_name$ +"]";
		mes "You said so... So be it.";
		close;
	}
	if(countitem(.@material) < .@refinecnt || Zeny < .@fullprice) {
		mes "["+ .@npc_name$ +"]";
		mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
		close;
	}
	set Zeny, Zeny - .@fullprice;
	delitem .@material,.@refinecnt;
	while(.@refinecnt){
		if (getequipisequiped(.@part) == 0) {
			mes "["+ .@npc_name$ +"]";
			mes "Look here... you don't have any items on...";
			close;
		}
		if (getequipid(.@part) != .@refineitemid || (.@menu2 == 1 && getequippercentrefinery(.@part) < 100)) {
			mes "["+ .@npc_name$ +"]";
			mes "Clang... No, but did you imagine I could be so stupid?!";
			mes "You changed it...";
			mes "Get out before I stun you with my Hammer!!";
			close;
		} 
		mes "Clang, clang!!!";
		if(.@menu2 == 2 && getequippercentrefinery(.@part) <= rand(100)) {
			failedrefitem .@part;
			emotion e_omg;
			mes "["+ .@npc_name$ +"]";
			mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";
			set .@refinecnt,.@refinecnt - 1;
			if(.@refinecnt == 0) close;
			mes "Here's the unused Zeny and materials back...";
			getitem .@material,.@refinecnt;
			set .@fullprice,.@refinecnt * .@price;
			set Zeny, Zeny + .@fullprice;
			close;
		}
		successrefitem .@part;
		emotion e_no1;
		set .@refinecnt,.@refinecnt - 1;
		next;
	}
	mes "["+ .@npc_name$ +"]";
	mes "All finished... Come again soon.";
	close;

January 20, 2018

Thank you @Emistry, But do you think its possible for both npc and player to do an emotion of /dice every time they roll?

January 20, 2018

@Emistry
I was able to get it working! Thank you very much!

moc_para01,102,20,2	script	Dice Dealer	57,{

set .itemid, 7179;
set .MaxDiceBet,30000;

mes "[Dyceman]";
mes "We each roll two dice and the highest total wins. I will match however much money you put in.";
goto DiceStart;
close;

DiceStart:
next;
if(select("Lets throw some dice!:Not wasting a zeny!")==2) {
	mes "[Dyceman]"; 
	mes "Please come again!"; 
	close;
}
mes "[Dyceman]";
mes "How much Proof of Donations would you like to bet?";
switch(prompt(
	"50 Proof of Donations",
	"100 Proof of Donations",
	"200 Proof of Donations",
	"Custom Amount"
)) {
	case 1: 
		set .@BetAmount,50; 
		break;
	case 2: 
		set .@BetAmount,100; 
		break;
	case 3: 
		set .@BetAmount,200; 
		break;
	case 4: 
		input .@BetInput;
		if(.@BetInput < 1 || .@BetInput > .MaxDiceBet) { 
			next; 
			mes "[Dyceman]"; 
			mes "You must enter a number between ^FF00001^000000 and ^FF0000"+.MaxDiceBet+" Proof of Donations^000000."; 
			goto DiceStart; 
			close; 
		}
		set .@BetAmount,.@BetInput;
		next;
		mes "[Dyceman]";
		mes "You bet ^008800"+.@BetAmount+" Proof of Donations^000000!";
		break;
	default:
	case 255: 
		mes "[Dyceman]"; 
		mes "Please come again!"; 
		close;
}
next;
mes "[Dyceman]";
if(countitem(.itemid) < .@BetAmount) {
	mes "You you don't have enough Proof of Donations to make that bet!"; 
	close; 
}
delitem .itemid, .@BetAmount;
set trustfundbalance, trustfundbalance + (.@BetAmount / 100);
mes "The dice have been thrown...";
next;
set .@DiceRoll,rand(1,3);
if(.@DiceRoll==1) { mes "roll..."; }
if(.@DiceRoll==2) { mes "roll... roll..."; }
if(.@DiceRoll==3) { mes "roll... roll... roll..."; }
next;
set .@DiceRoll,rand(1,3);
if(.@DiceRoll==1) { mes "roll..."; }
if(.@DiceRoll==2) { mes "roll... roll..."; }
if(.@DiceRoll==3) { mes "roll... roll... roll..."; }
next;
set .@DiceRoll,rand(1,3);
if(.@DiceRoll==1) { mes "roll..."; }
if(.@DiceRoll==2) { mes "roll... roll..."; }
if(.@DiceRoll==3) { mes "roll... roll... roll..."; }
set .@diceroll1a,rand(1,6);
set .@diceroll1b,rand(1,6);
set .@dice1numtotal,(.@diceroll1a+.@diceroll1b);
set .@diceroll2a,rand(1,6);
set .@diceroll2b,rand(1,6);
set .@dice2numtotal,(.@diceroll2a+.@diceroll2b);
next;
mes "[Dyceman]";
mes "You rolled a ^0000FF"+.@diceroll2a+"^000000 and ^0000FF"+.@diceroll2b+"^000000!";
mes " ";
mes "I rolled a ^0000FF"+.@diceroll1a+"^000000 and ^0000FF"+.@diceroll1b+"^000000!";
next;
mes "[Dyceman]"; 
if(.@dice1numtotal>.@dice2numtotal) { 
	mes "My ^0000FF"+.@dice1numtotal+"^000000 beats your ^0000FF"+.@dice2numtotal+"^000000!"; 
	next; 
	mes "[Dyceman]"; 
	mes "I win, your ^008800"+.@BetAmount+"z^000000 is mine!"; 
}
else if(.@dice1numtotal<.@dice2numtotal) { 
	mes "Your ^0000FF"+.@dice2numtotal+"^000000 beats my ^0000FF"+.@dice1numtotal+"^000000!"; 
	getitem .itemid, (.@BetAmount * 2); 
	next; 
	mes "[Dyceman]"; 
	mes "You won ^008800"+(.@BetAmount*2)+"z^000000. I will get your Proof of Donations next time!"; 
}
else if(.@dice1numtotal==.@dice2numtotal) { 
	mes "Draw, let's play again!";
	getitem .itemid, .@BetAmount; 
	set trustfundbalance,trustfundbalance - ( .@BetAmount / 100); 
	goto DiceStart;
}
close;
}

January 20, 2018

moc_para01,102,20,2	script	Dice Dealer	57,{

set .itemid, 501;
set .MaxDiceBet,30000;

mes "[Dyceman]";
mes "We each roll two dice and the highest total wins. I will match however much money you put in.";
goto DiceStart;
close;

DiceStart:
next;
if(select("Lets throw some dice!:Not wasting a zeny!")==2) {
	mes "[Dyceman]"; 
	mes "Please come again!"; 
	close;
}
mes "[Dyceman]";
mes "How much Proof of Donations would you like to bet?";
switch(prompt(
	"50 Proof of Donations",
	"100 Proof of Donations",
	"200 Proof of Donations",
	"Custom Amount"
)) {
	case 1: 
		set .@BetAmount,50; 
		break;
	case 2: 
		set .@BetAmount,100; 
		break;
	case 3: 
		set .@BetAmount,200; 
		break;
	case 4: 
		input .@BetInput;
		if(.@BetInput < 1 || .@BetInput > .MaxDiceBet) { 
			next; 
			mes "[Dyceman]"; 
			mes "You must enter a number between ^FF00001^000000 and ^FF0000"+.MaxDiceBet+" Proof of Donations^000000."; 
			goto DiceStart; 
			close; 
		}
		set .@BetAmount,.@BetInput;
		next;
		mes "[Dyceman]";
		mes "You bet ^008800"+.@BetAmount+" Proof of Donations^000000!";
		break;
	default:
	case 255: 
		mes "[Dyceman]"; 
		mes "Please come again!"; 
		close;
}
next;
mes "[Dyceman]";
if(countitem(.itemid) < .@BetAmount) {
	mes "You you don't have enough Proof of Donations to make that bet!"; 
	close; 
}
delitem .itemid, .@BetAmount;
set trustfundbalance, trustfundbalance + (.@BetAmount / 100);
mes "The dice have been thrown...";
next;
set .@DiceRoll,rand(1,3);
if(.@DiceRoll==1) { mes "roll..."; }
if(.@DiceRoll==2) { mes "roll... roll..."; }
if(.@DiceRoll==3) { mes "roll... roll... roll..."; }
next;
set .@DiceRoll,rand(1,3);
if(.@DiceRoll==1) { mes "roll..."; }
if(.@DiceRoll==2) { mes "roll... roll..."; }
if(.@DiceRoll==3) { mes "roll... roll... roll..."; }
next;
set .@DiceRoll,rand(1,3);
if(.@DiceRoll==1) { mes "roll..."; }
if(.@DiceRoll==2) { mes "roll... roll..."; }
if(.@DiceRoll==3) { mes "roll... roll... roll..."; }
set .@diceroll1a,rand(1,6);
set .@diceroll1b,rand(1,6);
set .@dice1numtotal,(.@diceroll1a+.@diceroll1b);
set .@diceroll2a,rand(1,6);
set .@diceroll2b,rand(1,6);
set .@dice2numtotal,(.@diceroll2a+.@diceroll2b);
next;
mes "[Dyceman]";
mes "You rolled a ^0000FF"+.@diceroll2a+"^000000 and ^0000FF"+.@diceroll2b+"^000000!";
mes " ";
mes "I rolled a ^0000FF"+.@diceroll1a+"^000000 and ^0000FF"+.@diceroll1b+"^000000!";
next;
mes "[Dyceman]"; 
if(.@dice1numtotal>.@dice2numtotal) { 
	mes "My ^0000FF"+.@dice1numtotal+"^000000 beats your ^0000FF"+.@dice2numtotal+"^000000!"; 
	next; 
	mes "[Dyceman]"; 
	mes "I win, your ^008800"+.@BetAmount+"z^000000 is mine!"; 
}
else if(.@dice1numtotal<.@dice2numtotal) { 
	mes "Your ^0000FF"+.@dice2numtotal+"^000000 beats my ^0000FF"+.@dice1numtotal+"^000000!"; 
	getitem .itemid, (.@BetAmount * 2); 
	next; 
	mes "[Dyceman]"; 
	mes "You won ^008800"+(.@BetAmount*2)+"z^000000. I will get your Proof of Donations next time!"; 
}
else if(.@dice1numtotal==.@dice2numtotal) { 
	mes "Draw, let's play again!";
	getitem .itemid, .@BetAmount; 
	set trustfundbalance,trustfundbalance - ( .@BetAmount / 100); 
	goto DiceStart;
}
close;
}

@Emistry

I was able to debug the script that you gave me however whenever I Choose "Let's roll some dice", It doesn't stop rolling.

January 20, 2018

Thank you for your response Emistry, I tried your script and it gives me this error:
image.png.c6958d02249b92bb1b03209823bb305b.png

I'm searching for this specific script for about 3 days now and I haven't found 1 that works perfectly. Hope you can help me out.

Thank you!

January 20, 2018

Can I request for a script for a normal dice bet game but instead of betting for zeny, they'll bet for pods. Player also has the option to either bet for 50 pods, 100 pods, 200 pods or Custom Amount. And I also want the npc to spin /dice emotion to both player and npc everytime they play

Example:
image.png.c5f93fbab867384cadad1957f860e7a8.png

roll_a_dice.txt

image.png.5659cbc4198a58576e7288a64b211064.png

Thank you!

February 8, 2017

this reply might be a bit late but can anyone tell me where to get this map?

Sign In

agamanaros

Posts

Joined

Last visited

Content Type

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by agamanaros

Help with normal refiner

Help with normal refiner

Help with normal refiner

DICE ITEM BET GAME

DICE ITEM BET GAME

DICE ITEM BET GAME

DICE ITEM BET GAME

DICE ITEM BET GAME

[Showcase] UFC Strikeforce PvP Arena

Docs

Get Started

Github

Community

My Account