EA-13361-黑狐銀行，增加檔案

skygame-5 · 發表於 2008-11-30 22:45:43

""""" 黑狐腳本 """"

//=======================================
// CiMeRaScriptProject奇美拉腳本包團隊
// -----------------------------------------------------------------
//作者:黑狐上將
[url=]//[email protected][/url]
//http://genblackfox.myweb.hinet.net/
//【黑狐銀行系列】
//V3.0.647
//【EAthena】
//包含function:
//傳送服務//金錢提領/倉庫提領/結束使用/GM控制
//------------------------------------------------------------------
prontera.gat,116,73,4 script 黑狐銀行#01::gmbank 109,{
mes "========[時鐘]==========";
mes gettime(7)+"/"+gettime(6)+"/"+gettime(5)+" "+gettime(3)+ "點" +gettime(2)+ "分";
mes "========================";
mes "歡迎使用^0000CC黑狐銀行^000000";
mes "請選擇您要進行的項目";
next;
switch(select("傳送服務","倉庫存領","貨幣兌換","金錢存領","保險櫃","股票市場","紅利點數","利率及時間查詢")){
case 1:callfunc "GM_warp";break;
case 2:callfunc "GM_store";break;
case 3:callfunc "GM_currency";break;
case 4:callfunc "GM_money";break;
case 5:callfunc "GM_safe";break;
case 6:callfunc "GM_stock"; break;
case 7:callfunc "GM_bonus";break;
case 8:
if(getgmlevel()==99){callfunc "GMSetting";}
if($interest<10){mes "目前利率^FF0000 0.0"+$interest+" ^000000%";}
if($interest<100&&$interest>10){mes "目前利率^FF0000 0."+$interest+" ^000000%";}
if($interest>=100){mes "目前利率^FF0000 "+$interest/100+"."+$interest%100+" ^000000%";}
mes "更新時間為^FF0000"+$gmtime*10+"^000000分鐘";
close;
}
OnInit:
initnpctimer;
end;
OnTimer10000:waitingroom "歡迎使用黑狐銀行",0;end;
OnTimer20000:waitingroom "我們提供眾多服務",0;end;
OnTimer30000:waitingroom "以滿足客戶的需求",0;end;
OnTimer40000:waitingroom "除了基本的存錢外",0;end;
OnTimer50000:waitingroom "尚有[傳送服務]",0;end;
OnTimer60000:waitingroom "一般的[倉庫服務]",0;end;
OnTimer70000:waitingroom "賺錢的[股票市場]",0;end;
OnTimer80000:waitingroom "好用的[保險櫃]",0;end;
OnTimer90000:waitingroom "安全的[貨幣兌換]",0;end;
OnTimer100000:waitingroom "豐富的[紅利點數]",0;end;
OnTimer110000:waitingroom "來為您服務",0;end;
OnTimer120000:waitingroom "感謝您的光臨~",0;
goto OnInit;
}
//=======================================//
//===============銀行分布位置================//
//=======================================//
payon.gat,201,109,4 duplicate(gmbank) 黑狐銀行#02 109
izlude.gat,120,97,4 duplicate(gmbank) 黑狐銀行#03 109
morocc.gat,151,106,4 duplicate(gmbank) 黑狐銀行#04 109
geffen.gat,128,47,4 duplicate(gmbank) 黑狐銀行#05 109
aldebaran.gat,146,111,4 duplicate(gmbank) 黑狐銀行#06 109
alberta.gat,116,64,4 duplicate(gmbank) 黑狐銀行#07 109
comodo.gat,203,139,4 duplicate(gmbank) 黑狐銀行#08 109
umbala.gat,117,147,4 duplicate(gmbank) 黑狐銀行#09 109
louyang.gat,216,109,4 duplicate(gmbank) 黑狐銀行#10 109
ayothaya.gat,212,180,4 duplicate(gmbank) 黑狐銀行#11 109
jawaii.gat,230,157,4 duplicate(gmbank) 黑狐銀行#12 109
einbech.gat,156,242,4 duplicate(gmbank) 黑狐銀行#13 109
amatsu.gat,197,116,4 duplicate(gmbank) 黑狐銀行#14 109
gonryun.gat,166,109,4 duplicate(gmbank) 黑狐銀行#15 109
xmas.gat,162,106,4 duplicate(gmbank) 黑狐銀行#16 109
niflheim.gat,210,178,4 duplicate(gmbank) 黑狐銀行#17 109
yuno.gat,173,187,4 duplicate(gmbank) 黑狐銀行#18 109
einbroch.gat,53,198,4 duplicate(gmbank) 黑狐銀行#19 109
lighthalzen.gat,165,89,4 duplicate(gmbank) 黑狐銀行#20 109
rachel.gat,149,133,4 duplicate(gmbank) 黑狐銀行#21 109
hugel.gat,94,132,4 duplicate(gmbank) 黑狐銀行#22 109

