Colours

By PoiXon on Apr 05, 2005

Just a colour thing type /cr and it will bring a dialog put in the colours Using a  then when uve put in both the colours and click ok you will type in the colours you put in :)

dialog cr {
  title "COLOUR SCRIPT"
  size -1 -1 200 60
  text "Pick 2 Colours for Coloured Text! :D" 1, 2 1 200 100
  text "And" 2, 65 20 35 20
  edit "" 3, 20 17 35 20
  edit "" 4, 100 17 35 20
  button "Ok" 5, 65 40 60 20
  button "Close" 6, 2 40 60 20
  button "Off" 7, 125 40 60 20
}
on *:dialog:cr:*:*: {
  if ($devent == sclick) {
    if ($did == 5) {
      set %colourscript on
      $iif($did(cr,3) == $null, halt, set %colour1 $did(cr,3))
      $iif($did(cr,4) == $null, halt, set %colour2 $did(cr,4))
      dialog -x cr cr
    }
    if ($did == 6) {
      dialog -x cr cr
    }
    if ($did == 7) {
      unset %colour*
      dialog -x cr cr
    }
  }
  if ($devent == init) {
    $iif(%colour1 != $null, did -a cr 3 %colour1)
    $iif(%colour2 != $null, did -a cr 4 %colour2)
  }
}
alias cr {
  dialog -m cr cr
}
on *:input:*: {
  if ($left($1,1) != $chr(47)) && (%colourscript == on) {
    set %ntxt %colour1 $+ * $+ %colour2 $+ * $+
    set %none ""
    set %txt $replace($1-,$chr(32),)
    set %p 1
    set %i 1
    while ($mid(%txt,%i,1) != $null) {
      if ($gettok(%ntxt,%p,42) == $null) { set %p 1 }
      set %none %none $+  $+ $gettok(%ntxt,%p,42) $+ $mid(%txt,%i,1)
      inc %p 1
      inc %i 1
    }
    set %ptext $replace(%none,,$chr(32))
    say %ptext | unset %none | unset %ptext | unset %txt | unset %p | unset %i | unset %ntxt 
    halt
  }
}

Comments

Sign in to comment.
Eugenio   -  Dec 09, 2007

also u cant enter certain numbers coz there aint enuff room >8(

 Respond  
Eugenio   -  Dec 09, 2007

mite be over done but it works !!!! and also i wish that u culd use this from right clickin on the main :(

 Respond  
DarthReven   -  Apr 11, 2005

rather over done

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.