bonebreaker

Is it possible to send pc output sound to microphone ? If it is (which i don't doubt) how could i toggle this setting ? Thanks, bone

I'm glad you like it I haven't realy noticed that huge speed increase, since my computer sucks Is it unbeatable like that? v1.1 added

You all know the old snake game, well here it is in a bit different form. You can add enemys in the game at settings/enemy or you can play without them. previously ~ 50 dl snake_v1.1.au3

How big puzzle was that ? I added an option to make the images smaller/biger than the original size so now you can use pictures which are biger than the screen.

Thanks thats great, I made some changes to it also, updated version in first post I have 3 solutions so far, but it's extra hard to find all..

I think you all know the game so there is no need for explanation, try it! -You will need prospeed.dll for it to split the image to parts Prospeed from jpam -It doesn't work if you run it from the compiler by pressinf F5 Thanks to jpam for prospeed! imagepuzzle.au3

Thanks I already tryed to make it black & white but it was totaly confusing for the eye . But I will try to replace the queen with an image.

Thanks I think the screenshot will make it ! But the best way would be sykeos idea to hide parts from the image and display parts, I have no idea on that one.

I would like to split an image to multiple rectangles, what would be the most appropriate way ? I think the best way to create the splited parts as new images, but how ? thanks!

The objective is to place 8 queens on the board without making them attack each other! It needs a bit of thinking but there is a dozen solution, good luck! Don't dare to cheat Added a .rar file which contains a fixed version with cool gui thanks to Ed Maximized! 8queens.au3 8_queens_v1.0.rar

Well actually this opens windows media player for me O.o

Post your score, so I can have a clue about how dumb I am:D Anyway i rediscovered fileexist function so the script is now stand-alone:)

That can only happen if you haven't created the primes.txt file in the scripts directory with this script in the first post. I didn't want to upload a huge txt file.. $primes=_PrimeSearch(10000) $file=fileopen("primes.txt",2) FileWriteLine($file,$primes[0]) for $i=1 to $primes[0] FileWriteLine($file,$primes[$i]) next fileclose($file) func _PrimeSearch($searchlimit) local $i=5,$primes[int($searchlimit/4)],$primenum,$step=2 $primes[3]=5 $primes[2]=3 $primes[1]=2 $primes[0]=3 while $i<$searchlimit $primenum=3 $i+=$step $step=6-$step while $i >= ($primes[$primenum]*$primes[$primenum]) if mod($i,$primes[$primenum])=0 Then continueloop 2 $primenum+=1 wend $primes[0]+=1 $primes[$primes[0]]=$i wend redim $primes[$primes[0]+1] return $primes endfunc

Added a small game to demonstrate that primes are fun

You are right, sry fixed it now:)

I made a program almost the same but with the ability to control it over tcp. With much much more evil functions: screen res changeing, monitor,pc-shutoff, some frigging high frequency beep that the victim doesn't notice but gets iritated , etc.. But I guess I would be punished for posting such things Anyway i managed to scare myselft with this program, i ran it multiple times and forgot about the cdtray delay then it popped up unexpectedly

