Recent Posts

1

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by cyberjedi on Today at 03:33:00 pm »

Hey guys, interesting concept im working on a as a plugin in: As u can see, its all about XML.im like a broken record here
chime in any time
Rem Type=Plugin
Rem Name=ChatGpt
Rem Author= cyberjedi
Rem Host=All
 
 
 
Rem PLUGIN: PRE-PROCESS
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.
 
HalBrain.ReadOnlyMode = True
'Determines that you are talking about chatgpt
If InStr(1,InputString, "chatgpt",1) > 0 Then
 UltraHal = chatgpt(HalCommands)
ElseIf InStr(1,InputString, "chatgpt",1) > 0 Then
 End If
 
Rem PLUGIN: FUNCTIONS
Function chatgpt(HalCommands)

' Replace with your own API key from OpenAI
apiKey = "YOUR_OPENAI_API_KEY"

' Function to send a message to ChatGPT and get a response
Function SendMessageToChatGPT(message)
    Dim xmlhttp
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")

    ' API endpoint
    url = "https://api.openai.com/v1/chat/completions"
   
    ' JSON payload
    payload = "{""model"": ""gpt-4"", ""messages"": [{""role"": ""user"", ""content"": """ & message & """}]}"

    ' Open a connection to the API
    xmlhttp.Open "POST", url, False

    ' Set the necessary headers
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    xmlhttp.setRequestHeader "Authorization", "Bearer " & apiKey

    ' Send the request with the payload
    xmlhttp.Send payload

    ' Wait for the response
    Do While xmlhttp.readyState <> 4
        WScript.Sleep 100
    Loop

    ' Parse the JSON response (basic parsing, assuming a simple structure)
    Dim response, jsonResponse
    response = xmlhttp.responseText
    Set jsonResponse = ParseJson(response)

    ' Get the assistant's reply from the JSON response
    SendMessageToChatGPT = jsonResponse("choices")(0)("message")("content")
   
    ' Clean up
    Set xmlhttp = Nothing
    Set jsonResponse = Nothing
End Function

' Basic JSON parser function
Function ParseJson(jsonText)
    Dim sc
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    Set ParseJson = sc.Eval("(" & jsonText & ")")
End Function

' Main script
Dim userMessage, chatgptResponse
userMessage = "Hello, ChatGPT! How are you?"

chatgptResponse = SendMessageToChatGPT(userMessage)
WScript.Echo "ChatGPT says: " & chatgptResponse

End Function


cyber jedi

2

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by cyberjedi on July 24, 2024, 09:08:45 am »

Great job fellas



cyber

3

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by Art on July 24, 2024, 08:14:16 am »

One more converted image:

4

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by lightspeed on July 23, 2024, 10:46:56 pm »

i don't know why on higher setting the picture just turns out black (past the two first settings .)  oh well at least the other worked .i am going to try to redo some other stuff when i get time.

5

Share Conversations, Experiences, Graphics / Re: Gift

« Last post by lightspeed on July 23, 2024, 10:40:36 pm »

thanks NIGE, we do appreciate the gift! 

6

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by Art on July 21, 2024, 10:26:50 pm »

I used the same program you told us about.

I used a 2X Image Scale.

The model was set for GENERAL PHOTO (REAL ESRGAN)

The only other settings I changed was to choose a Folder for it to save my Modified Images.

Nice program!

7

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by lightspeed on July 21, 2024, 10:05:08 pm »

THOSE WERE GREAT RESULTS, LIKE NIGHT AND DAY !! , did you use the same upscayl program or another one and if another which one.?

8

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by Art on July 20, 2024, 10:31:24 am »

I tried it on a typical flatface model. Then, I did a side-by-side comparison and the results were pretty impressive!
Left is Original - Right is UpScaled image

Next, I opened a .htr and dropped the flatface file onto it. The results were nicer, more crisp and void of all the facial fuzz and noisy-looking interference dots and smudges that were a part of the original.

This is the typical .htr head with the UpScale image dropped onto it.


There's lots of room to experiment.

Good find, Lightspeed!

9

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by Art on July 20, 2024, 08:05:12 am »

Interesting and nice work on that character's face. That program makes quite a difference.

10

General Discussion / Re: something odd with my hal happened when i scaled up a flat skin picture

« Last post by lightspeed on July 19, 2024, 11:28:57 pm »

i did some testing through all the different settings and found out that only the first two general picture settings work up to x4 , for whatever reason why , when i tried all other settings even down to x2 . they would all just come out black on the picture and no good.   

something else odd i found out was you can load the upscaled skin on the full body okay but if you try to put on different hair etc. hal will freeze and stop (and shut down) you can and must use acc. removal to remove any existing long hair . then put on what hair you choose and eye lashes etc.  "then load the upscaled skin then hal will keep working with things loaded that way. that's the only way i could keep hal working okay. otherwise the other way hal would just shut off completely.