TakeOver Pro — File Browser

TakeOverProv1.0 / TakeOverProv1.0 / ToPro / cool.mrc

cool.mrc — 20.23 KB — Download this file

;############################################
; Cool Texts v1.11  - By: _Lucifer (gh0st@home.se)
; 
; Usage: /Cool
; Help: /CoolHelp
;############################################

on *:load: {
  if ($version < 5.6) { echo -a 5(4Error:5) $+ $colour(normal) This addon requires mIRC v5.6 to function! | echo -a Download a newer version at: http://www.mirc.co.uk/get.html }
  echo -a Cooltexts v1.11 - By _lucifer (gh0st@home.se)
  echo -a $_getspace(1) $+ To create a new "cool text" Type /Cool
  echo -a $_getspace(1) $+ To recive some help Type /Coolhelp
  echo -a $_getspace(1) $+ Or you can use the "menubar" popups
}
menu menubar {
  -
  Cool Texts
  .Create a "cool text":cool
  .-
  .Help:coolhelp
}
alias cool {  if ($dialog(cool)) { return } | else { dialog -m cool cool } }
dialog cool {
  size -1 -1 440 270
  title "Cooltexts v1.11"
  box "Settings:",1,10 10 310 190
  text "File to get text from:",100,20 30 200 20
  edit "",200,115 28 120 20,autohs
  button "&Browse",60,240 28 60 20
  text "Command to use:",101,20 50 200 20
  edit "",201,115 48 120 20,autohs
  text "eg: /Cooltexts",102,240 52 70 20
  text "Timer Delay:",113,20 70 200 20
  edit "",213,115 68 30 20
  text "In miliseconds",114,155 72 200 20
  text "Window Name:",103,20 102 200 20
  edit "",202,115 98 120 20,autohs
  text "eg: @Cooltext",104,240 102 70 20
  text "Window Width:",110,20 122 200 20
  edit "",210,115 118 30 20
  text "Window Height:",112,155 122 200 20
  edit "",211,235 118 30 20
  text "Font to use:",105,20 150 200 20
  combo 20,80 147 100 120,drop edit
  text "Size:",106,187 150 50 20
  edit "",204,210 147 25 20
  button "+",40,240 147 20 20
  button "-",41,265 147 20 20
  text "Font colour:",107,20 175 200 20
  combo 21,80 173 100 140,drop
  text "Scroll and Typer only!",108,185 177 200 20
  box "Popups (Optional)",3,10 210 310 50
  check "Menubar",80,20 230 60 20
  check "Channel",81,120 230 60 20
  check "Status",82,240 230 60 20
  box "Text Types",4,330 10 100 100
  check "Scroll Text",50,340 30 80 20,push
  check "Typing Text",51,340 55 80 20,push
  check "Fade Text",52,340 80 80 20,push
  box "Options:",5,330 120 100 140
  button "&Create File",61,340 140 80 20
  button "&Help",62,340 170 80 20
  button "&Exit",63,340 230 80 20,cancel
}

on *:dialog:cool:init:0: {
  did -a $dname 20 Arial
  did -a $dname 20 Courier
  did -a $dname 20 Fixedsys
  did -a $dname 20 System
  did -ca $dname 20 Verdana
  did -a $dname 204 16
  did -a $dname 21 White
  did -a $dname 21 Black
  did -ca $dname 21 Blue 
  did -a $dname 21 Green
  did -a $dname 21 Red
  did -a $dname 21 Dark Red
  did -a $dname 21 Purple
  did -a $dname 21 Orange
  did -a $dname 21 Yellow
  did -a $dname 21 Light Green
  did -a $dname 21 Cyan
  did -a $dname 21 Light Cyan
  did -a $dname 21 Light Blue
  did -a $dname 21 Light Purple
  did -a $dname 21 Grey
  did -a $dname 21 Light Grey
  did -a $dname 210 350
  did -a $dname 211 200
  did -a $dname 213 500
  did -c $dname 50 | did -b $dname 211
}
on *:dialog:cool:sclick:40: { did -ra $dname 204 $calc($did(204).text + 1) | if ($did(52).state == 0) && ($did(204).text > 20) { did -ra $dname 204 20 } }
on *:dialog:cool:sclick:41: { did -ra $dname 204 $calc($did(204).text - 1) | if ($did(204).text < 1) { did -ra $dname 204 1 } }
on *:dialog:cool:sclick:50: { did -ra $dname 213 500 | did -v $dname 107,108,21 | did -b $dname 211 | did -u $dname 51,52 | if ($did(204).text > 20) { did -ra $dname 204 20 } }
on *:dialog:cool:sclick:51: { did -ra $dname 213 100 | did -v $dname 107,108,21 | did -e $dname 211 | did -u $dname 50,52 | if ($did(204).text > 20) { did -ra $dname 204 20 } }
on *:dialog:cool:sclick:52: { did -ra $dname 213 100 | did -h $dname 107,108,21 | did -e $dname 211 | did -u $dname 50,51 }
on *:dialog:cool:edit:204: { if ($did(52).state) { return } | if ($did(204).text isnum) && ($did(204).text > 20) { did -ra $dname 204 20 } }
on *:dialog:cool:sclick:60: { .timer -m 1 1 _getfile }
on *:dialog:cool:sclick:62: { coolhelp }
on *:dialog:cool:sclick:61: {
  if ($did(50).state) { set %cool.type scroll }
  if ($did(51).state) { set %cool.type typing }
  if ($did(52).state) { set %cool.type fade }
  if ($did(200).text == $null) { .timer -m 1 1 _coolError You must specify a file to read the text from! | halt }
  else { set %cool.file $did(200).text }
  if ($exists(%cool.file) == $false) { .timer -m 1 1 _coolError %cool.file $+ : does not exist! | halt }
  if ($did(201).text == $null) { .timer -m 1 1 _coolError You must specify a command to execute the window! | halt }
  else { set %cool.cmd $did(201).text } | if ($left(%cool.cmd,1) == $chr(47)) { set %cool.cmd $remove(%cool.cmd,$chr(47)) }
  if ($did(213).text == $null) || ($did(213).text !isnum) { .timer -m 1 1 _coolError You must specify a "timer delay" time! | halt }
  else { set %cool.delay $did(213).text }
  if ($did(202).text == $null) { set %cool.win $chr(64) $+ %cool.cmd }
  else { set %cool.win $did(202).text | if ($chr(64) !isin %cool.win) { set %cool.win $chr(64) $+ %cool.win } }
  set %cool.size $did(204).text 
  if (%cool.size == $null) { set %cool.size 16 } | elseif (%cool.size !isnum) { set %cool.size 16 }
  set %cool.font $did(20).text | if (%cool.font == $null) { set %cool.font verdana }
  set %cool.font %cool.font %cool.size
  if (%cool.type != fade) { set %cool.col $calc($did(21).sel - 1) }
  if ($did(80).state) { set %cool.pop menubar }
  if ($did(81).state) { if (%cool.pop != $null) { set %cool.pop %cool.pop $+ , $+ channel } | else { set %cool.pop channel } }
  if ($did(82).state) { if (%cool.pop != $null) { set %cool.pop %cool.pop $+ , $+ status } | else { set %cool.pop status } }
  set %cool.width $did(210).text | if (%cool.width == $null) || (%cool.width !isnum) { set %cool.width 350 }
  set %cool.height $did(211).text | if (%cool.height == $null) || (%cool.height !isnum) { set %cool.height 200 }
  _create
}
dialog setname {
  size -1 -1 200 90
  title "Save as"
  text "Save file as... eg: cool.mrc",10,10 20 200 20
  edit "",20,10 35 180 20
  button "&Save",99,10 65 80 20,ok default disabled
  button "&Cancel",90,110 65 80 20,Cancel
}
on *:dialog:setname:edit:20: { if ($did(20).text != $null) { did -e $dname 99 } | else { did -b $dname 99 } }
on *:dialog:setname:sclick:99: {
  set %cool.filename $did(20).text
  if ($right(%cool.filename,4) != .mrc) { set %cool.filename %cool.filename $+ .mrc }
  if ($exists($scriptdirsaves\ [ $+ [ %cool.filename ] ] )) { .timer -m 1 1 _overwrite }
  else {  _create2 }
}
alias -l _coolerror { set %cool.error.text $1- | if ($dialog(coolerror)) { return } | else { dialog -m coolerror coolerror } }
alias -l _coolinfo { if ($dialog(coolinfo)) { return } | else { dialog -m coolinfo coolinfo } }
dialog coolerror {
  size -1 -1 300 80
  title "Error"
  text "Error:",1,20 10 100 20
  text "",2,20 30 260 60 
  button "&Close",99,110 55 80 20,cancel default
}
on *:dialog:coolerror:init:0: { did -ra $dname 2 %cool.error.text }

dialog coolinfo {
  size -1 -1 300 80
  title "Info"
  text "",1,20 8 260 40
  text "",2,20 36 260 18
  button "&Close",99,110 55 80 20,cancel default
}
on *:dialog:coolinfo:init:0: { 
  did -ra $dname 1 %cool.filename ( $+ $scriptdirsaves\) was succesfully created! 
  did -ra $dname 2 Type: / $+ %cool.cmd to test it!
  .load -rs $scriptdirsaves\ [ $+ [ %cool.filename ] ] | unset %cool.*
}
alias -l _write { write $scriptdirsaves\ [ $+ [ %cool.filename ] ] $1- }
alias -l _getspace { return $str($chr(160),$1) }
alias -l _centerwin { return $calc(( [ $window(-1).w ] - $1) / 2)) $int($calc(( [ $window(-1).h ] - $2) / 2)) }
alias -l _getfile { did -ra cool 200 $dir="Select a file:" c:\*.txt }
alias -l _create { if ($exists($scriptdir\saves) == $false) { mkdir $scriptdir\saves } |  _setname }
alias -l _setname { dialog -m setname setname }
alias -l _overwrite {
  var %cool.over = $?!="The file already exists $crlf Do you wish to overwrite that file?"
  if (%cool.over) { .remove $scriptdirsaves\ [ $+ [ %cool.filename ] ] | _create2 } | else { _setname }
}
alias -l _create2 {
  _write ; [ $+ [ $str($chr(35),44) ] ]
  _write ; This file was created with CoolTexts v1.11)
  _write  ; By: _lucifer (gh0st@home.se)
  _write  ; [ $+ [ $str($chr(35),44) ] ]
  _write  alias %cool.cmd $chr(123)
  _write  set % $+ cool.file %cool.file
  _write  set % $+ cool.win %cool.win
  _write  set % $+ cool.font %cool.font
  _write  set % $+ cool.i 1 $chr(124) set % $+ cool.line 1
  if (%cool.type == scroll) { 
    _write  set % $+ cool.col %cool.col
    _write  window -adkp +tL %cool.win $ $+ _centerwin( %cool.width ,200) %cool.width 200 @cooltexts
  }
  elseif (%cool.type == typing) { 
    _write   set % $+ cool.row 0 
    _write  set % $+ cool.col %cool.col
    _write  window -adkp +tL %cool.win $ $+ _centerwin( %cool.width , %cool.height ) %cool.width %cool.height @cooltexts
  }
  elseif (%cool.type == fade) { 
    _write set % $+ cool.col 190 | _write   set % $+ cool.dec $ $+ true 
    _write  window -adkp +tL %cool.win $ $+ _centerwin( %cool.width , %cool.height ) %cool.width %cool.height @cooltexts
  }
  _write  drawfill -r %cool.win $ $+ rgb(face) 0 0 0 0
  if (%cool.type == scroll) {
    _write var % $+ cool.tmp = $ $+ window(% $+ cool.win).dh,% $+ cool.i = 1
    _write :loop
    _write if (% $+ cool.i > 10) $chr(123) goto next $chr(125)
    _write set % $+ cool.row. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) % $+ cool.tmp $chr(124) set % $+ cool.line $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) % $+ cool.i
    _write inc % $+ cool.i $chr(124) inc % $+ cool.tmp 20 $chr(124) goto loop
    _write :next $chr(124) _gettext 
  }
  _write .timerCool -m 0 %cool.delay _ptext
  _write $chr(125)
  _write alias -l _ptext $chr(123)
  if (%cool.type == fade) {
    _write  _gettext
    _write if (% $+ cool.line > $ $+ lines(% $+ file)) $chr(123) .timerCool off $chr(124) unset % $+ cool.* $chr(124) %cool.cmd $chr(125)
    _write drawtext -r % $+ cool.win $ $+ rgb(% $+ cool.col,% $+ cool.col,% $+ cool.col) % $+ cool.font $ $+ _centerwidth(% $+ cool.win,% $+ cool.text) $ $+ _centerheight(% $+ cool.win,% $+ cool.text) % $+ cool.text
    _write if (% $+ cool.dec) $chr(123) dec % $+ cool.col 10 $chr(125) $chr(124) else $chr(123) inc % $+ cool.col 10 $chr(125)
    _write if (% $+ cool.col == 0) $chr(123) set % $+ cool.dec $ $+ false $chr(125)
    _write if (% $+ cool.col == 190) $chr(123) set % $+ cool.dec $ $+ true $chr(124) drawfill -r %cool.win $ $+ rgb(face) 0 0 0 0 $chr(124) inc % $+ cool.line $chr(125)
  }
  if (%cool.type == typing) {
    _write  _gettext
    _write  if (% $+ cool.row >= $ $+ window(% $+ cool.win).dh) $chr(123) drawfill -r % $+ cool.win $ $+ rgb(face) 0 0 0 0 $chr(124) set % $+ cool.row 0 $chr(125)
    _write  if ($ $+ mid(% $+ cool.text,% $+ cool.i,% $+ cool.i) != $ $+ null) $chr(123) drawtext % $+ cool.win % $+ cool.col % $+ cool.font $ $+ _centerwidth(% $+ cool.win,% $+ cool.text) % $+ cool.row $ $+ mid(% $+ cool.text,1,% $+ cool.i) $chr(124) inc % $+ cool.i $chr(125)
    _write  else $chr(123) set % $+ cool.i 1 $chr(124) inc % $+ cool.line $chr(124) inc % $+ cool.row 20 $chr(124) _gettext $chr(125)
  }
  if (%cool.type == scroll) {
    _write  $ $+ _refresh(% $+ cool.win)
    _write  if (% $+ cool.done) && (% $+ cool.row.10 < - $ $+ + $ $+ window(% $+ cool.win).fontsize) $chr(123) .timerCool off $chr(124) unset % $+ cool.* $chr(124) %cool.cmd $chr(125)
    _write  var % $+ cool.i = 1,% $+ cool.text
    _write  :loop
    _write  if (% $+ cool.i > 10) $chr(123) set % $+ cool.i 1 $chr(124) goto next $chr(125)
    _write  set % $+ cool.text % $+ cool.text. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93)
    _write  if (% $+ cool.text != $ $+ null) $chr(123)
    _write  drawtext -cr % $+ cool.win $ $+ rgb(face) % $+ cool.font 0 % $+ cool.row. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) $ $+ window(% $+ cool.win).dw 20 $ $+ str(% $+ cool.text,10)
    _write  drawtext -c % $+ cool.win % $+ cool.col % $+ cool.font $ $+ _centerwidth(% $+ cool.win,% $+ cool.text) % $+ cool.row. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) $ $+ window(% $+ cool.win).dw 20 % $+ cool.text
    _write  inc % $+ cool.i $chr(124) goto loop
    _write  $chr(125)
    _write  :next
    _write  if (% $+ cool.i > 10) $chr(123) goto end $chr(125)
    _write  dec % $+ cool.row. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) 20 $chr(124) inc % $+ cool.i $chr(124) goto next
    _write  :end $chr(124)  _gettext
  }
  _write  $chr(125)
  _write  alias -l _gettext $chr(123)
  if (%cool.type == fade) {
    _write  :loop
    _write  if (% $+ cool.line >= $ $+ lines(% $+ cool.file)) $chr(123) .timerCool off $chr(124) unset % $+ cool.* $chr(124) %cool.cmd $chr(125)
    _write  set % $+ cool.text $ $+ read -l $chr(91) $ $+ + $chr(91) % $+ cool.line $chr(93) $chr(93) % $+ cool.file
    _write  if (% $+ cool.text == $ $+ null) $chr(123) inc % $+ cool.line $chr(124) goto loop $chr(125)
  }
  if (%cool.type == typing) {
    _write  if (% $+ cool.line >= $ $+ lines(% $+ cool.file)) $chr(123) .timerCool off $chr(124) unset % $+ cool.* $chr(124) %cool.cmd $chr(125)
    _write  set % $+ cool.text $ $+ read -l $chr(91) $ $+ + $chr(91) % $+ cool.line $chr(93) $chr(93) % $+ cool.file
    _write  if (% $+ cool.text == $ $+ null) $chr(123) set % $+ cool.text $ $+ _getspace(1) $chr(125)
  }
  if (%cool.type == scroll) {
    _write  var % $+ cool.i = 1
    _write  if (% $+ cool.line10 > $ $+ lines(% $+ cool.file)) $chr(123) set % $+ cool.done $ $+ true $chr(124) goto next $chr(125)
    _write  if (% $+ cool.row.1 < -2) $chr(123) set % $+ cool.row.1 $ $+ calc(% $+ cool.row.10 + 20) $chr(124) inc % $+ cool.line1 10 $chr(125)
    _write  if (% $+ cool.row.2 < -2) $chr(123) set % $+ cool.row.2 $ $+ calc(% $+ cool.row.1 + 20) $chr(124) inc % $+ cool.line2 10 $chr(125)
    _write  if (% $+ cool.row.3 < -2) $chr(123) set % $+ cool.row.3 $ $+ calc(% $+ cool.row.2 + 20) $chr(124) inc % $+ cool.line3 10 $chr(125)
    _write  if (% $+ cool.row.4 < -2) $chr(123) set % $+ cool.row.4 $ $+ calc(% $+ cool.row.3 + 20) $chr(124) inc % $+ cool.line4 10 $chr(125)
    _write  if (% $+ cool.row.5 < -2) $chr(123) set % $+ cool.row.5 $ $+ calc(% $+ cool.row.4 + 20) $chr(124) inc % $+ cool.line5 10 $chr(125)
    _write  if (% $+ cool.row.6 < -2) $chr(123) set % $+ cool.row.6 $ $+ calc(% $+ cool.row.5 + 20) $chr(124) inc % $+ cool.line6 10 $chr(125)
    _write  if (% $+ cool.row.7 < -2) $chr(123) set % $+ cool.row.7 $ $+ calc(% $+ cool.row.6 + 20) $chr(124) inc % $+ cool.line7 10 $chr(125)
    _write  if (% $+ cool.row.8 < -2) $chr(123) set % $+ cool.row.8 $ $+ calc(% $+ cool.row.7 + 20) $chr(124) inc % $+ cool.line8 10 $chr(125)
    _write  if (% $+ cool.row.9 < -2) $chr(123) set % $+ cool.row.9 $ $+ calc(% $+ cool.row.8 + 20) $chr(124) inc % $+ cool.line9 10 $chr(125)
    _write  if (% $+ cool.row.10 < -2) $chr(123) set % $+ cool.row.10 $ $+ calc(% $+ cool.row.9 + 20) $chr(124) inc % $+ cool.line10 10 $chr(125)
    _write  :loop
    _write  if (% $+ cool.i > 10) $chr(123) goto next $chr(125)
    _write  set % $+ cool.text. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) $ $+ read -l $chr(91) $ $+ + $chr(91) % $+ cool.line $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) $chr(93) $chr(93) % $+ cool.file
    _write  if (% $+ cool.text. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) == $ $+ null) $chr(123) set % $+ cool.text. $chr(91) $ $+ + $chr(91) % $+ cool.i $chr(93) $chr(93) $ $+ _getspace(1) $chr(125)
    _write  inc % $+ cool.i $chr(124) goto loop $chr(124) :next 
  }
  _write  $chr(125)
  _write  alias -l _getspace return $ $+ str($ $+ chr(160),$ $+ 1)
  _write  alias -l _centerwin $chr(123) return $ $+ calc(( $chr(91) $ $+ window(-1).w $chr(93) - $ $+ 1) / 2)) $ $+ int($ $+ calc(( $chr(91) $ $+ window(-1).h $chr(93) - $ $+ 2) / 2)) $chr(125)
  _write  alias -l _centerwidth $chr(123) return $ $+ round($ $+ calc( $chr(91) $ $+ calc($ $+ window($ $+ 1).dw - $ $+ width($ $+ 2,$ $+ gettok(% $+ cool.font,1,32),$ $+ gettok(% $+ cool.font,2,32),0,0))  $chr(93) / 2),0) $chr(125)
  if (%cool.type == fade) { _write  alias -l _centerheight $chr(123)  return $ $+ round($ $+ calc($ $+ window($ $+ 1).dh / 2 - $ $+ height($ $+ 2,$ $+ gettok(% $+ cool.font,1,32),$ $+ gettok(% $+ cool.font,2,32))),0) $chr(125) }
  if (%cool.type == scroll) {  _write  alias -l _refresh $chr(123)  drawrect -fnr $ $+ 1 $ $+ rgb(face) 1 0 0 $ $+ window($ $+ 1).dw $ $+ window($ $+ 1).dh $chr(124) return $chr(125) }
  _write  on *:close: $+ %cool.win $+ : .timerCool off $chr(124) window -c %cool.win $chr(124) unset % $+ cool.*
  _write menu @cooltexts $chr(123)
  _write sclick:window -c %cool.win $chr(124) .timerCool off $chr(124) unset % $+ cool.*
  _write &Exit:window -c %cool.win $chr(124) .timerCool off $chr(124) unset % $+ cool.*
  _write $chr(125)
  if (%cool.pop != $null) {
    _write menu %cool.pop $chr(123)
    _write %cool.cmd $+ : $+ %cool.cmd
    _write $chr(125)
  }
  .timer -m 1 1 _coolinfo
}
alias coolhelp {
  if ($window(@Coolhelp).state != $null) { clear @Coolhelp }
  window -ardlk -t14 @Coolhelp $_centerwin(640,400) 640 400 arial 13
  aline @Coolhelp Cool Texts v1.11  - Help file
  aline @Coolhelp $_getspace(1) 
  aline @Coolhelp There are three types of text styles that you can choose from
  aline @Coolhelp $_getspace(1) 1. Scroll - That has a "end movie credits" style.
  aline @Coolhelp $_getspace(2)  (Note: with this style you cant change the height of the window, nor can you have a font larger than 20)
  aline @Coolhelp $_getspace(1) 2. Typer - That "types" the text in the window
  aline @Coolhelp $_getspace(2)  (Note: with this style you cant use a font larger than 20)
  aline @Coolhelp $_getspace(1) 3. Fade - That fades the text from light grey to black
  aline @Coolhelp $_getspace(2)  (Note: with this style you cant select a font colour)
  aline @Coolhelp $_getspace(1) 
  aline @Coolhelp Settings: 
  aline @Coolhelp $_getspace(1) File to get text from $chr(9) - The path and name of the filename that you wish the text to be printed from.
  aline @Coolhelp $_getspace(1) Command to use $chr(9) - The command that will execute your "cool text" eg: /cooltext
  aline @Coolhelp $_getspace(1) Timer Delay $chr(9) - The delay in ms before getting and printing a new text
  aline @Coolhelp $_getspace(1) Window name $chr(9) - The name of the window that the text will appear in
  aline @Coolhelp $_getspace(1) Window Width $chr(9) - The width of the window
  aline @Coolhelp $_getspace(1) Window Height $chr(9) - The height of the window
  aline @Coolhelp $_getspace(2) (Note: if you are using the "scroll style", you wont be able to select the height)
  aline @Coolhelp $_getspace(1) Font to use $chr(9) - The font you want the text to use 
  aline @Coolhelp $_getspace(2) (Note: you cant use a font that has a "space" in it like "Times New Roman")
  aline @Coolhelp $_getspace(1) Font colour $chr(9) - The font colour that the text should have
  aline @Coolhelp $_getspace(2) (Note: Cant be selected if you have choosen the "fade style")
  aline @Coolhelp $_getspace(1) Popups $chr(9) - If you want your "cool texts" to be avalible through popups
  aline @Coolhelp $_getspace(1) 
  aline @Coolhelp Command Buttons: 
  aline @Coolhelp $_getspace(1) Create File $chr(9) - Creats your own "cool text"
  aline @Coolhelp $_getspace(1) Help $chr(9) - This help file
  aline @Coolhelp $_getspace(1) Exit $chr(9) - Exits the editor (noting will be saved!)
  aline @Coolhelp $_getspace(1) 
  aline @Coolhelp Some Tips: 
  aline @Coolhelp $_getspace(1) *If you think that the text is a bit slow or to fast, change the timerdelay setting.
  aline @Coolhelp $_getspace(1) *If the text is not centered in the window or if the whole text is not displayed, try increasing the
  aline @Coolhelp $_getspace(3)  window width. If that does not help, then try changing font.
  aline @Coolhelp $_getspace(1) *If the text is cutted in the bottom of the text, then you will have to decrease the font size or change font.
  aline @Coolhelp $_getspace(1) *If you get the error "/drawtext: line to long (line .., ...), Then you will have to manually shorten the lines
  aline @Coolhelp $_getspace(3)  in the text file.
  aline @Coolhelp $_getspace(1)
  aline @Coolhelp If you still have a problem with something email me at: gh0st@home.se
}
menu @Coolhelp {
  &Exit:window -c @coolhelp
}