Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 23, 2020, 09:50:53 am

Title: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 09:50:53 am
Trust me; they get far raunchier.

 


Have fun with this:

Code: QB64: [Select]
  3.  
  4. PRINT GetInsult
  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
  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$
  45.  
  47.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  49.  
  50. FUNCTION API_request (URL AS STRING, File AS STRING)
  51.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 09:57:08 am
Or perhaps you'd like it spoken aloud to you, you dang fool:

Code: QB64: [Select]
  3.  
  4. DIM insult AS STRING
  5. insult = GetInsult
  6. PRINT insult
  7. TTS insult
  8.  
  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
  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$
  49.  
  51.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  53.  
  54. FUNCTION API_request (URL AS STRING, File AS STRING)
  55.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
  57.  
  59.     FUNCTION WinExec (lpCmdLine AS STRING, BYVAL nCmdShow AS LONG)
  61.  
  62. SUB TTS (lines AS STRING)
  63.     DIM x
  64.     x = WinExec("voice -d " + lines + CHR$(0), 0)
Title: Re: Generate insults with evilinsult.com API!
Post by: bplus on July 23, 2020, 10:08:29 am
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! ;)

Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 10:09:33 am
@bplus shoot, I forgot to attach the exe. It's attached now.
Title: Re: Generate insults with evilinsult.com API!
Post by: bplus on July 23, 2020, 10:39:16 am
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
  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
  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
  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$
  54.  
  56.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  58.  
  59. FUNCTION API_request (URL AS STRING, File AS STRING)
  60.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
  62.  
  64.     FUNCTION WinExec (lpCmdLine AS STRING, BYVAL nCmdShow AS LONG)
  66.  
  67. SUB TTS (lines AS STRING)
  68.     DIM x
  69.     x = WinExec("voice -d " + lines + CHR$(0), 0)
  71.  
  72.  

After you think it's done press spacebar.
Title: Re: Generate insults with evilinsult.com API!
Post by: bplus on July 23, 2020, 10:46:26 am
Ohhh CONSOLE doesn't do normal stuff with keys!
Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 10:48:05 am
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
Title: Re: Generate insults with evilinsult.com API!
Post by: bplus on July 23, 2020, 10:54:45 am
@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.
Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 11:04:18 am
@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.
Title: Re: Generate insults with evilinsult.com API!
Post by: bplus on July 23, 2020, 11:08:40 am
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
  22.  
  24.  

It definitely seems like a timing thing!
Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 11:09:08 am
@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.
Title: Re: Generate insults with evilinsult.com API!
Post by: bplus on July 23, 2020, 11:13:31 am
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.
Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 11:20:52 am
@bplus I'm not sure then.
Title: Re: Generate insults with evilinsult.com API!
Post by: SpriggsySpriggs on July 23, 2020, 11:35:38 am
@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.  
  5.  
  6. DIM insult AS STRING
  8.     loopcnt = loopcnt + 1
  9.     IF loopcnt > 30 THEN SYSTEM
  10.     insult = ""
  11.     insult = GetInsult
  12.     PRINT insult
  13.     TTS insult
  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
  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$
  57.  
  58. SUB TTS (lines AS STRING)
  59.     DIM x
  60.     x = _SHELLHIDE("voice -d " + lines + CHR$(0))
Title: Re: Generate insults with evilinsult.com API!
Post by: Lucky_Strikez on August 01, 2020, 12:00:01 pm
"Do you have to leave so soon? I was just about to poison the tea."        haha!
Text Only | Text with Attachments