Jump to content

Cryton

Members
  • Posts

    190
  • Joined

  • Last visited

About Cryton

  • Birthday 07/14/1982

Contact Methods

  • Website URL
    http://

Profile Information

  • Gender
    Male
  • Location
    Bangalore
  • Interests
    Surfing net,playing cricket ..........

Cryton's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Cryton

    Just A Theme

    Good for a basic theme
  2. Wow alot of advancement,great to hear about mIRC 7SERIES
  3. Sorry i did noticed that error and verified the code,nothing was wrong .Btw it was with $regsub .
  4. Twelz there is an error in privmsg,it says invalid format please look into it.And btw iam back after a long break .
  5. Ok here it is http://www.mircscripts.com/old/
  6. You can try this link http://www.mirc.co.uk/get591.html .
  7. I went through this topic,doesnt seems to be that much bad .
  8. Cryton

    Aop Help

    I hope we discussed about that gate .
  9. Cryton

    Aop Help

    What gate tells is right ,alot of hashing does use ram.
  10. See that if you have on *:INPUT:#: { in some other remote file,if so delete that and try either one of the above two codes .
  11. Try this code,it may help you .And btw from next time post questions in correct thread as this belongs to sparkpea support . I dint make the font code/dialog i just made the display theme . menu menubar { My Font { font } } alias font { dialog -md webfonts webfonts } dialog webfonts { title "SPCN - MIRC Webfont selector" size -1 -1 191 78 option dbu box "", 1, 2 2 187 70 list 2, 5 16 90 49, size list 3, 96 16 50 49, size text "Font Name", 4, 7 7 84 8 text "Colour", 5, 98 7 48 8 check "Bold", 6, 152 17 35 10 check "Italic", 7, 152 36 33 10 check "Random", 9, 152 54 33 10 } alias ColourSettings { if ($2 == $null) { return $readini(Fontsettings.ini,n,settings,$$1) } if ($1 == r) { remini Fontsettings.ini settings $$2 } else { writeini Fontsettings.ini settings $$1 $2- } } On *:Dialog:webfonts:init:*: { if ($ColourSettings(bold)) did -c $dname 6 if ($ColourSettings(italic)) did -c $dname 7 if ($ColourSettings(random)) did -c $dname 9 ;# add your fonts here - simply add a comma , then a font name :) didtok $dname 2 44 Arial,Tahoma,Arial Black,Arial Narrow,Century,Comic Sans MS,Lucida Console,Lucida Sans,Times New Roman didtok $dname 3 44 Black,DarkBlue,DarkGreen,Red,DarkRed,Purple,DarkYellow,Yellow,Green,Teal,Cyan,Blue,Pink,DarkGray,Gray did -c $dname 3 $didwm($dname,3,$ColourSettings(colour) $+ *,1) did -c $dname 2 $didwm($dname,2,$ColourSettings(font) $+ *,1) } alias dofontcode { var %x = $ColourSettings(colour) var %c $replace(%x,white,1,black,2,darkred,3,darkgreen,4,darkblue,5,darkyellow,6,purple,7,teal,8,lightgray,9,darkgray,\n,red,11,green,12,blue,\r,yellow,14,pink,15,cyan,16) %x = 1 if ($ColourSettings(bold)) inc %x if ($ColourSettings(italic)) %x = $calc(%x + 2) if ($ColourSettings(font.u)) %x = $calc(%x + 4) ColourSettings code %c %x $replace($ColourSettings(font),$chr(32),\b) $+;0 } alias webfont { if ($gettok($ColourSettings(code),1,32) isnum) var %fc = $chr($gettok($ColourSettings(code),1,32)) else var %fc = $gettok($ColourSettings(code),1,32) if ($ColourSettings(random)) { %fc = $rand(1,16) while ((%fc == 10) || (%fc == 13)) %fc = $rand(1,16) } return $chr(1) $+ S $iif($ColourSettings(random),$chr(%fc),%fc) $+ $chr($gettok($ColourSettings(code),2,32)) $+ $gettok($ColourSettings(code),3,32) $1- $chr(1) else return $1- } alias mircfont { var %a = $gettok($ColourSettings(code),1,32) var %b = $gettok($ColourSettings(code),2,32) if (%a == 1) %a = 00 elseif (%a == 2) %a = 01 elseif (%a == 3) %a = 05 elseif (%a == 4) %a = 03 elseif (%a == 5) %a = 02 elseif (%a == 6) %a = 07 elseif (%a == 7) %a = 06 elseif (%a == 8) %a = 10 elseif (%a == 9) %a = 15 elseif (%a == 11) %a = 04 elseif (%a == 12) %a = 09 elseif (%a == 14) %a = 08 elseif (%a == 15) %a = 13 elseif (%a == 16) %a = 11 elseif (%a == \r) %a = 12 elseif (%a == \n) %a = 14 else %a = 01 return $iif(%b == 2,$chr(2)) $+ $chr(3) $+ %a $+ $1- } on *:dialog:webfonts:sclick:*:{ ColourSettings do.font $true ColourSettings do.font.other $true if ($did == 6) { if ($ColourSettings(bold)) { ColourSettings r bold did -u $dname 6 } else { ColourSettings bold $true | did -c $dname 6 } dofontcode } if ($did == 7) { if ($ColourSettings(italic)) { ColourSettings r italic did -u $dname 7 } else { ColourSettings italic $true did -c $dname 7 } dofontcode } if ($did == 9) { if ($ColourSettings(random)) { ColourSettings r random did -u $dname 9 } else { ColourSettings random $true did -c $dname 9 } } if ($did == 2) { ColourSettings font $did($dname,$did).seltext dofontcode } if ($did == 3) { ColourSettings colour $did($dname,$did).seltext dofontcode } } on *:INPUT:#: { if (/* !iswm $1) { echo $color(own) -ti2 $me $+ : $mircfont($1-) .msg $chan $webfont($1-) halt } } on *:INPUT:?: { if (/* !iswm $1) { echo $color(own) -ti2 $me $+ : $+ $mircfont($1-) .msg $target $webfont($1-) haltdef } }
  12. Yeah he used ajax to make chatcore webchat .
  13. I have seen bench's work,its really good .
×
×
  • Create New...