BobiusMaximus

Yeah, third time I've made that mistake so far xD

Damnit, that was stupid. For some reason when I hit F9 it doesn't stop it following a moving player, and F10 isn't changing it between shooting and not. Anyone know why? Oh global variables. Woops.

Thanks. I did a quick bit of work on it, but now I get a different error. Here's what I have now HotKeySet("{F11}","close") HotKeySet("{F10}","shoot") HotKeySet("{F9}","deactivate") HotKeySet("{F8}", "active") $i = 0 $s = 0 $a = 0 Func shoot() if $s = 0 then $s = 1 EndIf if $s = 1 then $s = 0 EndIf EndFunc func deactivate() if $a = 0 then $a = 1 EndIf if $a = 1 then $a = 0 EndIf EndFunc Func close() $i = 1 EndFunc func active() Do $coord = Pixelsearch(0, 0, 1280, 1024, 0xE4BC5F, 20 ) if not @error Then if $coord[1] > 0 then if $s = 0 then MouseMove($coord[0], coord[1], 0) EndIf if $s = 1 Then MouseClick( "left", $coord[0], coord[1], 1 , 0) EndIf $coord[0] = 0 $coord[1] = 0 EndIf EndIf sleep(20) until $a = 1 endfunc Do until $i = 1 I get error parsing function call at line 40. Do you know why?

That looks to be the same as what I already have, which line is different? And should PixelSearch not automatically set it as an array?

HotKeySet("{F11}","close") $i = 0 Func close() $i = 1 EndFunc Do $coord = PixelSearch(0, 270, 350, 0, 0xe4bc5f, 10) if $coord[1] > 0 then MouseMove($coord[0], coord[1], 0) $coord[0] = 0 $coord[1] = 0 EndIf sleep(20) until $i = 1 Before anyone asks, this is technically an "aimbot", yes, but I'm just coding it because I have nothing better to do right now during the holidays. I'm not actually intending to use it, it's on quake 2, which is a game 10 years old, as I said I'd just doing this for the challenge. However, this is my first time using colour related commands, and I thought this would be a good way to put them into practice. Every time I run the script it tells me I'm using subscript with a non-array variable when I'm pretty sure it should be. Everything works fine except for that.

Ah thanks. In school I've spent like...half a year doing true basic programming(It's a horrible language if you didn't know) & it doesn't need them to be done like that. Ed: My F-Secure Anti Virus won't let me compile it now...help? Ed2: It works

;By Robert Woollins HotKeySet("{F11}","close") HotKeySet("{F10}","send_to_keyboard") HotKeySet("{F9}","message_box") dim $word[219] $i = 0 ;All my quotes are here, I won't both showing them for space reasons. Func close() $i = 1 EndFunc Func message_box() $random = random(1,218) $last_word = $word[$random] msgbox(32,"Word of Wisdom",$last_word) EndFunc func send_to_keyboard() send($last_word) EndFunc Do ;This means the program keeps running until I hit F11 until $i = 1 The send($last_word) is not working...why not?

<3 F10 works Thanks.

First off, wow, my name is cocky, I dunno why it isn't my normal alias, anyone know where to change it? Second, why doesn't this script work? :/ ;By Redacted HotKeySet("{F11}","close") HotKeySet("{F12}","message_box") dim $word[6] $i = 0 $word[1] = "'Any intelligent fool can make things bigger, more complex, and more violent. It takes a touch of genius -- and a lot of courage -- to move in the opposite direction.'~Albert Einstein" $word[2] = "Quote2" $word[3] = "Quote3" $word[4] = "Quote4" $word[5] = "Quote5" func close() $i = 1 EndFunc func message_box() $random = random(1,5) msgbox(0,"Word of Wisdom",$word[$random]) EndFunc Do ;This should mean the program keeps running until I hit F11 until $i = 1oÝ÷ Ùh^î²ØZ½æ®¶­sfFÒb33c·v÷&E³eТb33c·v÷&E³ÒÒgV÷C²b33´ççFVÆÆvVçBfööÂ6âÖ¶RFæw2&vvW"ÂÖ÷&R6ö×ÆWÂæBÖ÷&RföÆVçBâBF¶W2F÷V6öbvVæW2ÒÒæBÆ÷Böb6÷W&vRÒÒFòÖ÷fRâFR÷÷6FRF&V7Föââb33·äÆ&W'BVç7FVâgV÷C°¢b33c·v÷&E³%ÒÒgV÷CµV÷FS"gV÷C°¢b33c·v÷&E³5ÒÒgV÷CµV÷FS2gV÷C°¢b33c·v÷&E³EÒÒgV÷CµV÷FSBgV÷C°¢b33c·v÷&E³UÒÒgV÷CµV÷FSRgV÷C°¢b33c·&æFöÒÒ&æFöÒÃR¦×6v&÷ÂgV÷Cµv÷&Böbv6FöÒgV÷C²Âb33c·v÷&E²b33c·&æFöÕÒ it displays a message randomly fine but it doesn't work with functions.

