1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
| alias settaw {
popups New settaw 17 17
popups SetStyle settaw reverse
popups LoadImg settaw icon small $ico(02setting)
popups AddItem settaw end 1 -(Vai in Away)- $cr /Msg # 11S12o11N12o 11A12w11a12y 11M12o11t12i11v12o: 11( 12 $+ $+ 11 ) %ver
popups AddItem settaw end 1 -(Torna Dall'away)- $cr /msg # 11S12o11N12o 11T12o11r11n12a12t11o 11D12a11l12l'11A12w11a12y 11M12o11t12i11v12o: 11( 12 $+ $reason $+ 11 ) %ver
}
alias sett1 {
popups New sett1 17 17
popups SetStyle sett1 reverse
popups LoadImg sett1 icon small $ico(colors)
popups AddItem sett1 end 1 -(Ragnatela)- $cr /play Ascii\RAGNATELA.txt 200
popups AddItem sett1 end 1 -(Mazzo di Rose)- $cr /play Ascii\1dozroses.txt 200
popups AddItem sett1 end 1 -(Una rosa..)- $cr /play Ascii\1rose2.txt 200
popups AddItem sett1 end 1 -(Polizia)- $cr /play Ascii\911.txt 200
popups AddItem sett1 end 1 -(Auguri)- $cr /play Ascii\BirthDay.txt 200
popups AddItem sett1 end 1 -(Alieno)- $cr /play Ascii\Alien.txt 200
popups AddItem sett1 end 1 -(CocaCola)- $cr /play Ascii\cocacola.txt 200
popups AddItem sett1 end 1 -(Rose)- $cr /play Ascii\12rose.txt 200
popups AddItem sett1 end 1 -(Manette)- $cr /play Ascii\CUFFS.txt 200
popups AddItem sett1 end 1 -(Cuore)- $cr /play Ascii\1Coure.txt 200
popups AddItem sett1 end 1 -(Italia)- $cr /play Ascii\Italia.txt 200
popups AddItem sett1 end 1 -(Linguaccia)- $cr /play Ascii\linguaccia.txt 200
popups AddItem sett1 end 1 -(Pubblicita')- $cr /play Ascii\Pub1.txt 200
popups AddItem sett1 end 1 -(Snoopy)- $cr /play Ascii\Snopy.txt 200
popups AddItem sett1 end 1 -(Rose Nere)- $cr /play Ascii\Rosenere.txt 200
}
alias chanp {
popups New chanp 17 17
popups SetStyle chanp reverse
popups LoadImg chanp icon small $ico(cp)
popups LoadImg chanp icon small $ico(sound)
popups LoadImg chanp icon small $ico(colors)
popups LoadImg chanp icon small $ico(02setting)
popups LoadImg chanp icon small $ico(close)
popups AddItem chanp end 1 -( $+ Canale $active $+ )- $cr channel
popups AddItem chanp end 2 -(Mp3)- $cr /dialog -m mp3
popups AddItem chanp end +> 3 -(Ascii)- $cr sett1
popups AddItem chanp end +> 4 -(Away)- $cr settaw
popups AddItem chanp end 5 -(Disconnetti)- $cr Quit %ver
pop chanp $mouse.dx $mouse.dy
popups Destroy chan
}
alias pdll return $mircdirdll\popups.dll
alias additem_ { dll dll\popups.dll AddItem $1- }
alias popups return $dll($pdll,$1,$2-)
alias popdll return { dll dll\popups.dll }
alias pop tokenize 32 $dll(dll\popups.dll,Popup,$1-) | if ($isid) return $1- | $iif($4- != did not select a menu item,$4-)
alias ico { return images\icon\ $+ $1- $+ .ico }
menu channel {
$chanp
} |
