Probleme Mit bot =(

~~Hokler~~ · 02/16/2009, 21:49

Hey leute,
Ich hab ein Problem mit den Bots die ich schreibe. Und zwar:

Wen ich den Bot starte passirt nichts obwohl die Funktionen gecallt werden. es kommt auch kein Error oder sonstwas der bot bleibt einfach nur stehen.

hier mal der script:

PHP Code:



#cs ---------------------------------------------------------------------------- 
 
 AutoIt Version: 3.3.0.0 
 Author:         Hokler 
 
 Script Function: 
    Template AutoIt script. 
 
#ce ---------------------------------------------------------------------------- 
#include "tt6.au3" 
#include <GUIConstants.au3> 
#include <StaticConstants.au3> 
#include <WindowsConstants.au3> 
 
$Form1 = GUICreate("Byzzr-Farm Bot v.1a By Hokler(c)", 427, 317, 193, 125) 
$Pic1 = GUICtrlCreatePic("Hintergrund Bild\1.jpg", 0, 0, 425, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) 
$Group1 = GUICtrlCreateGroup("Background Modus", 8, 144, 177, 73) 
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") 
$Button1 = GUICtrlCreateButton("Start", 16, 168, 161, 41, 0) 
GUICtrlCreateGroup("", -99, -99, 1, 1) 
$Group2 = GUICtrlCreateGroup("Over-Night Modus", 240, 144, 177, 73) 
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") 
$Button2 = GUICtrlCreateButton("Start", 248, 168, 161, 41, 0) 
GUICtrlCreateGroup("", -99, -99, 1, 1) 
$Group3 = GUICtrlCreateGroup("Sonstiges", 8, 224, 409, 57) 
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") 
$Button3 = GUICtrlCreateButton("Hilfe", 152, 248, 81, 25, 0) 
$Button4 = GUICtrlCreateButton("Regeln", 240, 248, 81, 25, 0) 
$Button5 = GUICtrlCreateButton("Exit", 328, 248, 81, 25, 0) 
$Button6 = GUICtrlCreateButton("Fesnter Anpassen", 16, 248, 129, 25, 0) 
GUICtrlCreateGroup("", -99, -99, 1, 1) 
$Label1 = GUICtrlCreateLabel("CopyRight (c) by Hokler", 304, 296, 116, 17) 
GUISetState(@SW_SHOW) 
 
 
While 1 
$msg=GuiGetMsg() 
        If $msg=-3 Then Exit 
        If $msg=$Button1 Then button1() 
        If $msg=$Button2 Then button2() 
        If $msg=$Button3 Then button3() 
        If $msg=$Button4 Then button4() 
        If $msg=$Button5 Then button5()     
        If $msg=$Button6 Then button6() 
WEnd 
         
Func button1() 
        _go1()  
EndFunc 
 
Func button2() 
    $client = Inputbox("GW Fesnter Name","Name des Guild Wars Fenster","Guild Wars") 
        _go2() 
EndFunc 
 
Func button6() 
    $client = Inputbox("Guild Wars Client","Name des Guild Wars Fenster","Guild Wars") 
    gw_anpassen1() 
EndFunc 
 
Func button3() 
    InetGet("") 
EndFunc 
 
Func button4() 
    ShellExecute("Regeln.txt") 
EndFunc 
 
Func button5() 
    Exit 
EndFunc 
 
;==========================================================================     
Func RandomSleep($min, $max) 
    $time = Random($min, $max) 
    Sleep($time) 
EndFunc 
;========================================================================== 
Func gw_anpassen1() 
    Controlmove($Client, "", 0, 0, 0, 1024, 768)     
    Opt("MouseCoordMode",0) 
EndFunc 
;==========================================================================1 
Func _go1() 
While 1 
     
    If CheckArea(-10386, 2573) Then ;Spawnpoint: NPCs 
    $ran = Random(1, 4, 1) 
    If $ran = 1 Then 
        PrepMoveTo() 
            MoveTo(1, -9904, 2478) 
            MoveTo(1, -9579, 2140) 
            MoveTo(1, -9549, 1422) 
            MoveTo(1, -9627, 682) 
            MoveTo(1, -9168, 411) 
            MoveTo(1, -8587, 700) 
            MoveTo(1, -7824, 1619) 
        KeepMoveTo() 
         
    ElseIf $ran = 2 Then 
        PrepMoveTo() 
            MoveTo(1, -9636, 2356) 
            MoveTo(1, -9554, 379) 
            MoveTo(1, -8650, 663) 
            MoveTo(1, -7789, 1643) 
        KeepMoveTo() 
     
    ElseIf $ran = 3 Then 
        PrepMoveTo() 
            MoveTo(1, -9854, 2641) 
            MoveTo(1, -9594, 2370) 
            MoveTo(1, -9546, 1621) 
            MoveTo(1, -9550, 662) 
            MoveTo(1, -9419, 373) 
            MoveTo(1, -8977, 422) 
            MoveTo(1, -8218, 1135) 
        StopMoveTo() 
    RandomSleep(3000, 3100) 
        PrepMoveTo() 
            MoveTo(1, -7787, 1655) 
        KeepMoveTo() 
     
    ElseIf $ran = 4 Then 
        PrepMoveTo() 
            MoveTo(1, -11137, 2394) 
            MoveTo(1, -11444, 1862) 
        StopMoveTo() 
    RandomSleep(3000, 3100) 
        PrepMoveTo() 
            MoveTo(1, -10810, 1793) 
            MoveTo(1, -10500, 1063) 
            MoveTo(1, -10420, 581) 
            MoveTo(1, -9697, 494) 
            MoveTo(1, -8938, 318) 
            MoveTo(1, -7801, 1638) 
        KeepMoveTo() 
    EndIf 
     
    If CheckArea(-10537, 1671) Then ;Spawnpoint: Belohnungs NPC 
    $ran = Random(1, 4, 1) 
    If $ran = 1 Then 
        PrepMoveTo() 
            MoveTo(1, -10537, 1671) 
            MoveTo(1, -10277, 885) 
            MoveTo(1, -9887, 556) 
            MoveTo(1, -9150, 355) 
            MoveTo(1, -8382, 863) 
            MoveTo(1, -7806, 1653) 
        KeepMoveTo() 
     
    ElseIf $ran = 2 Then 
        PrepMoveTo() 
            MoveTo(1, -9431, 396) 
            MoveTo(1, -8863, 244) 
            MoveTo(1, -7730, 1707) 
        KeepMoveTo() 
         
    ElseIf $ran = 3 Then  
        PrepMoveTo() 
            MoveTo(1, -9814, 1267) 
            MoveTo(1, -9585, 1088) 
            MoveTo(1, -9661, 592) 
            MoveTo(1, -9168, 412) 
            MoveTo(1, -8764, 624) 
            MoveTo(1, -8234, 1259) 
            MoveTo(1, -7778, 1683) 
        KeepMoveTo() 
         
    ElseIf $ran = 4 Then 
        PrepMoveTo() 
            MoveTo(1, -10482, 929) 
            MoveTo(1, -9947, 673) 
            MoveTo(1, -9313, 428) 
            MoveTo(1, -8784, 604) 
            MoveTo(1, -8100, 1356) 
        StopMoveTo() 
    RandomSleep(3000, 3900) 
        PrepMoveTo() 
            MoveTo(1, -7795, 1645) 
        KeepMoveTo() 
    EndIf 
     
    If CheckArea(10547, -754) Then 
    $ran = Random(1, 4, 1) 
    If $ran = 1 Then 
        PrepMoveTo() 
            MoveTo(1, -10547, -754) 
            MoveTo(1, -9864, -609) 
            MoveTo(1, -9454, 115) 
            MoveTo(1, -8372, 937) 
            MoveTo(1, -7856, 1589) 
        KeepMoveTo() 
         
    ElseIf $ran = 2 Then 
        PrepMoveTo() 
            MoveTo(1, -9847, -823) 
            MoveTo(1, -9635, -172) 
            MoveTo(1, -9380, 261) 
            MoveTo(1, -8292, 939) 
            MoveTo(1, -7867, 1599) 
            MoveTo(1, -7731, 1736) 
        KeepMoveTo() 
         
    ElseIf $ran = 3 Then 
        PrepMoveTo() 
            MoveTo(1, -11307, -919) 
        StopMoveTo() 
    RandomSleep(3000, 3900) 
        PrepMoveTo() 
            MoveTo(1, -11410, -203) 
            MoveTo(1, -10971, 0) 
            MoveTo(1, -9768, 44) 
            MoveTo(1, -8423, 819) 
            MoveTo(1, -7784, 1732) 
        KeepMoveTo() 
 
    ElseIf $ran = 4 Then 
        PrepMoveTo() 
            MoveTo(1, -9758, -543) 
            MoveTo(1, -9584, -65) 
            MoveTo(1, -9312, 337) 
            MoveTo(1, -8832, 359) 
            MoveTo(1, -8354, 859) 
            MoveTo(1, -7884, 1651) 
        KeepMoveTo() 
     
    Else 
        ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float'))) 
        Exit 
    EndIf 
     
    While (_memoryread($memmap,$hprocess)) <> 1 
        Sleep(500) 
    WEnd 
     
    While Not MoveTo(0,0,0) 
        Sleep(10) ;10ms is the call cycle for the movement engine 
    WEnd 
     
 
        PrepMoveTo() 
            MoveTo(1, -7493, 2551) 
            MoveTo(1, -7783, 4269) 
            MoveTo(1, -7969, 4781) 
            MoveTo(1, -9632, 5993) 
            MoveTo(1, -10286, 6789) 
            MoveTo(1, -10609, 7781) 
            MoveTo(1, -11029, 8251) 
            MoveTo(1, -11445, 8890) 
        StopMoveTo() 
         
         
        KeySend("c") 
    Sleep(200) 
    $sel = _memoryread($memnpcidselect,$hprocess) 
 
    if $sel > 0 Then 
        KeySend("1") 
        RndSleep(2000) 
    Else 
        ;no Byzzr there ?? 
        ConsoleWrite(StringFormat("No Byzzr: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float'))) 
        Exit 
    EndIf 
     
     
        KeySend("2") 
    RandomSleep(2000, 2100) 
        KeySend("3") 
    RandomSleep(2000, 2100) 
        KeySend("4") 
    RandomSleep(2000, 2100) 
        KeySend("5") 
    RandomSleep(4000, 4100) 
        KeySend("6") 
    RandomSleep(4000, 4100) 
        KeySend("3") 
    RandomSleep(2000, 2100) 
        KeySend("4") 
    RandomSleep(2000, 2100) 
        KeySend("2") 
    RandomSleep(2000, 2100) 
     
    $oldsel = $sel  
    While $sel = $oldsel 
        KeySend("4") 
        RndSleep(2000) 
        $sel = _memoryread($memnpcidselect,$hprocess) 
    WEnd 
     
     
        KeySend("ö") 
    Sleep(200) 
    $sel = _memoryread($memnpcidselect,$hprocess) 
    If $sel > 0 Then 
        KeySend("8") 
        RndSleep(800) 
        CollectLoot(5) 
    EndIf 
    EndIf 
resign() 
resign() 
resign() 
resign() 
 
EndIf 
EndIf 
WEnd 
EndFunc 
 
Func _go2() 
While 1 
    MouseMove(400, 300) 
    If CheckArea(-10386, 2573) Then ;Spawnpoint: NPCs 
    $ran = Random(1, 4, 1) 
    If $ran = 1 Then 
        PrepMoveTo() 
            MoveTo(1, -9904, 2478) 
            MoveTo(1, -9579, 2140) 
            MoveTo(1, -9549, 1422) 
            MoveTo(1, -9627, 682) 
            MoveTo(1, -9168, 411) 
            MoveTo(1, -8587, 700) 
            MoveTo(1, -7824, 1619) 
        KeepMoveTo() 
         
    ElseIf $ran = 2 Then 
        PrepMoveTo() 
            MoveTo(1, -9636, 2356) 
            MoveTo(1, -9554, 379) 
            MoveTo(1, -8650, 663) 
            MoveTo(1, -7789, 1643) 
        KeepMoveTo() 
     
    ElseIf $ran = 3 Then 
        PrepMoveTo() 
            MoveTo(1, -9854, 2641) 
            MoveTo(1, -9594, 2370) 
            MoveTo(1, -9546, 1621) 
            MoveTo(1, -9550, 662) 
            MouseMove(400, 300) 
            MoveTo(1, -9419, 373) 
            MoveTo(1, -8977, 422) 
            MoveTo(1, -8218, 1135) 
        StopMoveTo() 
    RandomSleep(3000, 3100) 
        PrepMoveTo() 
            MoveTo(1, -7787, 1655) 
        KeepMoveTo() 
     
    ElseIf $ran = 4 Then 
        PrepMoveTo() 
            MoveTo(1, -11137, 2394) 
            MoveTo(1, -11444, 1862) 
        StopMoveTo() 
    RandomSleep(3000, 3100) 
        PrepMoveTo() 
            MoveTo(1, -10810, 1793) 
            MoveTo(1, -10500, 1063) 
            MoveTo(1, -10420, 581) 
            MoveTo(1, -9697, 494) 
            MoveTo(1, -8938, 318) 
            MoveTo(1, -7801, 1638) 
        KeepMoveTo() 
    EndIf 
     
    If CheckArea(-10537, 1671) Then ;Spawnpoint: Belohnungs NPC 
    $ran = Random(1, 4, 1) 
    If $ran = 1 Then 
        PrepMoveTo() 
            MoveTo(1, -10537, 1671) 
            MoveTo(1, -10277, 885) 
            MoveTo(1, -9887, 556) 
            MoveTo(1, -9150, 355) 
            MoveTo(1, -8382, 863) 
            MoveTo(1, -7806, 1653) 
        KeepMoveTo() 
     
    ElseIf $ran = 2 Then 
        PrepMoveTo() 
            MoveTo(1, -9431, 396) 
            MoveTo(1, -8863, 244) 
            MoveTo(1, -7730, 1707) 
        KeepMoveTo() 
         
    ElseIf $ran = 3 Then  
        PrepMoveTo() 
            MoveTo(1, -9814, 1267) 
            MoveTo(1, -9585, 1088) 
            MoveTo(1, -9661, 592) 
            MouseMove(400, 300) 
            MoveTo(1, -9168, 412) 
            MoveTo(1, -8764, 624) 
            MoveTo(1, -8234, 1259) 
            MoveTo(1, -7778, 1683) 
        KeepMoveTo() 
         
    ElseIf $ran = 4 Then 
        PrepMoveTo() 
            MoveTo(1, -10482, 929) 
            MoveTo(1, -9947, 673) 
            MoveTo(1, -9313, 428) 
            MoveTo(1, -8784, 604) 
            MoveTo(1, -8100, 1356) 
        StopMoveTo() 
    RandomSleep(3000, 3900) 
        PrepMoveTo() 
            MoveTo(1, -7795, 1645) 
        KeepMoveTo() 
    EndIf 
     
    If CheckArea(10547, -754) Then 
    $ran = Random(1, 4, 1) 
    If $ran = 1 Then 
        PrepMoveTo() 
            MoveTo(1, -10547, -754) 
            MoveTo(1, -9864, -609) 
            MoveTo(1, -9454, 115) 
            MoveTo(1, -8372, 937) 
            MoveTo(1, -7856, 1589) 
        KeepMoveTo() 
         
    ElseIf $ran = 2 Then 
        PrepMoveTo() 
            MoveTo(1, -9847, -823) 
            MoveTo(1, -9635, -172) 
            MoveTo(1, -9380, 261) 
            MouseMove(400, 300) 
            MoveTo(1, -8292, 939) 
            MoveTo(1, -7867, 1599) 
            MoveTo(1, -7731, 1736) 
        KeepMoveTo() 
         
    ElseIf $ran = 3 Then 
        PrepMoveTo() 
            MoveTo(1, -11307, -919) 
        StopMoveTo() 
    RandomSleep(3000, 3900) 
        PrepMoveTo() 
            MoveTo(1, -11410, -203) 
            MoveTo(1, -10971, 0) 
            MoveTo(1, -9768, 44) 
            MoveTo(1, -8423, 819) 
            MoveTo(1, -7784, 1732) 
        KeepMoveTo() 
 
    ElseIf $ran = 4 Then 
        PrepMoveTo() 
            MoveTo(1, -9758, -543) 
            MoveTo(1, -9584, -65) 
            MoveTo(1, -9312, 337) 
            MoveTo(1, -8832, 359) 
            MoveTo(1, -8354, 859) 
            MoveTo(1, -7884, 1651) 
        KeepMoveTo() 
    EndIf 
     
    Else 
        ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float'))) 
        Exit 
    EndIf 
 
    KeepMoveTo() 
     
    ; wait until exited and run to Byzzr 
    While (_memoryread($memmap,$hprocess)) <> 1 
        Sleep(500) 
    WEnd 
    RndSleep(2000)  
 
    PrepMoveTo()  
    InitDest( -7529, 2755) ;use direct call to be able to use speed buff right after course alignment 
    KeySend("7") 
    While Not MoveTo(0,0,0) 
        Sleep(10) ;10ms is the call cycle for the movement engine 
    WEnd 
 
    MoveTo(1, -7696, 3604, True) 
    MoveTo(1, -7760, 4523, True) 
    MoveTo(1, -10156, 6930, True) 
    MoveTo(1, -10519, 7857, True) 
    MoveTo(1, -11519, 8927) 
    RndSleep(200) 
     
    ;reached position 
    StopMoveTo() 
    RndSleep(500) 
 
    ;check for valid target 
    KeySend("c") 
    Sleep(200) 
    $sel = _memoryread($memnpcidselect,$hprocess) 
 
    if $sel > 0 Then 
        KeySend("1") 
        RndSleep(2000) 
    Else 
        ;no Byzzr there ?? 
        ConsoleWrite(StringFormat("No Byzzr: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float'))) 
        Exit 
    EndIf 
 
    ;kill Byzzr 
    KeySend("2") 
    RndSleep(2000) 
    KeySend("3") 
    RndSleep(2000) 
    KeySend("4") 
    RndSleep(2000) 
    KeySend("5") 
    RndSleep(4000) 
    KeySend("6") 
    RndSleep(4000) 
    KeySend("3") 
    RndSleep(2000) 
    KeySend("4") 
    RndSleep(2000) 
    KeySend("2") 
    RndSleep(2000) 
 
    ;wait until Byzzr is dead 
    $oldsel = $sel  
    While $sel = $oldsel 
        KeySend("4") 
        RndSleep(2000) 
        $sel = _memoryread($memnpcidselect,$hprocess) 
    WEnd 
 
    ;check for teleport and collect all loot 
    KeySend("ö") 
    Sleep(200) 
    $sel = _memoryread($memnpcidselect,$hprocess) 
    If $sel > 0 Then 
        KeySend("8") 
        RndSleep(800) 
        CollectLoot(5) 
    EndIf 
 
    ;resign 
    RndSleep(500) 
    Resign() 
 
    ; wait until we are back to Lutgardis 
    While (_memoryread($memmap,$hprocess)) <> 0 
        Sleep(1000) 
        ; check if we got killed 
        if _memoryread($memdeath,$hprocess) = 1 Then 
            ControlClick($client, "", "", "left", 1, $DTclickX, $DTclickY) 
        EndIf 
    WEnd 
 
    ; start again 
    $runs +=1 
    RndSleep(4000) 
 
 
EndIf 
EndIf 
WEnd 
EndFunc

der bot ist für byzzr und basirt auf der version die bei der tt6 dabei war.

pls helft mir.

mfg
Hokler

Dunham · 02/16/2009, 21:57

1. fehler ist schonmal das beide die gleiche tt6 nutzen und beide fenster client heißen da kann doch iwas nicht stimmen :-p

~~Hokler~~ · 02/17/2009, 13:00

mhhh was meinst du damit genau ? ic hhab jetzt einfach des 2te $client in $client2 umbenannt aber es geht immernoch net

Dunham · 02/17/2009, 13:27

hast du das dann auch in der tt6 alles geändert? weil für die ist da ja wichtig.,..

~~Hokler~~ · 02/17/2009, 13:31

was sol ich in der tt6 ändern ?

ic hhab jetz i ndem script wo ich oben gepostet hab einfach statt $client $client2 gemacht und

PHP Code:



Global $client2 = IniRead("tt6.ini","id","windowName","Guild Wars1")

noch rein (mein gw fenster heist Guild Wars1)

und es geht immernoch net

Painful Pete · 02/17/2009, 18:56

Hatte vorhin auch kleine Problem....
Du willst den Bot mit 2 Clienten laufen lassen?

Erstelle dir 2 Ordner. In jeden packst du den Bot mit tt6.au3, tt6.ini, nomad usw rein.

Dann trägst du in der tt6.ini den richtigen Namen von deinem Clienten ein, wie dein Fenster heißt: Guild Wars, Guild Wars1, Guild Wars2 usw.
ACHTUNG:
In der ersten tt6.ini hieß der Bereich wo du grad was verändert hast [ids]
in der au3 lädt er jedoch vom Bereich [id].
solang nur 1 Client läuft kein Problem. Musst also das [ids] in [id] umändern in der tt6.ini

Außerdem musst du in der jeweiligen tt6.au3 in Zeile 26

PHP Code:



Global $client = IniRead("tt6.ini","id","windowName","[COLOR="Red"]Guild Wars[/COLOR]")

Bei dem roten nochmals den richtigen Fensternamen eintippen. dann sollte es gehen!

Hoffe ich konnte helfen

EDIT: ok also habs mir grad nochmal bisschen angeschaut.
Es müsste auch gehen, dass du in der tt6.ini einen weitern Clienten hinzufügst

Code:

[id]

windowName = Guild Wars
windowName2 = Guild Wars1

musst dann aber schaun, dass du das hier auch noch in dein Script packst:

Global $client = IniRead("tt6.ini","id","windowName","Guild Wars")
Global $client2 = IniRead("tt6.ini","id","windowName2","Guild Wars1")

so sollte es auch gehen. die Obere Methode ist eher, wenn du 2 separate Bots getrennt laufen lässt.

~~Hokler~~ · 02/17/2009, 19:06

danke für deine antwort aber ich lass den bot nur auf einen acc laufen und da heist mein gw fenster halt Guild Wars1 und wen ic hdes fenster in Guild Wars umendere (natürlich tt6 zeugs auch auf Guild wars umstellen) passirt immernoch nix =(

bunney · 02/17/2009, 19:58

CheckArea(-10386, 2573)

braucht man um seinen standpunkt zu prüfen nicht 4 koords??
max-min??
weil man ja nicht immer exakt an der gleichen stelle spawnt

Painful Pete · 02/18/2009, 00:28

soweit ich das gesehen hab, hat tonitusch das in seiner tt6 schon so als funktion eingebaut, dass er automatisch +/-250 nimmt oder so. weiß den Wert nicht mehr genau, aber die Schwankung hat er glaub ich schon drin

bunney · 02/18/2009, 12:20

achso sry wusste ich garnet^^

N.E.O. · 02/18/2009, 17:54

Quote:

Originally Posted by Painful Pete

soweit ich das gesehen hab, hat tonitusch das in seiner tt6 schon so als funktion eingebaut, dass er automatisch +/-250 nimmt oder so. weiß den Wert nicht mehr genau, aber die Schwankung hat er glaub ich schon drin

Da hast du recht ;-):

PHP Code:



Func CheckArea($xval, $yval) 
    $ret = False 
    $pX = _memoryread($memx,$hprocess,'float') 
    $pY = _memoryread($memy,$hprocess,'float') 
     
    if ($pX < $xval + 700) And ($pX > $xval - 700) And ($pY < $yval + 700) And ($pY > $yval - 700) Then 
        $ret = True 
    EndIf 
    Return $ret     
EndFunc

~~Hokler~~ · 03/01/2009, 18:53

Kann es vielleicht sein das ich was mit den random wayouts falsch mache oder so ??
Weil mir is grad aufgefallen das er ohne random wayouts prima funktionirt =/

aber da byzzr farmen so riskant geworden ist will ic heigentlich schon random wayouts.

pls helft mir