Отзыв за сообщение
Тема: Все равны (с 1.05.2010)
- Code: Выделить всё
[script]
n0=dialog vr {
n1= title "Все равны"
n2= size 100 100 200 100
n3=
n4= edit "wwbm",1,10 10 180 20
n5=
n6= check "Задан вопрос, вводи вариант",2,10 30 180 20
n7= check "Не успел, вводи букву ЩАС",3,10 50 180 20
n8=
n9= edit "",4,10 70 180 20
n10=
n11=}
n12=
n13=on *:TEXT:*:#saveicq {
n14= if ($nick == $did(vr,1)) {
n15=
n16= if ($pos($1-,play vr_back0.mp3,1)) {
n17= did -c vr 2
n18= }
n19=
n20= if ($pos($1-,play vr_countdown.mp3,1)) {
n21= if ($did(vr,2).state == 1) {
n22=
n23= did -u vr 2
n24=
n25= if ($did(vr,4) == $null) {
n26= did -c vr 3
n27= timer 1 11 did -u vr 3
n28= }
n29= else {
n30= msg $did(vr,1) $did(vr,4)
n31= }
n32=
n33= }
n34= }
n35=
n36= did -r vr 4
n37=
n38= }
n39=}
n40=
n41=on *:dialog:vr:edit:4: {
n42= if ($did(vr,3).state == 1) {
n43= msg $did(vr,1) $did(vr,4)
n44= did -u vr 3
n45= did -r vr 4
n46= }
n47=}
