-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathhelper.txt
110 lines (96 loc) · 4.05 KB
/
helper.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
/*
.___ ___. __ __ ___
| \/ | | | | |/ /
| \ / | | | | ' /
| |\/| | | | | <
| | | | | | | . \
|__| |__| |__| |__|\__\
= Helper
= by Mikéias
= brAthena
= User: http://forum.brathena.org/index.php/user/11630-mikeias/
*/
prontera,158,192,4 script [ Helper ] 719,{
switch(select("~ Options [Cart/Falcon/Peco]:~ Cards Remover:~ Platinium Skills")){
case 1: callfunc ("negociante"); end;
case 2: callfunc ("removerCards"); end;
case 3: callfunc ("platiniumskillsfunc"); end;
}
}
function script removerCards {
//===== Configurações: =======================================
set .@falhar, 0; // A remoção pode falhar? [1=Sim/0=Não]
set .@cobrar, 0; // Cobrar zeny para o processo? [1=Sim/0=Não]
set .@zenys, 0; // Se acima estiver 1, defina a quantidade de zenys.
//============================================================
mes "^B00400"+strnpcinfo(1)+"^000000";
mes "Eu tenho o poder místico de remover cartas presas em equipamentos.";
mes " ";
mes "Selecione o item para que eu possa analisá-lo.";
next;
for (set .@i, 1; .@i <= 10; set .@i, .@i + 1)
{
if (getequipisequiped(.@i))
set .@menu$, .@menu$ + ( getequipcardcnt(.@i) ? "^191970 ~ "+getequipname(.@i)+"^000000":"")+":";
}
set .@menu, select (.@menu$);
mes "^B00400"+strnpcinfo(1)+"^000000";
if (!getequipisequiped(.@menu))
callsub F_MesThenClose, "Não há nada equipado aí.";
if (!checkweight(1202,(getequipcardcnt(.@menu)+1)))
callsub F_MesThenClose, "Você está com o peso acima do limite. Guarde alguns itens e tente novamente.";
mes "O item escolhido possui ^B00400["+getequipcardcnt(.@menu)+"]^000000 "+( getequipcardcnt(.@menu) > 1 ? "cartas equipadas.":"carta equipada.");
mes " ";
if (.@cobrar) { mes "Pela remoção lhe cobrarei apenas ^B00400"+.@zenys+"z^000000!"; }
next;
if (select ("- Remover "+( getequipcardcnt(.@menu) > 1 ? "as ^B00400["+getequipcardcnt(.@menu)+"]^000000 cartas equipadas.":"a carta equipada.")+":- Cancelar") == 2) close;
set .@cartasremovidas, getequipcardcnt(.@menu);
mes "^B00400"+strnpcinfo(1)+"^000000";
if (.@falhar)
{
mes "Bem, antes de continuarmos, tenho que dizer que há uma pequena chance do processo falhar.";
mes "Suas cartas, seu item ou ambos podem ser destruídos. Qual você preza mais?";
if (select ("^191970- O item:- As cartas:- Cancelar^000000") == 3) close;
set .@escolhafalhar, @menu;
next;
mes "^B00400"+strnpcinfo(1)+"^000000";
}
if (.@cobrar)
{
if (Zeny < .@zenys){ mes "Desculpe! Você não possui a quantidade de zenys requeridos."; close; }
set Zeny, Zeny - .@zenys;
}
if (.@falhar)
{
set .@chancefalhar, rand(100);
if (.@chancefalhar < 0)
{
failedremovecards .@menu, 0;
callsub F_MesThenClose, "O processo foi uma falha total. Estou envergonhada, seu item e suas cartas foram destruídos.";
}
else if (.@chancefalhar < 8)
{
failedremovecards .@menu, .@escolhafalhar;
if (.@escolhafalhar)
callsub F_MesThenClose, "Eu falhei ao remover as cartas, e elas foram destruídas. O item está em perfeito estado.";
else
callsub F_MesThenClose, "Eu consegui remover as cartas, mas o seu item foi destruído.";
}
else if (.@chancefalhar < 10)
{
failedremovecards .@menu, 3;
callsub F_MesThenClose, "Eu falhei ao remover as cartas, e por sorte sua nada foi danificado.";
}
}
successremovecards .@menu;
mes "O processo foi um grande sucesso, tudo ocorreu nos conformes.";
mes " ";
mes "No total, ^B00400["+.@cartasremovidas+"]^000000 "+( .@cartasremovidas > 1 ? "cartas foram removidas.":"carta foi removida.");
close;
F_MesThenClose:
mes getarg(0);
close;
return;
cancel:
close;
}