Кибор :: Версия для печати :: Как сократить кол-во знаков в тексте [2]

11. Zireael - 19 Ноября, 2022 - 13:12:27 - перейти к сообщению

Цитата:

не понимаю, как передать в функцию.

В справке по function есть пример как передавать указатели.

CODE:

int X,Y;
int ГЛОТ[23][10];loadimage(#ГЛОТ[0][0],"D:\2\ГЛУТ.bmp");

ris(#ГЛОТ[0][0]);

function ris(int #Z)
{
if(findimage(1,#Z[0][0],0,#X,#Y,0,0,1900,1700,-1)>0)
{messagebox("ВИЖУ");}
}

12. Val_027 - 19 Ноября, 2022 - 23:32:22 - перейти к сообщению

Zireael пишет:

В справке по function есть пример как передавать указатели

Искал, но видать не там... чтобы я без Вас делал, спасибо
(Добавление)
int a[100], b=10, c=20;
summa(#a[0], b, c);
function summa(int #e, int q, int w)
{int n=0;naz: if (n<100)
{e[n]=q+w;n++;goto naz;}} что то похожее нашел

13. Val_027 - 21 Ноября, 2022 - 03:04:33 - перейти к сообщению

int sb;

fim(#ГЛТ[0][0]);
if(sb>0) {Txt("ВИЖУ РАБОТАЮ");sleep(1800);}
if(sb==0){Txt("НЕ ВИЖУ ПРОПУСКАЮ ");sleep(1800);}

function fim(int #bmp)
{rep:
sb=findimage(1,#bmp[0][0],0,#X,#Y,0,0,1900,1700,-1);
if(sb>0){m(X,Y+4);sleep(800);} // ESC
else{loop(){Txt("1/esc?"); // КЛ1 ПОВТОРИТЬ ПОИСК esc ВЫХОД
if(getkeystate 49){Tcl(1);goto rep;}
if(getkeystate 27){goto aut;}sleep(99);}}
aut:Tcl(1);} // ВЫХОД И ЧИСТКА Txt

можно ли тут что то сократить ? ну если не лень....
m(X,Y+4);Tcl(1);Txt("1/esc?");это функции

14. Val_027 - 05 Декабря, 2022 - 12:23:32 - перейти к сообщению

Val_027 пишет:

Подскажите плиз ...

fsm(#bmp[0][0],x,y);

function fsm (int #bmp,int x,int y)
{
if(findimage(1,#bmp[0][0],0,#X,#Y,0,0,1900,1700,-1)==0)
{
mouse(LEFT,x,y); // НЕ ВИЖУ ТЫКАЮ
}
}

как сделать передаваемой в функцию ==0 >0 <0 в зависимости от необходимости ???

15. Zireael - 05 Декабря, 2022 - 17:56:04 - перейти к сообщению

Цитата:

как сделать передаваемой в функцию ==0 >0 <0 в зависимости от необходимости ???

CODE:

fsm(10, 7, 0); // сложить
fsm(10, 7, 1); // вычесть
fsm(10, 7, 2); // умножить
fsm(10, 7, 3); // разделить

function fsm (int x,int y, int action)
{
if(action==0)messagebox(x+y);
if(action==1)messagebox(x-y);
if(action==2)messagebox(x*y);
if(action==3)messagebox(x/y);
}

16. Val_027 - 06 Декабря, 2022 - 00:40:59 - перейти к сообщению

Zireael пишет:

function fsm (int x,int y, int action)
{if(action==0)messagebox(x+y);

К сожалению не совсем то, нет универсальности /все делается в функции/
а надо чтоб именно передать в функцию прибавить ли. отнять ли. больше. меньше...

fsm(#bmp[0][0],x,y,c>0);
fsm(#bmp[0][0],x,y,c==0);
fsm(#bmp[0][0],x,y,c>=0);
fsm(#bmp[0][0],x,y,c<0); // В ОСНОВНОМ теле с разными параметрами вызывать функцию ???

function fsm (int #bmp,int x,int y,int c)
{if(findimage(1,#bmp[0][0],0,#X,#Y,0,0,1900,1700,-1)c)
{БОЛЬШЕ НУЛЯ;}}

НО ЕСЛИ ТАК НЕЛЬЗЯ, ТО ВПОЛНЕ ГОДНЫЙ ВАРИАНТ СПАСИБО !!!

17. Val_027 - 18 Февраля, 2023 - 14:16:13 - перейти к сообщению

Val_027 пишет:

Подскажите плиз ...

if(getkeystate 49){тут тело скрипта;} пишу так обычно
/////////////////////////////////////////////////////

int k=0;

function gk (int x;) // функция
{k=getkeystate (x);} // как бы тут имеем k=1 если клавиша 1 нажата

gk(49);if(k>0){тут тело скрипта;} // но тут что то не так / к=0 а как бы дб 1

а хотелось бы в идеале:

gk(49){тут тело скрипта;} // если кл 1 нажата то выполняется в скобках скрипт .....

18. Zireael - 18 Февраля, 2023 - 14:45:54 - перейти к сообщению

Цитата:

gk(49){тут тело скрипта;} // если кл 1 нажата то выполняется в скобках скрипт .....

CODE:

loop()
{
if(gk(49))
{
messagebox("тут тело скрипта");
}
sleep(10);
}

function gk (int x)
{
return getkeystate (x);
}

19. Val_027 - 19 Февраля, 2023 - 08:08:07 - перейти к сообщению

Zireael пишет:

return getkeystate (x);

Спасибо !!! не правильно возвращал