Generate insults with evilinsult.com API!

[SpriggsySpriggs]

Trust me; they get far raunchier.

 

Have fun with this:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. PRINT GetInsult
5. SLEEP
6.  
7. FUNCTION GetInsult$
8.     DIM URL AS STRING
9.     DIM URLFile AS STRING
10.     DIM insultresponse AS STRING
11.     DIM a%
12.     URLFile = "insultresponse"
13.     URL = "https://evilinsult.com/generate_insult.php?lang=en"
14.     a% = API_request(URL, URLFile)
15.     DIM U AS INTEGER
16.     U = FREEFILE
17.     OPEN URLFile FOR BINARY AS #U
18.     IF LOF(U) <> 0 THEN
19.         insultresponse = SPACE$(LOF(U))
20.         GET #U, , insultresponse
21.     ELSE
22.         CLOSE #U
23.         KILL URLFile
24.         GetInsult = ""
25.         EXIT FUNCTION
26.     END IF
27.     CLOSE #U
28.     KILL URLFile
29.     insultresponse = String.Replace(insultresponse, "&quot;", CHR$(34))
30.     insultresponse = String.Replace(insultresponse, "&gt;", ">")
31.     GetInsult = insultresponse
32. END FUNCTION
33.  
34. FUNCTION String.Replace$ (a AS STRING, b AS STRING, c AS STRING)
35.     DIM j
36.     DIM r$
37.     j = INSTR(a, b)
38.     IF j > 0 THEN
39.         r$ = LEFT$(a, j - 1) + c + String.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
40.     ELSE
41.         r$ = a
42.     END IF
43.     String.Replace = r$
44. END FUNCTION
45.  
46. DECLARE DYNAMIC LIBRARY "urlmon"
47.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
48. END DECLARE
49.  
50. FUNCTION API_request (URL AS STRING, File AS STRING)
51.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
52. END FUNCTION

[SpriggsySpriggs]

Or perhaps you'd like it spoken aloud to you, you dang fool:

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. DIM insult AS STRING
5. insult = GetInsult
6. PRINT insult
7. TTS insult
8.  
9. SLEEP
10.  
11. FUNCTION GetInsult$
12.     DIM URL AS STRING
13.     DIM URLFile AS STRING
14.     DIM insultresponse AS STRING
15.     DIM a%
16.     URLFile = "insultresponse"
17.     URL = "https://evilinsult.com/generate_insult.php?lang=en"
18.     a% = API_request(URL, URLFile)
19.     DIM U AS INTEGER
20.     U = FREEFILE
21.     OPEN URLFile FOR BINARY AS #U
22.     IF LOF(U) <> 0 THEN
23.         insultresponse = SPACE$(LOF(U))
24.         GET #U, , insultresponse
25.     ELSE
26.         CLOSE #U
27.         KILL URLFile
28.         GetInsult = ""
29.         EXIT FUNCTION
30.     END IF
31.     CLOSE #U
32.     KILL URLFile
33.     insultresponse = String.Replace(insultresponse, "&quot;", CHR$(34))
34.     insultresponse = String.Replace(insultresponse, "&gt;", ">")
35.     GetInsult = insultresponse
36. END FUNCTION
37.  
38. FUNCTION String.Replace$ (a AS STRING, b AS STRING, c AS STRING)
39.     DIM j
40.     DIM r$
41.     j = INSTR(a, b)
42.     IF j > 0 THEN
43.         r$ = LEFT$(a, j - 1) + c + String.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
44.     ELSE
45.         r$ = a
46.     END IF
47.     String.Replace = r$
48. END FUNCTION
49.  
50. DECLARE DYNAMIC LIBRARY "urlmon"
51.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
52. END DECLARE
53.  
54. FUNCTION API_request (URL AS STRING, File AS STRING)
55.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
56. END FUNCTION
57.  
58. DECLARE LIBRARY
59.     FUNCTION WinExec (lpCmdLine AS STRING, BYVAL nCmdShow AS LONG)
60. END DECLARE
61.  
62. SUB TTS (lines AS STRING)
63.     DIM x
64.     x = WinExec("voice -d " + lines + CHR$(0), 0)
65. END SUB

