【废渣型脚本产物Ⅱ】VX物品偷盗脚本

冰舞蝶恋

突然发现自己真的好杯具。。
写一个破脚本，除掉设置部分和注释总共才8行，
就开了两个问题。。。【啊，好像只有一个【好健忘啊0.0
而且其中两行还是"end"
真是囧的要死。
好吧表示咱刚看到了剑兰前辈的数组教程，
然后又在写一个关于XX的脚本【这也保密！？
发了问题
然后就突发奇想写出以下的破烂来了。。
嗯，记得上次的事件版被黄鸡前辈批评了，
这次希望大家多捧捧场【这种烂东西也值得捧场么！！
好吧那么就发脚本跟范例了，使用方法在注释里。
其实这种东西稍微改下句子神马的都可以做抽奖活动之类的东西吧。
哈……把更新都整合到主楼来咯。

1. #===============================================================================
   
2. #  〇 偷盗脚本精简版     
   
3. #           ——By.冰舞蝶恋
   
4. #-------------------------------------------------------------------------------
   
5. #  说明：在事件脚本里写上“偷盗”即可调用。
   
6. #===============================================================================
   
7. class Game_Interpreter
   
8.   def 偷盗
   
9.    
   
10.   #-以下是设置部分--------------------------------------------------------------
    
11.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
12.     $gs = 1  # 一次能偷到的个数。
    
13.     wp = [1, 2, 3, 4, 5, 6, 7, 8,]  # 可偷的物品id，暂时不支持武器和防具。
    
14.   #-----------------------------------------------------------------------------
    
15.     $z = rand(wp.size)
    
16.     $game_party.gain_item($data_items[wp[$z]],$gs)
    
17.     set_message_waiting
    
18.     $game_message.texts.push("#{$tx}#{$data_items[wp[$z]].name}*#{$gs}！")
    
19.   end
    
20. end

复制代码

1. #===============================================================================
   
2. #  〇 偷盗脚本完善版   
   
3. #          ——By.冰舞蝶恋
   
4. #-------------------------------------------------------------------------------
   
5. #  说明：支持物品、武器和防具的偷盗。加入允许失败的情况。
   
6. #        在事件脚本里写上“偷盗物品”、“偷盗武器”或“偷盗防具”。
   
7. #        注：该完善版经常出错。不推荐使用。
   
8. #===============================================================================
   
9. class Game_Interpreter
   
10. #===============================================================================
    
11. #===============================================================================
    
12.   def 偷盗物品
    
13.    
    
14.   #-以下是物品偷盗的设置部分----------------------------------------------------
    
15.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
16.     $gs = 1  # 一次能偷到的个数。
    
17.     wp = [1, 2, 3, 4, 5, 6, 7, 8,]  # 可偷的物品id。
    
18.     yx = true  # 允许失败？
    
19.     jl = 5  # 失败的概率，比如设置可偷盗10个物品，那么将有5/15的几率失败。
    
20.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
21.   #-----------------------------------------------------------------------------
    
22.     $z = 0
    
23.     if yx = true
    
24.       $z = rand(wp.size+jl)
    
25.     else
    
26.       $z = rand(wp.size)
    
27.     end
    
28.     if $z > wp.size
    
29.       set_message_waiting
    
30.       $game_message.texts.push("#{$tx2}")
    
31.     else
    
32.       $game_party.gain_item($data_items[wp[$z]],$gs)
    
33.       set_message_waiting
    
34.       $game_message.texts.push("#{$tx}#{$data_items[wp[$z]].name}*#{$gs}！")
    
35.     end
    
36.   end
    
37. #===============================================================================
    
38. #===============================================================================
    
39.   def 偷盗武器
    
40.    
    
41.   #-以下是武器偷盗的设置部分----------------------------------------------------
    
42.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
43.     $gs = 1  # 一次能偷到的个数。
    
