teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]


新着順:2/531 記事一覧表示 | 《前のページ | 次のページ》

 投稿者:すずめ  投稿日:2017年 1月12日(木)22時40分50秒
  通報
  w1 = 100 ; w2 = 80/1000 ; w3 = 1500/1000 ; w4 = 1.8 ; w5 = 85 / 1000
DIM 列[7]=405,597,947+113,1294+113*2,1643+113*3,2000+113*4,2350+113*5
DIM 段[7]=292, 93,454, 798, 968,   0,212
DIM クエ補[7]=-40,-40,-40,-40,-40,-40
DIM 前1[7]="M-s","M-s","M-t","M-t","M-t","M-t" // 神速2、剣、剣、剣、剣
bosx = 112 ; bosy1 = 190 ; bosy2 = 205 ; 茶x1 = 190 ; 茶x2 = 100 ; 茶y = 190
GETTIME() ; yyyymmdd = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 ; hhmiss = G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2 ; print hhmiss
z1 = 40  ; z2=193 ; DBG01 = 0 ; DBG02 = 0

test_rp = 2 // テスト用のループは1回。聖戦中は、8回にする。



  for i = 1 to 6

    for j = 1 to 6 ; for k = 1 to 3 ; 素エル("",列[j]+175,段[k] ,w2,0,"*","*",0); next ; next // 聖戦中か、末尾0なら実施
    for l = 1 to 15
      for j = 1 to 6 ; for k = 1 to 3 ; BTN(LEFT,CLICK,列[j]+99,段[k]+99 ,250); next ; next // 予めクリック
    next

    for l = 1 to 6
      for j = 1 to 6 ; for k = 1 to 3 ; 素エル("M-e",列[j]+99,段[k]+99 ,w2,0,"*","*",0); next ; next // 聖戦中か、末尾0なら実施
    next
    sleep(5)//餅衝き
    // for k = 1 to 3 ; for j = 1 to 6 ; for k = 1 to 3 ; BTN(LEFT,CLICK,列[j]+99,段[k]+99 ,750); next ; next ; next


    for j = 1 to 6 ; for k = 1 to 3 ; 素エル("",列[j]+175,段[k] ,w2,0,"*","*",0); next ; next // 聖戦中か、末尾0なら実施
    for l = 1 to 15
      for j = 1 to 6 ; for k = 1 to 3 ; BTN(LEFT,CLICK,列[j]+99,段[k]+99 ,250); next ; next // 予めクリック
    next

    for l = 1 to 6
      for j = 1 to 6 ; for k = 1 to 3 ; 素エル("M-w",列[j]+99,段[k]+99 ,w2,0,"*","*",0); next ; next // 聖戦中か、末尾0なら実施
    next

    sleep(5)//餅衝き
    // for k = 1 to 3 ; for j = 1 to 6 ; for k = 1 to 3 ; BTN(LEFT,CLICK,列[j]+99,段[k]+99 ,750); next ; next ; next

    for j = 1 to 6 ; for k = 1 to 3 ; 素エル("",列[j]+175,段[k] ,w2,0,"*","*",0); next ; next // 聖戦中か、末尾0なら実施
    for l = 1 to 15
      for j = 1 to 6 ; for k = 1 to 3 ; BTN(LEFT,CLICK,列[j]+99,段[k]+99 ,250); next ; next // 予めクリック
    next


  next


    for j = 1 to 5 ; for k = 1 to 3 ; 素エル("",列[j]+茶x1,段[k]    ,w2,0,"m0","*",0); next ; next // 聖戦中か、末尾0なら実施
    //for j = 1 to 5 ; for k = 1 to 3 ; 素エル("c",列[j]+99,段[k]+99 ,w2,0,"0","*",0); next ; next // 聖戦中か、末尾0なら実施
    for j = 1 to 5 ; for k = 1 to 3 ; 素エル("",列[j]+茶x2,段[k]+茶y,w2,0,"m0","*",0); next ; next // 聖戦中か、末尾0なら実施