[bplus]

Well you peaked my interest when you said audio but I think you are using a built-in Windows thing not an On-Line service. Or are you using an On-line service?

Anyway it's not working for me with Windows 10 laptop.

BTW the spirit of Don Rickles lives on I hear! ;)

[SpriggsySpriggs]

@bplus shoot, I forgot to attach the exe. It's attached now.

[bplus]

LOL while testing the voice box I wanted to put the insult thing in a loop, I made a little blunder but it had cool effect!

Here it is under control:

Code: QB64: [Select]

1. _TITLE "Audio Insult needs Voice.exe"
2. ' ref Spriggsy 2020-07-23  https://www.qb64.org/forum/index.php?topic=2846.msg121080#msg121080
3. $CONSOLE:ONLY
4. _DEST _CONSOLE
5.  
6. DIM insult AS STRING
7. WHILE _KEYDOWN(27) = 0  ' <<<  esc never gets caught!!!!
8.     loopcnt = loopcnt + 1
9.     IF loopcnt > 30 THEN SYSTEM '  alternate ending
10.     insult = GetInsult
11.     PRINT insult
12.     TTS insult
13. WEND
14. SLEEP  '< should of put this inside loop?
15.  
16. FUNCTION GetInsult$
17.     DIM URL AS STRING
18.     DIM URLFile AS STRING
19.     DIM insultresponse AS STRING
20.     DIM a%
21.     URLFile = "insultresponse"
22.     URL = "https://evilinsult.com/generate_insult.php?lang=en"
23.     a% = API_request(URL, URLFile)
24.     DIM U AS INTEGER
25.     U = FREEFILE
26.     OPEN URLFile FOR BINARY AS #U
27.     IF LOF(U) <> 0 THEN
28.         insultresponse = SPACE$(LOF(U))
29.         GET #U, , insultresponse
30.     ELSE
31.         CLOSE #U
32.         KILL URLFile
33.         GetInsult = ""
34.         EXIT FUNCTION
35.     END IF
36.     CLOSE #U
37.     KILL URLFile
38.     insultresponse = STRING.Replace(insultresponse, "&quot;", CHR$(34))
39.     insultresponse = STRING.Replace(insultresponse, "&gt;", ">")
40.     GetInsult = insultresponse
41. END FUNCTION
42.  
43. FUNCTION STRING.Replace$ (a AS STRING, b AS STRING, c AS STRING)
44.     DIM j
45.     DIM r$
46.     j = INSTR(a, b)
47.     IF j > 0 THEN
48.         r$ = LEFT$(a, j - 1) + c + STRING.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
49.     ELSE
50.         r$ = a
51.     END IF
52.     STRING.Replace = r$
53. END FUNCTION
54.  
55. DECLARE DYNAMIC LIBRARY "urlmon"
56.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
57. END DECLARE
58.  
59. FUNCTION API_request (URL AS STRING, File AS STRING)
60.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
61. END FUNCTION
62.  
63. DECLARE LIBRARY
64.     FUNCTION WinExec (lpCmdLine AS STRING, BYVAL nCmdShow AS LONG)
65. END DECLARE
66.  
67. SUB TTS (lines AS STRING)
68.     DIM x
69.     x = WinExec("voice -d " + lines + CHR$(0), 0)
70. END SUB
71.  
72.  

After you think it's done press spacebar.

[bplus]

Ohhh CONSOLE doesn't do normal stuff with keys!

[SpriggsySpriggs]

Yeah CONSOLE has a totally different keystroke detection. A little annoying at times but I like using $CONSOLE:ONLY for my simple programs. Check out the help page for _CINP

[bplus]

@SpriggsySpriggs

I am testing this in a normal window and the thing in a loop keeps repeating the same insult. It doesn't seem to be getting fresh ones.

[SpriggsySpriggs]

@bplus Add a delay to the loop. I think you are running the loop so fast it doesn't have time to GetInsult and the voice doesn't have time to finish talking. Winexec works differently from SHELL. If I used SHELL it would stop and make the program wait until VOICE was complete. That, and the API might have a refresh time of so many requests in a certain span of time.

[bplus]

Right I never used WinExec before.

I tried this mod and STILL! no 2nd insult:

