Oct282011com

A8 Coding Language, will soon be a reality.

Mar 26th, 2018
1,147
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --// Secure the coding language AND the source \\--
  2.  
  3. $whenActivated: [[others[funcs.sendMessage("Nope, not here.") --// Default message FOR no coding language \\--], :requiration = Key(whenSended: "activate": Languages[A8])]
  4.  
  5. --// Bypassed is a FUNCTION activating IF it's bypassed... \\--
  6.  
  7. $Bypassed: [[others[funcs.sendMessage("Nope, not here") --// Default message FOR no coding language OR bypassed \\--], :ifNotTrue = Deactivate(whenSended: "deactivate": Languages[A8])]
  8.  
  9. --// Celesis Acquiring \\--
  10.  
  11. v = tables[Binary.DecodedCharBytes(0, 1): X475, id[1], randomNumGenerated, "Celesis"]
  12.  
  13. v.Celesis == {Tables.Decode(msgfrom{"Celesis", 347XN84, id[2, 3, 4]})}
  14.  
  15. when v.Celesis = {Match:{v.Celesis, id[2, 3, 4], xC8743r}}+
  16.     others[funcs.sendMessage("Celesis was decoded! Message: ", + v.Celesis:Match(id[2, 3, 4]):(c38x387I), + ".")]
  17. OR NOT v.Celesis = {Match:{v.Celesis, id[2, 3, 4], xC8743r}+
  18.     others[func.sendMessage("Celesis still needs some decoding to do.")]
  19. endIt--
  20.  
  21. --// Acquintel Acquiring \\--
  22.  
  23. x = tables[Binary.DecodedCharBytes(0, 1): 87J9L, id[1, 5], randomNumGenerated:regenerate(xj34), "Acquintel"]
  24.  
  25. x.Acquintel == {Tables.Decode(msgfrom{"Acquintel", 7651MyA73, id[5, 6, 7, 8], "R-Matched"})}
  26.  
  27. when x.Acquintel = {Match:{x.Acquintel, id[5, 6, 7, 8], 37AD + 3KN}}+
  28.     others[funcs.sendMessage("Acquintel was decoded! Message: ", + x.Acquintel:Match(id[5, 6, 7, 8]):(87Muck473), + ".")]
  29. OR NOT x.Acquintel = {Match:{x.Acquintel, id[5, 6, 7, 8], 37AD + 3KN}}+
  30.     others[funcs.sendMessage("Acquintel still needs some decoding to do.")]
  31. endIt--
RAW Paste Data