//引数ww->wait_sec,exec->exec_flg(0:none,!0:exec)
procedure 素エル(cmd,xx,yy,ww,exec,exe_min,exe_rp,rp_flg)
   MMV(xx,yy);GETTIME()
   //print chknum(exe_min) + "," + exe_min + "," + G_TIME_NN2 MOD 10
   // exec!= 0 or 分flg = "*" or 分flgが合致 なら実施
   if exec <> 0 then
     ループ判定(cmd,xx,yy,ww,exe_rp,rp_flg)
     exe_min = "-"
   else
     sleep(ww)
   endif

   select exe_min
     case "*" // 常に実施
       ループ判定(cmd,xx,yy,ww,exe_rp,rp_flg)
     case "m0","m1","m2","m3","m4","m5","m6","m7","m8","m9" // 末尾がm分なら実施
       if replace(exe_min,"m","") = format(G_TIME_NN2 MOD 10,1) then ループ判定(cmd,xx,yy,ww,exe_rp,rp_flg)
     case "e2"
       if G_TIME_NN2 MOD val(replace(exe_min,"e","")) = 0 then ループ判定(cmd,xx,yy,ww,exe_rp,rp_flg)
     case "o2"
       if G_TIME_NN2 MOD val(replace(exe_min,"o","")) = 1 then ループ判定(cmd,xx,yy,ww,exe_rp,rp_flg)
     case "e3"
       if betweenstr(exe_min,,2) MOD  3 = 0 then ループ判定(cmd,xx,yy,ww,exe_rp,rp_flg)
     default
       sleep(ww)
   selend
fend

procedure ループ判定(cmd,x9,y9,w9,exe_rp9,rp_flg9)
   exe=0
   select exe_rp9
     case "*" // 常に実施
       if cmd="" then exe = 1
       if cmd<>"" then exe = 2
     case "e" // ループ遇数回だけ実施
       // print exe_rp9 + "," + rp_flg9 + "," + rp_flg9 mod 2
       if rp_flg9 mod 2 = 0 and cmd = "" then exe = 1
       if rp_flg9 mod 2 = 0 and cmd <> "" then exe = 2
     default
       sleep(w9)
   selend

   select exe
     case 1
        BTN(LEFT,CLICK,x9,y9,w9*55)
     case 2
        alt = 0 ; ctl = 0
        BTN(LEFT,CLICK,x9,y9,w9*55)
        // print "cmd = " + cmd + ",  x = " + x9 + " , y = " + y9

        if pos("M-",cmd)>0 then
            alt = 1; cmd = replace(cmd,"M-","") ;
        endif
        if pos("C-",cmd)>0 then
            ctl = 1; cmd = replace(cmd,"C-","") ;
        endif

        if alt = 1 then KBD(VK_ALT,DOWN,w9*50)
        if ctl = 1 then KBD(VK_CTRL,DOWN,w9*50)

        w0 = 85
        select cmd
          case "1"
            KBD(VK_1,CLICK,w9*w0)
          case "2"
            KBD(VK_2,CLICK,w9*w0)
          case "3"
            KBD(VK_3,CLICK,w9*w0)
          case "4"
            KBD(VK_4,CLICK,w9*w0)
          case "5"
            KBD(VK_5,CLICK,w9*w0)
          case "6"
            KBD(VK_6,CLICK,w9*w0)
          case "7"
            KBD(VK_7,CLICK,w9*w0)
          case "8"
            KBD(VK_8,CLICK,w9*w0)
          case "9"
            KBD(VK_9,CLICK,w9*w0)
          case "0"
            KBD(VK_0,CLICK,w9*w0)
          case "Q"
            KBD(VK_Q,CLICK,w9*w0)
          case "c"
            KBD(VK_c,CLICK,w9*w0)
          case "r"
            KBD(VK_r,CLICK,w9*w0)
          case "t"
            KBD(VK_t,CLICK,w9*w0)
          case "q"
            KBD(VK_q,CLICK,w9*w0)
          case "e"
            KBD(VK_e,CLICK,w9*w0)
          case "w"
            KBD(VK_w,CLICK,w9*w0)
        selend

        if alt = 1 then KBD(VK_ALT,UP,w9*50)
        if ctl = 1 then KBD(VK_CTRL,UP,w9*50)

   selend

fend

 
 
》記事一覧表示

新着順:2/531 《前のページ | 次のページ》
/531