I finaly managed to bring the primesearchs time to 0.9 sec for 10000 on my machine.It would be much slower if i redimed the array every time it finds a new prime, but its more pointless i know. I made small yet challanging program to demonstrate a use of the udfs:o If you want to make the game more difficult reduce the time and increase $place 's starting amount. Oh, and don't forget to post your scores ;=============================================================================== ; ; Function Name: _PrimeSearch ; Description:: Find all primes until the specified limit ; Parameter(s): $searchlimit - search limit ; Return Value(s): array[0] contains the amount of primes found ; array[x] contains the xth prime ; Author(s): bonebreaker ; ;=============================================================================== ; func _PrimeSearch($searchlimit) local $i=5,$primes[int($searchlimit/4)],$primenum,$step=2 $primes[3]=5 $primes[2]=3 $primes[1]=2 $primes[0]=3 while $i<$searchlimit $primenum=3 $i+=$step $step=6-$step while $i >= ($primes[$primenum]*$primes[$primenum]) if mod($i,$primes[$primenum])=0 Then continueloop 2 $primenum+=1 wend $primes[0]+=1 $primes[$primes[0]]=$i wend redim $primes[$primes[0]+1] return $primes endfunc ;<=== _PrimeSearch ;=============================================================================== ; ; Function Name: _IsPrime ; Description:: Check if a number is prime or not ; Parameter(s): $number - Number to check ; Return Value(s): 1 - Number is prime ; 0 - Number is not prime ; Author(s): bonebreaker ; ;=============================================================================== ; func _IsPrime($number) local $divisor=5,$step=2 if ($number <> 2) and (mod($number,2)=0) then return 0 if ($number <> 3) and (mod($number,3)=0) then return 0 while $number >= ($divisor*$divisor) if mod($number,$divisor)=0 Then return 0 $divisor+=$step $step=6-$step wend return 1 endfunc ;<=== _IsPrime ;=============================================================================== ; ; Function Name: _PrimeDivide ; Description:: Divide a number into primes ; Parameter(s): $number - The number to divide ; Return Value(s): array[0] contains the amount of divisors used ; array[x] contains the xth divisor ; Author(s): bonebreaker ; ;=============================================================================== ; func _PrimeDivide($number) local $divisor=2,$divisors[1],$step=2 $divisors[0]=0 while 1 if mod($number,$divisor) then $divisor +=1 exitloop else $divisors[0] +=1 redim $divisors[$divisors[0]+1] $divisors[$divisors[0]]=$divisor $number=$number/$divisor endif wend while 1 if mod($number,$divisor) then $divisor +=2 exitloop else $divisors[0] +=1 redim $divisors[$divisors[0]+1] $divisors[$divisors[0]]=$divisor $number=$number/$divisor endif wend while $number > 1 if mod($number,$divisor) then $divisor +=$step $step=6-$step else $divisors[0] +=1 $step=6-$step redim $divisors[$divisors[0]+1] $divisors[$divisors[0]]=$divisor $number=$number/$divisor endif wend return $divisors endfunc ;<=== _PrimeDivideprimeitive.au3

