Amity bot please!
hehehe no xD i won't sell it it was meant from the beginning to be for learning purpose i just started learning c# 4 months ago and yea I'll release it for public wheb i get the maximum of it :3Quote:
It's going to be a paid bot sadly, randomized title says "pay", illuminati confirmed :D xD so far so good bro, if you aren't going to sell it you can always make it open source for others to learn and change to their likings (:
Local $C = FindRiddleAnchor() If $C[0] = -1 Or $C[1] = -1 Then Return False FFSnapShot($C[0] - 90, $C[1] - 90, $C[0] + $Spacing * 10 + 90, $C[1], $SSN) $LetterColor = FFGetPixel($C[0] - 90 + $COffset[0], $C[1] - 90 + $COffset[1], $SSN) Local $AnchorC[2] = [$C[0] - 90 + $COffset[0], $C[1] - 90 + $COffset[1]]
For $i = 0 To 9 Step 1
$Riddle = Riddle($AnchorC[0] + $Spacing * $i, $AnchorC[1], $LetterColor, $SSN)
If $Riddle = 4 Then ; If unidentified exit loop
$Word[$i] = $L[$Riddle]
ExitLoop
Else
$Word[$i] = $L[$Riddle]
$Wordlength += 1
EndIf
Next
A better solution is to "Send you the logs" as an SMS.Quote:
Hey guys is it possible to upload the stats from bot on a ftp server to see what the bot did collect if you are not on pc?
Amity? Like pressing F5?Quote:
Amity bot please!
Github perhaps?Quote:
hehehe no xD i won't sell it it was meant from the beginning to be for learning purpose i just started learning c# 4 months ago and yea I'll release it for public wheb i get the maximum of it :3
The Riddle solver looks for the . (mid point of > V ^ <).Quote:
Snipped
That's one of the early functions I wrote for this project and a perfect display of the bad habits I started with. This is how it looks in the reworked version and should hopefully make things more clear.Quote:
I dont understand some of the lines below except that you are taking a snapshot with FFSnapShot() and then saving the letter color into $LetterColor, but how you're using the functions with the parameters such as with FFSnapShot and FFGetPixel, and what $COffest is what I don't understand:
I am mainly confused about what $C, $COffset,$AnchorC, and $C[0] -90 is (basically what are you passing into all the parameters of those functions used above?Code:Local $C = FindRiddleAnchor() If $C[0] = -1 Or $C[1] = -1 Then Return False FFSnapShot($C[0] - 90, $C[1] - 90, $C[0] + $Spacing * 10 + 90, $C[1], $SSN) $LetterColor = FFGetPixel($C[0] - 90 + $COffset[0], $C[1] - 90 + $COffset[1], $SSN) Local $AnchorC[2] = [$C[0] - 90 + $COffset[0], $C[1] - 90 + $COffset[1]]
Func Riddler() ; Solves the fishing letter minigame
Local Const $AnchorOffset[2] = [16, 25] ; relative position to Anchor (pointing to center of the arrow beneath each letter)
Local Const $Spacing = 35 ; Space between each Letter
Local Const $L[5] = ["s", "w", "d", "a", "."] ; basic minigame letters ("." for unidentified)
Local $Word[10], $LetterColor, $text, $Riddle, $Wordlength = 0, $SSN = 1
Local $aAnchor = FindRiddleAnchor()
If Not IsArray($aAnchor) Then
SetGUIStatus("Perfect Catch?")
Return False
EndIf
$aAnchor[0] -= 45 ; Base Offset to include letters since anchor is below
$aAnchor[1] -= 60
FFSnapShot($aAnchor[0] - 10, $aAnchor[1] - 10, $aAnchor[0] + $Spacing * 10 + 10, $aAnchor[1] + 40, $SSN)
$LetterColor = FFGetPixel($aAnchor[0] + $AnchorOffset[0], $aAnchor[1] + $AnchorOffset[1], $SSN)
; Riddle each letter position from left to right until one is unidentified or last position is reached.
For $i = 0 To 9 Step 1
$Riddle = Riddle($aAnchor[0] + $AnchorOffset[0] + $Spacing * $i, $aAnchor[1] + $AnchorOffset[1], $LetterColor, $SSN)
If $Riddle = 4 Then ; If unidentified exit loop
$Word[$i] = $L[$Riddle]
ExitLoop
Else
$Word[$i] = $L[$Riddle]
$Wordlength += 1
EndIf
Next
; If Wordlenght is >= 2 Then send each letter
If $Wordlength < 2 Then
Return (False)
Else
For $i = 0 To 9 Step 1
If $Word[$i] <> "." Then
Sleep(50) ; TODO Settings
CoSe($Word[$i])
$text &= $Word[$i]
EndIf
Sleep(100)
Next
Return (True)
EndIf
EndFunc ;==>Riddler
No problem take your time ! :)Quote:
That's one of the early functions I wrote for this project and a perfect display of the bad habits I started with. This is how it looks in the reworked version and should hopefully make things more clear.
Code:Func Riddler() ; Solves the fishing letter minigame Local Const $AnchorOffset[2] = [16, 25] ; relative position to Anchor (pointing to center of the arrow beneath each letter) Local Const $Spacing = 35 ; Space between each Letter Local Const $L[5] = ["s", "w", "d", "a", "."] ; basic minigame letters ("." for unidentified) Local $Word[10], $LetterColor, $text, $Riddle, $Wordlength = 0, $SSN = 1 Local $aAnchor = FindRiddleAnchor() If Not IsArray($aAnchor) Then SetGUIStatus("Perfect Catch?") Return False EndIf $aAnchor[0] -= 45 ; Base Offset to include letters since anchor is below $aAnchor[1] -= 60 FFSnapShot($aAnchor[0] - 10, $aAnchor[1] - 10, $aAnchor[0] + $Spacing * 10 + 10, $aAnchor[1] + 40, $SSN) $LetterColor = FFGetPixel($aAnchor[0] + $AnchorOffset[0], $aAnchor[1] + $AnchorOffset[1], $SSN) ; Riddle each letter position from left to right until one is unidentified or last position is reached. For $i = 0 To 9 Step 1 $Riddle = Riddle($aAnchor[0] + $AnchorOffset[0] + $Spacing * $i, $aAnchor[1] + $AnchorOffset[1], $LetterColor, $SSN) If $Riddle = 4 Then ; If unidentified exit loop $Word[$i] = $L[$Riddle] ExitLoop Else $Word[$i] = $L[$Riddle] $Wordlength += 1 EndIf Next ; If Wordlenght is >= 2 Then send each letter If $Wordlength < 2 Then Return (False) Else For $i = 0 To 9 Step 1 If $Word[$i] <> "." Then Sleep(50) ; TODO Settings CoSe($Word[$i]) $text &= $Word[$i] EndIf Sleep(100) Next Return (True) EndIf EndFunc ;==>Riddler
PS: New version is delayed a little more due to the perfect weather. Cba to sit at home atm, sorry.
Install Autoit- newest version.Quote:
Can someone make a video tutorial on how to use this? Or at least kind of layout the steps? I only ask because I do not see a .exe so when looking at this I really am unsure what needs to be done. I can pay if need be.