44.     wq = [1, 2, 3, 4, 5,]  # 可偷的武器id。
    
45.     yx = true  # 允许失败？
    
46.     jl = 5  # 失败的概率，详情设置见物品部分。
    
47.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
48.   #-----------------------------------------------------------------------------
    
49.     $z = 0
    
50.     if yx = true
    
51.       $z = rand(wq.size+jl)
    
52.     else
    
53.       $z = rand(wq.size)
    
54.     end
    
55.     if $z > wq.size
    
56.       set_message_waiting
    
57.       $game_message.texts.push("#{$tx2}")
    
58.     else
    
59.       $game_party.gain_item($data_weapons[wq[$z]],$gs)
    
60.       set_message_waiting
    
61.       $game_message.texts.push("#{$tx}#{$data_weapons[wq[$z]].name}*#{$gs}！")
    
62.     end
    
63.   end
    
64. #===============================================================================
    
65. #===============================================================================
    
66.   def 偷盗防具
    
67.   
    
68.   #-以下是防具偷盗的设置部分----------------------------------------------------
    
69.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
70.     $gs = 1  # 一次能偷到的个数。
    
71.     fj = [1, 2, 3,]  # 可偷的防具id。
    
72.     yx = true  # 允许失败？
    
73.     jl = 5  # 失败的概率，详情设置见物品部分。
    
74.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
75.   #-----------------------------------------------------------------------------
    
76.     $z = 0
    
77.     if yx = true
    
78.       $z = rand(fj.size+jl)
    
79.     else
    
80.       $z = rand(fj.size)
    
81.     end
    
82.     if $z > fj.size
    
83.       set_message_waiting
    
84.       $game_message.texts.push("#{$tx2}")
    
85.     else
    
86.       $game_party.gain_item($data_armors[fj[$z]],$gs)
    
87.       set_message_waiting
    
88.       $game_message.texts.push("#{$tx}#{$data_armors[fj[$z]].name}*#{$gs}！")
    
89.     end
    
90.   end
    
91. end

复制代码

1. #===============================================================================
   
2. #  〇 偷盗脚本最终版   
   
3. #          ——By.冰舞蝶恋
   
4. #-------------------------------------------------------------------------------
   
5. #  说明：支持物品、武器和防具的偷盗。加入允许失败的情况。可设置失败率。
   
6. #        在事件脚本里写上“偷盗物品”、“偷盗武器”或“偷盗防具”即可调用。
   
7. #        加入可随机获得物品/武器/防具个数的功能。
   
8. #        修正脚本会弹错的BUG。
   
9. #        注意：设置中不可包含小数、负数。
   
10. #===============================================================================
    
11. class Game_Interpreter
    
12. #===============================================================================
    
13. #===============================================================================
    
14.   def 偷盗物品
    
15.    
    
16.   #-以下是物品偷盗的设置部分----------------------------------------------------
    
17.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
18.     #---------------------------------------------------------------------------
    
19.     $gs = 0  # 一次能偷到的个数。如果希望被偷盗的物品个数是随机数，
    
20.              # 请写为0，然后在以下的数组中设定。
    
21.     #---------------------------------------------------------------------------
    
22.     $sj = [1, 10]  # 前一个数是随机数量的最小值，后一个是随机数量的最大值。
    
23.     #---------------------------------------------------------------------------
    
24.     wp = [1, 2, 3, 4, 5, 6, 7, 8, 0, 0, 0, 0, ]  # 可偷的物品id。
    
25.     # 注意：可偷盗的物品id效果可叠加。譬如设置相同id的次数越多，那么该id的物品
    
26.     # 偷盗的几率就越大。0代表失败。可自己设定失败率，若没有0，那么代表偷盗将不
    
27.     # 会失败。
    
28.     #---------------------------------------------------------------------------
    
29.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
30.   #-----------------------------------------------------------------------------
    
31.     $z = rand(wp.size)
    
