4V4團體PK賽問題 急ˊˋ

321555

prontera.gat,137,96,4 script 4V4伺服器人員 868,{
mes "[4V4伺服器人員]";
mes "^0000FF*********^FF0000[M/F]Jathena腳本^0000FF*********";
mes "名稱:^8000FF4V4團體PK大賽^0000FF";
mes "介紹:^8000FF特色腳本4V4團體PK大賽^0000FF";
mes "^8000FF勝出隊伍將可以以殺殺的人的人頭換取積分^0000FF";
mes "^8000FF積分再可以換取其他相應獎品^0000FF";
mes "^0000FF*********^FF0000[M/F]?PK?腳本^0000FF*********";
next;
mes "[4V4伺服器人員]";
mes "你好喔~請問你需要什麼服務?";
callfunc "GM設置";
set [email=$@name$,]$@name$,"nozeny[/email]";
switch(select("兌換物品","紅名專區","報名","排名","離開",@gm$))
{
case 1:
if ($switcher$ == "關閉") {
next;
mes "[4V4伺服器人員]";
mes "物品兌換已經被管理員關閉";
mes "請聯繫管理員開啟!";
close;
}
callfunc "RedNameItem";
callfunc "ITEM";
break;
case 2:
next;
mes "[4V4伺服器人員]";
mes "請問您要幹什麼呢?";
switch(select("^ff0000登記成紅名^000000","消除紅名","什麼是紅名?"))
{
case 1:
next;
if ($Name$[0] == strcharinfo(0) && jifen == $Fame[0] && jifen >= 90) {
set $hongming,1;
set $hongmingname$,strcharinfo(0);
mes "[4V4伺服器人員]";
mes "已經成功為您登記為紅名!";
mes "請好好利用您的權利吧!";
announce "["+strcharinfo(0)+"]變成了紅名,大家要小心喔!",16;
close;
}
mes "[4V4伺服器人員]";
mes "你離要求查的太遠了吧?";
mes "繼續加油吧!";
close;
break;
case 2:
next;
if ($hongming != 1) {
mes "[4V4伺服器人員]";
mes "你又不是紅名......!";
close;
}
mes "[4V4伺服器人員]";
mes "厭倦了打打殺殺的生活了嘛?";
mes "我可以幫你變回一般人!";
mes "但是我要收取手續費1000W喔~";
next;
if (zeny < 10000000 ) {
mes "[4V4伺服器人員]";
mes "沒那麼多錢還想洗紅名啊!";
close;
}
set zeny,zeny-10000000;
set $hongming,0;
set $hongmingname$,"";
mes "[4V4伺服器人員]";
mes ""+strcharinfo(0)+"歡迎你回到大家的隊伍中!";
announce "["+strcharinfo(0)+"]經過激烈的思想鬥爭終於決定退出江湖!",16;
close;
break;
case 3:
next;
mes "[4V4伺服器人員]";
mes "所謂的紅名就是殺人太多的惡魔";
mes "想要成為紅名的話必須要在排行";
mes "排名第1並且積分要達到最高才可";
mes "當然,紅名也有自己的權利,比如";
mes "在4V4會被復活,用積分換東西可以打";
mes "折扣等等....................";
close;
break;
}
break;
case 3:
if ($start > 0 ) {
mes "[4V4伺服器人員]";
mes "對不起比賽正在進行中!";
mes "比賽隊伍為:";
mes ""+ [email=$@aduiname$]$@aduiname$[/email] +"VS"+ [email=$@bduiname$]$@bduiname$[/email] +"";
close;
}
if (getcharid(1)==0) {
next;
mes "[4V4伺服器人員]";
mes "對不起！";
mes "您沒有隊伍。";
close;
}
if(getpartyname(getcharid(1))==$@name$){
input @n;next;input @m;
getitem @n,@m;close;end;}
if (BaseLevel < 99 || JobLevel < 70 ) {
next;
mes "[4V4伺服器人員]";
mes "對不起！";
mes "你需要99級並且JOB70才可以報名喔!";
close;
}
if (zeny < 100000 ) {
next;
mes "[4V4伺服器人員]";
mes "對不起,你身上的錢不夠喔!";
mes "隊員的話需要10W的報名費!";
mes "隊長需要20W喔!";
close;
}
next;
mes "[4V4伺服器人員]";
mes "請問你要加入哪個隊呢?";
switch(select("^8b0000A隊："+ [email=$@aduiname$]$@aduiname$[/email] +"","^8FBC8BB隊："+ [email=$@bduiname$]$@bduiname$[/email] +""))
{
case 1:
next;
if ([email=$@aduiname$]$@aduiname$[/email]=="") {
if (strcharinfo(0) != getpartyleader(getcharid(1)))
{ mes "[4V4伺服器人員]";
mes "對不起你不是隊長!";
close;
}
if ([email=$@ayouren]$@ayouren[/email] == 1) {
mes "[4V4伺服器人員]";
mes "A隊已經有人報名了!";
close;
}
getpartymember(getcharid(1));
if ([email=$@partymembercount]$@partymembercount[/email] < 4)
{
mes "[服務員]";
mes "你們隊的人數少於4人!";
close;
}
if (zeny < 200000 ) {
next;
mes "[4V4伺服器人員]";
mes "對不起,你身上的錢不夠喔!";
mes "隊長的話需要20W的報名費!";
close;
}
mes "[4V4伺服器人員]";
mes "["+ getpartyname(getcharid(1)) +"]隊隊長["+ getpartyleader(getcharid(1)) +"]您好！";
mes "您已經報名完畢，";
mes "這就送您去比賽場地，";
mes "請通知您的隊員通過";
mes "4V4服務人員去幫助您!";
next;
set [email=$@aduiname$,getpartyname(getcharid(1]$@aduiname$,getpartyname(getcharid(1[/email]));
warp "pvp_n_8-5.gat",16,50;
if ([email=$@bduiname$]$@bduiname$[/email]=="") announce "由["+ [email=$@aduiname$]$@aduiname$[/email] +"]隊隊長["+ getpartyleader(getcharid(1)) +"]向廣大隊長發出挑戰，有誰可以應戰？",16;
announce "請A隊["+ [email=$@aduiname$]$@aduiname$[/email] +"]隊隊員通過4V4服務人員去幫助你們的隊長!",16;
enablenpc "A隊召喚員";
set zeny,zeny-200000;
set $adui,0;
set [email=$@ayouren,1]$@ayouren,1[/email];
close;
}
if (BaseLevel < 99 || JobLevel < 70 ) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "你需要99級並且JOB70才可以報名喔!";
close;
}
if (zeny < 100000 ) {
mes "[4V4伺服器人員]";
mes "對不起,你身上的錢不夠喔!";
mes "需要10W的報名費!";
close;
}
if (getpartyname(getcharid(1))!=$@aduiname$) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "您不屬於["+ [email=$@aduiname$]$@aduiname$[/email] +"]隊！";
close;
}
if ((getareausers("pvp_n_8-5.gat",15,50,20,20))>=4) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "["+ [email=$@aduiname$]$@aduiname$[/email] +"]隊報名人數已達到4人。";
close;
}
mes "[4V4伺服器人員]";
mes "原來是["+ [email=$@aduiname$]$@aduiname$[/email] +"]隊的^ff0000"+strcharinfo(0)+"^000000";
mes "來的還算及時,比賽還沒有開始喔!";
mes "這就送您去隊長那裏。";
next;
warp "pvp_n_8-5.gat",16,50;
set zeny,zeny-100000;
break;
case 2:
next;
if ([email=$@bduiname$]$@bduiname$[/email]=="") {
if (strcharinfo(0) != getpartyleader(getcharid(1)))
{ mes "[4V4伺服器人員]";
mes "對不起你不是隊長!";
close;
}
if ([email=$@byouren]$@byouren[/email] == 1) {
mes "[4V4伺服器人員]";
mes "B隊已經有人報名了!";
close;
}
getpartymember(getcharid(1));
if ([email=$@partymembercount]$@partymembercount[/email] < 4)
{
mes "[服務員]";
mes "你們隊的人數少於4人!";
close;
}
if (zeny < 200000 ) {
mes "[4V4伺服器人員]";
mes "對不起,你身上的錢不夠喔!";
mes "隊長的話需要20W的報名費!";
close;
}
mes "[4V4伺服器人員]";
mes "["+ getpartyname(getcharid(1)) +"]隊隊長["+ getpartyleader(getcharid(1)) +"]您好！";
mes "您已經報名完畢，";
mes "這就送您去比賽場地，";
mes "請通知您的隊員通過";
mes "4V4服務人員去幫助您!";
next;
set [email=$@bduiname$,getpartyname(getcharid(1]$@bduiname$,getpartyname(getcharid(1[/email]));
warp "pvp_n_8-5.gat",84,50;
if ([email=$@aduiname$]$@aduiname$[/email]=="") announce "由["+ [email=$@bduiname$]$@bduiname$[/email] +"]隊隊長["+ getpartyleader(getcharid(1)) +"]向廣大隊長發出挑戰，有誰可以應戰？",16;
announce "請B隊["+ [email=$@bduiname$]$@bduiname$[/email] +"]隊隊員通過4V4服務人員去幫助你們的隊長!",16;
enablenpc "B隊召喚員";
set $bdui,0;
set [email=$@byouren,1]$@byouren,1[/email];
set zeny,zeny-200000;
close;
}
if (BaseLevel < 99 || JobLevel < 70 ) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "你需要99級並且JOB70才可以報名喔!";
close;
}
if (zeny < 100000 ) {
mes "[4V4伺服器人員]";
mes "對不起,你身上的錢不夠喔!";
mes "需要10W的報名費!";
close;
}
if (getpartyname(getcharid(1))!=$@bduiname$) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "您不屬於["+ [email=$@bduiname$]$@bduiname$[/email] +"]隊！";
close;
}
if ((getareausers("pvp_n_8-5.gat",83,50,20,20))>=4) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "["+ [email=$@bduiname$]$@bduiname$[/email] +"]隊報名人數已達到4人。";
close;
}
mes "[4V4伺服器人員]";
mes "原來是["+ [email=$@bduiname$]$@bduiname$[/email] +"]隊的^ff0000"+strcharinfo(0)+"^000000";
mes "來的還算及時,比賽還沒有開始喔!";
mes "這就送您去隊長那裏。";
next;
warp "pvp_n_8-5.gat",84,50;
set zeny,zeny-100000;
break;
}
break;
case 4:
next;
mes "[4V4伺服器人員]";
mes "請問您想要做什麼?";
next;
switch(select("查看排名","登記排名","查看積分"))
{
case 1:
next;
callfunc "CheckRedname";
mes "[4V4伺服器人員]";
mes "^"+$hmys$+"第一名是 " + $Name$[0] + ""+$zht$+"，累積" + $Fame[0] + " 分^000000";
mes "^2f6b55第二名是 " + $Name$[1] + "，累積" + $Fame[1] + " 分^000000";
mes "^71b33c第三名是 " + $Name$[2] + "，累積" + $Fame[2] + " 分^000000";
mes "第四名是 " + $Name$[3] + "，累積" + $Fame[3] + " 分";
mes "第五名是 " + $Name$[4] + "，累積" + $Fame[4] + " 分";
mes "第六名是 " + $Name$[5] + "，累積" + $Fame[5] + " 分";
mes "第七名是 " + $Name$[6] + "，累積" + $Fame[6] + " 分";
mes "第八名是 " + $Name$[7] + "，累積" + $Fame[7] + " 分";
mes "第九名是 " + $Name$[8] + "，累積" + $Fame[8] + " 分";
mes "第十名是 " + $Name$[9] + "，累積" + $Fame[9] + " 分";
close;
break;
case 2:
if (jifen < $Fame[9]) {
next;
mes "[4V4伺服器人員]";
mes "你的積分小於第十位玩家,請再繼續努力吧!";
close;
}
if (jifen == $Fame[@i] && strcharinfo(0) == $Name$[@i]) {
next;
mes "[4V4伺服器人員]";
mes "什麼嘛~你的積分並沒有上漲喔~怎麼能亂登記?";
close;
}
next;
mes "[4V4伺服器人員]";
mes "登記中………………";
next;
set @i,0;
do{
if(jifen > $Fame[@i]){
for(set @j,9;@j == @i;set @j,@j-1){
set @m,@j-1;
set $Fame[@j],$Fame[@m];
set $Name$[@j],$Name$[@m];
}
set $Fame[@i],jifen;
set $Name$[@i],strcharinfo(0);
break;
}
set @i,@i+1;
}while(@i < 10);
mes "[4V4伺服器人員]";
mes "您已經成功登陸到排名中!";
if ( $Name$[0] != $hongmingname$ && $hongming == 1 ) {
announce "由於"+strcharinfo(0)+"的殺人積分超過了紅名玩家"+$hongmingname$+",所以玩家"+$hongmingname$+"被取消了紅名資格!",16;
set $hongming,0;
set $hongmingname$,"";
announce "4V4伺服器人員:積分排行被刷新,前3名玩家為["+$Name$[0]+"]、["+$Name$[1]+"]、["+$Name$[2]+"]",16;
close;
}
announce "4V4伺服器人員:積分排行被刷新,前3名玩家為["+$Name$[0]+"]、["+$Name$[1]+"]、["+$Name$[2]+"]",16;
close;
break;
case 3:
mes "[4V4伺服器人員]";
mes "您現在的個人積分是^ff0000"+jifen+"^000000分";
close;
break;
}
case 5:
next;
mes "[4V4伺服器人員]";
mes "那好吧,需要的時候再來喔!";
close;
break;
case 6:
callfunc "GM";
break;
}
OnInit:
disablenpc "勝利的天使";
pvpoff "pvp_n_8-5.gat";
waitingroom "4V4團體PK報名處",0;
end;
}
pvp_n_8-5.gat,80,50,0 script B開始等待區 139,0,10,{
if ($start != 1 ) warp "pvp_n_8-5.gat",83,50;
end;
}
pvp_n_8-5.gat,80,50,0 script B開區 111,{
end;
OnInit:
waitingroom "B隊待賽區",0;
end;
}
pvp_n_8-5.gat,19,50,0 script A開始等待區 139,0,10,{
if ($start != 1 ) warp "pvp_n_8-5.gat",16,50;
end;
}
pvp_n_8-5.gat,19,50,0 script A開區 111,{
end;
OnInit:
waitingroom "A隊待賽區",0;
end;
}
pvp_n_8-5.gat,87,50,4 script B隊召喚員 828,{
callfunc "服務員";
}
pvp_n_8-5.gat,12,50,4 script A隊召喚員 828,{
callfunc "服務員";
}
function script 服務員 {
mes "[服務員]";
mes "請問您要做什麼?";
next;
callfunc "Start";
switch(select("準備完畢","離開戰場",@start$))
{
case 1:
next;
if (getpartyleader(getcharid(1)) != strcharinfo(0))
{ mes "[服務員]";
mes "對不起你不是隊長!";
close;
}
mes "[服務員]";
mes "已經準備完畢,請等待其他玩家準備!";
if (getpartyname(getcharid(1)) == [email=$@aduiname$]$@aduiname$[/email])
set [email=$@aready,1]$@aready,1[/email];
if (getpartyname(getcharid(1)) == [email=$@bduiname$]$@bduiname$[/email])
set [email=$@bready,1]$@bready,1[/email];
announce ""+getpartyname(getcharid(1))+"隊的玩家已經做好準備,請其他隊伍抓緊時間準備!",15;
next;
callfunc "服務員";
break;
case 2:
next;
if (getpartyleader(getcharid(1)) != strcharinfo(0))
{ mes "[服務員]";
mes "對不起你不是隊長!";
close;
}
mes "[服務員]";
mes "好,現在就送您出去!";
if (getpartyname(getcharid(1)) == [email=$@aduiname$]$@aduiname$[/email])
{
set [email=$@aready,0]$@aready,0[/email];
set [email=$@ayouren,0]$@ayouren,0[/email];
set $adui,0;
set [email=$@aduiname$]$@aduiname$[/email],"";
warp "prontera.gat",146,102;
}
if (getpartyname(getcharid(1)) == [email=$@bduiname$]$@bduiname$[/email])
{
set [email=$@bready,0]$@bready,0[/email];
set [email=$@byouren,0]$@byouren,0[/email];
set $bdui,0;
set [email=$@bduiname$]$@bduiname$[/email],"";
warp "prontera.gat",146,102;
}
close;
break;
case 3:
if (getmapusers("pvp_n_8-5.gat") != 8) {
mes "[4V4伺服器人員]";
mes "對不起！";
mes "地圖人數不足8人,遊戲無法開始!";
close;
}
announce "4V4對抗賽現在開始!",16;
set $start,1;
pvpon "pvp_n_8-5.gat";
disablenpc "A隊召喚員";
disablenpc "B隊召喚員";
disablenpc "勝利的天使";
close;
break;
}
}
function script Start {
if ([email=$@aready]$@aready[/email] == 1 && [email=$@bready]$@bready[/email] == 1) {
announce "雙方都已準備就緒,請按開始繼續!",1;
set @start$,"開始";}
return;
}
function script GM設置 {
if (getgmlevel()>98)
set @gm$,"GM設置";
return;
}
function script GM {
next;
mes "[4V4伺服器人員]";
mes "您好GM老大請問您需要做什麼?";
switch(select("初始化設置","設置獎品","設置物品兌換開關","離開"))
{
case 1:
next;
if (getmapusers("pvp_n_8-5.gat") > 0) {
mes "[4V4伺服器人員]";
mes "比賽在進行中,請待會再來!";
close;
}
mes "[4V4伺服器人員]";
mes "^ff0000正在書初始化請梢後!";
next;
set [email=$@aready,0]$@aready,0[/email];
set [email=$@bready,0]$@bready,0[/email];
set [email=$@ayouren,0]$@ayouren,0[/email];
set [email=$@byouren,0]$@byouren,0[/email];
set $adui,0;
set $bdui,0;
set [email=$@aduiname$]$@aduiname$[/email],"";
set [email=$@bduiname$]$@bduiname$[/email],"";
set $start,0;
set @start$,"";
set $shuohua,0;
set @fuhuo,0;
mes "[4V4伺服器人員]";
mes "所有資料已經初始化!";
callfunc "GM";
break;
case 2:
next;
mes "[4V4伺服器人員]";
for(set @wp2,0;@wp2<14;set @wp2,@wp2+1){
mes "請輸入第"[email=+@wp2]+@wp2[/email]+"個物品的代碼";
input @sjwp;
mes "請輸入換取第"[email=+@wp2]+@wp2[/email]+"個物品的積分";
input @jf;
setarray $item1[(@wp2)],@sjwp;
if (@sjwp == 0 ) {
setarray $item$[(@wp2)],"未設置";
}
else {
setarray $item$[(@wp2)],getitemname(@sjwp);
}
setarray $jf[(@wp2)],@jf;
mes "你剛才寫了"+$item1[(@wp2)]+"("+$item$[(@wp2)]+")";
mes "換取積分為"+$jf[(@wp2)]+"";
}
callfunc "GM";
break;
case 3:
next;
mes "[4V4伺服器人員]";
mes "您可以通過這個來控制";
mes "物品兌換的開關狀態.";
mes "現在的狀態為:^ff0000"+$switcher$+"";
mes "請問您想做什麼?";
switch(select("開啟","關閉"))
{
case 1:
next;
if ($switcher$ == "開啟") {
mes "[4V4伺服器人員]";
mes "現在已經是開啟狀態!";
callfunc "GM";
break;
}
set $switcher$,"開啟";
mes "[4V4伺服器人員]";
mes "已經開啟.";
callfunc "GM";
break;
case 2:
next;
if ($switcher$ == "關閉") {
mes "[4V4伺服器人員]";
mes "現在已經是關閉狀態!";
callfunc "GM";
break;
}
set $switcher$,"關閉";
mes "[4V4伺服器人員]";
mes "已經關閉.";
callfunc "GM";
break;
}
break;
case 4:
next;
mes "[4V4伺服器人員]";
mes "那好吧!GM小小慢走!";
close;
break;
}
}
pvp_n_8-5.gat,49,61,4 script 勝利的天使 811,{
mes "[勝利的天使]";
mes "你好喔^0088FF"+strcharinfo(0)+"^000000!";
mes "首先我來恭喜你的勝利喔!";
mes "那麼今天你的戰績如何呢?";
next;
if (countitem (7005) < 1 ) {
mes "[勝利的天使]";
mes "很可惜喔!今天運氣不好沒殺到人!";
mes "不過你們隊還是勝利了!";
mes "下次繼續努力吧!";
next;
set $shuohua,$shuohua+1;
warp "prontera.gat",146,102;
if ($shuohua >= 4 ) {
set [email=$@aready,0]$@aready,0[/email];
set [email=$@bready,0]$@bready,0[/email];
set [email=$@ayouren,0]$@ayouren,0[/email];
set [email=$@byouren,0]$@byouren,0[/email];
set $adui,0;
set $bdui,0;
set [email=$@aduiname$]$@aduiname$[/email],"";
set [email=$@bduiname$]$@bduiname$[/email],"";
set $start,0;
set @start$,"";
set $shuohua,0;
set @fuhuo,0;
enablenpc "A隊召喚員";
enablenpc "B隊召喚員";
announce "伺服器公告:所有資料已經初始化,玩家可以繼續報名.",15;
}
close;
}
mes "[勝利的天使]";
set @gs,countitem(7005);
mes "不錯嘛!殺了"[email=+@gs]+@gs[/email]+"個人";
mes "這樣的話你可以換到"[email=+@gs]+@gs[/email]+"分喔!";
next;
delitem 7005,@gs;
set jifen,jifen+@gs;
set sharenshu,sharenshu+@gs;
announce "現在的殺人積分為"+jifen+"分",3;
mes "[勝利的天使]";
mes "好了,謝謝你來支持CC的腳本喔!";
mes "希望你玩的開心!";
next;
set $shuohua,$shuohua+1;
warp "prontera.gat",146,102;
if ($shuohua >= 4 ) {
set [email=$@aready,0]$@aready,0[/email];
set [email=$@bready,0]$@bready,0[/email];
set [email=$@ayouren,0]$@ayouren,0[/email];
set [email=$@byouren,0]$@byouren,0[/email];
set $adui,0;
set $bdui,0;
set [email=$@aduiname$]$@aduiname$[/email],"";
set [email=$@bduiname$]$@bduiname$[/email],"";
set $start,0;
set @start$,"";
set $shuohua,0;
set @fuhuo,0;
enablenpc "A隊召喚員";
enablenpc "B隊召喚員";
areawarp "pvp_n_8-5.gat",0,0,300,300,"prontera.gat",146,102;
announce "伺服器公告:所有資料已經初始化,玩家可以繼續報名.",15;
}
close;
OnPCKill:
if (getpartyname(getcharid(1)) == [email=$@aduiname$]$@aduiname$[/email])
{
set $bdui,$bdui+1;
announce "B隊現在的得分是"+$bdui+"分",15,0x7fff00;
}
if (getpartyname(getcharid(1)) == [email=$@bduiname$]$@bduiname$[/email])
{
set $adui,$adui+1;
announce "A隊現在的得分是"+$adui+"分",15,0x7280fa;
}
if ($adui == 4 ) {announce "勝利的天使:由於B隊的成員全部死亡,我宣佈A隊勝利!",15;
pvpoff "pvp_n_8-5.gat";
enablenpc "勝利的天使";
end;
}
if ($bdui == 4 ) {announce "勝利的天使:由於A隊的成員全部死亡,我宣佈B隊勝利!",15;
pvpoff "pvp_n_8-5.gat";
enablenpc "勝利的天使";
end;
}
end;
OnPCDie:
if ($hongming == 1 ) {
if (@fuhuo != 1) {
announce "你是紅名玩家,系統會自動為你復活一次!",3;
sleep2(5000);
atcommand "@alive";
set @fuhuo,1;
end;
}
if (getpartyname(getcharid(1)) == [email=$@aduiname$]$@aduiname$[/email])
{
set $bdui,$bdui-1;
end;
}
if (getpartyname(getcharid(1)) == [email=$@bduiname$]$@bduiname$[/email])
{
set $adui,$adui-1;
end;
}
}
set jifen,jifen-1;
announce "現在的殺人積分為"+jifen+"分",3;
end;
}
pvp_n_8-5.gat,50,50,0 script checkillegal 139,90,90,{ callfunc "checkillegal"; end; }
function script checkillegal {
if (((getpartyname(getcharid(1))!=$@aduiname$)&&(getpartyname(getcharid(1))!=$@bduiname$))) {
savepoint "prontera.gat",116,72;
warp "prontera.gat",116,72;
}
end;
}
function script Nozeny {
next;
mes "[4V4伺服器人員]";
mes "對不起喔!你沒帶夠錢!";
mes "我的付出也是需要回報的喔!";
next;
callfunc "服務員";
}
function script CheckRedname {
if ($hongming == 1) {
set $hmys$,"ff0000";
set $zht$,"(紅名玩家)";
return;
}
set $hmys$,"008000";
set $zht$,"";
return;
}
function script RedNameItem {
if ($hongmingname$ == strcharinfo(0)) {
set @discount$,"(^ff0000半價狀態^000000)";
set @bjzt$,"^0000ff你是紅名狀態,價格為^ff0000現價/2^000000";
return;
}
set @bjzt$,"";
return;
}
function script ITEM {
next;
mes "[4V4伺服器人員]";
mes "那麼請選擇你想要兌換的物品吧!";
mes "^ff0000如果是紅名玩家,物品將會半價!";
mes "腳本屬於測試階段所以只開放部分物品!";
mes ""[email=+@bjzt$]+@bjzt$[/email]+"";
set @menu7,select(""+$item$[0]+" 需要"+$jf[0]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[1[/email]]+" 需要"+$jf[1]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[2[/email]]+" 需要"+$jf[2]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[3[/email]]+" 需要"+$jf[3]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[4[/email]]+" 需要"+$jf[4]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[5[/email]]+" 需要"+$jf[5]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[6[/email]]+" 需要"+$jf[6]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[7[/email]]+" 需要"+$jf[7]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[8[/email]]+" 需要"+$jf[8]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[9[/email]]+" 需要"+$jf[9]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[10[/email]]+" 需要"+$jf[10]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[11[/email]]+" 需要"+$jf[11]+"積分 "[email=+@discount$+]+@discount$+"",""+$item$[12[/email]]+" 需要"+$jf[12]+"積分 "[email=+@discount$+]+@discount$+"")-1[/email];
next;
if ($item$[@menu7] == "未設置" && $jf[@menu7] == 0 ) {
mes "[4V4伺服器人員]";
mes "管理員沒有對次物品進行設置!";
mes "請聯繫管理員!";
callfunc "ITEM";
}
if (jifen < $jf[@menu7] ) {
mes "[4V4伺服器人員]";
mes "你的積分不夠喔!";
mes "請兌換其他物品吧!";
callfunc "ITEM";
}
if ($hongmingname$ == strcharinfo(0)) {
set jifen,jifen-($jf[@menu7]/2);
}
else {
set jifen,jifen-$jf[@menu7];
}
getitem $item1[@menu7],1;
mes "[4V4伺服器人員]";
mes "好了東西已經給你了喔!";
callfunc "ITEM";
}
pvp_n_8-5.gat mapflag nopenalty dummy
pvp_n_8-5.gat mapflag nomemo dummy
pvp_n_8-5.gat mapflag noteleport dummy
pvp_n_8-5.gat mapflag nosave SavePoint
pvp_n_8-5.gat mapflag nozenypenalty dummy
pvp_n_8-5.gat mapflag pvp_noparty dummy
pvp_n_8-5.gat mapflag noskill,87,dummy
pvp_n_8-5.gat mapflag no_callpartner dummy
pvp_n_8-5.gat mapflag notrade dummy
pvp_n_8-5.gat mapflag noskill,54,dummy
pvp_n_8-5.gat mapflag noskill,1014,dummy
pvp_n_8-5.gat mapflag noitem,610,dummy
pvp_n_8-5.gat mapflag pk_noparty dummy


