Project1

标题: 请教一个类似于计算器功能的脚本问题 [打印本页]
作者: 魔法丶小肉包    时间: 2017-1-31 16:21
标题: 请教一个类似于计算器功能的脚本问题
是这样的，今天闲着无聊自己写了一个功能类似于计算器的小脚本（四则运算，支持先乘除后加减），
那么呢，使用方法如下图

变量51,53,55,57分别代入4个数，变量52,54,56分别代入3个符号。
然后，执行写好的方法，结果代入在100号变量里，最后在事件里输出数值。
那么呢，现在的问题是，确实是经过了计算但是计算结果却不对。
然后呢，我检查过算法了但是并未发现有什么地方不对，希望大家能来帮忙看一下谢谢=w=
下面是脚本
  1. module MFXRB
  2.   AA = 1
  3.   A = 1
  4.   BB = 2
  5.   B = 2
  6.   CC = 3
  7.   C = 3
  8.   DD = 4
  9.   D = 4
  10.   EE = 5
  11.   E = 5
  12.   FF = 6
  13.   F = 6
  14.   GG = 7
  15.   G = 7
  16.   HH = 8
  17.   H = 8
  18.   II = 9
  19.   I = 9
  20.   JJ = 10
  21.   J = 10
  22.   KK = 11
  23.   K = 11
  24.   LL = 12
  25.   L = 12
  26.   ZH = 100
  27.   def add(x,y)
  28.     x+y
  29.   end
  30.   def jian(x,y)
  31.     x-y
  32.   end
  33.   def cheng(x,y)
  34.     x*y
  35.   end
  36.   def chu(x,y)
  37.     x/y
  38.   end
  39.   def jisuan
  40.     a = $game_variables[51]
  41.     b = $game_variables[52]#
  42.     c = $game_variables[53]
  43.     d = $game_variables[54]#
  44.     e = $game_variables[55]
  45.     f = $game_variables[56]#
  46.     g = $game_variables[57]
  47.     s = [a,b,c,d,e,f,g]
  48.     if s[1] == "/"
  49.       $game_variables[AA] = chu(a,c)
  50.       $game_switches[A] = true
  51.     end
  52.     if s[3] == "/"
  53.       if $game_switches[A] = true
  54.         $game_variables[BB] = chu($game_variables[AA],e)
  55.         $game_switches[B] = true
  56.       else
  57.         $game_variables[BB] = chu(c,e)
  58.         $game_switches[B] = true
  59.       end
  60.     end
  61.     if s[5] == "/"
  62.       if $game_switches[B] = true#chu
  63.         $game_variables[CC] = chu($game_variables[BB],g)
  64.         $game_switches[C] = true
  65.       else
  66.         $game_variables[CC] = chu(e,g)
  67.         $game_switches[C] = true
  68.       end
  69.     end
  70.     if s[1] == "*"
  71.       if $game_switches[B] = true#chu
  72.         $game_variables[DD] = cheng(a,$game_variables[BB])
  73.         $game_switches[D] = true
  74.       else
  75.         $game_variables[DD] = cheng(a,c)
  76.         $game_switches[D] = true
  77.       end
  78.     end
  79.     if s[3] == "*"
  80.       if $game_switches[A] = true && $game_switches[C] = true#chu,chu
  81.         $game_variables[EE] = cheng($game_variables[AA],$game_variables[CC])
  82.         $game_switches[E] = true
  83.       elsif $game_switches[D] = true && $game_switches[C] = true#cheng,chu
  84.         $game_variables[EE] = cheng($game_variables[DD],$game_variables[CC])
  85.         $game_switches[E] = true
  86.       elsif $game_switches[D] = true#cheng
  87.         $game_variables[EE] = cheng($game_variables[DD],e)
  88.         $game_switches[E] = true
  89.       elsif $game_switches[C] = true#chu
  90.         $game_variables[EE] = cheng(c,$game_variables[CC])
  91.         $game_switches[E] = true
  92.       else
  93.         $game_variables[EE] = cheng(c,e)
  94.         $game_switches[E] = true
  95.       end
  96.     end
  97.     if s[5] == "*"
  98.       if $game_switches[B] = true#chu
  99.         $game_variables[FF] = cheng($game_variables[BB],g)
  100.         $game_switches[F] = true
  101.       elsif $game_switches[E] = true#cheng
  102.         $game_variables[FF] = cheng($game_variables[EE],g)
  103.         $game_switches[F] = true
  104.       else
  105.         $game_variables[FF] = cheng(e,g)
  106.         $game_switches[F] = true
  107.       end
  108.     end
  109.     if s[1] == "-"
  110.       if $game_switches[B] = true#chu
  111.         $game_variables[GG] = jian(a,$game_variables[BB])
  112.         $game_switches[G] = true
  113.       elsif $game_switches[E] = true#cheng
  114.         $game_variables[GG] = jian(a,$game_variables[EE])
  115.         $game_switches[G] = true
  116.       else
  117.         $game_variables[GG] = jian(a,c)
  118.         $game_switches[G] = true
  119.       end
  120.     end
  121.     if s[3] == "-"
  122.       if $game_switches[A] = true && $game_switches[C] = true#chu,chu
  123.         $game_variables[HH] = jian($game_variables[AA],$game_variables[CC])
  124.         $game_switches[H] = true
  125.       elsif $game_switches[D] = true && $game_switches[C] = true#cheng,chu
  126.         $game_variables[HH] = jian($game_variables[DD],$game_variables[CC])
  127.         $game_switches[H] = true
  128.       elsif $game_switches[A] = true && $game_switches[F] = true#chu,cheng
  129.         $game_variables[HH] = jian($game_variables[AA],$game_variables[FF])
  130.         $game_switches[H] = true
  131.       elsif $game_switches[D] = true && $game_switches[F] = true#cheng,cheng
  132.         $game_variables[HH] = jian($game_variables[DD],$game_variables[FF])
  133.         $game_switches[H] = true
  134.       elsif $game_switches[G] = true && $game_switches[C] = true#jian,chu
  135.         $game_variables[HH] = jian($game_variables[GG],$game_variables[CC])
  136.         $game_switches[H] = true
  137.       elsif $game_switches[G] = true && $game_switches[F] = true#jian,cheng
  138.         $game_variables[HH] = jian($game_variables[GG],$game_variables[FF])
  139.         $game_switches[H] = true
  140.       elsif $game_switches[A] = true#chu
  141.         $game_variables[HH] = jian($game_variables[AA],e)
  142.         $game_switches[H] = true
  143.       elsif $game_switches[C] = true#chu
  144.         $game_variables[HH] = jian(c,$game_variables[CC])
  145.         $game_switches[H] = true
  146.       elsif $game_switches[D] = true#cheng
  147.         $game_variables[HH] = jian($game_variables[DD],e)
  148.         $game_switches[H] = true
  149.       elsif $game_switches[F] = true#cheng
  150.         $game_variables[HH] = jian(c,$game_variables[FF])
  151.         $game_switches[H] = true
  152.       elsif $game_switches[G] = true#jian
  153.         $game_variables[HH] = jian($game_variables[GG],e)
  154.         $game_switches[H] = true
  155.       else
  156.         $game_variables[HH] = jian(c,e)
  157.         $game_switches[H] = true
  158.       end
  159.     end
  160.     if s[5] == "-"
  161.       if $game_switches[B] = true#chu
  162.         $game_variables[II] = jian($game_variables[BB],g)
  163.         $game_switches[I] = true
  164.       elsif $game_switches[E] = true#cheng
  165.         $game_variables[II] = jian($game_variables[EE],g)
  166.         $game_switches[I] = true
  167.       elsif $game_switches[H] = true#jian
  168.         $game_variables[II] = jian($game_variables[HH],g)
  169.         $game_switches[I] = true
  170.       else
  171.         $game_variables[II] = jian(e,g)
  172.         $game_switches[I] = true
  173.       end
  174.     end
  175.     if s[1] == "+"
  176.       if $game_switches[B] = true#chu
  177.         $game_variables[JJ] = add(a,$game_variables[BB])
  178.         $game_switches[J] = true
  179.       elsif $game_switches[E] = true#cheng
  180.         $game_variables[JJ] = add(a,$game_variables[EE])
  181.         $game_switches[J] = true
  182.       elsif $game_switches[H] = true#jian
  183.         $game_variables[JJ] = add(a,$game_variables[HH])
  184.         $game_switches[J] = true
  185.       else
  186.         $game_variables[JJ] = add(a,c)
  187.         $game_switches[J] = true
  188.       end
  189.     end
  190.     if s[3] == "+"
  191.       if $game_switches[A] = true && $game_switches[C] = true
  192.         $game_variables[KK] = add($game_variables[AA],$game_variables[CC])
  193.         $game_switches[K] = true
  194.       elsif $game_switches[D] = true && $game_switches[C] = true
  195.         $game_variables[KK] = add($game_variables[DD],$game_variables[CC])
  196.         $game_switches[K] = true
  197.       elsif $game_switches[A] = true && $game_switches[F] = true
  198.         $game_variables[KK] = add($game_variables[AA],$game_variables[FF])
  199.         $game_switches[K] = true
  200.       elsif $game_switches[D] = true && $game_switches[F] = true
  201.         $game_variables[KK] = add($game_variables[DD],$game_variables[FF])
  202.         $game_switches[K] = true
  203.       elsif $game_switches[A] = true && $game_switches[I] = true#chu,jian
  204.         $game_variables[KK] = add($game_variables[AA],$game_variables[II])
  205.         $game_switches[K] = true
  206.       elsif $game_switches[D] = true && $game_switches[I] = true#cheng,jian
  207.         $game_variables[KK] = add($game_variables[DD],$game_variables[II])
  208.         $game_switches[K] = true
  209.       elsif $game_switches[G] = true && $game_switches[C] = true#jian,chu
  210.         $game_variables[KK] = add($game_variables[GG],$game_variables[CC])
  211.         $game_switches[K] = true
  212.       elsif $game_switches[G] = true && $game_switches[F] = true#jian,cheng
  213.         $game_variables[KK] = add($game_variables[GG],$game_variables[FF])
  214.         $game_switches[K] = true
  215.       elsif $game_switches[G] = true && $game_switches[I] = true#jian,jian
  216.         $game_variables[KK] = add($game_variables[GG],$game_variables[II])
  217.         $game_switches[K] = true
  218.       elsif $game_switches[J] = true && $game_switches[C] = true#add,chu
  219.         $game_variables[KK] = add($game_variables[JJ],$game_variables[CC])
  220.         $game_switches[K] = true
  221.       elsif $game_switches[J] = true && $game_switches[F] = true#add,cheng
  222.         $game_variables[KK] = add($game_variables[JJ],$game_variables[FF])
  223.         $game_switches[K] = true
  224.       elsif $game_switches[J] = true && $game_switches[I] = true#add,jian
  225.         $game_variables[KK] = add($game_variables[JJ],$game_variables[II])
  226.         $game_switches[K] = true
  227.       elsif $game_switches[A] = true#chu
  228.         $game_variables[KK] = add($game_variables[AA],e)
  229.         $game_switches[K] = true
  230.       elsif $game_switches[D] = true#cheng
  231.         $game_variables[KK] = add($game_variables[DD],e)
  232.         $game_switches[K] = true
  233.       elsif $game_switches[G] = true#jian
  234.         $game_variables[KK] = add($game_variables[GG],e)
  235.         $game_switches[K] = true
  236.       elsif $game_switches[J] = true#add
  237.         $game_variables[KK] = add($game_variables[JJ],e)
  238.         $game_switches[K] = true
  239.       else
  240.         $game_variables[KK] = add(c,e)
  241.         $game_switches[K] = true
  242.       end
  243.     end
  244.     if s[5] == "+"
  245.       if $game_switches[B] = true#chu
  246.         $game_variables[LL] = add($game_variables[BB],g)
  247.         $game_switches[L] = true
  248.       elsif $game_switches[E] = true#cheng
  249.         $game_variables[LL] = add($game_variables[EE],g)
  250.         $game_switches[L] = true
  251.       elsif $game_switches[H] = true#jian
  252.         $game_variables[LL] = add($game_variables[HH],g)
  253.         $game_switches[L] = true
  254.       elsif $game_switches[K] = true#add
  255.         $game_variables[LL] = add($game_variables[KK],g)
  256.         $game_switches[L] = true
  257.       else
  258.         $game_variables[LL] = add(e,g)
  259.         $game_switches[L] = true
  260.       end
  261.     end
  262.     if s[1] == "+" && s[3] == "*" && s[5] == "/"
  263.       zh = $game_variables[JJ]#1+
  264.     elsif s[1] == "+" && s[3] == "+" && s[5] == "+"
  265.       zh = $game_variables[LL]#5+
  266.     elsif s[1] == "-" && s[3] == "-" && s[5] == "-"
  267.       zh = $game_variables[II]#5-
  268.     elsif s[1] == "*" && s[3] == "*" && s[5] == "*"
  269.       zh = $game_variables[FF]#5*
  270.     elsif s[1] == "/" && s[3] == "/" && s[5] == "/"
  271.       zh = $game_variables[CC]#5/
  272.     elsif s[1] == "+" && s[3] == "-" && s[5] == "+"
  273.       zh = $game_variables[LL]
  274.     elsif s[1] == "+" && s[3] == "-" && s[5] == "-"
  275.       zh = $game_variables[JJ]
  276.     elsif s[1] == "+" && s[3] == "-" && s[5] == "*"
  277.       zh = $game_variables[JJ]
  278.     elsif s[1] == "+" && s[3] == "-" && s[5] == "/"
  279.       zh = $game_variables[JJ]
  280.     elsif s[1] == "+" && s[3] == "+" && s[5] == "-"
  281.       zh = $game_variables[KK]#3+
  282.     elsif s[1] == "+" && s[3] == "+" && s[5] == "*"
  283.       zh = $game_variables[KK]
  284.     elsif s[1] == "+" && s[3] == "+" && s[5] == "/"
  285.       zh = $game_variables[KK]
  286.     elsif s[1] == "+" && s[3] == "*" && s[5] == "+"
  287.       zh = $game_variables[LL]
  288.     elsif s[1] == "+" && s[3] == "*" && s[5] == "-"
  289.       zh = $game_variables[JJ]
  290.     elsif s[1] == "+" && s[3] == "*" && s[5] == "*"
  291.       zh = $game_variables[JJ]
  292.     elsif s[1] == "+" && s[3] == "/" && s[5] == "+"
  293.       zh = $game_variables[LL]
  294.     elsif s[1] == "+" && s[3] == "/" && s[5] == "-"
  295.       zh = $game_variables[JJ]
  296.     elsif s[1] == "+" && s[3] == "/" && s[5] == "*"
  297.       zh = $game_variables[JJ]
  298.     elsif s[1] == "+" && s[3] == "/" && s[5] == "/"
  299.       zh = $game_variables[JJ]
  300.     elsif s[1] == "-" && s[3] == "+" && s[5] == "+"
  301.       zh = $game_variables[LL]
  302.     elsif s[1] == "-" && s[3] == "+" && s[5] == "-"
  303.       zh = $game_variables[KK]
  304.     elsif s[1] == "-" && s[3] == "+" && s[5] == "*"
  305.       zh = $game_variables[KK]
  306.     elsif s[1] == "-" && s[3] == "+" && s[5] == "/"
  307.       zh = $game_variables[KK]
  308.     elsif s[1] == "-" && s[3] == "-" && s[5] == "+"
  309.       zh = $game_variables[LL]#5+
  310.     elsif s[1] == "-" && s[3] == "-" && s[5] == "*"
  311.       zh = $game_variables[HH]#3-
  312.     elsif s[1] == "-" && s[3] == "-" && s[5] == "/"
  313.       zh = $game_variables[HH]
  314.     elsif s[1] == "-" && s[3] == "*" && s[5] == "+"
  315.       zh = $game_variables[LL]
  316.     elsif s[1] == "-" && s[3] == "*" && s[5] == "-"
  317.       zh = $game_variables[II]#5-
  318.     elsif s[1] == "-" && s[3] == "*" && s[5] == "*"
  319.       zh = $game_variables[GG]#1-
  320.     elsif s[1] == "-" && s[3] == "*" && s[5] == "/"
  321.       zh = $game_variables[GG]
  322.     elsif s[1] == "-" && s[3] == "/" && s[5] == "+"
  323.       zh = $game_variables[LL]
  324.     elsif s[1] == "-" && s[3] == "/" && s[5] == "-"
  325.       zh = $game_variables[II]
  326.     elsif s[1] == "-" && s[3] == "/" && s[5] == "*"
  327.       zh = $game_variables[GG]
  328.     elsif s[1] == "-" && s[3] == "/" && s[5] == "/"
  329.       zh = $game_variables[GG]
  330.     elsif s[1] == "*" && s[3] == "+" && s[5] == "+"
  331.       zh = $game_variables[LL]
  332.     elsif s[1] == "*" && s[3] == "+" && s[5] == "-"
  333.       zh = $game_variables[KK]#3+
  334.     elsif s[1] == "*" && s[3] == "+" && s[5] == "*"
  335.       zh = $game_variables[KK]
  336.     elsif s[1] == "*" && s[3] == "+" && s[5] == "/"
  337.       zh = $game_variables[KK]
  338.     elsif s[1] == "*" && s[3] == "-" && s[5] == "+"
  339.       zh = $game_variables[LL]
  340.     elsif s[1] == "*" && s[3] == "-" && s[5] == "-"
  341.       zh = $game_variables[II]
  342.     elsif s[1] == "*" && s[3] == "-" && s[5] == "*"
  343.       zh = $game_variables[HH]
  344.     elsif s[1] == "*" && s[3] == "-" && s[5] == "/"
  345.       zh = $game_variables[HH]#3-
  346.     elsif s[1] == "*" && s[3] == "*" && s[5] == "+"
  347.       zh = $game_variables[LL]
  348.     elsif s[1] == "*" && s[3] == "*" && s[5] == "-"
  349.       zh = $game_variables[II]#5-
  350.     elsif s[1] == "*" && s[3] == "*" && s[5] == "/"
  351.       zh = $game_variables[EE]#3*
  352.     elsif s[1] == "*" && s[3] == "/" && s[5] == "+"
  353.       zh = $game_variables[LL]#5+
  354.     elsif s[1] == "*" && s[3] == "/" && s[5] == "-"
  355.       zh = $game_variables[II]
  356.     elsif s[1] == "*" && s[3] == "/" && s[5] == "*"
  357.       zh = $game_variables[FF]
  358.     elsif s[1] == "*" && s[3] == "/" && s[5] == "/"
  359.       zh = $game_variables[DD]
  360.     elsif s[1] == "/" && s[3] == "+" && s[5] == "+"
  361.       zh = $game_variables[LL]
  362.     elsif s[1] == "/" && s[3] == "+" && s[5] == "-"
  363.       zh = $game_variables[KK]
  364.     elsif s[1] == "/" && s[3] == "+" && s[5] == "*"
  365.       zh = $game_variables[KK]
  366.     elsif s[1] == "/" && s[3] == "+" && s[5] == "/"
  367.       zh = $game_variables[KK]
  368.     elsif s[1] == "/" && s[3] == "-" && s[5] == "+"
  369.       zh = $game_variables[LL]
  370.     elsif s[1] == "/" && s[3] == "-" && s[5] == "-"
  371.       zh = $game_variables[II]
  372.     elsif s[1] == "/" && s[3] == "-" && s[5] == "*"
  373.       zh = $game_variables[HH]
  374.     elsif s[1] == "/" && s[3] == "-" && s[5] == "/"
  375.       zh = $game_variables[HH]
  376.     elsif s[1] == "/" && s[3] == "*" && s[5] == "+"
  377.       zh = $game_variables[LL]
  378.     elsif s[1] == "/" && s[3] == "*" && s[5] == "-"
  379.       zh = $game_variables[II]
  380.     elsif s[1] == "/" && s[3] == "*" && s[5] == "*"
  381.       zh = $game_variables[FF]
  382.     elsif s[1] == "/" && s[3] == "*" && s[5] == "/"
  383.       zh = $game_variables[EE]
  384.     elsif s[1] == "/" && s[3] == "/" && s[5] == "+"
  385.       zh = $game_variables[LL]
  386.     elsif s[1] == "/" && s[3] == "/" && s[5] == "-"
  387.       zh = $game_variables[II]
  388.     elsif s[1] == "/" && s[3] == "/" && s[5] == "*"
  389.       zh = $game_variables[FF]
  390.     end
  391.     $game_variables[ZH] = zh
  392.   end
  393. end
  394. class Game_Interpreter
  395.   include MFXRB
  396. end
