import flashex.mem;
import flashex.io;
import flash.vm;
import flash.vmex;
import flash.swf;
import flash.minimap;
import Network;
import licence;
import base.win;
import base.ini;
import base.gui;
import std.string;
import std.time;
import std.file;
Dialog ref testDlg;
HWND static1;
CheckBox check1;
bool a = false;

FlashObject Ojump, Temperature;
// Путь Прыжка:                           &!M\@"3\6"n\,"Z\%#O\<h
// Путь Температуры танка:        &!M\@"3\,p
// Ставим &!M в ковырятель с нажимаем ViewTree, далее ищем папки:  @"3\6"n\,"Z\%#O\<h  (Название по середине), так и найдем прыжок.

/* Прыжок:*/char[] o1 = "&!M", o2 = "@\"3", o3 = "6\"n", o4 = ",\"Z", o5 = "%#O", JumpCH = "<h";
/* Температура:*/ char[] TemCH3=",p";


//Прыжок
void jumpTimer(Dialog ref dlg, int param){ Ojump.SetDouble(JumpCH, 2000); Temperature.SetDouble(TemCH3, -7);}


void eventHotKey(Dialog ref dlg, int param)//функция вызывается когда срабатывает хоткей
{
    if(!a)
    {
         Beep(1000, 100);
         testDlg.AddTimer(1, jumpTimer, 0);
         static1.SetText("1 - Выключение прыжка");
    }
    else
    {
         Beep(700, 100);
         dlg.KillTimer(jumpTimer); Temperature.SetDouble(TemCH3, 7);
         static1.SetText("Выключение прыжка");
    }
    a =! a;
}

void eventCheckBox(Dialog ref dlg, int param)//функция вызывается когда изменен CheckBox
{
        if(check1.IsChecked())
        {
            // Сканируем прыжок.
            Ojump = FlashObjectFind(o1); Ojump.GetObject(o2,Temperature);
            Temperature.GetObject(o3,Ojump); Ojump.GetObject(o4,Ojump); Ojump.GetObject(o5,Ojump); Beep(700, 700);

            //Ставим Хоткей Q
            testDlg.AddHotKey('R', false, false, false, eventHotKey, 1);

            //Изменяем текст в чите.
            static1.SetText("Хоткей Q был активирован !");
        }else{

            //Отключаем Хоткей Q
            testDlg.DelHotKey('R', false, false, false);//Удаляем Хоткей Q

            ////Изменяем текст в чите.
            static1.SetText("Хоткей Q был деактивирован !");
        }

}

void closeDlg(Dialog ref Dialog,  int param){}//вызывается при закрытии
testDlg = CreateDialog("Прыжок НАЗВАНИЕ ОКНА ПИСАТЬ ТУТ !!!", 200, 200, 250, 150, closeDlg);

check1  =  testDlg.AddCheckBox("Прыжок - R", 20, 25, 80, 20, eventCheckBox, 1);
static1 = testDlg.AddStatic("Статус чита", 20, 50, 200, 20);

testDlg.Show(1);//Показать диалог
testDlg.WaitClose();//ждем закрытия диалога
testDlg.OnTop(1);//Окно по верх всех
 return 0;