//=======================================//
//============GM控制====GMSetting============//
//=======================================//
function script GMSetting {
mes "歡迎GM大大登入";
mes "請選擇控制選項";
next;
switch(select("調整利率","調更新時間","觀看目前狀態")){
case 1:
mes "請輸入利率";
mes "最低為0(無利率)最高為5000(50%)";
next;
input @i;
if(@i<[email=0%7C%7C@i]0||@i>5000){mes[/email] "輸入錯誤";close;}
mes "利率調整完畢!";
set $interest,@i;
if($interest<10){announce "GM已經將銀行利率調整為 0.0"+$interest+"%",15;}
if($interest<100&&$interest>10){announce "GM已經將銀行利率調整為 0."+$interest+"%",15;}
if($interest>=100){announce "GM已經將銀行利率調整為 "+$interest/100+"."+$interest%100+"%",15;}
close;
case 2:
mes "請輸入更新時間";
mes "1/2/3/6";
mes "表示10/20/30/60分鐘進行更新";
next;
input @i;
if(@i==0||@i==4||@i==5){mes "不受理此更新時間";close;}
else if(@i<[email=0%7C%7C@i]0||@i>6){mes[/email] "輸入錯誤";close;}
set $gmtime,@i;
mes "更新時間調整完畢!!";
announce "GM已經將銀行更新時間調整為 "+$gmtime*10+"分鐘",15;
close;
case 3:
if($interest<10){mes "目前利率^FF0000 0.0"+$interest+" ^000000%";}
if($interest<100&&$interest>10){mes "目前利率^FF0000 0."+$interest+" ^000000%";}
if($interest>=100){mes "目前利率^FF0000 "+$interest/100+"."+$interest%100+" ^000000%";}
mes "更新時間為^FF0000"+$gmtime*10+"^000000分鐘";
close;
}
}
//=======================================//
//============傳送服務====GM_warp============//
//=======================================//
function script GM_warp {
mes "本傳送服務一律^0000CC 10,000 ^000000Zeny";
if(Zeny<10000){mes "但是您的金錢不足以使用傳送服務";close;}
mes "請選擇傳送地點";
next;
switch(select("哎喲泰雅","爪哇伊","艾音貝赫","天津町","崑崙","聖誕村","尼芙菲姆","洛陽","艾音布羅克","里希塔樂鎮","拉赫","毀葛","取消")){
case 1:warp "ayothaya.gat",219,174;break;
case 2:warp "jawaii.gat",244,125;break;
case 3:warp "einbech.gat",134,245;break;
case 4:warp "amatsu.gat",197,86;break;
case 5:warp "gonryun.gat",156,109;break;
case 6:warp "xmas.gat",158,106;break;
case 7:warp "niflheim.gat",184,188;break;
case 8:warp "louyang.gat",216,100;break;
case 9:warp "einbroch.gat",56,198;break;
case 10:warp "lighthalzen.gat",159,95;break;
case 11:warp "rachel",143,135;break;
case 12:warp "hugel",94,148;break;
}
set Zeny,Zeny-10000;
set RESRVPTS, RESRVPTS + 2000;
close;
}
//=======================================//
//============結束使用====GM_thank============//
//=======================================//
function script GM_thank {
next;
mes "感謝您的使用";
mes "本服務由^0000CC 黑狐上將 ^000000提供";
mes "歡迎下次再度光臨!!";
close;
end;
}
//=======================================//
//============倉庫存領====GM_store============//
//=======================================//
function script GM_store {
mes "開倉庫需花費 40 Zeny";
mes "請選擇存儲選項";
next;
switch(select("公會倉庫","個人倉庫")){
case 1:
if(Zeny<40){mes "對不起";mes "您的金錢不足";close;}
if(basicskillcheck() && getskilllv(1) < 6){
mes "使用倉庫服務至少需要職業等級6以上喔";close;}
if(guildopenstorage(0) == 2){mes "對不起喔~您沒有加入任何公會";close;}
if(guildopenstorage(0) == 1){
mes "對不起，公會倉庫已經被某公會成員開啟";
mes "同時只能有一人進行存取";close;
}
set Zeny, Zeny-40;
set RESRVPTS, RESRVPTS + (40/5);
close;
case 2:
if(basicskillcheck() && getskilllv(1) < 6){
mes "使用倉庫服務至少需要職業等級6以上喔";close;}
openstorage;
mes "倉庫已打開";
close2;
set Zeny, Zeny-40;
set RESRVPTS, RESRVPTS + (40/5);
}
end;
}
//=======================================//
//============金錢存領====GM_money===========//
//=======================================//
function script GM_money {
set ##bank,##bank;
//第286天
set @time,gettime(8);
//發放利息
if(##time>@time){
for(set @i,0;@i<=([email=365-##time+@time);set]365-##time+@time);set[/email] @i,@i+1){
set ##bank,##bank+##bank/10000*$interest;
}
}
if(##time<@time){
for(set @i,0;@i<=(@time-##time);set @i,@i+1){
set ##bank,##bank+##bank/10000*$interest;
}
}
if(##bank>=2000000000){set ##bank,2000000000;}
set ##time,@time;
switch(select("存提說明","存款","提款","剩餘存款金額")){
case 1:
mes "^0000CC[存款提款說明]^000000";
mes "本銀行只有^0000CC 存款 ^000000需要收手續費";
mes "另外每天會發放利息";
mes "且存款可以通用於同帳號";
mes "角色刪除存款不會消失";
next;
mes "此外本銀行的存放金額上限為^0000CC 20 ^000000億";
mes "多餘金額將沒入行庫";
mes "建議多利用貨幣進行儲存";
mes "公會的金錢存儲請利用貨幣存入公會倉庫";
mes "本銀行不提供公會金錢存儲";
next;
mes "以下是利率設定";
if($interest<10){mes "目前利率^FF0000 0.0"+$interest+" ^000000%";}
if($interest<100&&$interest>10){mes "目前利率^FF0000 0."+$interest+" ^000000%";}
if($interest>=100){mes "目前利率^FF0000 "+$interest/100+"."+$interest%100+" ^000000%";}
next;
mes "希望各位客戶多利用本銀行金錢存領功能";
mes "感謝您的使用";
close;
//存款
case 2:
mes "您現在有^FF0000"+##bank+"^000000Zeny存在銀行";
mes "輸入存款金額";
input @money;
if(@money > Zeny){mes "您身上沒帶這麼多錢喔!";close;}
if(@money <= 100){mes "交易金額須大於100 Zeny";close;}
set @cost,@money*$interest/10000;
set Zeny,Zeny-@money;
set @money,@money-@cost;
set ##bank,##bank+@money;
set RESRVPTS, RESRVPTS + @cost;
mes "收您手續費^FF0000"[email=+@cost+]+@cost+"^000000Zeny[/email]";
mes "存入金額^FF0000"[email=+@money+]+@money+"^000000Zeny[/email]";
mes "目前存款金額^FF0000"+##bank+"^000000Zeny";
set RESRVPTS, RESRVPTS + (@cost/5);
callfunc "GM_thank";
//提款
case 3:
mes "您現在有^FF0000"+##bank+"^000000Zeny存在銀行";
mes "輸入提款金額";
input @money;
if(@money>##bank){mes "您存款沒這麼多錢喔!";close;}
set ##bank,##bank-@money;
set Zeny,Zeny+@money;
mes "提出金額^FF0000"[email=+@money+]+@money+"^000000Zeny[/email]";
mes "剩餘存款金額^FF0000"+##bank+"^000000Zeny";
callfunc "GM_thank";
//查詢剩餘金錢
case 4:
mes "剩餘存款金額^FF0000"+##bank+"^000000Zeny";
callfunc "GM_thank";
}
end;
}

圖片欣賞

腳本二再一樓　。

[ 本帖最後由 skygame-5 於 2008-11-30 11:02 PM 編輯 ]

skygame-5 · 發表於 2008-11-30 22:46:01

//=======================================
// CiMeRaScriptProject奇美拉腳本包團隊
// -----------------------------------------------------------------
//作者:黑狐上將
//[email protected]
//http://genblackfox.myweb.hinet.net/
//【黑狐銀行系列】
//V3.0.647
//【EAthena】
//包含function:
//銀行主函式/股票市場主函式/股票市場事件/送訊系統
//------------------------------------------------------------------
//=======================================//
//============銀行主函式====================//
//=======================================//
- script GMBank -1,{
OnInit:
//是否開放抽獎
//set $BonusSetting,[你要的選項];
//請看說明【紅利點數#抽獎設定】
//預設全開放
set $BonusSetting,11111;
//總利率設定//請看說明【利率設定】
//如果大於5000將自動設成5000
//set $interest,[你要的利率];
set $interest,100;
if($interest>5000){set $interest,5000;}
//最大股票購買張數(預設10張)
//最小1,最大為100
//set $MaxTicket,[張數]
if($MaxTicket>100||$MaxTicket<=0){set $MaxTicket,10;}
//利率發放&股票更新時間設定//請看說明【更新時間】
//四選項1/2/3/6
//分別代表10/20/30/60分鐘
//設定其他數字將自動設定為6(60分鐘)
//set $gmtime,[你要的時間];
switch($gmtime){
case 1:break;
case 2:break;
case 3:break;
case 6:break;
default:set $gmtime,6;
}
//兌換幣
setarray $@Coin[0],7230,7228,7229,677,671,675,673;
end;
}

//=======================================//
//============股票市場主函式==================//
//=======================================//
- script StockClockEvent -1,{
OnInit:
//股票市場各上市公司
setarray $@StockCompany$[0],"普隆德拉建築","斐楊伐木","伊斯魯得保全","吉芬高塔建築","夢羅克保全","艾爾帕蘭運河","艾爾貝塔船運","天津町觀光","哎喲泰雅水產","克魔島博弈","艾音布羅克製造","艾音貝赫鐵路","吉芬圖書","崑崙棋具","毀葛蔬菜","爪哇伊禮服","里希塔樂百貨","洛陽工程","薑餅城食品","尼芙菲姆殯儀","汶巴拉觀光","朱諾飛空艇","普隆德拉花卉","吉芬鍊金","妙勒尼礦場","斐楊弓箭","伊斯魯得蔬果","夢羅克帳篷","洛陽中藥","艾爾貝塔倉儲","艾爾帕蘭鐘錶","朱諾照明","克魔島煙火","汶巴拉木工","天津町服飾","崑崙戲偶","爪哇伊旅館","里希塔樂生技","艾音布羅克冶煉","艾音貝赫鋼鐵","哎喲泰雅服飾","拉赫大理石","薑餅城玩具","斐楊造景","艾爾貝塔造船","夢羅克觀光","艾音布羅克重機","里希塔樂機械","天津町花卉","崑崙茶葉";
//公司狀態//開始交易
for(set $@i,0;$@i<50;set $@i,$@i+1){set $StockSetting[$@i],1;}
//公司交易量//初始設定1000
for(set $@i,0;$@i<50;set $@i,$@i+1){set $StockTicket[$@i],1000;}
//公司成交價//初始設定為800(80.0 Zeny)
for(set $@i,0;$@i<50;set $@i,$@i+1){set $StockPrice[$@i],800;}
end;

OnMinute00:
announce "現在時間:" +gettime(3)+ "點" +gettime(2)+ "分",15;
if(gettime(3)==8&&gettime(2)==0){
announce "各位客戶早安",15;
announce "股票市場開市嚕~",15;
//公司狀態//開始交易
for(set $@i,0;$@i<50;set $@i,$@i+1){set $StockSetting[$@i],1;}
}
else if(gettime(3)>=8){callfunc "StockEvent",0;callfunc "GMMessage";}
else if(gettime(3)==0){
announce "各位玩家辛苦了~",15;
announce "股票市場已經關閉嚕~",15;
//公司狀態//暫停交易
for(set $@i,0;$@i<50;set $@i,$@i+1){set $StockSetting[$@i],0;}
}
else{callfunc "StockEvent",1;callfunc "GMMessage";}
end;

OnMinute10:
announce "現在時間:" +gettime(3)+ "點" +gettime(2)+ "分",15;
if(gettime(3)>=8&&$gmtime==1){callfunc "StockEvent",0;callfunc "GMMessage";}
end;

OnMinute20:
announce "現在時間:" +gettime(3)+ "點" +gettime(2)+ "分",15;
if(gettime(3)>=8){if($gmtime==1||$gmtime==2){callfunc "StockEvent",0;callfunc "GMMessage";}}
end;

OnMinute30:
announce "現在時間:" +gettime(3)+ "點" +gettime(2)+ "分",15;
if(gettime(3)>=8){if($gmtime==1||$gmtime==3){callfunc "StockEvent",0;callfunc "GMMessage";}}
end;

OnMinute40:
announce "現在時間:" +gettime(3)+ "點" +gettime(2)+ "分",15;
if(gettime(3)>=8){if($gmtime==1||$gmtime==2){callfunc "StockEvent",0;callfunc "GMMessage";}}
end;

OnMinute50:
announce "現在時間:" +gettime(3)+ "點" +gettime(2)+ "分",15;
if(gettime(3)==23){announce "股票市場即將於 10 分鐘後關閉!!",15;}
if(gettime(3)>=8&&$gmtime==1){callfunc "StockEvent",0;callfunc "GMMessage";}
end;

OnClock2355:
announce "股票市場即將於 5 分鐘後關閉!!",15;
end;
}

//=======================================//
//==============送訊系統=====GMMessage=======//
//=======================================//
//這個東西可不好弄阿....算是高級技術產物

function script GMMessage -1,{
for(set $@i,0;$@i<128;set $@i,$@i+1){
if(attachrid($SAccount[$@i])==1){
announce "《您收到來自【黑狐銀行】【股票市場】的訊息》",bc_self,0xFF0000;
announce "《記錄編號》《公司名稱》《張數》《目前金額》",bc_blue|bc_self;
announce "["+$@i+"]"+$@StockCompany$[($SRecord[$@i]/10000)]+" "+($SRecord[$@i]%10000)+" "+$SAM[$@i]+" Zeny",bc_self,0x33FF00;
}
if(attachrid($safeaccount[$@i])==1){
announce "《您收到來自【黑狐銀行】【保險櫃】的訊息》",bc_self,0xFF0000;
//一般存放物品
if($safeid[$@i]!=0 && $safesetting[$@i]==0){
announce "《櫃號》《物品》《數量》《存放密碼》《提領密碼》",bc_blue|bc_self;
announce "["+$@i+"] "+getitemname($safeid[$@i])+" "+$safeamount[$@i]+"["+$safepwsave[$@i]+"]["+$safepwload[$@i]+"]",bc_self,0x33FF00;
}
//一般存放金錢
else if($safeid[$@i]==0 && $safesetting[$@i]==2){
announce "《櫃號》《存放金額》《存放密碼》《提領密碼》",bc_blue|bc_self;
announce "["+$@i+"] "+$safemoney[$@i]+" Zeny ["+$safepwsave[$@i]+"]["+$safepwload[$@i]+"]",bc_self,0x33FF00;
if($safepwsave[$@i]==$safepwload[$@i]){announce "您的交易已經成功!請儘速提領金錢!",bc_blue|bc_self;}
}
//交易
else{
announce "《櫃號》《物品》《數量》《交易金額》《存放密碼》《提領密碼》",bc_blue|bc_self;
announce "["+$@i+"] "+getitemname($safeid[$@i])+" "+$safeamount[$@i]+" "+$safemoney[$@i]+" Zeny ["+$safepwsave[$@i]+"]["+$safepwload[$@i]+"]",bc_self,0x33FF00;
announce "目前交易尚未完成!",bc_blue|bc_self;
}

}
}
return;
}
//=======================================//
//==========股票市場事件=====StockEvent=========//
//=======================================//
function script StockEvent {
//防止夜間整盤會有一支股票都沒整到
set $@News,50;
if(getarg(0)==1)goto StockRand;

set $@News,rand(0,49);
switch(rand(6)){
//下跌
case 0:
case 1:
switch($@News){
case 0:announce "由於 [0]普隆德拉建築施工品質出現瑕疵引起人民憂心",15;break;
case 1:announce "由於 [1]斐楊伐木不當伐木引起生態保育人士反對",15;break;
case 2:announce "由於 [2]伊斯魯得保全替卡普拉銀行運送金錢遭搶",15;break;
case 3:announce "由於 [3]吉芬高塔建築地基不穩引起造成吉芬塔下陷",15;break;
case 4:announce "由於 [4]夢羅克保全發生監守自盜事件",15;break;
case 5:announce "由於 [5]艾爾帕蘭運河控管不當造成貨船翻覆",15;break;
case 6:announce "由於 [6]艾爾貝塔船運人員誤判造成貨船觸礁翻覆",15;break;
case 7:announce "由於 [7]天津町觀光導遊遺失團員護照造成無法回國",15;break;
case 8:announce "由於 [8]哎喲泰雅水產抽檢出重金屬超標不合格",15;break;
case 9:announce "由於 [9]克魔島博弈發生黑道介入主導賭場事件",15;break;
case 10:announce "由於 [10]艾音布羅克製造人員操作不當導致鍋爐爆炸",15;break;
case 11:announce "由於 [11]艾音貝赫鐵路控管不當造成火車對撞",15;break;
case 12:announce "由於 [12]吉芬圖書印刷倒裝還大量出售,品管不合格",15;break;
case 13:announce "由於 [13]崑崙棋具掉落海面砸傷海龍王引發水族憤怒",15;break;
case 14:announce "由於 [14]毀葛蔬菜抽檢發現農藥超標不合格",15;break;
case 15:announce "由於 [15]爪哇伊禮服出租禮服破損嚴重影響商譽",15;break;
case 16:announce "由於 [16]里希塔樂百貨人員盜刷客戶現金卡",15;break;
case 17:announce "由於 [17]洛陽工程長城外牆剝落施工品質不良",15;break;
case 18:announce "由於 [18]薑餅城食品大量傾銷過期餅乾",15;break;
case 19:announce "由於 [19]尼芙菲姆殯儀變相收取大量殯葬費引起公憤",15;break;
case 20:announce "由於 [20]汶巴拉觀光導遊未盡照顧之責導致團員迷失森林",15;break;
case 21:announce "由於 [21]朱諾飛空艇著地起火發現少一顆螺絲釘",15;break;
case 22:announce "由於 [22]普隆德拉花卉品質不良易生蠅蟲",15;break;
case 23:announce "由於 [23]吉芬鍊金變相收取精鍊費用",15;break;
case 24:announce "由於 [24]妙勒尼礦場發生礦坑暴力流血事件",15;break;
case 25:announce "由於 [25]斐楊弓箭易折損且品質不良",15;break;
case 26:announce "由於 [26]伊斯魯得蔬果發現添加防腐劑",15;break;
case 27:announce "由於 [27]夢羅克帳篷風大構造不穩易翻覆",15;break;
case 28:announce "由於 [28]洛陽中藥發現黑心偽藥",15;break;
case 29:announce "由於 [29]艾爾貝塔倉儲人員暗藏毒品進貨櫃",15;break;
case 30:announce "由於 [30]艾爾帕蘭鐘錶時間不準造成企業失去訂單",15;break;
case 31:announce "由於 [31]朱諾照明設計不良影響學童視力",15;break;
case 32:announce "由於 [32]克魔島煙火控管不當造成工廠爆炸",15;break;
case 33:announce "由於 [33]汶巴拉木工施工品質不良導致高空彈跳人員死亡",15;break;
case 34:announce "由於 [34]天津町服飾發現使用黑心致癌布料",15;break;
case 35:announce "由於 [35]崑崙戲偶回收處理不佳造成鬧鬼事件",15;break;
case 36:announce "由於 [36]爪哇伊旅館發現針孔偷拍影響商譽",15;break;
case 37:announce "由於 [37]里希塔樂生技控管不當造成魔物逃出傷人",15;break;
case 38:announce "由於 [38]艾音布羅克冶煉溫度控管不當導致鍋爐爆炸",15;break;
case 39:announce "由於 [39]艾音貝赫鋼鐵品質不良導致橋梁斷裂",15;break;
case 40:announce "由於 [40]哎喲泰雅服飾發現致癌染色劑",15;break;
case 41:announce "由於 [41]拉赫大理石開鑿不當遭巨石砸中",15;break;
case 42:announce "由於 [42]薑餅城玩具發現致癌物質",15;break;
case 43:announce "由於 [43]斐楊造景施工不當引發水土流失",15;break;
case 44:announce "由於 [44]艾爾貝塔造船逾期無法交船",15;break;
case 45:announce "由於 [45]夢羅克觀光團員於沙漠中失蹤",15;break;
case 46:announce "由於 [46]艾音布羅克重機控制不當砸死人",15;break;
case 47:announce "由於 [47]里希塔樂機械勾結黑道製造強大武力",15;break;
case 48:announce "由於 [48]天津町花卉櫻花照顧不當集體枯萎",15;break;
case 49:announce "由於 [49]崑崙茶葉發現農藥超標",15;break;
}
set $@StockStateDown,rand(200,400);
if($StockPrice[$@News]-$@StockStateDown<=10){set $@StockState[$@News],$StockPrice[$@News];set $StockPrice[$@News],10;}
else{set $@StockState[$@News],$StockPrice[$@News];set $StockPrice[$@News],$StockPrice[$@News]-$@StockStateDown;}
announce "股票下跌 "+($@StockState[$@News]-$StockPrice[$@News])/10+"."+($@StockState[$@News]-$StockPrice[$@News])%10+" Zeny",15;
break;

//上漲
case 2:
case 3:
switch($@News){
case 0:announce "由於 [0]普隆德拉建築獲頒盧恩米德加爾特王國最佳建築獎",15;break;
case 1:announce "由於 [1]斐楊伐木外銷高級木材獲得極高評價",15;break;
case 2:announce "由於 [2]伊斯魯得保全守護信譽良好獲得保全第一名",15;break;
case 3:announce "由於 [3]吉芬高塔建築建築獲頒全國最優且獲得獎狀",15;break;
case 4:announce "由於 [4]夢羅克保全成功守護金字塔文物防止盜墓賊",15;break;
case 5:announce "由於 [5]艾爾帕蘭運河商業繁榮獲利甚豐",15;break;
case 6:announce "由於 [6]艾爾貝塔船運經營跨國航運獲利甚豐",15;break;
case 7:announce "由於 [7]天津町觀光吸引大量遊客活絡當地經濟",15;break;
case 8:announce "由於 [8]哎喲泰雅水產擴張外銷地區打出知名度",15;break;
case 9:announce "由於 [9]克魔島博弈吸引不少富商前往投資",15;break;
case 10:announce "由於 [10]艾音布羅克製造產品獲頒全國精工獎",15;break;
case 11:announce "由於 [11]艾音貝赫鐵路貨物運輸創新高",15;break;
case 12:announce "由於 [12]吉芬圖書推廣全民讀書計畫獲得學者支持",15;break;
case 13:announce "由於 [13]崑崙棋具推選為全國棋藝錦標賽指定用棋",15;break;
case 14:announce "由於 [14]毀葛蔬菜推廣有機蔬菜佳評如潮",15;break;
case 15:announce "由於 [15]爪哇伊禮服製作精美服務良好,吸引不少新婚者前往購買",15;break;
case 16:announce "由於 [16]里希塔樂百貨周年慶帶動大量人潮前往購買",15;break;
case 17:announce "由於 [17]洛陽工程維護長城古蹟有功",15;break;
case 18:announce "由於 [18]薑餅城食品開發新產品吸引眾多小朋友喜愛而前往購買",15;break;
case 19:announce "由於 [19]尼芙菲姆殯儀重視客戶心聲且服務態度佳",15;break;
case 20:announce "由於 [20]汶巴拉觀光提倡愛護森林活動引發環保團體支持",15;break;
case 21:announce "由於 [21]朱諾飛空艇擴展新航線增加服務據點",15;break;
case 22:announce "由於 [22]普隆德拉花卉開發出新品種獲頒獎項",15;break;
case 23:announce "由於 [23]吉芬鍊金精鍊技藝精湛獲得客戶讚賞",15;break;
case 24:announce "由於 [24]妙勒尼礦場煤產量創新高且品質優良",15;break;
case 25:announce "由於 [25]斐楊弓箭銳利且耐用",15;break;
case 26:announce "由於 [26]伊斯魯得蔬果大量進口批發賺不少錢",15;break;
case 27:announce "由於 [27]夢羅克帳篷改良新帳篷提升可靠性",15;break;
case 28:announce "由於 [28]洛陽中藥被發現療效比西藥來的更好更養生",15;break;
case 29:announce "由於 [29]艾爾貝塔倉儲優良團隊的高效率全國第一",15;break;
case 30:announce "由於 [30]艾爾帕蘭鐘錶製造新陀飛輪提升國際地位",15;break;
case 31:announce "由於 [31]朱諾照明改良產品提升使用年限",15;break;
case 32:announce "由於 [32]克魔島煙火選為國慶大會使用煙火",15;break;
case 33:announce "由於 [33]汶巴拉木工樹屋建造技術稱霸國際",15;break;
case 34:announce "由於 [34]天津町服飾改良和服受到女性喜愛帶動流行新趨勢",15;break;
case 35:announce "由於 [35]崑崙戲偶指定為國寶級布袋戲製造商",15;break;
case 36:announce "由於 [36]爪哇伊旅館星級提升為五星級",15;break;
case 37:announce "由於 [37]里希塔樂生技研究生命體貢獻甚多獲得國際獎項",15;break;
case 38:announce "由於 [38]艾音布羅克冶煉研發新技術獲得大量訂單",15;break;
case 39:announce "由於 [39]艾音貝赫鋼鐵建築需求量高",15;break;
case 40:announce "由於 [40]哎喲泰雅服飾代工賺進不少外匯",15;break;
case 41:announce "由於 [41]拉赫大理石收到眾多神殿訂單",15;break;
case 42:announce "由於 [42]薑餅城玩具製作精美又不易損壞",15;break;
case 43:announce "由於 [43]斐楊造景大量承接富商庭園訂單",15;break;
case 44:announce "由於 [44]艾爾貝塔造船技術高超因而受到國家委託製造軍艦",15;break;
case 45:announce "由於 [45]夢羅克觀光帶動歷史研究風潮",15;break;
case 46:announce "由於 [46]艾音布羅克重機承接大量國家訂單",15;break;
case 47:announce "由於 [47]里希塔樂機械指定為軍艦引擎製造商",15;break;
case 48:announce "由於 [48]天津町花卉舉辦櫻花祭帶動買氣",15;break;
case 49:announce "由於 [49]崑崙茶葉新研究顯示具有抗癌抗老化效果",15;break;
}
set $@StockStateUP,rand(200,400);
if($StockPrice[$@News]+$@StockStateUP>=9999){set $@StockState[$@News],$StockPrice[$@News];set $StockPrice[$@News],9999;}
else{set $@StockState[$@News],$StockPrice[$@News];set $StockPrice[$@News],$StockPrice[$@News]+$@StockStateUP;}
announce "股票上漲 "+($StockPrice[$@News]-$@StockState[$@News])/10+"."+($StockPrice[$@News]-$@StockState[$@News])%10+" Zeny",15;
break;

//開放/停止交易
case 4:
if($StockSetting[$@News]==0){
switch(rand(4)){
case 0:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 內部人事調整完畢股市恢復正常交易",15;break;
case 1:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 公司恢復正常運作股市恢復正常交易",15;break;
case 2:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 重新規劃事業方向股市恢復正常交易",15;break;
case 3:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 政府允許重回股市股市恢復正常交易",15;break;
}
set $StockSetting[$@News],1;
}
else{
switch(rand(4)){
case 0:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 內部人事出現問題股市暫停交易",15;break;
case 1:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 公司運作錯亂股市暫停交易",15;break;
case 2:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 訂單大量被撤銷股市暫停交易",15;break;
case 3:announce "["+$@News+"]"+$@StockCompany$[$@News]+" 被政府勒令進行搜索中股市暫停交易",15;break;
}
set $StockSetting[$@News],0;
}
break;

//發紅利事件
case 5:
//成交價太低
if($StockPrice[$@News]<=400)goto Nbonus;
//一般發紅利
else if(isloggedin($StockBoss[$@News])==1){
announce "["+$@News+"]"+$@StockCompany$[$@News]+" 公司發紅利目前成交價為:"+$StockPrice[$@News]/10+"."+($StockPrice[$@News]-($StockPrice[$@News]/10)*10)+" Zeny",15;
if($StockPrice[$@News]>400 && $StockPrice[$@News]<=4000){getitem 672,1,$StockBoss[$@News];}
if($StockPrice[$@News]>4000 && $StockPrice[$@News]<=7000){getitem 676,1,$StockBoss[$@News];}
if($StockPrice[$@News]>7000 && $StockPrice[$@News]<=9999){getitem 670,1,$StockBoss[$@News];}
}
//價格高又沒股東時
else{announce "目前股票市場運作良好~歡迎大家多多投資~",15;}
break;

Nbonus:
announce "["+$@News+"]"+$@StockCompany$[$@News]+" 公司營運狀況不佳不發給股東紅利目前成交價為:"+$StockPrice[$@News]/10+"."+($StockPrice[$@News]-($StockPrice[$@News]/10)*10)+" Zeny",15;
break;
}

StockRand:
//隨機漲跌設定
for(set $@i,0;$@i<50;set $@i,$@i+1){
if($@i!=$@News){
switch(rand(3)){
//跌
case 0:
switch(rand(2)){
case 0:set $@StockDown,rand(1,100);break;
case 1:set $@StockDown,rand(100,200);break;
}
if($StockPrice[$@i]-$@StockDown<=10){set $@StockState[$@i],$StockPrice[$@i];set $StockPrice[$@i],10;}
else{set $@StockState[$@i],$StockPrice[$@i];set $StockPrice[$@i],$StockPrice[$@i]-$@StockDown;}
break;
//漲
case 1:
switch(rand(2)){
case 0:set $@StockUP,rand(1,100);break;
case 1:set $@StockUP,rand(100,200);break;
}
if(($StockPrice[$@i]+$@StockUP)>=9999){set $@StockState[$@i],$StockPrice[$@i];set $StockPrice[$@i],9999;}
else{set $@StockState[$@i],$StockPrice[$@i];set $StockPrice[$@i],$StockPrice[$@i]+$@StockUP;}
break;
//持平
case 2:set $@StockState[$@i],$StockPrice[$@i];
break;
}
}
}

//股票金額計算
for(set $@i,0;$@i<128;set $@i,$@i+1){
if($SAM[$@i]!=0){set $SAM[$@i],$SAM[$@i]/$@StockState[($SRecord[$@i]/10000)]*$StockPrice[($SRecord[$@i]/10000)]-$SAM[$@i]/$@StockState[($SRecord[$@i]/10000)]*$StockPrice[($SRecord[$@i]/10000)]/10000*$interest;}
}

return;
}

請大大給我答案

pan00017 · 發表於 2008-11-30 22:55:01

ＴＡＢ分段。。。。。。

海神夜 · 發表於 2008-11-30 22:58:46

下回請直接腳本送上來
用附件檔或網址放
不然這樣看眼睛好痛要拉好九∼∼∼∼∼∼∼∼∼
:104:

skygame-5 · 發表於 2008-11-30 23:03:14

可以麻煩大大幫忙我修改一下嘛。

謝謝你。我不懂TAB分段。我會分錯= =

pan00017 · 發表於 2008-11-30 23:06:19

如果你正在學腳本

就不能要求別人通通幫你做好

這樣不會進步

skygame-5 · 發表於 2008-11-30 23:07:54

可以大概請您舉例一下、怎樣分嘛 .... 謝謝^^

pan00017 · 發表於 2008-11-30 23:11:11

地圖位子,x,y,方向(TAB)script(TAB)NPC名子(TAB)外觀,{

[ 本帖最後由 pan00017 於 2008-11-30 11:14 PM 編輯 ]

skygame-5 · 發表於 2008-11-30 23:26:14

以修改、但乃無法使用。 BY SKYGAME-5

pan00017 · 發表於 2008-11-30 23:42:50

超過10個地方需要用TAB分段!!!!!

goddameit · 發表於 2008-12-1 13:33:00

http://okayro.com/thread-78846-1-1.html

		自動登錄	找回密碼
密碼			註冊

EA-13361-黑狐銀行，增加檔案

本帖子中包含更多資源

評分

回覆 2樓的 skygame-5 的帖子

瀏覽過的版塊