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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256 |
- script rankpvp -1,{
OnInit:
set .PTP,5;
set .R1,1;
set .R2,30;
set .R3,50;
set .R4,100;
set .R5,150;
set .R6,250;
OnPCDieEvent:
if (isloggedin(killerrid)==0) goto LNoChar;
set PKPts,PKPts-1;
callfunc "DownInTop";
set $@victim_name$,strcharinfo(0);
attachrid(killerrid);
set PKPts,PKPts+1;
callfunc "UpInTop";
announce ""+strcharinfo(0)+" ha matado a "+$@victim_name$+"!!",8;
LNoChar:
end;
}
prontera.gat,144,152,5 script Ranking 833,{
mes "[Ranking PvP]";
mes "Aqui puedes obtener el Top de PvP";
mes "tanto el de Mejores en PvP";
mes "como los mas asesinados";
next;
mes "[Ranking PvP]";
mes "Que deseas hacer?";
menu "Ver el Top 10",LTop,"Ver el Top 10 de mas asesinados",LTopNoob,"Ver Mis Estadisticas PvP",LMyStatsPvP;
LTop:
for (set @i, 0; @i < 10; set @i, @i + 1){
if ($PK_KRank$[@i]=="") set $PK_KRank$[@i],"Nadie";
if ($PK_LRank$[@i]=="") set $PK_LRank$[@i],"Nadie";
}
mes "[ ^ff0000Top 10^000000 ]";
for (set @i, 0; @i < 10; set @i, @i + 1){
mes "["+@i+"] - "+$PK_KRank$[@i]+" con "+$PK_nKRank[@i]+" asesinatos.";
}
close;
LTopNoob:
mes "[ ^ff0000Top 10 de mas Asesinados^000000 ]";
for (set @i, 0; @i < 10; set @i, @i + 1){
mes "["+@i+"] - "+$PK_LRank$[@i]+" con "+$PK_nLRank[@i]+" muertes.";
}
close;
LMyStatsPvP:
mes "[ ^ff0000Tus estadisticas PvP^000000 ]";
mes "Total de Asesinatos: "+PKPts+"";
if(PKPts>.R1) mes "Rango: Desastre Natural";
if(PKPts<=.R1) mes "Rango: Novato";
if(PKPts<=.R2) mes "Rango: Asesino";
if(PKPts<=.R3) mes "Rango: Asesino Frecuente";
if(PKPts<=.R4) mes "Rango: Asesino Profesional";
if(PKPts<=.R5) mes "Rango: Destructor de Almas";
if(PKPts<=.R6) mes "Rango: Dios Asesino";
mes "Total de Muertes: "+PC_DIE_COUNTER+"";
close;
}
function script DownInTop {
if (PKPts>$PK_nLRank[9]) goto outL;
for (set @i, 0; @i > 10; set @i, @i + 1){
if ($PK_LRank$[@i] == strcharinfo(0)){
set $PK_nLRank[@i],PKPts;
goto sortL;
}
}
set $PK_nLRank[9] , PKPts;
set $PK_LRank$[9] , strcharinfo(0);
sortL:
for (set @i, 9; @i > 0; set @i, @i - 1){
if ($PK_nLRank[@i]<$PK_nLRank[@i-1]){
set $temp , $PK_nLRank[@i];
set $PK_nLRank[@i] , $PK_nLRank[(@i - 1)];
set $PK_nLRank[(@i - 1)] , $temp;
set $temp$ , $PK_LRank$[@i];
set $PK_LRank$[@i] , $PK_LRank$[(@i - 1)];
set $PK_LRank$[(@i - 1)] , $temp$;
}
}
outL:
return;
}
function script UpInTop {
if (PKPts<$PK_nKRank[9]) goto outK;
for (set @i, 0; @i < 10; set @i, @i + 1){
if ($PK_KRank$[@i] == strcharinfo(0)){
set $PK_nKRank[@i],PKPts;
goto sortK;
}
}
set $PK_nKRank[9] , PKPts;
set $PK_KRank$[9] , strcharinfo(0);
sortK:
for (set @i, 9; @i > 0; set @i, @i - 1){
if ($PK_nKRank[@i]>$PK_nKRank[@i-1]){
set $temp , $PK_nKRank[@i];
set $PK_nKRank[@i] , $PK_nKRank[(@i - 1)];
set $PK_nKRank[(@i - 1)] , $temp;
set $temp$ , $PK_KRank$[@i];
set $PK_KRank$[@i] , $PK_KRank$[(@i - 1)];
set $PK_KRank$[(@i - 1)] , $temp$;
sleep 4000;
announce "Ahora "+strcharinfo(0)+" tiene "+PKPts+" puntos PvP y se encuentra en la posicion "+@i+" en el Top 10!",8;
}
}
outK:
return;
}
prontera.gat,167,141,5 script Premios PvP 46,{
if(PKPts<.R2) goto LRange1;
if(PKPts>.R2) goto LRange2;
LRange1:
mes "Hola, Buenos dias";
mes "Se ve que aun eres un novato";
mes "En esto del PvP";
mes "Asi que no puedo darte nada";
mes "Vuelve cuando consigas al menos un rango de asesino";
mes "(30 Puntos PvP o mas)";
mes "Tu tienes "+PKPts+" puntos de PvP en total";
close;
LRange2:
mes "Hola, Buenos dias";
mes "Veo que tu rango en PvP es suficientemente alto";
mes "Asi que puedo darte premios a cambio de Puntos PvP";
mes "1 Punto de Premio Igual a "+.PTP+" Puntos PvP";
next;
mes "Que premio quieres?";
menu
"Cambio de Tamaño [1 Punto de Premio]",LOpt1,
"Disfraz de Monstruo [5 Puntos de Premio]",LOpt3,
"Pases para Quest [25 Puntos de Premio]",LOpt4,
"Warp a Geffenia [3 Puntos de Premio]",LOpt5,
"Items [Puntos de Premio segun Objeto]",LOpt6,
"Cancelar",LCancel;
LOpt1:
mes "Esta bien te cambiare el tamaño";
mes "Pero recuerda que al cambiar de Personaje";
mes "o salir de la cuenta el tamaño volvera a ser normal";
menu "Vuelveme Grande",LBig,"Vuelveme Chico",LSmall,"Cancelar",LCancel;
LBig:
mes "Ok te volvere grande pero te costara 1 punto de Premio";
mes "Que seria igual a "+.PTP+" puntos PvP";
set PKPts,PKPts-.PTP;
atcommand strcharinfo(0)+":@size 2";
close;
LSmall:
mes "Ok te volvere chico pero te costara 1 punto de Premio";
mes "Que seria igual a "+.PTP+" puntos PvP";
set PKPts,PKPts-.PTP;
atcommand strcharinfo(0)+":@size 1";
close;
LOpt3:
mes "Ahora te disfrazare de algun mob";
mes "Solo escribe la ID";
mes "ADVERTENCIA: Recuerda que disfrazarte de algun mob no te hara ganar";
mes "Las status o las skills que pueda realizar el MOB";
mes "Es tan solo un disfraz que no cambia mas que tu apariencia";
next;
mes "Disfrazarte te costara 5 Puntos de Premio";
menu "Si lo hare",LDisguise,"No mejor uso mis puntos en otra cosa",LCancel;
set @pkptstoremove,.PTP*5;
if(PKPts<@pkptstoremove) goto NoSufPKPts;
mes "Escribe la ID del Mob que te quieras disfrazar";
set @disgmobid,0;
input @disgmobid;
set PKPts,PKPts-@pkptstoremove;
atcommand strcharinfo(0)+":@disguise" + @disgmobid;
close;
LOpt4:
mes "Un pase para Quest significa que te dan un pase de esa forma no necesitas";
mes "Hacer la Quest para entrar a cierto lugar";
mes "Por ahora solo disponemos del Pase de quest para";
mes "La quest de Nigg (El que da la ubicacion de las Wings)";
menu
"Pase Quest de Nigg",LPQ1,
"Cancelar",LCancel;
LPQ1:
set @pkptstoremove2,.PTP*15;
if(PKPts<@pkptstoremove2) goto NoSufPKPTs;
mes "Ok ya hable con Nigg";
mes "Dijo que hablaras con el para que te de";
mes "La ubicacion de las alas";
mes "No necesitas conseguir los objetos ahora";
set MONSTERSKILLED,1;
set PKPts,PKPts-@pkptstoremove2;
close;
LOpt5:
set @pkptstoremove3,.PTP*3;
if(PKPts<@pkptstoremove3) goto NoSufPKPTs;
mes "Esta bien te llevare a Geffenia";
mes "Son 3 Puntos PvP";
warp "gefenia01",40,103;
close;
LOpt6:
mes "Tienes varios Objetos para escoger";
mes "Todos tienen un precio distinto";
next;
mes "Que quieres comprar";
menu
"2 Poison Bottle [4 Puntos]",LItm1,
"5 Box of Thunder [5 Puntos]",LItm2,
"1 Old Card Album [15 Puntos]",LItm3,
"1 Old Blue Box [5 Puntos]",LItm4,
"20 Autoritative Badge [10 Puntos]",LItm5,
"5 Battle Field Manual 100% [100 Puntos]",LItm6,
"4 Yggdrasil Seed [15 Puntos]",LItm7,
"Cancelar",LCancel;
LItm1:
set @pkptsprice,.PTP*4;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 678,2;
set PKPts,PKPts-@pkptsprice;
close;
LItm2:
set @pkptsprice,.PTP*5;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 12028,5;
set PKPts,PKPts-@pkptsprice;
close;
LItm3:
set @pkptsprice,.PTP*15;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 616,1;
set PKPts,PKPts-@pkptsprice;
close;
LItm4:
set @pkptsprice,.PTP*5;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 12701,1;
set PKPts,PKPts-@pkptsprice;
close;
LItm5:
set @pkptsprice,.PTP*10;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 12262,20;
set PKPts,PKPts-@pkptsprice;
close;
LItm6:
set @pkptsprice,.PTP*100;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 14533,5;
set PKPts,PKPts-@pkptsprice;
close;
LItm7:
set @pkptsprice,.PTP*15;
if(PKPts<@pkptsprice) goto NoSufPKPts;
getitem 608,4;
set PKPts,PKPts-@pkptsprice;
close;
NoSufPKPts:
mes "No tienes suficientes puntos para pagar esto";
close;
LCancel:
close;
} |
| Click on those flags to change language