UID88953
帖子
精華
主題
積分4400
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限20
註冊時間2008-5-25
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2012-6-20 12:30 AM |
---|
簽到天數: 46 天 連續簽到: 0 天 [LV.5]常住居民I
|
這几天都是在寫npc
但是發覺...寫來寫去都是有錯誤....
我寫的這腳本
是在npc 對話框里面可以顯示
這玩家是否在線...
但是....總是有錯誤....
請哪位大大教教吧....!
謝謝
我參考的npc...
//變數說明
// $used[] -- 使用者charid --全域變數
// $message_name$[]-- 留言者姓名 --全域字串變數
// $message$[] -- 留言 --全域字串變數
// $aa$[] -- 留言類型 --全域字串變數
// $m_year[] -- 留言 年 --全域變數
// $m_month[] -- 月 --全域變數
// $m_day[] -- 日 --全域變數
// $m_hour[] -- 時 --全域變數
// $m_min[] -- 分 --全域變數
// $m_num[] -- 第幾留言 --全域變數
// @w -- 第幾留言 --暫存腳色變數(迴圈用
// @line[] -- 留言者在線 --暫存腳色變數
// $boardmax(1~127)-- 最大留言次數 --全域變數
// $boardmoney -- 收費 --暫存全域變數
// $gm_charid -- GM帳號ID --全域變數
prontera.gat,164,89,5 script 留言板 857,{
//----------------
set $boardmax,30; //此修改最大留言數1~127
set $boardmoney,1000; //此處修改收費價錢
set $gm_charid,2000000; //此處修改GM帳號ID
//----------------
mes "===歡迎使用留言板===";
mes "一、本板是公開的";
mes "二、如果惡意使用將遭受處分";
mes "三、一個帳號只能保存一筆留言";
mes "四、每次留言酌收 " + $boardmoney + " Zeny";
for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){
if (getcharid(3)==$gm_charid) {
menu "觀看留言",look,"留言",MMM,"刪除我的留言",del,"刪除指定留言",delnum,"刪除全部留言",Alldel;
} else if ($used[@w]==getcharid(3)) {
menu "觀看留言",look,"刪除我的留言",del;
} else {
menu "觀看留言",look,"留言",MMM;
}
}
//留言
MMM:
next;
if( zeny < $boardmoney ){
mes "你身上不夠錢噢";
goto ok;
}
set zeny,zeny-$boardmoney;
set @ty,select("買賣","隨意");
set @t,1;
for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){
if( $message_name$[@w] == ""){
mes "請輸入留言";
input $message$[@w];
next;
setarray $m_year[@w],gettime(7);
setarray $m_month[@w],gettime(6);
setarray $m_day[@w],gettime(5);
setarray $m_hour[@w],gettime(3);
setarray $m_min[@w],gettime(2);
setarray $message_name$[@w],strcharinfo(0);
setarray $m_num[@w],@w;
if (@ty == 1) setarray $aa$[@w],"^339933買賣^000000]";
if (@ty == 2) setarray $aa$[@w],"隨意]";
mes "[留言" + $m_num[@w] + "]^3355FF[" + $message_name$[@w] + "]^000000";
mes "[" + $aa$[@w] + $message$[@w];
announce $message_name$[@w] + "新增了一筆留言",15;
setarray $used[@w],getcharid(3);
goto ok;
}else{
set @t,@t+1;
}
}
if (@t >= $boardmax) mes "目前留言板已滿"; close;
ok:
close;
//觀看留言
look:
next;
set @t,0;
for ( set @w,1; @w<=$boardmax; set @w,@w+1 ){
if( $message_name$[@w] != ""){
if (getcharid(3,$message_name$[@w]) <= 0){ //判斷在線?
setarray @line$[@w],"^FF0000Offline^000000";
}else{
setarray @line$[@w],"^0000FFOnline^000000";
}
mes "[留言" + $m_num[@w] + "]^3355FF[" + $message_name$[@w] + "]^000000 " + @line$[@w] ;
mes "[" + $aa$[@w] +$message$[@w];
mes "^FF0000--" + $m_year[@w] + "/" + $m_month[@w] + "/" + $m_day[@w] + " " + $m_hour[@w] + ":" + $m_min[@w] + "--^000000";
}else{
set @t,@t+1;
}
}
if ( @t >= $boardmax ) mes "目前無人留言"; close;
close; |
|