32.     if $gs <= 0
    
33.       $gs = rand($sj[1]-$sj[0]+1)+$sj[0]
    
34.     end
    
35.     if wp[$z] != 0
    
36.       $game_party.gain_item($data_items[wp[$z]],$gs)
    
37.       set_message_waiting
    
38.       $game_message.texts.push("#{$tx}#{$data_items[wp[$z]].name}*#{$gs}！")
    
39.     else
    
40.       set_message_waiting
    
41.       $game_message.texts.push("#{$tx2}")
    
42.     end
    
43.   end
    
44. #===============================================================================
    
45. #===============================================================================
    
46.   def 偷盗武器
    
47.    
    
48.   #-以下是武器偷盗的设置部分----------------------------------------------------
    
49.     $tx = "你偷到了"  # 用来提示偷到的武器的文字。
    
50.     #---------------------------------------------------------------------------
    
51.     $gs = 1  # 一次能偷到的个数。如果希望被偷盗的武器个数是随机数，
    
52.              # 请写为0，然后在以下的数组中设定。
    
53.     #---------------------------------------------------------------------------
    
54.     $sj = [1, 4]  # 前一个数是随机数量的最小值，后一个是随机数量的最大值。
    
55.     #---------------------------------------------------------------------------
    
56.     wq = [1, 2, 3, 4, 5, 0, 0, ]  # 可偷的武器id。
    
57.     # 注意：可偷盗的武器id效果可叠加。譬如设置相同id的次数越多，那么该id的武器
    
58.     # 偷盗的几率就越大。0代表失败。可自己设定失败率，若没有0，那么代表偷盗将不
    
59.     # 会失败。
    
60.     #---------------------------------------------------------------------------
    
61.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
62.   #-----------------------------------------------------------------------------
    
63.     $z = rand(wq.size)
    
64.     if $gs <= 0
    
65.       $gs = rand($sj[1]-$sj[0]+1)+$sj[0]
    
66.     end
    
67.     if wq[$z] != 0
    
68.       $game_party.gain_item($data_weapons[wq[$z]],$gs)
    
69.       set_message_waiting
    
70.       $game_message.texts.push("#{$tx}#{$data_weapons[wq[$z]].name}*#{$gs}！")
    
71.     else
    
72.       set_message_waiting
    
73.       $game_message.texts.push("#{$tx2}")
    
74.     end
    
75.   end
    
76. #===============================================================================
    
77. #===============================================================================
    
78.   def 偷盗防具
    
79.   
    
80.   #-以下是防具偷盗的设置部分----------------------------------------------------
    
81.     $tx = "你偷到了"  # 用来提示偷到的防具的文字。
    
82.     #---------------------------------------------------------------------------
    
83.     $gs = 1  # 一次能偷到的个数。如果希望被偷盗的防具个数是随机数，
    
84.              # 请写为0，然后在以下的数组中设定。
    
85.     #---------------------------------------------------------------------------
    
86.     $sj = [1, 3]  # 前一个数是随机数量的最小值，后一个是随机数量的最大值。
    
87.     #---------------------------------------------------------------------------
    
88.     fj = [1, 2, 3, 0, ]  # 可偷的防具id。
    
89.     # 注意：可偷盗的防具id效果可叠加。譬如设置相同id的次数越多，那么该id的防具
    
90.     # 偷盗的几率就越大。0代表失败。可自己设定失败率，若没有0，那么代表偷盗将不
    
91.     # 会失败。
    
92.     #---------------------------------------------------------------------------
    
93.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
94.   #-----------------------------------------------------------------------------
    
95.     $z = rand(fj.size)
    
96.     if $gs <= 0
    
97.       $gs = rand($sj[1]-$sj[0]+1)+$sj[0]
    
98.     end
    
99.     if fj[$z] != 0
    
100.       $game_party.gain_item($data_armors[fj[$z]],$gs)
     
