API tools faq
paste
View difference between Paste ID: Xh796JHf and Awv81TP7
SHOW: | | - or go back to the newest paste.
1
function	script	shadowrefine	{
2
	disable_items;
3
	mes "["+ getarg(0) +"]";
4
	mes "I am the best forger of all time!";
5
	mes "I will not refine any current equipment.";
6
	mes "I will only refine Shadow equipment.";
7
	next;
8
	mes "["+ getarg(0) +"]";
9
	mes "If you want me to provide my services, you must first have a shadow equipment equipped.";
10
	mes "What do you want me to refine??";
11
	next;
12
13
	setarray .@posicion$[1],"Shadow Armor","Shadow Weapon","Shadow Shield","Shadow Shoes","Shadow Earing","Shadow Pendant";

14
	.@smenu$ = "";

15
	for(.@it = 1; .@it<=20; .@it++) {

16
		if (getequipisequiped(.@it>=15 && .@int <=20)) {

17
			.@smenu$ += .@posicion$[.@it] + "-" + "[" + getequipname(.@it) + "]";

18
			.@equipado = 1;

19
		}	

20
		.@smenu$ += ":";

21
	}

22
	if (.@equipado == 0) {

23
		mes "[" + getarg(0) + "]";

24
		mes "You do not have any shadow equipment equipped at this time.";

25
		close;

26
	}

27
	.@parte = select(.@smenu$);

28
29
	if (!getequipisequiped(.@parte)) { 

30
		mes "[" + getarg(0) + "]";

31
		mes "You have nothing equipped";

32
		mes "Come back once you have equipped the equipment.";

33
		emotion e_an;

34
		close;

35
	}

36
	if (!getequipisenableref(.@parte)) {

37
		mes "[" + getarg(0) + "]";

38
		mes "I dont think i can";

39
		mes "Refine this item after all..";

40
		close;

41
	}

42
	

43
	if (getequiprefinerycnt(.@parte) >= 10) { 

44
		mes "["+ getarg(0) +"]";

45
		mes "I can not refine this";

46
		mes "anymore. its reached";

47
		mes "Its maximum level!";

48
		close;

49
	}

50
	.@refineitemid = getequipid(.@parte);

51
	.@refinerycnt = getequiprefinerycnt(.@parte); 

52
		.@type$ = "Armor";

53
		.@material = 6223; //Carnium

54
		.@price = 100000;

55
		.@safe = 4;

56
		mes "["+ getarg(0) +"]";

57
		mes "Hmm a Shadow gear.";

58
		mes "Do you want me to refine it?,";

59
		mes "I will need 1 ^003366Carnium^000000 y 100,000 zeny.";

60
	next;

61
	mes "Are you sure you want to?";

62
	next;

63
	if(select("Yes:No") == 2){

64
		mes "["+ getarg(0) +"]";

65
		mes "Hmm ... what do you think? ... right? ...";

66
		close;

67
	}

68
	if (getarg(1) != 1) {

69
		if (getequippercentrefinery(.@parte) < 100) {

70
			mes "["+ getarg(0) +"]";

71
			mes "This "+.@type$+" has been refined many times.";

72
			mes "There is a chance it will break if we try again.";

73
			mes "I am sure to break it, but there is a possibility.";

74
			next;

75
			mes "["+ getarg(0) +"]";

76
			mes "But it may happen that ^FF0000Decrease the level of refining^000000 of the "+.@type$+",";

77
			next;

78
			mes "["+ getarg(0) +"]";

79
			mes "Do you want me to refine it yet?";

80
			mes "Ive warned you what can happen.";

81
			next;

82
			if(select("Yes.:No.") == 2) {

83
				mes "["+ getarg(0) +"]";

84
				mes "Well, there is no challenge in that...";

85
				mes "No risk... nothing is lost.";

86
				close;

87
			}

88
		}

89
		if (countitem(.@material) < 1 || Zeny < .@price) {

90
			mes "["+ getarg(0) +"]";

91
			mes "Hmm, seem you do not have enough zeny or "+getitemname(.@material)+".";

92
			mes "Return when you gather the items needed.";

93
			close;

94
		}

95
		Zeny -= .@price;

96
		delitem .@material,1;

97
98
		//custom checks

99
		if (getequipisequiped(.@parte) == 0) {

100
			mes "[" + getarg(0) + "]";

101
			mes "Look at this, you dont have the items.";

102
			close;

103
		}

104
		if (getequiprefinerycnt(.@parte) != .@refinerycnt || getequipid(.@parte) != .@refineitemid) { 

105
			mes "[" + getarg(0) + "]";

106
			emotion e_an;

107
			mes "Wait a minute.";

108
			mes "Do you think im stupid!?!";

109
			mes "You changed the items when I did not look at you! Get out of here!";

110
			close;

111
		}

112
113
		if (getequippercentrefinery(.@parte) > rand(100)) {

114
			mes "Clang! Clang! Clang! Clang!";

115
			successrefitem .@parte;

116
			next;

117
			emotion e_no1;

118
			mes "["+ getarg(0) +"]";

119
			mes "Excellent! I achieved it!";

120
			mes "I am the best smith out!.";

121
			close;

122
		} else {

123
			if (rand(100) < 80) {

124
				mes "["+ getarg(0) +"]";

125
				mes "Clang! Clang! Clang! Clang!";

126
				downrefitem .@parte, 3; 

127
				next;

128
				emotion (!rand(5))?e_cash:e_omg;

129
				mes "["+ getarg(0) +"]";

130
				mes "Waaahhh!!!";

131
				next;

132
				mes "["+ getarg(0) +"]";

133
				mes "Oh no!";

134
				mes "The level of low refining.";

135
			} else {

136
				mes "["+ getarg(0) +"]";

137
				mes "Clang! Clang! Clang!";

138
				failedrefitem .@parte;

139
				next;

140
				emotion (!rand(5))?e_cash:e_omg;

141
				mes "["+ getarg(0) +"]";

142
				mes "Hmmm!";

143
				next;

144
				mes "["+ getarg(0) +"]";

145
				mes "Oh no! It failed to refine.";

146
				mes "I cannot belive this!";

147
			}

148
			mes "There must be a mistake, I'm the best forger of all time.";

149
			mes "This cannot be happening!";

150
			next;

151
			mes "["+ getarg(0) +"]";

152
			mes "I promise the next time i will do a better job! You can be sure of that!";

153
			close;

154
		}

155
	}

156
}

