Skip to content

Instantly share code, notes, and snippets.

Y.ack y-ack

  • Still in a Dream
Block or report user

Report or block y-ack

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View .editorconfig
root = true
[*]
indent_style = tab
indent_size = 2
View block.org
#+BEGIN_COMMENT
#+BEGIN_SRC diff
-block 1
#+END_SRC
#+BEGIN_SRC diff
+block 2
#+END_SRC
#+END_COMMENT
View citrakeyboard.ps1
Add-Type @"
using System;
using System.Runtime.InteropServices;
public class Win32 {
[DllImport("user32.dll")]
public static extern void mouse_event(int flags, int dx, int dy, int cButtons, int info);
[DllImport("user32.dll")]
[return: MarshalAs(UnmanagedType.Bool)]
public static extern bool GetWindowRect(IntPtr hWnd, out RECT lpRect);
[DllImport("user32.dll")]
View functioncode.org
code (hex)instruction
36CHKLABEL
37CHKCALL
38CHKVAR
39???
3A???
3B???
3CPOP
3DSHIFT
@y-ack
y-ack / brak.PRG
Created May 8, 2018
3-character language made for bracket challenge @12Me21 @ajc2
View brak.PRG
DIM STACK0[0],STACK1[0]
DIM STACK2[0],STACK3[0]
DIM STACK4[0],STACK5[0]
DIM STACK6[0],STACK7[0]
DIM STACK8[0]
'Registers
VAR r0%, r1%, r2%, r3%, r4%, r5%, r6%
VAR r7% 'pc
VAR NUMERIC% 'special fake register for numeric literals
VAR CYCLES%
View 2018-04-11.ps1
#PowerShell: convert strings copied as integers back to byte-characters
function convertchars([uint32]$a){return [bitconverter]::GetBytes([uint32]$a) | %{[char]$_}}
@y-ack
y-ack / START.PRG
Created Feb 9, 2018
smilebasic joke hello world "A Game About Anime"
View START.PRG
CLS
DIM CONSHEIGHT%:CONSHEIGHT% = 30
DIM TITLE$,START$:TITLE$ = "a game about anime":START$ = "PRESS START"
GOSUB @INITTIMERS
TITLEPRINT TITLE$, 0, 0
EAT CREATETIMER("TEXTON", 40)
EAT CREATETIMER("TEXTOFF", 80)
@y-ack
y-ack / AnalyzeLogs.ps1
Created Nov 10, 2017
SmileBASIC Source Log Graphing (files will be released slowly)
View AnalyzeLogs.ps1
[Uri]$Domain = "http://scratch.smilebasicsource.com/chatlogs"
[Microsoft.PowerShell.Commands.HtmlWebResponseObject]$LogListDocument = Invoke-WebRequest $Domain
[Int32]$CurrentFileNum = 0
[Int32]$TotalFiles = $LogListDocument.Links.Count
[Regex]$DateRegexp = [Regex]'(\d\d-\d\d-\d\d)'
[Regex]$UserRegexp = [Regex]'\n *([a-zA-Z0-9_]+)\['
[String]$TAB = "`t"
[String]$UserData = "" # only users logged for each day
@y-ack
y-ack / Untitled.ps1
Created Nov 10, 2017
Very dirty script used to generate JSON archives of miiverse
View Untitled.ps1
#$MiiverseList = Invoke-RestMethod "https://pastebin.com/raw/4kxfQWSH"
#$MiiverseList = $MiiverseList -split "`r`n"
$MiiverseList = dir .\chat_links | ? name -match "^AY" | select name
#$MiiverseList = @("https://miiverse.nintendo.net/replies/AYMHAAADAAB2V0e0LQKOBA")
#$SaveDirectory = "$home/miiverse"
$SaveDirectory = "$home/snail_miiverse"
mkdir $SaveDirectory
mkdir "$SaveDirectory/images/"
@y-ack
y-ack / KlandScreenshot.ps1
Last active Nov 7, 2017
upload screenshots with powershell
View KlandScreenshot.ps1
function Upload-ToKland {
param([String]$bucket = "",
[String]$Image,
[String]$Url = "https://kland.smilebasicsource.com/uploadimage")
$ImageName = [regex]::Match($Image,"[^\\/]+\.(png|PNG|gif|GIF|jpe?g|JPE?G)").Value
$Image = [System.Text.Encoding]::GetEncoding("iso-8859-1").GetString([IO.File]::ReadAllBytes($Image))
$ImageType = [System.Web.MimeMapping]::GetMimeMapping($Image)
$boundary = [guid]::NewGuid().ToString()
You can’t perform that action at this time.