//------------------------------------------------//

//-     /----------//----------//-----------/    -//

//-    /  SOURCE CODE MADE BY: BaSs_HaXoR  /     -//

//-   /          // 03/27/15 //           /      -//

//-  /----------//----------//-----------/       -//

//------------------------------------------------//

 

//------------------------------------------------------------------------------------------------//

//Include Comments in source to help understand.

//Include PS3Lib into your project (C# lib)

//Make sure CCAPI 2.50/2.60 + PS3Lib 4.4(portable) is in the same directory as application.

//------------------------------------------------------------------------------------------------//

// Learn more about F# at https://fsharp.net

// See the 'F# Tutorial' project for more help.

//------------------------------------------------------------------------------------------------//

 

#light

open PS3Lib;

open System;

[<EntryPoint>]

let main argv =

    printfn "Please input ipaddress: "

    let getStr = Console.ReadLine()

    let setNameAddr : uint32 = 0x1BBBC2Cu //Gamertag address for MW3 (Change accordingly) 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) - It's in decimal value of: ^2BaSs_HaXoR

    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!"

//BaSs_HaXoR