約 30,175 件
https://w.atwiki.jp/ce00582/pages/989.html
Imports System.IO Public Class Form1 Imports System.Math Function mlx(ByVal s1 As Single, ByVal s2 As Single, ByVal tk As Single, ByVal tl As Single, ByVal tr As Single) As Single Dim w1 As Single Dim w2 As Single Dim l1 As Single Dim l2 As Single Dim th1(10) As Single Dim th2(10) As Single For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next w1 = (1 - tk) * th1(s1) w2 = (1 - tl) * th2(s2) l1 = 1 - (w1 + w2 + tr) / (3 * w1) l2 = 1 - (w1 + w2 + tr) / (3 * w2) If l2 0 Then l1 = 1 - (w1 + tr) / (2 * w1) If l1 0 Then l1 = 0 mlx = l1 End Function Function flx(ByVal s1 As Single, ByVal s2 As Single, ByVal tk As Single, ByVal tl As Single, ByVal tr As Single) As Single Dim w1 As Single Dim w2 As Single Dim l1 As Single Dim l2 As Single Dim th1(10) As Single Dim th2(10) As Single For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next w1 = (1 - tk) * th1(s1) w2 = (1 - tl) * th2(s2) l1 = 1 - (w1 + w2 + tr) / (3 * w1) l2 = 1 - (w1 + w2 + tr) / (3 * w2) If l1 0 Then l2 = 1 - (w2 + tr) / (2 * w2) If l2 0 Then l2 = 0 flx = l2 End Function Function cx(ByVal s1 As Single, ByVal s2 As Single, ByVal tk As Single, ByVal tl As Single, ByVal tr As Single) As Single Dim w1 As Single Dim w2 As Single Dim l1 As Single Dim l2 As Single Dim th1(10) As Single Dim th2(10) As Single For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next w1 = (1 - tk) * th1(s1) w2 = (1 - tl) * th2(s2) l1 = mlx(s1, s2, tk, tl, tr) l2 = flx(s1, s2, tk, tl, tr) cx = w1 * l1 + w2 * l2 + tr End Function Function u(ByVal c1 As Single, ByVal l1 As Single, ByVal l2 As Single) As Single Dim pp As Single pp = 0 If l1 0 Then pp = 1 If l2 0 Then pp = 1 If c1 0 Then pp = 1 If l1 0.99 Then pp = 1 If l2 0.99 Then pp = 1 If pp 0.5 Then c1 = 0.5 If pp 0.5 Then l1 = 0.5 If pp 0.5 Then l2 = 0.5 u = Math.Log(c1) + Math.Log(1 - l1) + Math.Log(1 - l2) End Function Function tls(ByVal th1, ByVal th2) As Single Dim n As Single Dim tl As Single Dim tk As Single Dim tr As Single Dim c(10, 10) As Single Dim maxw As Single Dim maxtl As Single Dim w1 As Single maxw = -999 For m = 1 To 50 For n = 1 To 50 tk = 0.01 * m tl = 0.01 * n tr = trs(tk, tl) w1 = wel(tk, tl, tr) If w1 maxw Then maxtl = tl If w1 maxw Then maxw = w1 Next Next tls = maxtl End Function Function tks(ByVal tl As Single) As Single Dim m As Single Dim tk As Single Dim tr As Single Dim maxw As Single Dim maxtk As Single Dim w1 As Single maxw = -999 For m = 1 To 50 tk = 0.01 * m tr = trs(tk, tl) w1 = wel(tk, tl, tr) If w1 maxw Then maxtk = tk If w1 maxw Then maxw = w1 Next tks = maxtk End Function Function trs(ByVal tk As Single, ByVal tl As Single) As Single Dim m As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim b3 As Single Dim t As Single tr1 = 0.01 b1 = bud(tk, tl, tr1) tr2 = 0.5 b2 = bud(tk, tl, tr2) t = 0 Do Until t 100 tr3 = (tr1 + tr2) / 2 b3 = bud(tk, tl, tr3) If b3 0 Then b1 = b3 If b3 0 Then tr1 = tr3 If b3 0 Then b2 = b3 If b3 0 Then tr2 = tr3 If b3 ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr1 End Function Function bud(ByVal tk As Single, ByVal tl As Single, ByVal tr As Single) As Single Dim b1 As Single Dim s As Single Dim s1 As Single Dim s2 As Single Dim l1 As Single Dim l2 As Single Dim c1 As Single Dim th1(10) As Single Dim th2(10) As Single For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next b1 = 0 For s1 = 1 To 10 For s2 = 1 To 10 l1 = mlx(s1, s2, tk, tl, tr) l2 = flx(s1, s2, tk, tl, tr) c1 = cx(s1, s2, tk, tl, tr) b1 = b1 + th1(s1) * l1 + th2(s2) * l2 - c1 Next Next bud = b1 End Function Function wel(ByVal tk As Single, ByVal tl As Single, ByVal tr As Single) As Single Dim w1 As Single Dim l2 As Single Dim l1 As Single Dim c1 As Single Dim s1 As Single Dim s2 As Single w1 = 0 For s1 = 1 To 10 For s2 = 1 To 10 l1 = mlx(s1, s2, tk, tl, tr) l2 = flx(s1, s2, tk, tl, tr) c1 = cx(s1, s2, tk, tl, tr) w1 = w1 + u(c1, l1, l2) Next Next wel = w1 End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As Single Dim q As Single Dim u1 As Single Dim th1(10) As Single Dim th2(10) As Single Dim y1(10, 10) As Single Dim y2(10, 10) As Single Dim c(10, 10) As Single Dim g(10, 2, 2, 2) As Single Dim w(9, 2, 2, 2) As Single Dim v(9, 2, 2, 2, 10) As Single Dim gotoc(9, 2, 2, 2, 10) As Single Dim goto1(9, 2, 2, 2, 10) As Single Dim goto2(9, 2, 2, 2, 10) As Single Dim gotoq(9, 2, 2, 2, 10) As Single Dim endv(2, 2, 2) As Single Dim endc(2, 2, 2) As Single Dim end1(2, 2, 2) As Single Dim end2(2, 2, 2) As Single Dim endq(2, 2, 2) As Single Dim tl As Single Dim tk As Single Dim tr As Single Dim s1 As Single Dim s2 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim cp As Single Dim yp1 As Single Dim yp2 As Single Dim l1 As Single Dim l2 As Single Dim h As Single Dim qx As Single Dim mx1 As Single Dim mx2 As Single Dim mx3 As Single Dim vs As Single Dim pp As Single Dim v1 As Single Dim nx1 As Single Dim nx2 As Single Dim nx3 As Single Dim ep As Single Dim t As Single Dim z(10) As Single Dim maxu As Single Dim u2 As Single For s = 1 To 10 th1(s) = 0.2 * s th2(s) = 0.1 * s Next tl = tls(th1, th2) tk = tks(tl) tr = trs(tk, tl) For s1 = 1 To 10 For s2 = 1 To 10 y1(s1, s2) = th1(s1) * mlx(s1, s2, tk, tl, tr) y2(s1, s2) = th2(s2) * flx(s1, s2, tk, tl, tr) c(s1, s2) = cx(s1, s2, tk, tl, tr) Next Next For s2 = 1 To 10 h = 0.001 t = 0 Do Until t 100 For s1 = 1 To 10 maxu = -999 For m1 = 1 To 10 For m2 = 1 To 10 cp = c(m1, m2) yp1 = y1(m1, m2) yp2 = y2(m1, m2) l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) u1 = u(cp, l1, l2) If m2 = s2 Then u1 = -999 If u1 maxu Then maxu = u1 Next Next z(s1) = maxu Next For s1 = 1 To 10 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 cp = c(s1, s2) + n3 * h yp1 = y1(s1, s2) + n1 * h yp2 = y2(s1, s2) + n2 * h l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) u1 = u(cp, l1, l2) If z(s1) u1 Then u1 = -999 g(s1, n1 + 1, n2 + 1, n3 + 1) = u1 Next Next Next Next For s1 = 1 To 10 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 pp = 0 For m1 = 1 To 10 For m2 = 1 To 10 cp = c(m1, m2) yp1 = y1(m1, m2) yp2 = y2(m1, m2) l1 = yp1 / th1(m1) l2 = yp2 / th2(m2) u1 = u(cp, l1, l2) cp = c(s1, s2) + n3 * h yp1 = y1(s1, s2) + n1 * h yp2 = y2(s1, s2) + n2 * h l1 = yp1 / th1(m1) l2 = yp2 / th2(m2) u2 = u(cp, l1, l2) If s2 = m2 Then u2 = -999 If u2 u1 Then pp = 10 Next Next If pp 5 Then g(s1, n1 + 1, n2 + 1, n3 + 1) = -999 Next Next Next Next For s1 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 cp = c(s1, s2) + n3 * h yp1 = y1(s1, s2) + n1 * h yp2 = y2(s1, s2) + n2 * h l1 = yp1 / th1(s1 + 1) l2 = yp2 / th2(s2) w(s1, n1 + 1, n2 + 1, n3 + 1) = u(cp, l1, l2) Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -5 To 5 v(1, n1 + 1, n2 + 1, n3 + 1, q + 5) = -999 Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 q = n2 + n1 - n3 v(1, n1 + 1, n2 + 1, n3 + 1, q + 5) = g(1, n1 + 1, n2 + 1, n3 + 1) Next Next Next For s1 = 2 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -5 To 5 qx = q - n1 - n2 + n3 pp = 0 If qx 5 Then pp = 1 If qx -5 Then pp = 1 If qx 5 Then qx = 0 If qx -5 Then qx = 0 vs = -999 For m1 = -1 To 1 For m2 = -1 To 1 For m3 = -1 To 1 v1 = g(s1, n1 + 1, n2 + 1, n3 + 1) + v(s1 - 1, m1 + 1, m2 + 1, m3 + 1, qx + 5) If w(s1 - 1, m1 + 1, m2 + 1, m3 + 1) g(s1, n1 + 1, n2 + 1, n3 + 1) Then v1 = -999 If v1 vs Then mx1 = m1 If v1 vs Then mx2 = m2 If v1 vs Then mx3 = m3 If v1 vs Then vs = v1 Next Next Next If pp = 1 Then vs = -999 v(s1, n1 + 1, n2 + 1, n3 + 1, q + 5) = vs gotoc(s1, n1 + 1, n2 + 1, n3 + 1, q + 5) = mx3 goto1(s1, n1 + 1, n2 + 1, n3 + 1, q + 5) = mx1 goto2(s1, n1 + 1, n2 + 1, n3 + 1, q + 5) = mx2 gotoq(s1, n1 + 1, n2 + 1, n3 + 1, q + 5) = qx Next Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 qx = n3 - n1 - n2 vs = -999 For m1 = -1 To 1 For m2 = -1 To 1 For m3 = -1 To 1 v1 = g(10, n1 + 1, n2 + 1, n3 + 1) + v(9, m1 + 1, m2 + 1, m3 + 1, qx + 5) If w(9, m1 + 1, m2 + 1, m3 + 1) g(10, n1 + 1, n2 + 1, n3 + 1) Then v1 = -999 If v1 vs Then mx1 = m1 If v1 vs Then mx2 = m2 If v1 vs Then mx3 = m3 If v1 vs Then vs = v1 Next Next Next endc(n1 + 1, n2 + 1, n3 + 1) = mx3 end1(n1 + 1, n2 + 1, n3 + 1) = mx1 end2(n1 + 1, n2 + 1, n3 + 1) = mx2 endq(n1 + 1, n2 + 1, n3 + 1) = qx endv(n1 + 1, n2 + 1, n3 + 1) = vs Next Next Next vs = -999 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then nx1 = n1 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then nx2 = n2 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then nx3 = n3 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then vs = endv(n1 + 1, n2 + 1, n3 + 1) Next Next Next Dim opc(10) As Single Dim op1(10) As Single Dim opq(10) As Single Dim op2(10) As Single opc(10) = nx3 op1(10) = nx1 op2(10) = nx2 opc(9) = endc(op1(10) + 1, op2(10) + 1, opc(10) + 1) op1(9) = end1(op1(10) + 1, op2(10) + 1, opc(10) + 1) op2(9) = end2(op1(10) + 1, op2(10) + 1, opc(10) + 1) opq(9) = endq(op1(10) + 1, op2(10) + 1, opc(10) + 1) For j = 1 To 8 s1 = 9 - j opc(s1) = gotoc(s1 + 1, op1(s1 + 1) + 1, op2(s1 + 1) + 1, opc(s1 + 1) + 1, opq(s1 + 1) + 5) op1(s1) = goto1(s1 + 1, op1(s1 + 1) + 1, op2(s1 + 1) + 1, opc(s1 + 1) + 1, opq(s1 + 1) + 5) op2(s1) = goto2(s1 + 1, op1(s1 + 1) + 1, op2(s1 + 1) + 1, opc(s1 + 1) + 1, opq(s1 + 1) + 5) opq(s1) = gotoq(s1 + 1, op1(s1 + 1) + 1, op2(s1 + 1) + 1, opc(s1 + 1) + 1, opq(s1 + 1) + 5) Next ep = 0 For s1 = 1 To 10 ep = ep + opc(s1) * opc(s1) + op1(s1) * op1(s1) + op2(s1) * op2(s1) Next If ep 2 Then h = h / 2 If h 0.0001 Then t = 1000 For s1 = 1 To 10 c(s1, s2) = c(s1, s2) + opc(s1) * h y1(s1, s2) = y1(s1, s2) + op1(s1) * h y2(s1, s2) = y2(s1, s2) + op2(s1) * h Next t = t + 1 Loop Button1.Text = vs Next For s1 = 1 To 10 h = 0.001 t = 0 Do Until t 100 For s2 = 1 To 10 maxu = -999 For m1 = 1 To 10 For m2 = 1 To 10 cp = c(m1, m2) yp1 = y1(m1, m2) yp2 = y2(m1, m2) l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) u1 = u(cp, l1, l2) If m1 = s1 Then u1 = -999 If u1 maxu Then maxu = u1 Next Next z(s2) = maxu Next For s2 = 1 To 10 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 cp = c(s1, s2) + n3 * h yp1 = y1(s1, s2) + n1 * h yp2 = y2(s1, s2) + n2 * h l1 = yp1 / th1(s1) l2 = yp2 / th2(s2) u1 = u(cp, l1, l2) If z(s2) u1 Then u1 = -999 g(s2, n1 + 1, n2 + 1, n3 + 1) = u1 Next Next Next Next For s2 = 1 To 10 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 pp = 0 For m1 = 1 To 10 For m2 = 1 To 10 cp = c(m1, m2) yp1 = y1(m1, m2) yp2 = y2(m1, m2) l1 = yp1 / th1(m1) l2 = yp2 / th2(m2) u1 = u(cp, l1, l2) cp = c(s1, s2) + n3 * h yp1 = y1(s1, s2) + n1 * h yp2 = y2(s1, s2) + n2 * h l1 = yp1 / th1(m1) l2 = yp2 / th2(m2) u2 = u(cp, l1, l2) If s1 = m1 Then u2 = -999 If u2 u1 Then pp = 10 Next Next If pp 5 Then g(s2, n1 + 1, n2 + 1, n3 + 1) = -999 Next Next Next Next For s2 = 1 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 cp = c(s1, s2) + n3 * h yp1 = y1(s1, s2) + n1 * h yp2 = y2(s1, s2) + n2 * h l1 = yp1 / th1(s1) l2 = yp2 / th2(s2 + 1) w(s2, n1 + 1, n2 + 1, n3 + 1) = u(cp, l1, l2) Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -5 To 5 v(1, n1 + 1, n2 + 1, n3 + 1, q + 5) = -999 Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 q = n2 + n1 - n3 v(1, n1 + 1, n2 + 1, n3 + 1, q + 5) = g(1, n1 + 1, n2 + 1, n3 + 1) Next Next Next For s2 = 2 To 9 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 For q = -5 To 5 qx = q - n1 - n2 + n3 pp = 0 If qx 5 Then pp = 1 If qx -5 Then pp = 1 If qx 5 Then qx = 0 If qx -5 Then qx = 0 vs = -999 For m1 = -1 To 1 For m2 = -1 To 1 For m3 = -1 To 1 v1 = g(s2, n1 + 1, n2 + 1, n3 + 1) + v(s2 - 1, m1 + 1, m2 + 1, m3 + 1, qx + 5) If w(s2 - 1, m1 + 1, m2 + 1, m3 + 1) g(s2, n1 + 1, n2 + 1, n3 + 1) Then v1 = -999 If v1 vs Then mx1 = m1 If v1 vs Then mx2 = m2 If v1 vs Then mx3 = m3 If v1 vs Then vs = v1 Next Next Next If pp = 1 Then vs = -999 v(s2, n1 + 1, n2 + 1, n3 + 1, q + 5) = vs gotoc(s2, n1 + 1, n2 + 1, n3 + 1, q + 5) = mx3 goto1(s2, n1 + 1, n2 + 1, n3 + 1, q + 5) = mx1 goto2(s2, n1 + 1, n2 + 1, n3 + 1, q + 5) = mx2 gotoq(s2, n1 + 1, n2 + 1, n3 + 1, q + 5) = qx Next Next Next Next Next For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 qx = n3 - n1 - n2 vs = -999 For m1 = -1 To 1 For m2 = -1 To 1 For m3 = -1 To 1 v1 = g(10, n1 + 1, n2 + 1, n3 + 1) + v(9, m1 + 1, m2 + 1, m3 + 1, qx + 5) If w(9, m1 + 1, m2 + 1, m3 + 1) g(10, n1 + 1, n2 + 1, n3 + 1) Then v1 = -999 If v1 vs Then mx1 = m1 If v1 vs Then mx2 = m2 If v1 vs Then mx3 = m3 If v1 vs Then vs = v1 Next Next Next endc(n1 + 1, n2 + 1, n3 + 1) = mx3 end1(n1 + 1, n2 + 1, n3 + 1) = mx1 end2(n1 + 1, n2 + 1, n3 + 1) = mx2 endq(n1 + 1, n2 + 1, n3 + 1) = qx endv(n1 + 1, n2 + 1, n3 + 1) = vs Next Next Next vs = -999 For n1 = -1 To 1 For n2 = -1 To 1 For n3 = -1 To 1 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then nx1 = n1 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then nx2 = n2 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then nx3 = n3 If endv(n1 + 1, n2 + 1, n3 + 1) vs Then vs = endv(n1 + 1, n2 + 1, n3 + 1) Next Next Next Dim opc(10) As Single Dim op1(10) As Single Dim opq(10) As Single Dim op2(10) As Single opc(10) = nx3 op1(10) = nx1 op2(10) = nx2 opc(9) = endc(op1(10) + 1, op2(10) + 1, opc(10) + 1) op1(9) = end1(op1(10) + 1, op2(10) + 1, opc(10) + 1) op2(9) = end2(op1(10) + 1, op2(10) + 1, opc(10) + 1) opq(9) = endq(op1(10) + 1, op2(10) + 1, opc(10) + 1) For j = 1 To 8 s2 = 9 - j opc(s2) = gotoc(s2 + 1, op1(s2 + 1) + 1, op2(s2 + 1) + 1, opc(s2 + 1) + 1, opq(s2 + 1) + 5) op1(s2) = goto1(s2 + 1, op1(s2 + 1) + 1, op2(s2 + 1) + 1, opc(s2 + 1) + 1, opq(s2 + 1) + 5) op2(s2) = goto2(s2 + 1, op1(s2 + 1) + 1, op2(s2 + 1) + 1, opc(s2 + 1) + 1, opq(s2 + 1) + 5) opq(s2) = gotoq(s2 + 1, op1(s2 + 1) + 1, op2(s2 + 1) + 1, opc(s2 + 1) + 1, opq(s2 + 1) + 5) Next ep = 0 For s2 = 1 To 10 ep = ep + opc(s2) * opc(s2) + op1(s2) * op1(s2) + op2(s2) * op2(s2) Next If ep 2 Then h = h / 2 If h 0.0001 Then t = 1000 For s2 = 1 To 10 c(s1, s2) = c(s1, s2) + opc(s2) * h y1(s1, s2) = y1(s1, s2) + op1(s2) * h y2(s1, s2) = y2(s1, s2) + op2(s2) * h Next t = t + 1 Loop Next Dim don As Single don = 0 For s1 = 1 To 10 For s2 = 1 To 10 cp = c(s1, s2) l1 = y1(s1, s2) / th1(s1) l2 = y2(s1, s2) / th2(s2) don = don + u(cp, l1, l2) Next Next Button1.Text = don Dim Writer1 As New IO.StreamWriter("C \datac.txt") For s1 = 1 To 10 For s2 = 1 To 10 Writer1.WriteLine(c(s1, s2)) Next Next Writer1.Close() Dim Writer2 As New IO.StreamWriter("C \data1.txt") For s1 = 1 To 10 For s2 = 1 To 10 Writer2.WriteLine(y1(s1, s2)) Next Next Writer2.Close() Dim Writer3 As New IO.StreamWriter("C \data2.txt") For s1 = 1 To 10 For s2 = 1 To 10 Writer3.WriteLine(y2(s1, s2)) Next Next Writer3.Close() MsgBox("hello") End Sub End Class
https://w.atwiki.jp/enquete/pages/58.html
ドラクエ９の発売延期回数は３回です。 -- (氷霧) 2009-02-17 00 45 00 これで最初で最後だからな！ -- (名無しさん) 2009-02-21 14 44 41 発売中止かも？ -- (ドラゴンズ) 2009-04-18 08 26 29 犯すぞ -- (ぎう) 2009-06-09 19 57 13 未完成のまま出すよりかマシ -- (名無しさん) 2009-06-21 05 08 58 しｋｌｂなどうしｇｖｂｓぅｊｖｈｂだｋｈさいｃｇ -- (神) 2010-03-17 17 07 09 一度発売日を決めたらその日に発売するのが普通。 延期とか論外だし、今までファンの期待を当然のように裏切ってきたエニックス（現スクエニ）が異常。 売り上げを伸ばしたいのが目的らしいが、いくら何でも狼少年すぎるわ。 -- (虎ネコ) 2011-03-17 18 14 21
https://w.atwiki.jp/pokemon_tcg/pages/2.html
メニュー トップページ ＴＣＧについて リーグジム バトルテント一覧 リンク ＴＣＧコミュニティ（ニコ生） ジムリ専用ブログ（鍵付） ここを編集
https://w.atwiki.jp/enquete/pages/57.html
ドラゴンクエストの発売延期は何回まで許せる？ ドラゴンクエストのアンケートページ あなたは“ドラゴンクエスト９”を購入しますか？ あなたは“ドラゴンクエスト１０”を「Ｗｉｉ」で発売することに賛成ですか？ ドラクエの最新作（ナンバリング）は、どの機種でやりたい？ 過去の「ドラゴンクエスト」で“最高”と思うタイトルはどれ？ ドラゴンクエストの発売延期は何回まで許せる？ ドラゴンクエスト９の販売本数はどのくらいだと思う？ 最近投票（更新）されたアンケートページ 下の白騎士物語の動画を見て最初に思ったことは？ 最近コメントされたアンケートページのコメントログ 取得中です。 開始日：2009.2.17 選択肢 投票数 投票 １回も許せない 50 １回までなら許せる 23 ２回までなら許せる 15 ３回までなら許せる 3 ４回までなら許せる 2 ５回までなら許せる 0 ６回までなら許せる 1 ７回までなら許せる 1 ８回までなら許せる 1 何回でも許せる 44 名前 コメント すべてのコメントを見る 一度発売日を決めたらその日に発売するのが普通。 延期とか論外だし、今までファンの期待を当然のように裏切ってきたエニックス（現スクエニ）が異常。 売り上げを伸ばしたいのが目的らしいが、いくら何でも狼少年すぎるわ。 -- (虎ネコ) 2011-03-17 18 14 21 しｋｌｂなどうしｇｖｂｓぅｊｖｈｂだｋｈさいｃｇ -- (神) 2010-03-17 17 07 09 未完成のまま出すよりかマシ -- (名無しさん) 2009-06-21 05 08 58 犯すぞ -- (ぎう) 2009-06-09 19 57 13 発売中止かも？ -- (ドラゴンズ) 2009-04-18 08 26 29 これで最初で最後だからな！ -- (名無しさん) 2009-02-21 14 44 41 ドラクエ９の発売延期回数は３回です。 -- (氷霧) 2009-02-17 00 45 00
https://w.atwiki.jp/398san/pages/911.html
咲夜さんＣＧＩ 答えるまでもなく、我らが誇る最高のデュエルＣＧＩである。 様々な元ネタを持つオリカを満載し、数々のファンがそれぞれの求めるデッキを作り、そしてデュエルを行い、お互いの親交を深めあった。 しかしそんな咲夜さんＣＧＩも10月18日にとうとう閉鎖することが決定してしまった……。 人々を満足させるために奔走した管理人、そして数々の決闘者たちのデュエル……。 それらはそれぞれの心の1ページに刻まれ、決して消えることはない。 一利用者の私がここに書きこむのはおこがましいかもしれない・・・・・・。だが、最高だったという気持ちは分かってほしい！ このＣＧＩにかかわった素晴らしい人々たち！ あ り が と う ！ ！ …と思ったが、どうやらまだまだ続くようだ！ 咲夜さんＣＧＩよ、永遠なれ！ ｶﾁｯ ＼エターナル！／
https://w.atwiki.jp/pokemon_tcg/pages/9.html
TCG48ってなに？ だっぺさんの提案により作成されたコミュのことです。 コンセプトはポケモンを純粋に楽しむ団体！ どうやって参加するの？ 企画に参加しているジムリーダーさんに申し込むか、生放送時に直接言うなどで連絡をください ※現在ジムリーダーはリーグジムとバトルテントの二種類があります。 リーグジムはタイプ統一ジムリーダーとなり、バトルテントはコンセプトパなどのテーマパーティジムリーダーとなります。 ジムリーダーに挑むにはどうするの？ ニコ生でＴＣＧ本部のコミュで放送でジムリーダー戦の枠を取って頂く形になります 対戦で勝つと、勝利の証としてバッチの代わりにポケモンが貰えます。 どんどん挑戦してバッチを集めましょう！ 公認と非公認違いは？ リーグジムはタイプ統一、バトルテントはテーマパとなります。 勝利するとジムはバッチ、バトルテントはリボンが貰えます。 特に違いという違いはないので、どんどん挑戦を！ ルールは？ ルールについては、ジムリーダーによって様々にわかれますので、生放送でご確認ください。 対戦に関してですが、挑戦に関しては何度挑戦しても構いません。 未挑戦の人が居た場合挑戦者の方は譲ってもらえると助かります。 基本的なのは以上です。 ジムリーダが誰か知りたい →ジムリーダー 一覧 →バトルテント一覧
https://w.atwiki.jp/398san/pages/347.html
第三回・バランスの推移 長くなってしまったので結局分け。 ＣＧＩ黎明期から、(2008年９月)現在へ流れるにつれて、作られるオリジナルカードのバランスは少しずつ変わっていきました。 有り体に言って、「昔の方が強いカードが多い」のです。 それは、08/09制限のカードに初期の頃のカードが多く含まれている事にも現れています。 何故そうしたバランスの変化が起きたか？という事については、大きく３つの理由があります。 ＯＣＧバランスとＣＧＩバランス 昨今のＯＣＧ新カードのカードパワーが軒並み上昇気味にある事は大方の異存の無い所と思われますが、 始めの頃は、こういったＯＣＧカードの方を見て、カードのバランスを調整していた節があります。ＣＧＩの方を見れていなかったのですね。 (当時はまだ利用者の方もカード数も少なく、環境と言う程のものが構築されていなかったというのもありますが……) その時のＯＣＧの頂点に位置するカード群の力を超えさえしなければ良い、というくらいの前提で作っていたということです。 このカードをいくら使用したところで【シンクロダムド】【剣闘獣】【ライトロード】らにはかなわないから大丈夫…… でも、このＣＧＩにはそれらを本気で使ってくる人がおりませんから、その前提には意味がありません。 ＯＣＧ的なバランスで作ったカードは、ＣＧＩの環境ではトップに位置してしまう事が有り得たわけです。 そういう事が分かってからは、ＯＣＧはむしろ気にせず、ＣＧＩ上にこのカードを放り込んで大丈夫か？を第一に考えるようになりました。 必須カードとバリエーション用カード 初期の頃のカードには、既存デッキを明らかに強化するものが多く含まれています。 それには、カード数の全体が少なかったから、というのが理由としてあげられるかと思います。 当時はオリカＣＧＩを謳ってはいても、その実装数の少なさから実質的には組めるデッキタイプがいくつか増えただけ、というものでした。 かといってミラーマッチばかり発生しては、もう一つ面白く思ってもらえないだろう…… こういった感情もあり、既存デッキに１枚組み込む事で働く事が出来る(そのデッキを強化できる)カード、というものが結構作られました。 (08/09制限にあるカードの一部にはそういった当時の兆候が見られます) そうしたカードを作る事により、既存のデッキ＋１のこういうデッキも使える、と楽しんでもらえるという思いがあったわけです。 でもこの方策の問題点は、オリカを使わない人にとって不公平だという事です。 「このデッキタイプは、ここにしか存在しないこのカードを入れた方が絶対に強い」こうした状況があまりにも多く存在すると、 そのカードを主義から使わないで構築する方がただ損をしてしまいますし、カードプールを把握していない新規の方には優しくないでしょう。、 勿論こういうＣＧＩですから、１００％公平というものは有り得ないのは仕方のない所と思っていただく他ありませんが、 それでもそうした強力カードを増やしすぎると、元々のそのデッキの型すら崩しかねません。 そんなわけで現在は、既存デッキにバリエーションとして入れられるカード、選択肢の一つとして上がってくるカード、くらいのバランスを 目指して作成しています。決してそのデッキの必須カードには成り得ないものの、入れてみると面白い動きをしたり専用デッキを組めたりする、 そのくらいのバランスがいいのかなあと思っています。 (あくまで「基本の考え」であり、今後全てのカードがこうした理念のみで作成されるものではないという事を一応脚注致します) 活用と悪用の境界 前述しました、自分が以前にも行った製作というものは主に身内(知り合い)を相手に行っていたものでした。 この経験が知らずのうちに、自分の中で甘えになっていた面があると言わざるを得ません。 どういう事かというと、「このカードはこういう風に使うもの」という自分の中の青写真が作成時にまずあり、 使用する方は皆そのように使われるという甘えがあったという事なんですね。(今まで、ずっとそうだったために。) しかしいざ実装してみると、こちらが考えもしなかったような使い方をする方もおり、非常に驚嘆させられる事しばしばでした。 これは新しい効果を作成する際に全ての制作者が抱える普遍の問題で、本家の方でもこの問題に苦労しカードに規制がかかる場合も多いですね。 カード効果を最大限に引き出している事には間違いないので、私としては悪用などという感じの悪い言葉は使いたくありませんが…… ともかくそうした事例が発生してしまったり、またそれにより対処療法的なエラッタ等を行ってしまうと いちいち御迷惑をおかけしてしまうため、実装の際にはそうした点も注意するよう心がけ、パワーある効果のカードの場合は それが想定外の所で動かないだろうか……という風にチェックするようになりました。 ダイヤモンドガイ！ファンカス！ おめーらの事だよおめーらの！ 名前 コメント
https://w.atwiki.jp/398san/pages/326.html
第二回・はじまりのこと ＣＧＩを始めるにあたって ヴァロン氏からソースを譲り受けて始まった咲夜さんＣＧＩ、その柱をいわゆるオリジナルカードにしようというのは初めから決まっていました。 その理由なのですが、この後のカード・バランスの話にも関係してくる部分があるので、少し自分の話をしなければいけないと思います。 元々作る事が好きだった私は、こうした二次創作畑で(非電源含む)ゲーム製作・デザインを行っておりました。 10代の時からなので、もう十年以上続けている事になります。 その中の一つには、遊戯王ＯＣＧに類似した、より原作的展開・バランスを重視して作ったカードゲームもありました。 当方を評して、「作成に手慣れている」と仰って下さった方がいますが、だとすればそれはそういった経験が活きている故のものだと思います。 でもそれが、実は最初の落とし穴でした(後述)。 ともかくそういった経緯があったので、ＣＧＩを作るならば単にＯＣＧをなぞるだけでなく、オリカを含むＣＧＩにしようと決めていたのです。 時期を同じくしてＶＩＰＣＧＩが多く設立されていた事もあり、一つくらい変わり種があってもよかろう、とも考えたためでもあります。 作成にたいせつなこと オリジナルカードを作成するにあたって、最も重視しなければならないのは「信頼」であると考えます。 信頼とはどういう事かと言えば、ここにあるものは安心して気兼ねなく使用できるか、という事です。 恐らくツーと言えばカーのように、(言葉が悪いですが)オリカと言えば厨カード、という認識が大半の方の頭にはあるのではないでしょうか。 この厨カード、というのも随分曖昧な定義で、類似品にはぼくのかんがえたさいきょうカードなどといった揶揄もあるでしょう。 過剰なカードパワー故か、名前か、元ネタか、そうしたもの全てひっくるめての蔑称として厨カードという呼び方が存在するので、 ここではその定義とかいった事は避けさせていただきたいと思います。 ともかく大体の方が、「これはないわ」とまず思ってしまいがちなカード、それがオリカというジャンルの持つ宿業であります故に オリジナルカード作成にあたって最も大切な事は、「これはないわ」ではなく「ここのはアリかも」と思って頂く事、と考えます。 あそこのカードは壊ればっかりだ、バランス無視だ。こう言われてばかりでは、きっと誰もそれらを使いたくなくなってしまうでしょうから。 よーするにオリカ＝壊れという固定概念を覆さなければならない、という事です。 でもそうした概念は簡単に崩せるものではありませんから少しずつ地道に、バランスはきちんとしてるな、と思って頂けるような カードを作っていく他ありません。 ……が、最初期の頃に自分の認識の迂闊さによって、うまくないスタートを切る事になってしまいました。 (後、追記) 名前 コメント
https://w.atwiki.jp/398san/pages/300.html
管理人の咲夜さんＣＧＩ奮闘記 第一回・カード実装作業の流れ せっかく有るスペースだから……という事でここに。 ここでは、自分がどういう事を考えながらどういう風に管理及び実装作業を行っているか、とかそんな事を不定期で書いていこうかと思います。 まずは基本という事で、実装作業の中身について。 (0)ジャンルを考える 直近のカード実装状況を確認し、これから実装するカードのジャンルを決めます。最近ＯＣＧカードに力を入れていたならばオリカを、 直前にオリカを何枚か実装したなら次はＯＣＧに戻る、という具合に。 一つのジャンルに偏りすぎると、それを知らない人には退屈に思えてしまうためです。 ただし稀に、同じジャンル(デッキテーマ)のカードを続けて実装する場合もあります。祭りというやつです。 (1)作成するカードとその効果を考える 遊戯王カードwiki、東方wiki、遊戯王アニメカードリストのＨＰ、ＣＧＩ要望スレらを何度も眺め、作成するものを決定します。その選定条件は ・効果が思いつくか ・その効果は実装可能か ・バランス的に問題ないか ・原作イメージと合っているか ・元ネタとして問題無いか ・それを作成する時間があるか ・気分が乗っているか これらです。最も、毎回毎回１００％全ての条件を満たす事は難しいのですが……。 因みに効果が思いつくか、はこの時点では既に決まっている事が多いです(普段の時間から少しずつ考えてしまっています) なお、ＯＣＧカードの場合当然ながらこれら「効果を考える」作業はスキップされます。 (2)内容を詰める 実装するカードが決まったら、前述の実装難易度・カードパワー・互換性などを総合的に見て、各項目の摺り合わせを行います。 どうしても難しくて作れない、という場合には考えていた効果を少し変えてみたり、 強すぎないか・弱すぎないか・悪用されないかといった事をチェックしていったりします。 (3)カード作成 カード効果が決定できたらいよいよ実作業に移ります。類似した効果のカードを見繕い、 それを参考にしながら効果の記述をチョコチョコと書いていきましょう。 それなりに形になったな、と思ったら会議場から現場(CPU戦)へ。 (4)実装テスト いざ出陣。該当カードをデッキに入れ、杏子の元へ向かいましょう。 ハッピー・ラヴァーらと戯れながら、新カードの効果発動確認を行います。 うまくいかない場合はその都度、何度も記述内容を変更してリトライ。 サーバーエラーが起きるのは主にこの段階です。こちらで記述の更新作業を行うカテゴリ(起動効果・ダメージステップ効果・儀式魔法などなど)と、 今ＣＧＩ上で使用しようとした効果がちょうど被ってしまうと(そのファイルを今更新中のため)エラーが起こってしまいます。 そのエラーは大抵数秒レベルのものですが、こちらの記述内容に誤りがあった場合はエラーを吐き続けます。 この場合、復旧までに長い場合で１分ほど要する場合があります。 御迷惑をおかけして誠に申し訳ございません。 新カードも、単純な効果ならばそれで良いのですが、効果発動に準備を要するカードの場合実装テストは長く苦しいものとなります。 下手をすると、デッキ構築レベルから実装テストを始めないといけない場合があるからです。 「自分フィールド上の三幻魔を１体ずつゲームから除外して～」といったカードのテストはまさに苦行ですね。 相手に選択させるカードやチェーン発動が必須のカードなど、特に難しいカードの場合はＣＰＵでなく直接デュエル場で もう一人のボクと実装テストを行う場合があります。次の実装カードのネタバレになってしまうのでなるべく避けたい所ではあるのですが……… (結局難しくて実装できなかったという事態になってしまうと、ぬか喜びさせてしまいますしね) (5)告知 問題なしと判断した場合、告知に移ります。 類似した効果を持つカードの効果テキストを真似しながら、カードの効果テキストを書きます。(ｺﾝﾏｲ語検定３級の自分には敷居が高いです) 続けてデッキ構築画面のソート表に新カードの番号を追加し、パック欄の検索で現れるようにします。 最後にトップページに日時、カード名、効果テキストへのリンクを張って、終了。 (6)実装終了 これで、ここにまた新たなカードが一枚世に生まれました。 ……しかしこのステージ６を突破して一安心と思っても…… (EX)バグフィックス そのカードにバグが見つかりＥＸステージに突入する場合もあるので油断は出来ません。 このステージの難易度は千差万別で、一瞬で済む事もあれば、どうにもならずあえなく未実装に戻さざるを得ないという場合もあります。 おおむねカード実装作業はこのような流れでいつも行われています。 というわけで次回からは、もう少し踏み込んだ内容で自分のカード実装哲学などについて説明していきたいと思います。 名前 コメント
https://w.atwiki.jp/yugiohtcg/pages/11.html
ＴＣＧ板の遊戯王スレまとめ TCG板内の遊戯王関連スレ一覧 ＴＣＧ板内の遊戯王関連スレ一覧 駄スレや需要のないスレは見やすさの為省いてます。 他にもまだまだありそうなので協力してください。 スレが新しくなるたびに更新していただけると幸いです。 コメント欄 埋もれちゃってるスレを宣伝とかどうでしょうか？ 総合案内所が機能してないから、ここで替わりにできないかな？ -- 名無しさん (2008-08-05 00 58 05) バーンデッキ入れてください＞＜ -- 名無しさん (2009-05-23 19 17 32) 名前 コメント