Little help about this script

[darking123]

instead of the prize that is cashpoint....i want it to change the prize will be mithril coin=674,,

how will i change it??

thank you

prontera,150,180,4 script WoR 990,{
if( select("[Register]","[Cancle]") == 2 || $@A2 >=2 || $@Team1$ == strcharinfo(1) || $@Team2$ == strcharinfo(1)
|| getpartyleader(getcharid(1),1) != getcharid(3) ){ close; }
if( $@A2 ){
 set $@A,($@A== 1?2:1);
 set $@A2,$@A2+1;
}
if( !$@A2 ){
set $@A,rand(1,2);
set $@A2,$@A2+1; }
setd "$@Team"+$@A+"$",strcharinfo(1);
setd "$@Team"+$@A,getcharid(1);
mes "Complete";
close;

OnInit:
set $@NPCNAME$,strnpcinfo(0);
disablenpc $@NPCNAME$;
disablenpc "1";
disablenpc "2";
end;
}
- script WoR_confi -1,{
OnPCKillEvent:
set .@k,1;
OnPCDieEvent:
getmapxy(.@q$,.@qq,.@qqq,0);
set .@T,( strcharinfo(1) == $@Team1$ ? 1 : 2 );
if( .@T && $@C && .@q$ == $@RunMap$ ){
 if( .@k ){
  setd "$@Tk"+.@T,getd( "$@Tk"+.@T )+1;
 }
 if( !.@k ){
  warp $@mapname$,getd("$@teammapxy"+.@T+"[0]"),getd("$@teammapxy"+.@T+"[1]");
  sleep2 1;
  atcommand "@alive";
 }
}
end;
OnClock0130:
OnClock0430:
OnClock0730:
OnClock1030:
OnClock1330:
OnClock1630:
OnClock1930:
OnClock2230:
OnStarrtt:
announce "[system]:WoR after 5 minutes we will start , please Register now.",bc_all;
enablenpc $@NPCNAME$;
OnStarrt:
set $@PK_Fight_On,( !$@PK_Fight_On ? 1 : 0 );
set $@Team1$,"";
set $@Team2$,"";
set $@Team1,0;
set $@Team2,0;
set $@Tk1,0;
set $@Tk2,0;
set $@A,0;
set $@C,0;
enablenpc "GM-PK_Fight";
if( $@end ){ set $@end,0; end; }
//=======================================================
sleep $@wait[0];
if( !$@Team1 || !$@Team2 ){
 announce "[system]:WoR is ended.",bc_all;
 disablenpc $@NPCNAME$;
 disablenpc "1";
 disablenpc "2";
 set $@end,1;
 callsub "OnStarrt";
 end;
}
announce "[system]:WoR is started!",bc_all;
warpparty $@mapname$,$@teammapxy1[0],$@teammapxy1[1],$@Team1;
warpparty $@mapname$,$@teammapxy2[0],$@teammapxy2[1],$@Team2;
//=======================================================
sleep $@wait[1];

mapannounce $@mapname$,"[system]:WoR start now",bc_map;
set $@C,1;
sleep $@wait[2];
enablenpc "2";
enablenpc "1";
warpparty $@RunMap$,0,0,$@Team1;
warpparty $@RunMap$,0,0,$@Team2;
//=======================================================
sleep $@wait[3];

if( $@Tk1 == $@Tk2 ){
 announce "[system]: No winer!",bc_all;
 set $@end,1;
 callsub "OnStarrt";
 end;
}
set .Win,( $@Tk1 > $@Tk2 ? 1 : 2 );
announce "[system]: "+getd("$@Team"+.Win+"$")+" wins!",bc_all;
getpartymember getd("$@Team"+.Win),2;
for(; .u<getarraysize($@partymemberaid);set .u,.u+1){
 attachrid $@partymemberaid[.u];
 set #CASHPOINTS,#CASHPOINTS+50;
 warp "SavePoint",0,0;
 detachrid;
}
set .Win,(.Win==1?2:1);
getpartymember getd("$@Team"+.Win),2;
for(set .u,0; .u<getarraysize($@partymemberaid);set .u,.u+1){
 attachrid $@partymemberaid[.u];
 set #CASHPOINTS,#CASHPOINTS+20;
 warp "SavePoint",0,0;
 detachrid;
}
set $@end,1;
callsub "OnStarrt";
end;
}
pvp_n_1-1,106,130,4 script 1 100,{
if( select("Return","Repair","Check the score") == 3 ){
announce "[system]: "+$@Team1$+"'s points : "+$@Tk1+" , "+$@Team2$+"'s points : "+$@Tk2,bc_self;
close;
}
if( @menu == 2 ){
atcommand "@repairall";
close;
}
warp $@RunMap$,0,0;
close;
OnInit:
set $@RunMap$,"pvp_n_1-2"; //game map name
setarray $@wait[0],300000,10000,20000,1800000;
getmapxy($@mapname$,.i,.ii,1,strnpcinfo(0));
setd "$@teammapxy"+strnpcinfo(0)+"[0]",.i;
setd "$@teammapxy"+strnpcinfo(0)+"[1]",.ii;
setwall $@mapname$,103,123,10,6,0,"wall3";
setwall $@mapname$,.103,75,10,6,0,"wall4";
end;
}
pvp_n_1-1,106,69,4 duplicate(1) 2 100

prontera,152,182,4 script GM-PK_Fight 100,{
if( !getgmlevel() ){end;}
disablenpc "GM-PK_Fight";
doevent "WoR_confi::OnStarrtt";
end;
}

[Nokia]

change:

set #CASHPOINTS,#CASHPOINTS+50;

into:

getitem 674,1;

Edited April 8, 2012 by Nokia