I liked the idea but the solution was quite buggy and didn't work well so i made a wef changes and added an other fake emailer site. So much fun to fool friends #include <IE.au3> AutoItSetOption("WinTitleMatchMode",2) Opt("TrayAutoPause",0) Func sendmail($FromName,$FromEmail,$ToEmail,$Subject,$Message,$server) select case $server =1 $oIE = _IECreate ("http://www.spoofalot.com/anon_email.php", 0,0) WinSetState("Spoofalot Anon Emails","",@SW_HIDE) $oForm = _IEFormGetObjByName ($oIE, "send") $oFromName = _IEFormElementGetObjByName ($oForm, "from") $oFromEmail = _IEFormElementGetObjByName ($oForm, "email") $oToEmail = _IEFormElementGetObjByName ($oForm, "to") $oSubject= _IEFormElementGetObjByName ($oForm, "subject") $oMessage = _IEFormElementGetObjByName ($oForm, "message") $sendclick = _IEGetObjByName ($oIE, "submit") If @error Then return 0 EndIf _IEFormElementSetValue ($oFromName,$FromName ) _IEFormElementSetValue ($oFromEmail,$FromEmail ) _IEFormElementSetValue ($oToEmail,$ToEmail ) _IEFormElementSetValue ($oSubject,$Subject ) _IEFormElementSetValue ($oMessage,$Message ) _IEAction($sendclick,"click") _IELoadWait($oIE) _IEQuit($oIE) return 1 case $server=2 $oIE = _IECreate ("http://www.msnmadness.com/find.php?mm=an", 0,0) WinSetState("MsnMadness.com","",@SW_HIDE) $oForm = _IEFormGetObjByName ($oIE, "sendemail") $oFromEmail = _IEFormElementGetObjByName ($oForm, "from") $oToEmail = _IEFormElementGetObjByName ($oForm, "to") $oSubject= _IEFormElementGetObjByName ($oForm, "subject") $oMessage = _IEFormElementGetObjByName ($oForm, "body") $sendclick = _IEGetObjByName ($oIE, "submit") If @error Then return 0 EndIf _IEFormElementSetValue ($oFromEmail,$FromEmail ) _IEFormElementSetValue ($oToEmail,$ToEmail ) _IEFormElementSetValue ($oSubject,$Subject ) _IEFormElementSetValue ($oMessage,$Message ) _IEAction($sendclick,"click") _IELoadWait($oIE) _IEQuit($oIE) return 1 endselect EndFunc GuiCreate("Fake Emailer - remade by bonebreaker after locomaesto", 390,385) GUICtrlCreateLabel("From:",5,5) $From = GuiCtrlCreateInput("",65, 5, 320, 20) GUICtrlCreateLabel("From email:",5,35) $FromEmail = GuiCtrlCreateInput("", 65, 35, 320, 20) GUICtrlCreateLabel("To:",5,65) $To = GuiCtrlCreateInput("",65, 65, 320, 20) GUICtrlCreateLabel("Subject:",5,95) $Subject = GuiCtrlCreateInput("", 65,95, 320, 20) $Message = GuiCtrlCreateEdit("", 5, 125,380, 230) $Send = GuiCtrlCreateButton("Send", 5, 360, 80, 20) $amount = GUICtrlCreateInput("1",145,360,60,20) GUICtrlCreateLabel("Amount:",95,360) GUICtrlCreateLabel("Server:",210,360) $whichserver=GUICtrlCreatecombo("1-fast but bulk",250,360,135,20) GUICtrlSetData(-1,"2-slow not bulk") GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $send GuiSetState(@SW_HIDE) $emails = 0 $choose = int(stringleft(guictrlread($whichserver),1)) $enough = GUICtrlRead($amount) do tooltip("Emails: " & $enough & @CRLF & "Emails left: " & $enough - $emails,@DesktopWidth-100,@DesktopHeight-100) $result=sendmail(GUICtrlRead($From),GUICtrlRead($FromEmail),GUICtrlRead($To),GUICtrlRead($subject),GUICtrlRead($Message),$choose) if $result=0 then msgbox(0,"Send Failed","Server "&$choose&" is down") exitloop endif Sleep(250) $emails = $emails + 1 until $emails = $enough tooltip("") GuiSetState(@SW_SHOW) Case $msg = -3 exit EndSelect WEnd

Maybe i am lame but i don't get what should i do.. the screen is black, nothing seem to happen maybe change @desktopdir to @scriptdir for the pictures and don't save stuff in my C directory, do it in scriptdir also..

wow, I installed beta version and its much much faster 2.7 in the original way 1.2 with mine

The first script is a random joke downloader: It always downloads a joke then pops up its tray icon when finished.Left click to pop up the joke and right to close it. The second is a lame game: Add the number of cases you want to play with then there you go. randomjoke.au3 suitcase.au3

Does tcp work with a router ? I forwarded ports, and it's still not working :/

Nice, I made a faster way for you to check for primes (it makes it in less than half time) , implement it if you want to: $searchlimit=10000 ;your method $timer=TimerInit() $primes=$searchlimit for $check=2 to $searchlimit $divisor=2 while $check >= $divisor*$divisor if mod($check,$divisor)=0 Then $primes -=1 exitloop endif $divisor +=1 wend next msgbox(0,"your method","Speed: "&TimerDiff($timer)/1000&" Primes: "&$primes) ;my method $timer=TimerInit() $primes=$searchlimit/2 for $check=3 to $searchlimit step 2 $divisor=3 while $check >= $divisor*$divisor if mod($check,$divisor)=0 Then $primes -=1 exitloop endif $divisor +=2 wend next msgbox(0,"my method","Speed: "&TimerDiff($timer)/1000&" Primes: "&$primes)

Thx, i forgot to try @CF when i tried to do it this way

Hi, i've been searching for a while but can't discover any function that would delete linebreaks from my string. My try was this: $executeit=StringAddCR ($mystring) StringStripCR($executeit) execute($executeit) thanks