Hi-
First, is their supposed to be a new thread button, not tutorial?
I was wondering....title pretty much explains it, but how do I multiply an integer?
I was thinking the asterick sign, but didn't work..
Ty
--
snuwoods![]()
Hi-
First, is their supposed to be a new thread button, not tutorial?
I was wondering....title pretty much explains it, but how do I multiply an integer?
I was thinking the asterick sign, but didn't work..
Ty
--
snuwoods![]()



Yeah, since the servers were switched, there's a few errors.
Yeah, the asterisk. Show me what's not working.
I'm trying to get this one script to work...I'm setting it up to work in Guild Wars...setting speeds for an autotalker:
SCAR Code:program LoFAutoTalker;
//////////////////////By://////////////////////////////
// //
//SSSS N N U UW WOOOOOO|OOOOOODDDDDD SSSS//
//SSS N N N U U W W W OO OO|OO OOD DDSSS //
// SS N NN U U W W W W OO OO|OO OOD DD SS//
//SSSS N N UUUUU W W OOOOOO|OOOOOODDDDDD SSSS//
///////////////////////////////////////////////////////
Var
gw,x,y :integer;
{Setup!!!}
Const
message1='/dance'; //what we wanna say! (first)
message2='/jump'; //(second)
message3='/laugh';//(third)
speed=5;//I thought 5 was fine....try to keep it at that
Procedure DeclareGW;
Begin
gw := BitmapFromString(10, 11, 'z78DA9552498E04210CFB1264CF' +
'310BFCFF499DEA6BABA499187109268E6C026C4C2A02044C2CD22' +
'367D7CECCC8A8282FE86C4F2126A2332F37C2DC42E06E29C64E81' +
'4B992F6E5DD282D999DEC3B4280931D9AAB291D9C8E106388A99A' +
'8711B1B28F871902B2C8B4FDEECB0AA8A04BEEC2CDE4FD77C18A9' +
'2CC9879046017CE1EA6479D7394DB76E56DEA9B3CF3DDDE8EC680' +
'933128AD680F162D35E3F65624BC9D197DA6F172E5CC4A19D75D7' +
'3F6B161488F4C400DEBCA8FEC2E260A1C839EEB4F0905596E7DD3' +
'DE6F81B6B8FC6BD5A9BCBC721A4CD34339D9B43968820BF4E1717' +
'665457192F83ED0BE6C3327FB49599BEEE1E1E305978DC4E7DBC9' +
'C1C4D5E6AB83C52F6B05F354FCCC44349B7D4373FF501AE1F8C38' +
'');
End;
procedure ClickBMPS;
Begin
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
clickmouse(x,y,true)
End;
Procedure FindBMPS;
Begin
if(FindBitmap(gw,x,y))then
ClickBMPS;
End;
Procedure SendKeysHuman(text:String; speed:Integer);
Var
a1 : Integer;
Begin
a1:= 1;
Repeat
wait(random(220) + (speed*10); //this is where I was trying to multiply
sendkeys(copy(text, a1, 1));
a1:= a1 + 1;
Until a1 > length(text);
End;
Procedure ClickHuman(x, y : Integer; left : Boolean);
Begin
holdmouse(x, y, left);
wait(random(20) + 15);
releasemouse(x, y, left);
End;
Procedure Talk(text :String);
Begin
SendKeysVb('{ENTER}',false);
SendKeysHuman(text, speed)
SendKeysVb('{ENTER}',false);
End;
Procedure ClearInterfaceStartVideo(VideoCmd :String);
begin
SendKeysVb('^+(H)',true)
SendKeys(VideoCmd);
end;
Begin
wait(1300)
DeclareGW
FindBMPS;
Wait(2250)
ClearInterfaceStartVideo('=');
Wait(1000)
Talk(Message1);
Wait(10000);
Talk(Message2);
Wait(10000);
Talk(Message3);
cleardebug;
writeln('It should have worked...');
End.
Ty
--
snuwoods
umm snu first of all plz use srl procedures replacing
MoveMouseSmooth with MMouse
ANd ClickMouse with Mouse
SendTextHuman with SendText/HumanText
And here is your line fixed
SCAR Code:wait(random(220) + ((speed) * 10);
i belive that will do the trick
Thanks, I'll try it out in a second...
would I have to include srl, then?
I'm assuming you would, but just asking.
Ty again
--
snuwoods
edit: I just added another parenthese after the 10, and voila! it worked....odd, though
edit2: If I used srl procedures, would I even need this speed thing?
There are currently 1 users browsing this thread. (0 members and 1 guests)