Woah, that looks pretty nice. I suppose you install the server on all the computers and the viewer on just the one you will be using to control them or somthing of the sort? I guess there's no point in me trying to edit poltergeist now really -Bob

Yeh, I was browsing on the internet, talking to friends and so on, when one of them linked me to this site: www.officepoltergeist.com Well, I downloaded it, played with it, tried to edit it and such when I had this great idea. I have several computers in my house, and I was wondering if there'd be a way you could actually make a program to use full remote access of another computer? I don't know if anything like this has ever been tried, but I think it'd be a great program, it could really help me move files around quickly etc. Most importantely, is it possible? I'd like to hear your oppinions on this. -Bob

Well, in school today I was given the challenge of making this porogram by a friend who has trouble with trig. I of course, said I would try, but I've already ran into a few problems. Here is the code: #cs ---------------------------------------------------------------------------- This is a program to solve triginometry equations by Redacted. It was started on 12th January 2007. Variables: $sA is side a $sB is side B $Hyp is the hypotenuse $aA is angle a $aB is angle b $cbaA is checkbox for angle A $cbsA is checkbox for side A $cbaB is checkbox for angle B $cbsB is checkbox for side B $cbHyp is checkbox for hypotenuse Updates: 12/107: Started Program Made $Error Wrote rules: Must have at least 1 side Angles can be no larger than 90 degrees Sum of angles a&b must be 90 #ce ---------------------------------------------------------------------------- ;The GUI #include <GUIConstants.au3> $GUI = GUICreate("Bobs Trig Program", 360, 274, 303, 183) $sA = GUICtrlCreateInput("1", 8, 120, 65, 21) $sB = GUICtrlCreateInput("2", 125, 176, 65, 21) $cbsA = GUICtrlCreateCheckbox("Side A", 8, 144, 57, 17) $cbsB = GUICtrlCreateCheckbox("Side B", 126, 200, 57, 17) $cbhyp = GUICtrlCreateCheckbox("Hypotenuse", 180, 70, 80, 17) $cbaA = GUICtrlCreateCheckbox("Angle A", 7, 61, 57, 17) $aA = GUICtrlCreateInput("60", 8, 39, 65, 21) $Hyp = GUICtrlCreateInput("Hyp", 214, 56, 65, 21) $aB = GUICtrlCreateInput("30", 272, 175, 65, 21) $cbaB = GUICtrlCreateCheckbox("Angle B", 271, 195, 57, 17) $Button = GUICtrlCreateButton("Calculate", 32, 232, 73, 25, 0) $Close = GUICtrlCreateButton("Close", 120, 232, 81, 25, 0) $InfoLabel = GUICtrlCreateLabel("You must have at least 1 side, and 2 pieces of information overall.", 8, 8, 313, 17) $Info = GUICtrlCreateButton("Info", 216, 232, 83, 25, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() If $nMsg = $Button Then call("Calculate") If $nMsg = $Info Then MsgBox(64,"Info","This Program Created By Robert Woollins") If $nMsg = $Close Then Exit Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Calculate() If $cbaA=True Then If $aA>90 Then Call("Error") EndIf If $cbaB=False Then $aB=90-$aA EndIf EndIf If $cbaB=True Then If $ab>90 Then Call("Error") EndIf If $cbaA=False Then $aA=90-$aB EndIf EndIf If $cbaA=True and $cbaB=True Then If $aA+$aB>90 Then Call("Error") EndIf If $aA+$aB<90 Then Call("Error") EndIf EndIf If $cbsA=False Then If $cbsB=False Then If $cbHyp=False Then Call("Error") EndIf EndIf EndIf Call("Answer") EndFunc Func Error() MsgBox(1, "Error", "There has been an error. Either a) you don't have enough information, one of the angles or the sum of them is too large or c) you don't have the right checkboxes ticked.") EndFunc Func Answer() $Answer=MsgBox(64,"Answers","Side A="& $sA& @CRLF &"Side B=" &$sB& @CRLF &"Hypotenuse=" &$Hyp& @CRLF &"Angle A=" &$aA& @CRLF &"Angle B=" &$aB) EndFunc The most important Error is that the answer box doesn't work properly, and if I don't get this fixed the program is useless. Another error is for some reason my error message box always appears. If anyone can help me I'd be very grateful. -Bob

I'd be interested in an easy way of finding the sin, or inverse sin, cos and tan of angles, I think it could be really useful for this program I'm trying to make, but IDK how to do them. -Bob

Can you make it create a traingle? I need one for this program and can't figure out how to make it make one. -Bob

Not porn, I'm just not meant to be on after 10 at night, which isn't nearly late enough. And I used this name becuase one I normally use on forums was taken and I couldn't think of anythink else so got a name from MSN contact I couldn't find that, thanks -Bob

Shutdown(6) ;Force a reboot This is all the helpfile gives me, is there a way to just shut down? Because I was thinking of making a program I could have running in the background, so when I call a function with a hotkey(Shift+Esc or sth) it would automatically shut down my computer, because sometimes I'm on my PC and I have to shut it down quickly for reasons I won't go into. So basically, how can you just shutdown? Is it something like Shutdown(5) or what? -Bob

