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
|
prontera,150,152,3 script PVP x1 751,{
set .@n$,"[^FF0000PVP 1x1^000000]";
set .@AIDA,getcharid(3);
setarray .@map$,"pvp_y_1-1","pvp_y_1-2","pvp_y_1-3"; // Mapas
if (@request == 1) {
set .@mapname$,"";
mes .@n$;
mes "Me parece que você foi desafiado, deseja aceitar o desafio?";
if (select("- Sim:- Não") == 2) {
attachrid(getd("$warp_"+.@AIDA));
dispbottom "[PVP]: Seu pedido de x1 foi rejeitado!";
attachrid(.@AIDA);
close;
}
next;
attachrid(getd("$warp_"+.@AIDA));
dispbottom "[PVP]: Seu PVP foi aceito, agora vou lhe mandar para o mapa do x1!";
do {
set .@mapname$,.@map$[rand(0,getarraysize(.@map$)-1)];
} while (getmapusers(.@mapname$) != 0);
warp .@mapname$,0,0;
attachrid(.@AIDA);
warp .@mapname$,0,0;
close;
}
mes .@n$;
mes "Olá, o que deseja fazer?";
if (select("- Convidar uma pessoa para x1:- Nada") == 2) close;
next;
set @menu2,@menu;
mes .@n$;
mes "Antes de prosseguirmos, tenho que lhe alertar sobre algo.";
mes "Você só poderá participar se apostar algum item.";
mes "Sabendo disto, ainda deseja continuar?";
if (select("- Sim:- Não") == 2) close;
next;
if (@menu2 == 1) {
mes .@n$;
mes "Pois bem, escolha o que deseja apostar:";
getinventorylist;
for (set .@i,0;.@i < @inventorylist_count;set .@i,.@i+1)
set .@menu$,.@menu$+"- "+getitemname(@inventorylist_id[.@i])+":";
if (select(.@menu$+"- Zeny:- Cancelar") == @inventorylist_count+2) close;
next;
if (@menu < @inventorylist_count+1) set $item,@inventorylist_id[@menu-1];
mes $item;
if (@menu == @inventorylist_count+1) {
mes .@n$;
mes "Ok, agora por favor digite a quantidade de zeny que deseja apostar:";
input .@qzeny;
next;
if (.@qzeny > Zeny) {
mes .@n$;
mes "Pois é, me parece que você não tem esse dinheiro todo.";
mes "Tente apostar outra coisa.";
close;
}else if (.@qzeny <= 0) {
mes .@n$;
mes "Você tem que apostar algum dinheiro já que selecionou está opção.";
mes "Tente apostar novamente.";
close;
}
mes .@n$;
mes "Seu dinheiro foi apostado!";
}
mes .@n$;
mes "Certo, agora digite o nome do jogador, mas ele tem que estar ^FF0000ONLINE^000000";
input .@nx$;
set .@aidnx,getcharid(3,.@nx$);
if (!.@aidnx && .@aidnx != .@AIDA) {
mes "Jogador offline, logo seu pedido é inválido.";
close;
}
next;
attachrid (.@aidnx);
if (Zeny < .@qzeny) {
dispbottom "[PVP]: Infelizmente você não tem "+.@qzeny+" zeny(s), logo seu convite de x1 foi rejeitado automaticamente.";
set @request,0;
attachrid(.@AIDA);
mes .@n$;
mes "Parece que o jogador "+rid2name(.@aidnx)+" não tem zeny o suficiente, em suma, seu pedido de x1 foi rejeitado.";
close;
}else {
set @request,1;
dispbottom "[PVP]: O jogador "+rid2name(.@AIDA)+" lhe desafiou para um x1.";
dispbottom "[PVP]: Se deseja aceitar, fale com o NPC de PVP x1.";
}
if (((!.@qzeny) || .@qzeny > Zeny) && !countitem($item)) {
dispbottom "[PVP]: Infelizmente você não tem o item "+getitemname($item)+", logo seu convite de x1 foi rejeitado automaticamente.";
set @request,0;
attachrid(.@AIDA);
dispbottom "[PVP]: Infelizmente o jogador "+.@nx$+" não tem o item que você apostou, logo seria uma aposta injusta!";
dispbottom "[PVP]: O convite do mesmo foi rejeitado!";
close;
}
setd "$warp_"+.@aidnx,.@AIDA;
if (.@qzeny <= 0) {
setd "$itemx_"+.@aidnx,$item;
setd "$itemx_"+.@AIDA,$item;
}else {
setd "$itemx_"+.@aidnx,.@qzeny;
setd "$itemx_"+.@aidnx+"[1]",1;
setd "$itemx_"+.@AIDA,$item;
}
attachrid(.@AIDA);
mes .@n$;
mes "O jogador "+.@nx$+" foi convidado, em breve receberá sua resposta!";
mes getd("$itemx_"+.@aidnx);
close;
}
OnPCDieEvent:
set $@tempRID,getcharid(3);
end;
OnPCKillEvent:
set .@killer,getcharid(3);
set @request,0;
if (getd("$itemx_"+.@killer+"[1]") > 0) {
set Zeny,Zeny+getd("$itemx_"+.@killer);
dispbottom "[PVP]: Parabéns, você acaba de receber "+getd("$itemx_"+.@killer)+" zeny(s)";
setd "$itemx_"+.@killer,0;
setd "$itemx_"+.@killer+"[1]",0;
}else {
attachrid($@tempRID);
set @request,0;
delitem getd("$itemx_"+$@tempRID),1;
attachrid(.@killer);
getitem getd("$itemx_"+.@killer),1;
dispbottom "[PVP]: Parabéns, você acaba de receber o item "+getitemname(getd("$itemx_"+.@killer))+"";
setd "$itemx_"+.@killer,0;
}
end;
} |