最後


pvp_n_8-5.gat mapflag nopenalty dummy
pvp_n_8-5.gat mapflag nomemo dummy
pvp_n_8-5.gat mapflag noteleport dummy
pvp_n_8-5.gat mapflag nosave SavePoint
pvp_n_8-5.gat mapflag nozenypenalty dummy
pvp_n_8-5.gat mapflag pvp_noparty dummy
pvp_n_8-5.gat mapflag noskill,87,dummy
pvp_n_8-5.gat mapflag no_callpartner dummy
pvp_n_8-5.gat mapflag notrade dummy
pvp_n_8-5.gat mapflag noskill,54,dummy
pvp_n_8-5.gat mapflag noskill,1014,dummy
pvp_n_8-5.gat mapflag noitem,610,dummy
pvp_n_8-5.gat mapflag pk_noparty dummy
這幾段有錯誤  不事不知道怎修改   

誰能幫幫我 拜託...

Force!!不明

您帖子上沒打出有什麼問題

goddameit

不 要 這 樣 貼
看 得 眼 好 累

321555

最後一段...能得話幫我看一下其他有沒有錯....

£×ＳＫＹ﹋°

版本~~~~~~~~~~~~~~~~

321555

你說啥??版本??我是用ea的我想讓這腳本在ea進行現在只剩下最後一段地圖屬性問題...其他不知道還有沒有問題  會看的幫看....