自動販售用SQL 資料庫記錄販賣物品

sdpeanut · 發表於 2014-8-4 09:27:13

本帖最後由 sdpeanut 於 2014-8-5 11:54 AM 編輯

- shop groceries -1,12257:8000,526:6000,610:5000,663:2500,522:1500,501:50,502:100,503:200,504:300,505:400,12020:1000,523:1000,525:500,606:1000,682:1000,683:1000,645:-1,656:-1,657:-1,601:-1,602:-1,611:-1,1065:-1,717:-1,715:-1,716:-1,1025:-1,1751:1,1752:1,1765:1,1772:1,1771:1,1773:1,7135:12000,7136:12000,678:50000,12622:1000000,26001:50000,6377:100000
- shop shell2 -1,12257:8000
mora,123,102,4 script 道具商人 606,{
switch(select("^0000FF購買物品","^0000FF販賣物品","^00FF50自動販賣","^D95401支票","^FF0000設定常用販賣列表","^FF8833重設販賣列表"))
{
case 1:
callshop "groceries",1;
break;
case 2:
callshop "groceries",2;
break;
case 3:
query_sql("SELECT count(`char_id`) FROM `peddle` WHERE `char_id` = "+getcharid(0),.@count);
mes "[ ^FF00C7自動販售^000000 ]";
mes "^FF0000相同物品穿著也將一併售出^000000";
mes "^FF0000自動販售之售價將不會因技能而變動^000000";
mes "";
mes "==== [ 以下是您將販售的列表 ] ====";
for( set .@a,0; .@a < .@count; set .@a,.@a+100 )
{
set .@arrsize,query_sql2("SELECT `item_id` FROM `peddle` WHERE `char_id` = "+getcharid(0) ,.@item );
for(set .@i,0;.@i<.@arrsize;set .@i,.@i+1)
{
set .@itemid,getd(".@item"+.@i);
if( countitem(.@itemid) )
mes getitemname(.@itemid) + "^0000FF " + countitem(.@itemid) + "^000000 個 x ^FF0000" + getiteminfo(.@itemid,1) + " z^000000";
}
}
if(select("^0000FF確定販售^000000","取消")==1)
{
for(set .@i,0;.@i<.@arrsize;set .@i,.@i+1)
{
set .@itemid,getd(".@item"+.@i);
if( set(.@c, countitem(.@itemid) ) )
{
delitem .@itemid,.@c;
set Zeny,Zeny+getiteminfo(.@itemid,1)*.@c;
}
}
}
close;
case 4:
switch(select("^0000FF購買支票","^037D01支票換幣")){
case 1:
mes "[ ^FF00C7購買支票^000000 ]";
mes "請問您要購買幾張支票呢 ?";
mes "一張支票 ^FF0000100,000,000^000000 z";
mes "另外要酌收^0000FF單筆^000000交易手續費 ^FF00004,000,000^000000";
next;
input .@i;
if( .@i <= 0 )
{
mes "[ ^FF00C7購買支票^000000 ]";
mes "取消交易";
mes "歡迎再來 !";
close;
}
if( Zeny < (.@i*100000000+4000000) )
{
mes "[ ^FF00C7購買支票^000000 ]";
mes "您的金錢不夠";
mes "歡迎再來 !";
close;
}
set Zeny,Zeny-(.@i*100000000+4000000);
getitem2 26020,.@i,0,0,0,254,0,getcharid(0),0;
close;
case 2:
mes "[ ^FF00C7支票換幣^000000 ]";
mes "請問您有幾張支票要換幣 ?";
next;
input .@i;
if(.@i > countitem(26020))
{
mes "[ ^FF00C7支票換幣^000000 ]";
mes "您支票不夠";
close;
}
if( Zeny + ( .@i * 100000000 ) > 2000000000 )
{
mes "[ ^FF00C7支票換幣^000000 ]";
mes "兌換後您的錢超過20E";
close;
}
delitem 26020,.@i;
set Zeny,Zeny+( .@i * 100000000 );
close;
}
break;
case 5:
callshop "shell2",2;
npcshopattach "shell2";
break;
case 6:
query_sql("DELETE FROM `peddle` WHERE `char_id` = "+getcharid(0));
mes "[ ^FF00C7自動販售^000000 ]";
mes "^FF0000已經重新設定 ! 謝謝您的光臨^000000";
break;
}
close;
OnBuyItem:
set .@arrsize,getarraysize(@bought_nameid);
for(set .@i,0;.@i<.@arrsize;set .@i,.@i+1)
announce @bought_nameid[.@i]+" "+getitemname(@bought_nameid[.@i])+" "+@bought_quantity[.@i],bc_all;
end;
OnSellItem:
set .@cid,getcharid(0);
set .@arrsize,getarraysize(@sold_quantity);
for(set .@i,0;.@i<.@arrsize;set .@i,.@i+1)
{
query_sql("SELECT `item_id` FROM `peddle` WHERE `char_id` = "+.@cid+" AND `item_id` = "+@sold_nameid[.@i],.@sql$);
//announce .@sql$,bc_all;
if(.@sql$=="")
query_sql("INSERT INTO `peddle` (`char_id`, `item_id`) VALUES ( "+.@cid+","+@sold_nameid[.@i]+");");
set .@sql$,"";
}
end;
}

