PickPocket script

じ☆ve冰风

Hi everyone, I thought about a mechanics I added some time ago to my game, a pickpocketing system, it was really ugly, lots of lines of setup for each event, so I decided to turn it into a script,


        I changed this







        into this:







        I am pretty satisfied with the result, so I thought I'd share this   



        Description:


        You simply have to put one line of script call in an event box (e.g Eaty_Steal(['g',0],32,100,@event_id,10,"How dare you!") ), and when the player will interact with that npc while pressing a default key
SHIFT), he'll try to steal what you set within the script call, if the player gets caught you can decide what the consequences will be.


        The chances of success are determined by this formula (rand(attention_level) - $game_party.leader.agi ), which you can freely change (in that case also adjust the conditions check accordingly (value<0, value<a/2, value>=a/2)).


        Here's the script:

Spoiler                Code:       

1. #=============================================================================#
2. #
3. #  EatYourBeetS stealing script
4. #
5. # In any event put this in the first line:
6. # Eaty_Steal(['g',0],32,100,@event_id,10,"How dare you!")
7. #
8. # ['g', = item type: 'g'=gold, 'i'=item, 'a'=armor, 'w'=weapon
9. #   0], = item ID, not checked when you choose 'g'
10. #  32 , = quantity of item or gold that will be stolen
11. #  100, = attention level, used to determine the chances of stealing or
12. #         getting caught, check the formula in Dinamic setup
13. #  @event_id, used for the self switch, just pass it as @event_id
14. #  10 , = ID of the switch to activate when caught, 0 if you don't need it
15. #         (I use one switch per city)
16. #  "How dare you!" = optional, determines what will the npc say if you
17. #  )                 get caught, you can change the default below
18. #
19. #
20. #  *Free to use anywhere
21. #  *Credits: EatYourBeetS
22. #  *If you find bugs or have an idea about how to improve this,
23. #  please let me know!
24. #
25. #=============================================================================#  
27. class Game_Interpreter
28. #--------------------------------------------------------------------------
29. # * Steal from NPCs                                        [NEW METHOD]
30. #--------------------------------------------------------------------------
31. def Eaty_Steal(i=['g',0],q=1,a=50,event_id,switch,line)
32. #=============================================================================
33. #      Custom conditions
34. #
35. #  Add other conditions here if you want, e.g, if you want to steal only when
36. #  an item is equipped add:
37. #  return unless $game_party.members_equip_include?($data_armors[ID])
39. return unless Input.press?(:SHIFT) #Steal Button(to press with Z/space/enter)
40. return if $game_switches[switch]==true && switch!=0
41. #=============================================================================                                 
42. if $game_self_switches[[$game_map.map_id,event_id,'D']]==false #SW check
43.                            #Dinamic setup                          
45. line.is_a?(String) ? line : (line=nil; line="Thief!") #-> default line
46. data_id = i[1] #Don't change
47. #-----
48. a       = rand(a) + a/5                      #Stealing Formula
49. value   = a - $game_party.leader.agi         #Stealing Formula
50. #-----
52. #============================================================================
53. #       Stealing successful
54. #=========================================================================     
55. if value < 0
56.         $game_message.background = 1
57.         $game_message.add("\nYou stole something!")
58.         $game_self_switches[[map_id,event_id,'D']] = true  #SW ON
59.        #$game_variables[16] -= 3 #this is my 'karma' variable,
60.        #     if you have something similar just change the id      
61.         q_s=q.to_s+" " if q!=1
62.         q_s=""         if q==1
63.         RPG::SE.new("Chime2", 100, 120).play  #Success Sound
64. #----------------------------------------------------------------------         
65. if i[0] != 'g'         
66.   if    i[0] == 'w'
67.       icon = $data_weapons[data_id].icon_index
68.       name = $data_weapons[data_id].name
69.       $game_party.gain_item($data_weapons[data_id], q)
70.   elsif i[0] == 'a'
71.       icon = $data_armors[data_id].icon_index
72.       name = $data_armors[data_id].name  
73.       $game_party.gain_item($data_armors[data_id], q)
74.   elsif i[0] == 'i'
75.       icon = $data_items[data_id].icon_index
76.       name = $data_items[data_id].name
77.       $game_party.gain_item($data_items[data_id], q)
78.   end
79. $game_message.background = 1
80. $game_message.add("#{q_s}#{name} \\i[#{icon}] Obtained!")         
81. else
82. #----------------------------------------------------------------------   
83. $game_party.gain_gold(q)
84. $game_message.background = 1
85. $game_message.add("#{q}\\i[361] Obtained!")  #361 is my gold icon index      
86. end      
87. #==========================================================================
88. #       Stealing failed
89. #========================================================================      
90. elsif  value >= 0 && value < (a/2)
91.         $game_message.background = 1
92.         $game_message.add("\nStealing failed!")
93. elsif  value >= a/2
94.         $game_message.add("#{line}")
95.         RPG::SE.new("Reflection", 100, 120).play #Failure Sound
96.         $game_switches[switch]=true if switch != 0
97. end
98. #----------------------------------------------------------------------
99. else #If Self Switch is on
100. $game_message.background = 1
101. $game_message.add("\nYou already stole something")
102. end     # Self switch check end
103. #----------------------------------------------------------------------
104. command_115 #Exit event processing
105. end     # Method end
107. #==============================================================================
108. end     # Game_Interpreter class end
109. #==============================================================================

复制代码

                        This is my first script, please let me know about any improvement I can make, or any bugs or mistakes.






本贴来自国际rpgmaker官方论坛作者:EatYourBeetS处,因国际论坛即将永久关站,为了存档多年珍贵资料,署名转载到本论坛存档,由于官方帖子为英文原帖，需要中文翻译请点击论坛顶部切换语言为中文就可以将帖子翻译成中文浏览,方便大家随时查看,原文地址：https://forums.rpgmakerweb.com/threads/pickpocket-script.38805/