157
moc_para01,45,185,4	script	Shadow Refiner#prt	4_M_DWARF,{

158
	callfunc "shadowrefine","Shadow Refiner",0;

159
	end;

160
}

161
162
moc_para01,32,170,4	shop	Shadow Armor	4_F_KAFRA3,24000:250000,24024:250000,24029:250000,24027:250000,24030:250000,24242:250000,24081:250000,24112:250000,24216:250000

163
moc_para01,32,174,2	shop	Shadow Weapon	4_F_KAFRA5,24001:250000,24019:250000,24022:250000,24031:250000,24110:250000,24152:250000,24223:250000,24227:250000,24233:250000

164
moc_para01,35,174,2	shop	Shadow Shield	4_F_KAFRA4,24002:250000,24026:250000,24039:250000,24044:250000,24083:250000,24113:250000,24182:250000,24232:250000,24241:250000

165
moc_para01,36,170,2	shop	Shadow Shoes	4_F_KAFRA6,24003:250000,24025:250000,24045:250000,24082:250000,24085:250000,24092:250000,24111:250000,24181:250000,24240:250000

166
moc_para01,36,166,2	shop	Shadow Earing	4_F_KAFRA8,24004:250000,24018:250000,24021:250000,24049:250000,24079:250000,24102:250000,24109:250000,24153:250000,24225:250000

167
moc_para01,32,166,2	shop	Shadow Pendant	4_F_KAFRA7,24005:250000,24020:250000,24023:250000,24046:250000,24047:250000,24048:250000,24080:250000,24169:250000,24185:250000
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.             OK, I Understand
        

    
                

            

                
                    
                
            

            

                Not a member of Pastebin yet?

                Sign Up, it unlocks many cool features!