#light

open PS3Lib;

open System;

[<EntryPoint>]

let main argv =

    printfn "Please input Ps3 IP: "

    let getStr = Console.ReadLine()

    let setNameAddr : uint32 =  //unit 32 left blank for custom offsets (users choice) added 'u' to make it a Uint32 - Unsigned 32 bit int

    let ignore _ = () //This will take any type and return nothing (void) - same as: |> ignore

    let PS3 = PS3Lib.PS3API(SelectAPI.ControlConsole) //Declares PS3 as new instance of the derived PS3.PS3API class

    PS3.CCAPI.ConnectTarget(getStr) |> ignore //|> ignore ignores

    Console.WriteLine "Connection Success!"

    PS3.CCAPI.AttachProcess() |> ignore //or use the let ignore _ = () to make it return equal to nothing.

    Console.WriteLine "Attaching Success!"

    printfn "Please input Name to change to: "

    let x = getStr //sets (string) value of x, to user input from Console.ReadLine()

    PS3.Extension.WriteString(setNameAddr, x)  //Writes the string to game

    printfn "Now it will setMemory via a byte array, press any key to continue..." //

    PS3.SetMemory(setNameAddr, [|94uy; 50uy; 66uy; 97uy; 83uy; 115uy; 95uy; 72uy; 97uy; 88uy; 111uy; 82uy|]) //SetMemory (with byte array) - 

    PS3.CCAPI.RingBuzzer(PS3Lib.CCAPI.BuzzerMode.Double) // this gives me errors if put before end of code, i don't know why. Look into making it work for unit/int.

   // Console.WriteLine "Done. Everything was successfull!"