F# Real Time Modding Source Code

//------------------------------------------------//
//-     /----------//----------//-----------/    -//
//-    /  SOURCE CODE MADE BY: BaSs_HaXoR  /     -//
//-   /          // 03/27/15 //           /      -//
//-  /----------//----------//-----------/       -//
//------------------------------------------------//

// NGU Thread (With Solution Download): http://adf.ly/1BvDlT

//------------------------------------------------------------------------------------------------//
//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 http://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