101.       set_message_waiting
     
102.       $game_message.texts.push("#{$tx}#{$data_armors[fj[$z]].name}*#{$gs}！")
     
103.     else
     
104.       set_message_waiting
     
105.       $game_message.texts.push("#{$tx2}")
     
106.     end
     
107.   end
     
108. end

复制代码

小冰

更新一下，加入支持武器和防具的偷盗，以及偷盗是否允许失败、成功率的设置。

1. #===============================================================================
   
2. #  〇 偷盗脚本完善版   
   
3. #          ——By.冰舞蝶恋
   
4. #-------------------------------------------------------------------------------
   
5. #  说明：支持物品、武器和防具的偷盗。加入允许失败的情况。
   
6. #        在事件脚本里写上“偷盗物品”、“偷盗武器”或“偷盗防具”。
   
7. #===============================================================================
   
8. class Game_Interpreter
   
9. #===============================================================================
   
10. #===============================================================================
    
11.   def 偷盗物品
    
12.    
    
13.   #-以下是物品偷盗的设置部分----------------------------------------------------
    
14.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
15.     $gs = 1  # 一次能偷到的个数。
    
16.     wp = [1, 2, 3, 4, 5, 6, 7, 8,]  # 可偷的物品id。
    
17.     yx = true  # 允许失败？
    
18.     jl = 5  # 失败的概率，比如设置可偷盗10个物品，那么将有5/15的几率失败。
    
19.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
20.   #-----------------------------------------------------------------------------
    
21.     $z = 0
    
22.     if yx = true
    
23.       $z = rand(wp.size+jl)
    
24.     else
    
25.       $z = rand(wp.size)
    
26.     end
    
27.     if $z > wp.size
    
28.       set_message_waiting
    
29.       $game_message.texts.push("#{$tx2}")
    
30.     else
    
31.       $game_party.gain_item($data_items[wp[$z]],$gs)
    
32.       set_message_waiting
    
33.       $game_message.texts.push("#{$tx}#{$data_items[wp[$z]].name}*#{$gs}！")
    
34.     end
    
35.   end
    
36. #===============================================================================
    
37. #===============================================================================
    
38.   def 偷盗武器
    
39.    
    
40.   #-以下是武器偷盗的设置部分----------------------------------------------------
    
41.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
42.     $gs = 1  # 一次能偷到的个数。
    
43.     wq = [1, 2, 3, 4, 5,]  # 可偷的武器id。
    
44.     yx = true  # 允许失败？
    
45.     jl = 5  # 失败的概率，详情设置见物品部分。
    
46.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
47.   #-----------------------------------------------------------------------------
    
48.     $z = 0
    
49.     if yx = true
    
50.       $z = rand(wq.size+jl)
    
51.     else
    
52.       $z = rand(wq.size)
    
53.     end
    
54.     if $z > wq.size
    
55.       set_message_waiting
    
56.       $game_message.texts.push("#{$tx2}")
    
57.     else
    
58.       $game_party.gain_item($data_weapons[wq[$z]],$gs)
    
59.       set_message_waiting
    
60.       $game_message.texts.push("#{$tx}#{$data_weapons[wq[$z]].name}*#{$gs}！")
    
61.     end
    
62.   end
    
63. #===============================================================================
    
64. #===============================================================================
    
65.   def 偷盗防具
    
66.   
    
67.   #-以下是防具偷盗的设置部分----------------------------------------------------
    
68.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
69.     $gs = 1  # 一次能偷到的个数。
    
70.     fj = [1, 2, 3,]  # 可偷的防具id。
    
71.     yx = true  # 允许失败？
    
72.     jl = 5  # 失败的概率，详情设置见物品部分。
    
73.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
74.   #-----------------------------------------------------------------------------
    
75.     $z = 0
    
76.     if yx = true
    
77.       $z = rand(fj.size+jl)
    
78.     else
    
