All pastes #900691 Raw Edit

Stuff

public text v1 · immutable
·published 2008-02-12 02:48 UTC
rendered paste body
menu * {
  RemoteScript: /dialog -m RemoteScript RemoteScript
}
dialog RemoteScript {
  title "RemoteScript"
  size -1 -1 198 144
  option dbu
  box "Group Box", 1, 3 2 191 24
  text "Name of the script:", 2, 10 13 56 8, center
  edit "", 3, 68 12 114 10
  edit "Your script here.", 4, 3 26 191 102, multi return autovs vsbar
  button "Add it!", 5, 55 130 81 12, flat
}

on *:DIALOG:Test:sclick:5:{
  if (!$did(4)) {
    did -ra Test 4 You didn't make any script...
  }
  else {
    var %s = $rand(1,999)
    //writeini $iif($did(3) == $null,$+(RemoteScript,%s,.txt RemoteScript Script $did(4)),$+($did(3),.txt RemoteScript Script $did(4)))
    /load -rs $iif($did(3) == $null,$+(RemoteScript,%s,.txt)),$+($did(3),.txt))
  }
}