複製代碼

我依照  腳本內 SELECT `item_id`  FROM `peddle` WHERE `char_id`

然後就在資料庫添加  peddle

peddle 裡面再添加 pid  ,  char_id  ,  item_id

是腳本的問題嗎?? 還是我操作的問題

sinya · 發表於 2014-8-4 11:45:35

for( set .@a,0; .@a < .@count; set .@a,.@a+100 ) 100是什意思看不懂

rathena 沒有 query_sql2

sdpeanut · 發表於 2014-8-4 12:09:37

sinya 發表於 2014-8-4 11:45 AM
for( set .@a,0; .@a < .@count; set .@a,.@a+100 ) 100是什意思看不懂

rathena 沒有 query_sql2

這個是腳本的載點
http://pan.baidu.com/s/1bnfDlef

那如果說 ra沒有query_sql2

是要另外新增嗎?? 還是有其他辦法

sinya · 發表於 2014-8-4 12:57:10

本帖最後由 sinya 於 2014-8-4 01:16 PM 編輯

當然有 , sqlquery時用 limit 每次限制 128筆輸出，把得到的資料用setd 存起來就可以取代 query_sql2

sdpeanut · 發表於 2014-8-4 13:28:54

sinya 發表於 2014-8-4 12:57 PM
當然有 , sqlquery時用 limit 每次限制 128筆輸出，把得到的資料用setd 存起來就可以取代 query_sql2
...

謝謝妳的解答

意思是說要再另外新增一個 setd

好讓 " 設定自動販賣物品 " 的資料能夠載入進去

然後再用query 可以把資料抓出來使用

是這個意思嗎??

sdpeanut · 發表於 2014-8-4 15:15:42

sinya 發表於 2014-8-4 12:57 PM
當然有 , sqlquery時用 limit 每次限制 128筆輸出，把得到的資料用setd 存起來就可以取代 query_sql2
...

現在是可以存進去

但存進去的資料有長有短

還有提取的時候都顯示空白

sinya · 發表於 2014-8-5 00:30:56

本帖最後由 sinya 於 2014-8-5 12:32 AM 編輯

你可以請作者寫適合ra的版本因為他的邏輯我看不懂二樓那個 100 是寫錯吧

sdpeanut · 發表於 2014-8-5 01:52:11

sinya 發表於 2014-8-5 12:30 AM
你可以請作者寫適合ra的版本因為他的邏輯我看不懂二樓那個 100 是寫錯吧

說實在我也不懂為什麼要加 100

好的!! 非常感謝妳

我再試試看，真的不行我在找作者幫忙。

sdpeanut · 發表於 2014-8-5 01:55:37

sinya 發表於 2014-8-5 12:30 AM
你可以請作者寫適合ra的版本因為他的邏輯我看不懂二樓那個 100 是寫錯吧

另外想請教妳

有哪些地方有在教怎麼使用SQL嗎??

還是只能跑去書局買書來看在自己應用

sinya · 發表於 2014-8-5 05:15:48

sdpeanut 發表於 2014-8-5 01:55 AM
另外想請教妳

有哪些地方有在教怎麼使用SQL嗎??

如果要學基本的不用買書網路找一找就有了吧私服會用到的語法不會太多

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

自動販售 用SQL 資料庫 記錄販賣物品

自動販售用SQL 資料庫記錄販賣物品