Project

General

Profile

[script] Scratchpad v0.2 » Scratchpad v0.1.ini

Mr. BS, 03/17/2014 04:34 PM

 
; http://dev.adiirc.com/boards/5/topics/169
; Scratchpad - quick msl code evaluation
; v0.1 by pereba

alias sp { if (!$dialog(Scratchpad)) { dialog -mp Scratchpad Scratchpad } }

dialog Scratchpad {
title "Scratchpad"
size -1 -1 312 220
option dbu
edit "", 1, 0 0 312 198, multi return hsbar vsbar hsbar vsbar
button "Evaluate", 4, 6 202 300 14
}

on 1:dialog:Scratchpad:*:*: {
if ($devent = sclick) {
if ($did = 4) {
var %code $did(1).lines
if (%code) {

write -c scratchpad.txt alias sidentifier $chr(123)
var %line = 1
while (%line <= $did(1).lines) {
write -a scratchpad.txt $did(1, %line).text
inc %line
}

write -a scratchpad.txt $chr(125)
.load -rs scratchpad.txt
sidentifier
.unload -rs scratchpad.txt

}
}
}
}
(1-1/2)