79.       $z = rand(fj.size)
    
80.     end
    
81.     if $z > fj.size
    
82.       set_message_waiting
    
83.       $game_message.texts.push("#{$tx2}")
    
84.     else
    
85.       $game_party.gain_item($data_armors[fj[$z]],$gs)
    
86.       set_message_waiting
    
87.       $game_message.texts.push("#{$tx}#{$data_armors[fj[$z]].name}*#{$gs}！")
    
88.     end
    
89.   end
    
90. end

复制代码

冰舞蝶恋

吖……占楼，准备下次更新………【你这无敌大懒人怎么可能继续更新啊啊啊啊啊！！！？

顺便说明楼上是咱马甲。

小冰

强悍更新最终版！加入新功能，修正BUG。

1. #===============================================================================
   
2. #  〇 偷盗脚本最终版   
   
3. #          ——By.冰舞蝶恋
   
4. #-------------------------------------------------------------------------------
   
5. #  说明：支持物品、武器和防具的偷盗。加入允许失败的情况。可设置失败率。
   
6. #        在事件脚本里写上“偷盗物品”、“偷盗武器”或“偷盗防具”即可调用。
   
7. #        加入可随机获得物品/武器/防具个数的功能。
   
8. #        修正脚本会弹错的BUG。
   
9. #        注意：设置中不可包含小数、负数。
   
10. #===============================================================================
    
11. class Game_Interpreter
    
12. #===============================================================================
    
13. #===============================================================================
    
14.   def 偷盗物品
    
15.    
    
16.   #-以下是物品偷盗的设置部分----------------------------------------------------
    
17.     $tx = "你偷到了"  # 用来提示偷到的物品的文字。
    
18.     #---------------------------------------------------------------------------
    
19.     $gs = 0  # 一次能偷到的个数。如果希望被偷盗的物品个数是随机数，
    
20.              # 请写为0，然后在以下的数组中设定。
    
21.     #---------------------------------------------------------------------------
    
22.     $sj = [1, 10]  # 前一个数是随机数量的最小值，后一个是随机数量的最大值。
    
23.     #---------------------------------------------------------------------------
    
24.     wp = [1, 2, 3, 4, 5, 6, 7, 8, 0, 0, 0, 0, ]  # 可偷的物品id。
    
25.     # 注意：可偷盗的物品id效果可叠加。譬如设置相同id的次数越多，那么该id的物品
    
26.     # 偷盗的几率就越大。0代表失败。可自己设定失败率，若没有0，那么代表偷盗将不
    
27.     # 会失败。
    
28.     #---------------------------------------------------------------------------
    
29.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
30.   #-----------------------------------------------------------------------------
    
31.     $z = rand(wp.size)
    
32.     if $gs <= 0
    
33.       $gs = rand($sj[1]-$sj[0]+1)+$sj[0]
    
34.     end
    
35.     if wp[$z] != 0
    
36.       $game_party.gain_item($data_items[wp[$z]],$gs)
    
37.       set_message_waiting
    
38.       $game_message.texts.push("#{$tx}#{$data_items[wp[$z]].name}*#{$gs}！")
    
39.     else
    
40.       set_message_waiting
    
41.       $game_message.texts.push("#{$tx2}")
    
42.     end
    
43.   end
    
44. #===============================================================================
    
45. #===============================================================================
    
46.   def 偷盗武器
    
47.    
    
48.   #-以下是武器偷盗的设置部分----------------------------------------------------
    
49.     $tx = "你偷到了"  # 用来提示偷到的武器的文字。
    
50.     #---------------------------------------------------------------------------
    
51.     $gs = 1  # 一次能偷到的个数。如果希望被偷盗的武器个数是随机数，
    
52.              # 请写为0，然后在以下的数组中设定。
    
53.     #---------------------------------------------------------------------------
    
54.     $sj = [1, 4]  # 前一个数是随机数量的最小值，后一个是随机数量的最大值。
    
