Jump to content

Haggis

Members
 View Profile  See their activity

  • Posts

    400

  • Joined

  • Last visited

 Content Type 

Posts posted by Haggis

  4. font Stripper for CHATSUSA (xchat)

    in General IRCX

    Posted · Edited by Haggis

    Here it is the font stripper for xchat (linux cersion i dunno if it will work on windows)

     

    just paste this code into a text pad and save it as file.pl

     

    save it to the .xchat2 directory and then reopen xchat this will autoload it

     

    # *********************************************** #
#       Xchat Font Stripper for Chats USA         #
#                Coded by Haggis                  # 
#                 3rd April '05                   #
#          http://www.haggistech.co.uk            #
# *********************************************** #

Xchat::register("Split font","0.");
Xchat::print("Stripper Loaded\n");
Xchat::print("http://www.haggistech.co.uk\n");  
IRC::add_message_handler("PRIVMSG", "say"); 

sub say
{

 my $line = shift; 

if($line =~ m/CUSA/)
{


my $namehost, $prvmsg, $to, $font, $msg, $msg2, $font2;
($namehost, $prvmsg, $to, $font, $msg) = split(/ /, $line, 5);
($name, $host) = split(/!/, $namehost);
($font2, $msg2) = split(/:/,$msg,2);
$name =~ s/://;
$msg =~ s/://;

Xchat::emit_print("Private Message to Dialog", $name, $msg2);
return Xchat::EAT_XCHAT;
}
return Xchat::EAT_NONE;
}

     

     

    i know this is gonna get ripped by some but ach if ur that sad what can ya do lol

    any problems let me know

     

     

  7. IE 7

    in General News

    Posted

    i know some dont have the experience but the peole that do can fix stuff

     

    they can also add to it aswell lol

     

    it just seems to be the way that people dont want to attack linux

     

     

  8. IE 7

    in General News

    Posted

    being open source means that anyone can get at the code to fix bugs etc etc

     

    who was linux developed by ..... it was developed by hackers not very many people want to hack or destroy somerthing that THEY can have a part in building

  10. No Icons

    in General IRCX

    Posted

    will post a few screenshot when i gt`et ghome from work in the mornin lol

     

    i having some probs with aop but rest is fine

     

    i am currently trying to work out how to distinguish non subs lol

  12. No Icons

    in General IRCX

    Posted

    no diff

     

    i had been chaning stuff about i got icons in both mircdir and icons folder to make sure they were there

     

    still no diff though

     

     

    can one of u try it on ur mirc and see if it someit to do wi me

     

    i am on mirc 6.16

  13. No Icons

    in General IRCX

    Posted · Edited by Haggis

    i am going insane

     

    i have triwed another way

     

    i now have

     

    alias mdx { return $findfile($shortfn($mircdir),mdx.dll,1) }

    alias ctl { return $findfile($shortfn($mircdir),CTL_GEN.MDX,1) }

    alias bars { return $findfile($shortfn($mircdir),BARS.MDX,1) }

    alias views { return $findfile($shortfn($mircdir),views.mdx,1) }

     

     

     

    dialog auto {

    title "Auto Lists"

    size -1 -1 169 83

    option dbu

    list 1, 1 1 167 81, size vsbar

    }

     

     

     

    On *:Dialog:auto:init:0:{

    dll $mdx SetMircVersion $version

    dll $mdx MarkDialog $dname

    dll $mdx SetMircVersion $version

    dll $mdx MarkDialog $dname

    dll $mdx SetColor $dname

    dll $mdx SetFont $dname

    dll $mdx SetFont $dname 1 14 50 verdana

     

    dll $mdx SetControlMDX $dname 1 ListView report single grid > $views

    did -i $dname 1 1 headerdims 300

    did -i $dname 1 1 headertext Autolist

    did -i $dname 1 1 iconsize normal small

    did -i $dname 1 1 seticon normal gold.ico

    did -i $dname 1 1 seticon normal host.ico

    set -u %x 0

    while (%x < $lines(auto.txt)) {

    did -a $dname 1 +b 1 $read(auto.txt)

    inc %x

    }

     

    }

     

     

    and still the same

     

     

     

    user posted image

  16. No Icons

    in General IRCX

    Posted

    maing an aop with icons

     

    alias mdx { return mdx.dll }
alias ctl { return CTL_GEN.MDX }
alias bars { return BARS.MDX }
alias views { return views.mdx }
alias icon { return icons\ $+ $1- }


dialog auto {
 title "List View example"
 size -1 -1 100 91
 option dbu
 list 1, 1 3 98 73, size
 button "&OK", 2, 49 78 37 12, ok
}

on *:dialog:auto:init:0: {
 dll $mdx SetMircVersion $version 
 dll $mdx MarkDialog $dname
 dll $mdx SetControlMDX $dname 1 ListView report single grid > $views
 did -i $dname 1 1 headerdims 200
 did -i $dname 1 1 headertext Autolist

 did -i $dname 1 1 seticon list $icon(gold.ico)

 did -i $dname 1 1 seticon list $icon(host.ico)
 set -u %x 0
 while (%x < $lines(auto.txt)) {
   did -a auto 1 +b 1 $read(auto.txt)
   inc %x
 }
}

     

     

    the list comes up

     

    it reads the list fromt he txt file

     

    there red squares instead of icons

     

     

    MIRC DIR

    auto.mrc

    mdx.dll

    ctl_gen.mdx

    views.mdx

    bars.mdx

    icons

    gold.ico

    host.ico

     

     

     

     

    i just dont know why they wont show

×
×
  • Create New...