own menu's - 18/03/04 01:08 PM
Code:
menu status { $spopup } menu channel { $cpopup }
when i right click in the channel it calls $spopup
menu status { $spopup } menu channel { $cpopup }
menu status { $spopup } menu channel { $cpopup } menu query { $qpopup } menu nicklist { $npopup } menu menubar { $mpopup } alias spopup { if $window(@spopup) { window -c @spopup } window -dhk0op +dL @spopup $mouse.dx $mouse.dy 125 200 drawrect -fr @spopup $skin(popups,face) 1 0 0 125 200 drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 110 1 x drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 5 5 skin loader drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 5 15 amp } menu @spopup { mouse:{ if $mouse.x < 100 { if $mouse.y isnum 5-15 { drawrect -fr @spopup $skin(popups,face) 1 0 0 125 200 drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 110 1 x drawrect -fr @spopup $skin(popups,highlight) 1 4 6 100 10 drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 5 5 skin loader drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 5 15 amp } elseif $mouse.y isnum 15-25 { drawrect -fr @spopup $skin(popups,face) 1 0 0 125 200 drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 110 1 x drawrect -fr @spopup $skin(popups,highlight) 1 4 16 100 10 drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 5 5 skin loader drawtext -r @spopup $skin(popups,text) $skin(popups,font) $skin(popups,fontsize) 5 15 amp } } } sclick:{ if $mouse.x isnum 110-120 && $mouse.y isnum 1-12 { window -c @spopup } elseif $mouse.x < 80 { if $mouse.y isnum 5-15 { drawskin window -c @spopup } elseif $mouse.y isnum 15-25 { drawamp window -c @spopup } } } }
menu status { $spopup } menu channel { $cpopup } alias -l spopup echo -s $active spopup alias -l cpopup echo -s $active cpopup