Looks good, not gonna test it since Im don't own the game(play it at friends sometimes). I've seen a lot of these in SCAR, but not in auotit ^^

I can't see that making a large difference TBH, just saves a few characters. The other idea seemed useful... But there is no way of making it last for however long you have it pushed down? -Bob

Not much to say...I got bored and made a piano. Can be played with F1-F8 or by clicking, haven't figured out how to make it play for as long as you hold down though Suggestions are welcome. ;By Robert Woollins AKA BobiusMaximus Hotkeyset("{F1}","F1") Hotkeyset("{F2}","F2") Hotkeyset("{F3}","F3") Hotkeyset("{F4}","F4") Hotkeyset("{F5}","F5") Hotkeyset("{F6}","F6") Hotkeyset("{F7}","F7") Hotkeyset("{F8}","F8") #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Bobs Piano", 336, 106, 256, 155) $C1 = GUICtrlCreateButton("C", 8, 8, 33, 81, 0) $D1 = GUICtrlCreateButton("D", 48, 8, 33, 81, 0) $E1 = GUICtrlCreateButton("E", 88, 8, 33, 81, 0) $F1 = GUICtrlCreateButton("F", 128, 8, 33, 81, 0) $G1 = GUICtrlCreateButton("G", 168, 8, 33, 81, 0) $A1 = GUICtrlCreateButton("A", 208, 8, 33, 81, 0) $B1 = GUICtrlCreateButton("B", 248, 8, 33, 81, 0) $C2 = GUICtrlCreateButton("C", 288, 8, 33, 81, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() If $nMsg = $C1 Then Call("F1") If $nMsg = $D1 Then Call("F2") If $nMsg = $E1 Then Call("F3") If $nMsg = $F1 Then Call("F4") If $nMsg = $G1 Then Call("F5") If $nMsg = $A1 Then Call("F6") If $nMsg = $B1 Then Call("F7") If $nMsg = $C2 Then Call("F8") Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func F1() Beep(264, 500) EndFunc Func F2() Beep(297, 500) EndFunc Func F3() Beep(330, 500) EndFunc Func F4() Beep(352, 500) EndFunc Func F5() Beep(396, 500) EndFunc Func F6() Beep(440, 500) EndFunc Func F7() Beep(495, 500) EndFunc Func F8() Beep(523.3, 500) EndFunc -Bob

Does it actually matter which way it is done? I don't see any advantage to that way. -Bob

I have no idea. If using a program that 'GG' terminates would freeze your account don't trey it If not then try it and see -Bob

Well, I reckon I don't need the 2second wait there now I've been trying it out, how could I manage that? -Bob

It says there is an error in line 44 whenever I try to run that... Edit: I got my script working, but it doesn't stop when I push '0' #Include <Misc.au3> #cs ---------------------------------------------------------------------------- Bot for Playing field 2 found at http://hallpass.com/media/playingfield2.html By BobiusMaximus This has been designed using a 1024*768 Resoloution monitor and 'Opera' browser so may not work on others. #ce ---------------------------------------------------------------------------- If WinExists("Playing Field 2 -")Then WinActivate("Playing Field 2 -") MouseClickDrag("left", 1020, 365, 1020, 440) MouseClick("left", 498, 464) MouseClick("left", 506, 623) Sleep(1500) MouseClick("left", 456, 610) Sleep(7000) MouseClick("left", 461, 429) Sleep(1500) MouseClick("left", 321, 623) Send("crazymonkey") MouseClick("left", 445, 623) MouseClick("left", 620, 360) EndIf Do MouseClick("left", 321, 623) Send("consume") MouseClick("left", 445, 623) Sleep(2000) Until _IsPressed("0") -Bob

That doesn't work o.O Anyway, I improved the script a little so you don't have to do anything to start it(so just leave the window as is then run script) #Include <Misc.au3> #cs ---------------------------------------------------------------------------- Bot for Playing field 2 found at http://hallpass.com/media/playingfield2.html By BobiusMaximus This has been designed using a 1024*768 Resoloution monitor and 'Opera' browser so may not work on others. #ce ---------------------------------------------------------------------------- If WinExists("Playing Field 2 -")Then WinActivate("Playing Field 2 -") MouseClickDrag("left", 1020, 365, 1020, 440) MouseClick("left", 498, 464) MouseClick("left", 506, 623) Sleep(1500) MouseClick("left", 456, 610) Sleep(7000) MouseClick("left", 461, 429) Sleep(1500) MouseClick("left", 321, 623) Send("crazymonkey") MouseClick("left", 445, 623) MouseClick("left", 620, 360) EndIf Do MouseClick("left", 321, 623) Send("consume") MouseClick("left", 445, 623) Sleep(2000) Until Can you try adding it again to that one and see if it works then? -Bob

Exactly, I can't figure out how to end it rofl ^^