mIRC Script-Maker

alias tutorial { dialog -m tutorial tutorial }

Menu channel,nicklist,query {
  Script-Maker:/dialog -m tutorial tutorial
}

dialog tutorial {
  title "Beginner Script-Maker"
  size -1 -1 158 170
  option dbu
  edit "", 1, 2 2 156 54, read multi autovs vsbar
  edit "", 2, 22 70 50 10
  text "Trigger:", 3, 0 70 20 8
  text "What should the script do?", 4, 0 82 92 8
  combo 5, 2 91 60 50, size drop
  edit "", 6, 2 104 132 11, autohs
  check "Set Variable", 7, 65 115 35 10
  edit "", 8, 66 124 50 10, autohs
  button "Create Code", 9, 39 142 77 24
  button "Clear", 10, 118 56 37 12
  combo 11, 11 57 60 51, size drop
  text "On:", 12, 0 58 10 8
  button "Copy Code", 13, 72 56 45 12
}


on *:dialog:tutorial:sclick:*:{
  if ($did == 9) && ($did(7).state != 0) { /varset } halt
  if ($did == 9) { /writescript }
  if ($did == 10) { var %r did -r $dname | %r 1 | %r 2 | %r 6 | %r 8 | did -u $dname 7 }
  if ($did == 13) { did -c $dname 1 1 1 4150 | clipboard $did($dname, 1).seltext }
}

alias /writescript { var %a = did -a $dname 1, %a = did -a $dname 1, %trigger = $did(2).text, %event = $did(6).text, %do = $did(5).seltext, %on = $did(11).seltext

  if ($did(11).seltext == JOIN) { %a ON *: $+ %on $+ : $+ # $+ %trigger $+ : $+ $chr(123) | %a $crlf %do %event | %a $crlf $chr(125) } halt

  if ($did(11).seltext == ALIAS) { %a Alias %trigger $chr(123) | %a $crlf %do %event | %a $crlf $chr(125) } halt

  else { %a ON *: $+ %on $+ : $+ %trigger $+ :#: $+ $chr(123) | %a $crlf %do %event | %a $crlf $chr(125) }
}

alias /varset {
  var %a = did -a $dname 1, %a = did -a $dname 1, %trigger = $did(2).text, %event = $did(6).text, %var = % $+ $did(8).text, %do = $did(5).seltext, %on = $did(11).seltext

  if (% isin $did(8).text) { set %var $did(8).text } {

    if ($did(11).seltext == JOIN) { %a ON *: $+ %on $+ : $+ # $+ %trigger $+ : $+ $chr(123) | %a $crlf inc %var | %a $crlf %do %event | %a $crlf $chr(125) } halt

    if ($did(11).seltext == ALIAS) { %a Alias %trigger $chr(123) | %a $crlf inc %var | %a $crlf %do %event | %a $crlf $chr(125) } halt

    else { %a ON *: $+ %on $+ : $+ %trigger $+ :#: $+ $chr(123) | %a $crlf inc %var |  %a $crlf %do %event | %a $crlf $chr(125) }
  }
}

on *:dialog:tutorial:edit:*:{
  if ($did == 7) && ($did(7).text == $chr(123)) { did -a $dname 1 $chr(125) }
}

on *:dialog:tutorial:init:0:{
  var %load did -a $dname 5, %load2 = did -a $dname 11
  %load msg $!chan | %load msg $!nick | %load notice $!nick | %load echo -a | did -c $dname 5 1
  %load2 TEXT | %load2 ALIAS | %load2 ACTION | %load2 JOIN | did -c $dname 11 1
}