Yoko

Code: Select all

Dim MiningX[7]
   MiningX[0] = '2453 1903 4599 2427 4763'
   MiningX[1] = '2453 1898 4601 2427 4761'
   MiningX[2] = '2458 1893 4605 2425 4763'
   MiningX[3] = '2461 1902 4608 2428 4763'
   MiningX[4] = '2464 1906 4611 2430 4761'
   MiningX[5] = '2462 1910 4606 2427 4761'
   MiningX[6] = '2468 1902 4602 2423 4759'
  Dim MiningY[7]
   MiningY[0] = '56 367 3812 107 3762'
   MiningY[1] = '52 367 3815 102 3766'
   MiningY[2] = '55 365 3815 96 3768'
   MiningY[3] = '57 359 3817 94 3771'
   MiningY[4] = '54 368 3817 89 3773'
   MiningY[5] = '50 371 3820 86 3771'
   MiningY[6] = '56 358 3819 89 3774'
  While not UO.Dead()
    For Cicle = 0 to 6
      GoToTile(int(GetWord(MiningX[Cicle], Num)), int(GetWord(MiningY[Cicle], Num)), 0, false)
      Wait(100)
      MiningAround()
    Next
  Wend

Code: Select all

Str(numb) (число в текст)
Val('text') (текст (0-9) в число) 
IsString([text] / numb) - (текст ли перед нами?)
IsNumber([text] / numb) - (число ли перед нами?)