Accessing Artificial Intelligence Services
The commands provided here offer you a gateway to the cutting-edge Artificial Intelligence services provided by industry leaders such as OpenAI and GPT4All and Stability AI.
Also you can use AI-Systems like Stable Diffusion local on your Computer.
In addition, if you're interested in top-tier speech synthesis, Elevenlabs' services are also readily accessible through these commands.
If it looks like magic, its possibly AI. The AIC.-Command is the tool of choice to combine the Ingredients.
Please read details about how to prepare for using these services.
The AIC.-Command is a collection of Subcommands that will connect you SPR-Script with the world of Artificial Intelligence.
You can test if you API-Key is properly registered using the AIC.Save Key|<API Key> Command:
$$KEY=sk-proj-asdasidahjdrf9823qre46239804rziaisdjh
AIC.Save Key|$$KEY
AIC.SetKey|from File
:Test_AI
$$ERM=You didn't provide an API key. You need to provide your API key in an Authorization header using Bearer auth (i.e. Authorization: Bearer YOUR_KEY), or as the password field (with blank username) if you're accessing the API from your browser and are prompted for a username and password. You can obtain an API key from https://platform.openai.com/account/api-keys.
AIC.Ask Chat|Are you there?|$$RET
MBX.$$RET
AIC.Get Error|$$ERN
IVC.$$ERN=$$ERM
PRT.$$ERN
MBX.Something is wrong with your API-Key. $crlf$You need to specify a valid API-Key in a Textfile to use this program.
END.
EIF.
ENR.$$KEY=sk-proj-bg9X4Fggxfp25OFKmaaeT3wBlbkFJ4x227qTM6YYtJ3C9VEjS
AIC.Save Key|$$KEY
AIC.SetKey|from File
:Test_AI
$$ERM=You didn't provide an API key. You need to provide your API key in an Authorization header using Bearer auth (i.e. Authorization: Bearer YOUR_KEY), or as the password field (with blank username) if you're accessing the API from your browser and are prompted for a username and password. You can obtain an API key from https://platform.openai.com/account/api-keys.
AIC.Ask Chat|Are you there?|$$RET
MBX.$$RET
AIC.Get Error|$$ERN
IVC.$$ERN=$$ERM
PRT.$$ERN
MBX.Something is wrong with your API-Key. $crlf$You need to specify a valid API-Key in a Textfile to use this program.
END.
EIF.
ENR.
You can start with manual testing your Prompt and API-Key
You can test your idea and verify your API-Key here, online using:
There you have all options that the SPR also offers in the Script.
If you prefer a local installation of "Better GPT" (which i can recommend) then download and install:
This way you have the client local, and you can export your prompts into a ".csv" and use them later within your Script.
You can combine all sorts of AI using the SPR.
The following Sample-Code will take your Theme, ask Open AI to improve it. And then generate the Picture with SDL.
You need to have your OpenAI API-Key saved locally in the Scriptfolder using the Save_Key Command.
VAR.$$THE="neural network beautiful golden girl Galaxy robot digital photorealistic NC-1701 enterprise"
VAR.$$PAO=Please make me a prompt below 231 characters, for stable diffusion using the following Theme: $$THE. Please only the result and no further comments.
' Use Image Register 0
VIN.$$IMR=0
' Set OpenAI API-Key from the saved File
AIC.SetKey|File
' Set Model-Temperature
AIC.Set_Temperature|0
' Set Max-Tokens (Possible lenght of answer, depending on the Model up to 2000 Tokens which is about ~6000 characters)
' The more Tokens you use the more you need to pay. But the longer Input and Output can be.
AIC.SetMax_Token|300
FOR.$$STP|1|25
AIC.Ask_Chat|$$PAO|$$RET
DBP. Got: <<$$RET >>
$$FIR=?path\Sample Pics\Testresult_?.png
FIL.gen|$$FIR|1|0|$$FIL
SDL.gtf|$$RET|$$FIL
ANA.Load|$$IMR|$$FIL
' This will print a Text inside the Picture
$$TXT=SPR/SDO. generated: $$STP Steps
$$COA=&HFFFFFF
$$COB==&H0
$$BGC=-2
$$XPA=30
$$YPA=450
ANA.PrintAt|$$IMR|$$TXT|$$COA|$$BGC|$$XPA|$$YPA|24
ANA.PrintAt|$$IMR|$$TXT|$$COB|$$BGC|($$XPA+1)|($$YPA+2)|24
' Mow we load the picture
DBP.Loaded in IR:$$IMR -> $$FIL
ANA.Save|$$IMR|$$FIL
ANA.Show|$$IMR!
NEX.
ENR.
One of the SDL.-generated Pictures.