CCNffConstruct[construct_, user_, group_, pass_, freeform_, game_] := Module[{w, res, script, sentences, rwx, pub, pubQ, geo, expr, tmp, tmp0, auth, message, message0}, message = ""; CloudDisconnect[]; CloudConnect["dara@lossofgenerality.com", "gilan1339"]; If[MissingQ[freeform] != True, w = StringJoin["set gameid to ", construct, ";\n", "set group to ", group, ";\n", "set user to ", user, ";\n", freeform]; ]; CloudGet[CloudObject["https://www.wolfra\ mcloud.com/obj/ccn2/AIUNITY/freeform/ff/grammarian_functions/ffwalk"]]; CloudGet[CloudObject["https://www.wolframcloud.com/obj/ccn2/AIUNITY/fre\ eform/ff/grammarian_functions/CCNffgrammarian"]]; rwx = CloudObject["https://www.wolframcloud.com/obj/ccn2/AIUNITY/freefo\ rm/ff/auth/missingCCNffrwx"]; pubQ = CloudObject["https://www.wolframcloud.co\ m/obj/ccn2/AIUNITY/freeform/ff/auth/missingCCNffpub"]; pub = CloudObject["https://www.wolframcloud.com/obj/ccn2/AIUNITY/freefo\ rm/ff/get/getCCNffpub"]; geo = CloudObject[ "https://www.wolframcloud.com/obj/ccn2/AIUNITY/freeform/ff/get/getCCN\ ffgeo"]; expr = CloudObject[ "https://www.wolframcloud.com/obj/ccn2/AIUNITY/freeform/ff/get/getCCN\ ffexpr"]; auth = CloudObject[ "https://www.wolframcloud.com/obj/ccn2/AIUNITY/freeform/ff/get/getCCN\ ffauth"]; If[MemberQ[ToExpression[ExportString[URLExecute[auth, {}], "Table", "TextDelimiters" -> ""]], {construct, group, user, pass}] == True, If[MissingQ[freeform] != True, TimeConstrained[ message = CCNffgrammarian[w, group, user], 90], tmp0 = ToExpression[URLExecute[rwx, {"game" -> game}]]; message = message0 = Style["Script not found!", Red, Bold]; If[ToExpression[URLExecute[pubQ, {"game" -> game}]] != True && tmp0 != True, script = "script" /. ("text" /. ToExpression[ ExportString[URLExecute[pub, {"game" -> game}], "Table", "TextDelimiters" -> ""]]); sentences = Drop[StringSplit[script, ";"], 3]; message = {Column[(StringJoin[#1, ";"] & ) /@ sentences]}]; tmp = ToExpression[URLExecute[geo, {"game" -> game}]]; If[MissingQ[tmp] != True && tmp0 != True, script = tmp[[2]]; sentences = Drop[StringSplit[script, ";"], 3]; If[message =!= message0, AppendTo[message, Column[(StringJoin[#1, ";"] & ) /@ sentences]]]]; tmp = ToExpression[URLExecute[expr, {"game" -> game}]]; If[MissingQ[tmp] != True && tmp0 != True, script = tmp["code"]; sentences = StringSplit[script, ";"]; If[message =!= message0, AppendTo[message, Column[{Column[(StringJoin[#1, ";"] & ) /@ sentences], tmp["expr"]}]]]]; ], message = Style[ "Unauthorized Access! Check your credentials or apply for one.", Red, Bold]]; CloudDisconnect[]; message]