复制代码


作者: imsy    时间: 2017-1-31 17:03
if $game_switches[A] = true
↓
if $game_switches[A] == true
作者: RaidenInfinity    时间: 2017-1-31 17:28
本帖最后由 RaidenInfinity 于 2017-1-31 17:54 编辑

你这脚本很多==都写成=了啊…

话说这儿有个非常邪恶的写法。
RUBY 代码复制
  1. def calculate
  2.         str = ""
  3.         (51..57).each do |i|
  4.                  str << $game_variables[i].to_s << " "
  5.         end
  6.         $game_variables[100] = eval str
  7. end

eval is evil!（eval是邪恶的！）

然后eval实在是太邪恶了，所以我就用了比较长但是比较不邪恶的方法来搞：
RUBY 代码复制
  1. def calculate
  2.     a = $game_variables
  3.     arr = [a[51],a[52],a[53],a[54],a[55],a[56],a[57]]
  4.     arr.each_index do |i|
  5.         arr[i] = arr[i].to_sym if arr[i].is_a?(String)
  6.     end    
  7.     loop do
  8.         break if !arr.any?{|i| i.is_a?(Symbol)}
  9.         dm = arr.include?(:*) || arr.include?(:/)
  10.         arr.each_index do |i|
  11.             next unless arr[i].is_a?(Symbol)
  12.             next if dm && ![:*,:/].include?(arr[i])
  13.                 arr[i-1] = arr[i-1].send(arr[i],arr[i+1])
  14.                 arr.delete_at(i + 1)
  15.                 arr.delete_at(i)
  16.                 break
  17.             end
  18.     end   
  19.     $game_variables[100] = arr[0]
  20. end




欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1