Code: QB64: [Select]

1. _TITLE "Audio Insult needs Voice.exe"
2. ' ref Spriggsy 2020-07-23  https://www.qb64.org/forum/index.php?topic=2846.msg121080#msg121080
3. '$CONSOLE:ONLY
4. '_DEST _CONSOLE
5.  
6. DIM insult AS STRING, insult2 AS STRING
7. WHILE _KEYDOWN(27) = 0
8.     loopcnt = loopcnt + 1
9.     IF loopcnt > 30 THEN SLEEP: END
10.     IF _FILEEXISTS("insultresponse") THEN KILL "insultresponse"
11.     insult = GetInsult
12.     PRINT insult
13.     TTS insult
14.     SLEEP
15.  
16.     IF _FILEEXISTS("insultresponse") THEN KILL "insultresponse"
17.     insult2 = GetInsult
18.     PRINT insult2
19.     TTS insult2
20.     SLEEP
21. WEND
22.  
23. SLEEP
24.  

It definitely seems like a timing thing!

[SpriggsySpriggs]

@bplus Yep, it's an API thing. If I just go to the URL in a browser and hit refresh I get the same insult 3 - 4 times back to back before getting a new one. Chances are we need a heavy delay.

[bplus]

When I was testing original without loop it seems to me I was restarting exe in about the same amount of time, maybe not? and getting different insults although they started recycling quickly enough.

[SpriggsySpriggs]

@bplus I'm not sure then.

[SpriggsySpriggs]

@bplus I've modified this. The issue is with URLMON. The first argument in URLDownloadToFileA is the ID of the caller. The webserver reads that and I guess it just keeps sending me the same data because of that. I've modified my code to use CURL instead:

Code: QB64: [Select]

1. _CONSOLETITLE "Insult Generator 2.0"
2.  
3. $CONSOLE:ONLY
4. _DEST _CONSOLE
5.  
6. DIM insult AS STRING
7. DO
8.     loopcnt = loopcnt + 1
9.     IF loopcnt > 30 THEN SYSTEM
10.     insult = ""
11.     insult = GetInsult
12.     PRINT insult
13.     TTS insult
14. LOOP
15. SYSTEM
16.  
17. FUNCTION GetInsult$
18.     DIM URL AS STRING
19.     DIM URLFile AS STRING
20.     DIM insultresponse AS STRING
21.     DIM a%
22.     URLFile = "insultresponse"
23.     SHELL _HIDE "curl " + CHR$(34) + "https://evilinsult.com/generate_insult.php?lang=en" + CHR$(34) + " -o " + URLFile
24.  
25.     DIM U AS INTEGER
26.     U = FREEFILE
27.     OPEN URLFile FOR BINARY AS #U
28.     IF LOF(U) <> 0 THEN
29.         insultresponse = SPACE$(LOF(U))
30.         GET #U, , insultresponse
31.     ELSE
32.         CLOSE #U
33.         KILL URLFile
34.         GetInsult = ""
35.         EXIT FUNCTION
36.     END IF
37.     CLOSE #U
38.     KILL URLFile
39.     insultresponse = STRING.Replace(insultresponse, "&quot;", CHR$(34))
40.     insultresponse = STRING.Replace(insultresponse, "&gt;", ">")
41.     insultresponse = STRING.Replace(insultresponse, "&amp;", "&")
42.     insultresponse = STRING.Replace(insultresponse, "-->", "")
43.     GetInsult = insultresponse
44. END FUNCTION
45.  
46. FUNCTION STRING.Replace$ (a AS STRING, b AS STRING, c AS STRING)
47.     DIM j
48.     DIM r$
49.     j = INSTR(a, b)
50.     IF j > 0 THEN
51.         r$ = LEFT$(a, j - 1) + c + STRING.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
52.     ELSE
53.         r$ = a
54.     END IF
55.     STRING.Replace = r$
56. END FUNCTION
57.  
58. SUB TTS (lines AS STRING)
59.     DIM x
60.     x = _SHELLHIDE("voice -d " + lines + CHR$(0))
61. END SUB

[Lucky_Strikez]

"Do you have to leave so soon? I was just about to poison the tea."        haha!