55.     #---------------------------------------------------------------------------
    
56.     wq = [1, 2, 3, 4, 5, 0, 0, ]  # 可偷的武器id。
    
57.     # 注意：可偷盗的武器id效果可叠加。譬如设置相同id的次数越多，那么该id的武器
    
58.     # 偷盗的几率就越大。0代表失败。可自己设定失败率，若没有0，那么代表偷盗将不
    
59.     # 会失败。
    
60.     #---------------------------------------------------------------------------
    
61.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
62.   #-----------------------------------------------------------------------------
    
63.     $z = rand(wq.size)
    
64.     if $gs <= 0
    
65.       $gs = rand($sj[1]-$sj[0]+1)+$sj[0]
    
66.     end
    
67.     if wq[$z] != 0
    
68.       $game_party.gain_item($data_weapons[wq[$z]],$gs)
    
69.       set_message_waiting
    
70.       $game_message.texts.push("#{$tx}#{$data_weapons[wq[$z]].name}*#{$gs}！")
    
71.     else
    
72.       set_message_waiting
    
73.       $game_message.texts.push("#{$tx2}")
    
74.     end
    
75.   end
    
76. #===============================================================================
    
77. #===============================================================================
    
78.   def 偷盗防具
    
79.   
    
80.   #-以下是防具偷盗的设置部分----------------------------------------------------
    
81.     $tx = "你偷到了"  # 用来提示偷到的防具的文字。
    
82.     #---------------------------------------------------------------------------
    
83.     $gs = 1  # 一次能偷到的个数。如果希望被偷盗的防具个数是随机数，
    
84.              # 请写为0，然后在以下的数组中设定。
    
85.     #---------------------------------------------------------------------------
    
86.     $sj = [1, 3]  # 前一个数是随机数量的最小值，后一个是随机数量的最大值。
    
87.     #---------------------------------------------------------------------------
    
88.     fj = [1, 2, 3, 0, ]  # 可偷的防具id。
    
89.     # 注意：可偷盗的防具id效果可叠加。譬如设置相同id的次数越多，那么该id的防具
    
90.     # 偷盗的几率就越大。0代表失败。可自己设定失败率，若没有0，那么代表偷盗将不
    
91.     # 会失败。
    
92.     #---------------------------------------------------------------------------
    
93.     $tx2 = "偷盗失败！"  # 用于提示失败的情况下的文字。
    
94.   #-----------------------------------------------------------------------------
    
95.     $z = rand(fj.size)
    
96.     if $gs <= 0
    
97.       $gs = rand($sj[1]-$sj[0]+1)+$sj[0]
    
98.     end
    
99.     if fj[$z] != 0
    
100.       $game_party.gain_item($data_armors[fj[$z]],$gs)
     
101.       set_message_waiting
     
102.       $game_message.texts.push("#{$tx}#{$data_armors[fj[$z]].name}*#{$gs}！")
     
103.     else
     
104.       set_message_waiting
     
105.       $game_message.texts.push("#{$tx2}")
     
106.     end
     
107.   end
     
108. end

复制代码

呼呼……这可是咱更新最多、写得最长的一个脚本啦。话说没人看到么…………好吧更新完这次就懒得再写了。。

冰舞蝶恋

啊。。难道被人54了么！！【这种废渣谁会在意啊！
【可毕竟是咱辛辛苦苦写的耶！【对咱这种技术来说。。

DeathKing

不用在意写得是好是坏，用于尝试的精神很好！
当然，只有迈出了第一步，才会有以后的成功。

无名小兵

:)只想SBS系统也能用。。。。

冰舞蝶恋

回复 无名小兵 的帖子

SB-傻逼
BS-鄙视
SBS是啥？

无名小兵

:L VX的超级横版啊= = 约束有汉化过 全称大概是这个 Sideview Battle System Configurations