; 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 } } } }