mIRC Home    About    Download    Register    News    Help

Print Thread
#13056 25/02/03 02:58 PM
Joined: Feb 2003
Posts: 5
M
MORTH Offline OP
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
M
Joined: Feb 2003
Posts: 5
ok not sure what went wrong here i upgraded my script to 6.03 from 5.82 everything seems to be working fine but if i try to open fserve i get * /dialog: 'Fserve' invalid table, in 'check' 572 (line 19, a1.ini) i have included the code from the .ini any help would be apreciated
a1.ini
[aliases]
n0=
n1=ri { return $readini -n $1 $2 $3- }
n2=ic { if ($address($1,5) == $null) { error $$1 $+ 's mask is not in the Internal Address List, please make sure you have a common channel and type /who $$1 $+ . | halt } }
n3=rpunct { return $replace($strip($1-,burc),$chr(33),$chr(32),$chr(34),$chr(32),$chr(39),$chr(32),$chr(40),$chr(32),$chr(41),$chr(32),$chr(44),$chr(32),$chr(45),$chr(32),$chr(46),$chr(32),$chr(47),$chr(32),$chr(58),$chr(32),$chr(59),$chr(32),$chr(60),$chr(32),$chr(62),$chr(32),$chr(63),$chr(32),$chr(91),$chr(32),$chr(92),$chr(32),$chr(93),$chr(32),$chr(94),$chr(32),$chr(95),$chr(32),$chr(96),$chr(32),$chr(123),$chr(32),$chr(124),$chr(32),$chr(125),$chr(32)) }
n4=ecomc { if ($1 isnum) && ($3 != $null) { set %~ecomc 0 | :start | inc %~ecomc 1 | if ($comchan($2,%~ecomc) == $null) { unset %~ecomc } | else { echo $1 $comchan($2,%~ecomc) $3- | goto start } } }
n5=close if ($1 == $null) { echo -a  $+ $colour(info) $+ * /close: insufficient parameters | halt } | close $1- | if (-*s* iswm $1) { queue.send }
n6=tag { return  $+ $sets(viz,ADV.text) $+ | $+  $+ $sets(viz,ADV.info) $+ $chr(37) $+  $+ $sets(viz,ADV.text) $+ | }
n7=aecho { if ($left($active,1) == @) { secho $1- } | else { echo -a  $+ $sets(viz,ADV.text) $+ | $+  $+ $sets(viz,ADV.info) $+ $chr(37) $+  $+ $sets(viz,ADV.text) $+ | $1- } }
n8=secho { echo -s  $+ $sets(viz,ADV.text) $+ | $+  $+ $sets(viz,ADV.info) $+ $chr(37) $+  $+ $sets(viz,ADV.text) $+ | $1- }
n9=bracket { if ($1- != $null) { return  $+ $sets(viz,ADV.text) $+ | $+ $sets(viz,ADV.info) $+ $1- $+  $+ $sets(viz,ADV.text) $+ | } }
n10=border { if ($1- != $null) { return $chr(91) $+ $1- $+ $chr(93) } }
n11=svs { return  $+ $sets(viz,ADV.text) $+ $1 $+ : $+ $sets(viz,ADV.info) $+  $+ $2- $+  $+  $+ $sets(viz,ADV.text) $+ . }
n12=sv { return  $+ $sets(viz,ADV.text) $+ $1 $+ : $+  $+ $sets(viz,ADV.info) $+ $2- }
n13=vs { return  $+ $sets(viz,ADV.info) $+ $1- }
n14=isnum { if ($1 isnum) && (($1 >= 1) || (($1 == $2) && ($2 isnum) && ($2 >= 0))) { return $true } | else { return $false } }
n15=vnum { if ($1 == $null) { return $iif($isnum($2,0) == $true,$2,1) } | set -u0 %~isnum 0 | :start | inc %~isnum 1 | if ($mid($1,%~isnum,1) == $null) { if ($isnum($1) == $true) { return $1 } | else { return $iif($isnum($2,0) == $true,$2,1) } } | elseif ($mid($1,%~isnum,1) !isnum) { if ($mid($1,$calc(%~isnum - 1),1) == $null) { return $iif($isnum($2,0) == $true,$2,1) } | elseif ($isnum($mid($1,1,$calc(%~isnum - 1))) == $true) { return $mid($1,1,$calc(%~isnum - 1)) } | else { return $iif($isnum($2,0) == $true,$2,1) } } | else { goto start } }
n16=isset { if ($1 == $null) && ($2- == $null) { return n/a } | elseif ($1 == $null) && ($2 != $null) { return $2- } | else { return $1 } }
n17=size { if ($1 < 0) || ($1 !isnum) { return n/a } | if ($round($calc($1 / 1000000000000),2) >= 1) { return $round($calc($1 / 1099511627776),2) $+ Tb } | if ($round($calc($1 / 1000000000),2) >= 1) { return $round($calc($1 / 1073741824),2) $+ Gb } | if ($round($calc($1 / 1000000),1) >= 1) { return $round($calc($1 / 1048576),1) $+ Mb } | if ($round($calc($1 / 1000),1) >= 1) { return $round($calc($1 / 1024),1) $+ Kb } | return $int($1) $+ b }
n18=dopen { if ($2 != $null) { if ($dialog($1) == $null) { dialog -m $1 $2 } | else { dialog -v $1 $2 } } }
n19=cw { return $int($calc(( [ $window(-3).w ] - ( [ $window(-3).w ] * (3/4)))/2)) $int($calc(( [ $window(-3).h ] - ( [ $window(-3).h ] * (3/4)))/2)) $int($calc( [ $window(-3).w ] * (3/4))) $int($calc( [ $window(-3).h ] * (3/4))) }
n20=color { if ($1 isnum 0-15) { if ($1 == 0) { return White } | if ($1 == 1) { return Black } | if ($1 == 2) { return Blue } | if ($1 == 3) { return Green } | if ($1 == 4) { return Red } | if ($1 == 5) { return Brown } | if ($1 == 6) { return Purple } | if ($1 == 7) { return Orange } | if ($1 == 8) { return Yellow } | if ($1 == 9) { return Light Green } | if ($1 == 10) { return Cyan } | if ($1 == 11) { return Light Cyan } | if ($1 == 12) { return Royal Blue } | if ($1 == 13) { return Pink } | if ($1 == 14) { return Grey } | if ($1 == 15) { return Light Grey } } }
n21=vc { if ($left($1,1) != $chr(35)) { return $chr(35) $+ $1- } | else { return $1- } }
n22=visible { if ($colour(back) == 1) { return $replace($1-,10,42,11,43,12,44,13,45,14,46,15,47,16,00,17,01,18,02,19,03,20,04,21,05,22,06,23,07,24,08,25,09,1,14,01,14,2,12,02,12,5,04,05,04) } | elseif ($colour(back) == 0) { return $replace($1-,00,32,01,33,02,34,03,35,04,36,05,37,06,38,07,39,08,40,09,41,8,39,40,39,9,35,41,35,11,10,0,14,32,14) } | else { return $1- } }
n23=percent { if ($1 isnum) && ($2 isnum) { return $round($calc(($1 / $2) * 100),2) $+ $chr(37) } }
n24=dla { if ($3 != $null) { set %~dlg-c 0 | :start | inc %~dlg-c 1 | if ($gettok($3-,%~dlg-c,44) == $null) { unset %~dlg-c } | else { did -a $1 $2 $gettok($3-,%~dlg-c,44) | goto start } } }
n25=dls { if ($3 != $null) { set %~dlg-c 0 | :start | inc %~dlg-c 1 | if ($did($1,$2,%~dlg-c).text == $null) { $3- $gettok(%~dlg-data,1-,44) | unset %~dlg-c %~dlg-data } | else { set %~dlg-data %~dlg-data $+ , $+ $did($1,$2,%~dlg-c).text | goto start } } }
n26=ordinal { if ($isnum($1) == $true) { if (($right($1,2) isnum 11-19) || ($right($1,1) == 0) || ($right($1,1) isnum 4-9)) { return $1 $+ th } | if ($right($1,1) == 1) { return $1 $+ st } | if ($right($1,1) == 2) { return $1 $+ nd } | if ($right($1,1) == 3) { return $1 $+ rd } } }
n27=dopall { set %~dopall 0 | :start | inc %~dopall 1 | if ($chan(%~dopall) == $null) { unset %~dopall } | elseif ($me isop $chan(%~dopall)) { mode $chan(%~dopall) -o+v $me $me | goto start } | else { goto start } }
n28=opall { set %~opall 0 | :start | inc %~opall 1 | if ($chan(%~opall) == $null) { unset %~opall } | elseif ($me !isop $chan(%~opall)) { .msg ChanServ OP $chan(%~opall) $me | goto start } | else { goto start } }
n29=on { return $chr(62) }
n30=off { return $chr(160) $+ $chr(160) }
n31=c { if ($1 isnum 1-2) && ($r.set(Colors,Colors) == On) && ($r.set(Colors,Color. [ $+ [ $1 ] ] ) isnum) { return $chr(3) $+ $tds($r.set(Colors,Color. [ $+ [ $1 ] ] )) } }
n32=tds { if ($1 isnum) { return $iif($len($1) == 1,0) $+ $1 } }
n33=w.set { if ($3 != $null) { writeini -n system\Sts.ini $1 $2 $strip($3-,burc) } }
n34=r.set { if ($2 != $null) { return $readini -n system\Sts.ini $1 $2 } }
n35=d.set { if ($2 != $null) { remini system\Sts.ini $1 $2 } }
n36=t.set { if ($2 != $null) { return /ctcp $me $readini -n system\Sts.ini $1 $2 } }
n37=allchk { if ($1 == $null) { return All } | else { return $1- } }
n38=admsg { if ($2 != $null) { if ($1 == All) { amsg $2- } | else { set %~admsg 0 | :start | inc %~admsg 1 | if ($gettok($1,%~admsg,44) != $null) { if ($me ison $gettok($1,%~admsg,44)) { msg $gettok($1,%~admsg,44) $2- } | goto start } | else { unset %~admsg } } } | else { error Syntax: /admsg <channel1,channel2,etc> <msg> } }
n39=amsg { if ($1 != $null) { set %~amsg 0 | :start | inc %~amsg 1 | if ($chan(%~amsg) == $null) { unset %~amsg } | elseif ($me ison $chan(%~amsg)) { msg $chan(%~amsg) $1- | goto start } | else { goto start } } | else { error Syntax: /amsg <msg> } }
n40=ame { if ($1 != $null) { set %~ame 0 | :start | inc %~ame 1 | if ($chan(%~ame) == $null) { unset %~ame } | elseif ($me ison $chan(%~ame)) { describe $chan(%~ame) $1- | goto start } | else { goto start } } | else { error Syntax: /ame <msg> } }
n41=send.nick { if ($1 != $null) { if ($send($1) == $null) { return 0 } | set -u0 %~send-nc 0 | set -u0 %~send-nt 0 | :start | inc %~send-nc 1 | if ($send(%~send-nc) == $null) { return %~send-nt } | if ($send(%~send-nc) == $1) { inc %~send-nt 1 } | goto start } }
n42=min.cps {
n43= if ($send(0) > 0) && ($r.set(Min.CPS,Status) == On) && ($r.set(Min.CPS,Rate) isnum) {
n44= set %~mincps-c $calc($send(0) + 1)
n45= :start
n46= dec %~mincps-c 1
n47= if (%~mincps-c < 1) {
n48= unset %~mincps-c | return
n49= }
n50= elseif (($send(%~mincps-c).cps < $r.set(Min.CPS,Rate)) && ($send(%~mincps-c).cps != $null) && ($send(%~mincps-c).cps != 0) && ($send(%~mincps-c).cps != n/a)) {
n51= echo -a $send(%~mincps-c) had their send stopped because their CPS was  $+ $sets(viz,ADV.info) $+ $send(%~mincps-c).cps $+  $+ $sets(viz,ADV.text) when minimum allowed is  $+ $sets(viz,ADV.info) $+ $r.set(Min.CPS,Rate) $+  $+ $sets(viz,ADV.text) $+ .
n52= if ($comchan($send(%~mincps-c),1) != $null) {
n53= .notice $send(%~mincps-c)  $+ $sets(viz,ADV.text) $+ Your sends have stopped because one of your sends were going at  $+ $sets(viz,ADV.info) $+ $send(%~mincps-c).cps $+  $+ $sets(viz,ADV.text) cps when minimum allowed is  $+ $sets(viz,ADV.info) $+ $r.set(Min.CPS,Rate) $+  $+ $sets(viz,ADV.info) $+ cps.
n54= }
n55= close -s $send(%~mincps-c)
n56= }
n57= goto start
n58= }
n59=}
n60=tch { if ($2 != $null) { set %~tch 0 | :start | inc %~tch 1 | if ($comchan($1,%~tch) == $null) { unset %~tch | return $false } | else { if ($findtok($2,$comchan($1,%~tch),1,44) isnum) { unset %~tch | return $true } | else { goto start } } } }
n61=tc {
n62= if ($2 == Fserve) { if ($r.set(Fserve,Status) == On) { if ($r.set(Fserve,Channels) == All) { if ($comchan($1,1) != $null) { return $true } | else { return $false } } | if ($tch($1,$r.set(Fserve,Channels)) == $true) { return $true } | else { return $false } } | else { return $false } }
n63= else { return $false }
n64=}
n65=queue { if ($1 isnum 0) { set -u0 %~queue-c 0 | :start | inc %~queue-c 1 | if (%Queue. [ $+ [ %~queue-c ] ] == $null) { return $calc(%~queue-c - 1) } | goto start | :end | unset %~queue-c } | elseif ($isnum($1) == $true) { return %Queue. [ $+ [ $1 ] ] } }
n66=queue.nick { if ($1 != $null) { if ($queue(0) == 0) { return 0 } | set -u0 %~queue-nc 0 | set -u0 %~queue-nt 0 | :start | inc %~queue-nc 1 | if (%~queue-nc > $queue(0)) { return %~queue-nt } | if ($gettok($queue(%~queue-nc),2,32) == $1) { inc %~queue-nt 1 } | goto start } }
n67=queue.send {
n68= :queue
n69= if ($queue(0) > 0) && ($r.set(Fserve,Max.Sends.Total) > $send(0)) {
n70= set %~queue-sc 0
n71= :start
n72= inc %~queue-sc 1
n73= if (%~queue-sc > $queue(0)) { unset %~queue-sc }
n74= else {
n75= if ($gettok($queue(%~queue-sc),1,32) == Fserve) {
n76= if ($tc($gettok($queue(%~queue-sc),2,32),Fserve) == $false) { queue.del %~queue-sc | unset %~queue-sc | goto queue }
n77= if (($r.set(Fserve,Max.Sends.Total) > $send(0)) && ($r.set(Fserve,Max.Sends.Each) > $send.nick($gettok($queue(%~queue-sc),2,32)))) { goto send }
n78= }
n79= goto start
n80= :send
n81= dcc send $gettok($queue(%~queue-sc),2,32) " $+ $gettok($queue(%~queue-sc),3-,32) $+ " | queue.del %~queue-sc | unset %~queue-sc | goto queue
n82= }
n83= }
n84=}
n85=queue.exists { set -u0 %~queue-ec 0 | :start | inc %~queue-ec 1 | if (%Queue. [ $+ [ %~queue-ec ] ] != $null) { if (%Queue. [ $+ [ %~queue-ec ] ] == $1-) { return %~queue-ec } | goto start } }
n86=queue.add { queue.exists $1- | if ($result isnum) { return $result } | set -u0 %~queue-ac 0 | :start | inc %~queue-ac 1 | if (%Queue. [ $+ [ %~queue-ac ] ] == $null) { set %Queue. [ $+ [ %~queue-ac ] ] $1- | unset %~queue-ac | qmu } | else { goto start } }
n87=queue.del { if ($isnum($1) == $true) { set -u0 %~queue-dc $calc($1 - 1) | :start | inc %~queue-dc 1 | set %Queue. [ $+ [ %~queue-dc ] ] | if (%Queue. [ $+ [ $calc(%~queue-dc + 1) ] ] == $null) { unset %~queue-dc | qmu } | else { set %Queue. [ $+ [ %~queue-dc ] ] %Queue. [ $+ [ $calc(%~queue-dc + 1) ] ] | goto start } } }
n88=queue.rep { if ($isnum($1) == $true) && ($queue(0) >= $1) && ($2 != $null) { set %Queue. [ $+ [ $1 ] ] $2- } }
n89=qmu { if ($dialog(Queue_Manager) != $null) { did -r Queue_Manager 2,11,16,21 | set %~qmu 0 | :start | inc %~qmu 1 | if (%Queue. [ $+ [ %~qmu ] ] == $null) { unset %~qmu } | else { did -a Queue_Manager 2 Queue $chr(35) $+ %~qmu | goto start } } }
n90=qnu { if ($2 != $null) { set %~qnu 0 | :start | inc %~qnu 1 | if ($queue(%~qnu) == $null) { unset %~qnu | qmu } | else { if ($gettok($queue(%~qnu),2,32) == $1) { queue.rep %~qnu $gettok($queue(%~qnu),1,32) $2 $gettok($queue(%~qnu),3-,32) } | goto start } } }
n91=check {
n92= if ($1 == Fserve) { if ($check.h(fserve) != $null) { error You didn't set any of the folllowing required items correctly to start the File Server. $bracket($left($check.h(Fserve),-5)) } }
n93=}
n94=check.h {
n95= elseif ($1 == Fserve) { return $iif($isnum($r.set(Fserve,Max.Sends.Total)) != $true,MaxSendsTotal) $iif($isnum($r.set(Fserve,Max.Sends.Each)) != $true,Max Sends Each & ) $+ $iif($isnum($r.set(Fserve,Max.Queues.Total)) != $true,MaxQueuesTotal) $iif($isnum($r.set(Fserve,Max.Queues.Each)) != $true,Max Queues Each & ) $+ $iif($r.set(Fserve,Note) == $null,Note & ) $+ $iif($fserve.ad.triggers.h == $null,Active Triggers & ) }
n96=}
n97=ad { advertise $1- }
n98=advertise {
n99= if ($2 == Fserve) {
n100= if ($1 == Start) {
n101= w.set Fserve Status On
n102= if ($isnum($r.set(Fserve,Ad.Delay)) == $true) {
n103= .timerFserve -o 0 $calc( [ $r.set(Fserve,Ad.Delay) ] * 60) fserve.ad
n104= }
n105= fserve.ad
n106= if (($isnum($r.set(Min.CPS,Delay)) == $true) && ($r.set(Min.CPS,Status) == on)) {
n107= .timerMin.CPS 0 $r.set(Min.CPS,Delay) Min.CPS
n108= }
n109= }
n110= if ($1 == Stop) { w.set Fserve Status Off | .timerFserve Off }
n111= if ($1 == Silent) { if ($check.h(fserve) != $null) { check fserve } | else { w.set Fserve Status On } }
n112= if ($1 == Say) { if ($check.h(fserve) != $null) { check fserve } | else { w.set Fserve Status On | say $fserve.ad.temp } }
n113= }
n114= else { error Syntax: /advertise <start|stop|silent|say> fserve }
n115=}
n116=fserve.ad { if (($server != $null) && ($r.set(Fserve,Status) == On)) { admsg $allchk($r.set(Fserve,Channels)) $fserve.ad.temp } }
n117=fserve.start { if ($2 != $null) { if ($r.set(Fserve. [ $+ [ $2 ] ] ,Welcome.File) == None) || ($r.set(Fserve. [ $+ [ $2 ] ] ,Welcome.File) == $null) { fserve $1 99 $r.set(Fserve. [ $+ [ $2 ] ] ,Root.Dir) } | else { fserve $1 99 $r.set(Fserve. [ $+ [ $2 ] ] ,Root.Dir) $r.set(Fserve. [ $+ [ $2 ] ] ,Welcome.File) } } }
n118=fserve_grp {
n119= unset %~grp
n120= if ($istok($1-,1,32) == $true) { set %~grp %~grp $+ ,10,11,12,13,14,20,21,22,23,24,32,40,41,45,46,50,51,60,61,62,63,64 }
n121= if ($istok($1-,2,32) == $true) { set %~grp %~grp $+ ,70,71,72,75,76,77,78,80,81,82,572,573 }
n122= if ($istok($1-,3,32) == $true) { set %~grp %~grp $+ ,90,91,92,95,96,97,98,100,101,102,574,575 }
n123= if ($istok($1-,4,32) == $true) { set %~grp %~grp $+ ,110,111,112,115,116,117,118,120,121,122,576,577 }
n124= if ($istok($1-,5,32) == $true) { set %~grp %~grp $+ ,130,131,132,135,136,137,138,140,141,142,578,579 }
n125= if ($istok($1-,6,32) == $true) { set %~grp %~grp $+ ,150,151,152,155,156,157,158,160,161,162,580,581 }
n126= if ($istok($1-,7,32) == $true) { set %~grp %~grp $+ ,165,170,171,172,173,174,175,176,177,178,179,185,186,187,188,189,190 }
n127= set -u0 %~grp %~grp
n128= return $gettok(%~grp,1-,44)
n129=}
n130=;playlister.mrc v1.0 originally written by MuteflY
n131=asx {
n132= %mute.playlist.file = $$?="Enter playlist file name (without the .asx)"
n133= %mute.playlist.dir = $$sdir="Where would you like the playlist saved?" c:\
n134= %mute.playlist.list = %mute.playlist.dir $+ %mute.playlist.file $+ .asx
n135= write " $+ %mute.playlist.list $+ " <ASX version = "3.0">
n136= write " $+ %mute.playlist.list $+ " <Title> $+ $$?="Enter title" $+ </Title>
n137= :nextentry
n138= write " $+ %mute.playlist.list $+ " <Entry><Ref href = " $+ $nopath($$hfile="Select entry") c:\*.avi $+ " /></Entry>
n139= if ($$?!="Would you like to add another entry?" == $true) {
n140= goto nextentry
n141= }
n142= else {
n143= write " $+ %mute.playlist.list $+ " </ASX>
n144= }
n145= echo -a 4,1M10,1utefl4,1Y Playlist completed!
n146= unset %mute.playlist*
n147=}
n148=oldsets {
n149= %old.sets = $$hfile="select settings.ini(polaris) or sts.ini(shadow)" c:\*.ini
n150= %old.access = $readini %old.sets fserve access
n151= w.set fserve access %old.access
n152= %old.Send.Bytes = $readini %old.sets fserve Send.Bytes
n153= w.set fserve send.bytes %old.Send.Bytes
n154=}
n155=packit {
n156= set %add.delay 1200
n157= set %UpTime.Rec 0
n158= set %connect 0
n159= set %start 0
n160= set %auto.voice off
n161= set %intro 0
n162= set %idle 0
n163= set %total.idle 0
n164= unset %botpass
n165= set %about.text 1
n166= set %nick.colours.o 12
n167= set %nick.colours.v 4
n168= set %nick.colours.m 8
n169= set %nick.colours.n 16
n170= set %nick.colours.h 0
n171= doit
n172=}
n173=/memsentence {
n174= dialog -m sentc sentc
n175= if ( %sentence1 == $null ) { did -ci sentc 3 1 Type your sentence here }
n176= if ( %sentence2 == $null ) { did -ci sentc 5 1 Type your sentence here }
n177= if ( %sentence3 == $null ) { did -ci sentc 7 1 Type your sentence here }
n178= if ( %sentence4 == $null ) { did -ci sentc 9 1 Type your sentence here }
n179= if ( %sentence5 == $null ) { did -ci sentc 11 1 Type your sentence here }
n180= if ( %sentence6 == $null ) { did -ci sentc 13 1 Type your sentence here }
n181= if ( %sentence7 == $null ) { did -ci sentc 15 1 Type your sentence here }
n182= if ( %sentence8 == $null ) { did -ci sentc 17 1 Type your sentence here }
n183= if ( %sentence9 == $null ) { did -ci sentc 19 1 Type your sentence here }
n184= if ( %sentence10 == $null ) { did -ci sentc 21 1 Type your sentence here }
n185= if ( %sentence1 != $null ) { did -ci sentc 3 1 %sentence1 }
n186= if ( %sentence2 != $null ) { did -ci sentc 5 1 %sentence2 }
n187= if ( %sentence3 != $null ) { did -ci sentc 7 1 %sentence3 }
n188= if ( %sentence4 != $null ) { did -ci sentc 9 1 %sentence4 }
n189= if ( %sentence5 != $null ) { did -ci sentc 11 1 %sentence5 }
n190= if ( %sentence6 != $null ) { did -ci sentc 13 1 %sentence6 }
n191= if ( %sentence7 != $null ) { did -ci sentc 15 1 %sentence7 }
n192= if ( %sentence8 != $null ) { did -ci sentc 17 1 %sentence8 }
n193= if ( %sentence9 != $null ) { did -ci sentc 19 1 %sentence9 }
n194= if ( %sentence10 != $null ) { did -ci sentc 21 1 %sentence10 }
n195= did -t sentc 80 1
n196=}
n197=/sentence1 {
n198= if ( %sentence1 == $null ) { /echo 3 %echomsg2 }
n199= if ( %sentence1 != $null ) { /say %sentence1 }
n200=}
n201=/sentence2 {
n202= if ( %sentence2 == $null ) { /echo 3 %echomsg2 }
n203= if ( %sentence2 != $null ) { /say %sentence2 }
n204=}
n205=/sentence3 {
n206= if ( %sentence3 == $null ) { /echo 3 %echomsg2 }
n207= if ( %sentence3 != $null ) { /say %sentence3 }
n208=}
n209=/sentence4 {
n210= if ( %sentence4 == $null ) { /echo 3 %echomsg2 }
n211= if ( %sentence4 != $null ) { /say %sentence4 }
n212=}
n213=/sentence5 {
n214= if ( %sentence5 == $null ) { /echo 3 %echomsg2 }
n215= if ( %sentence5 != $null ) { /say %sentence5 }
n216=}
n217=/sentence6 {
n218= if ( %sentence6 == $null ) { /echo 3 %echomsg2 }
n219= if ( %sentence6 != $null ) { /say %sentence6 }
n220=}
n221=/sentence7 {
n222= if ( %sentence7 == $null ) { /echo 3 %echomsg2 }
n223= if ( %sentence7 != $null ) { /say %sentence7 }
n224=}
n225=/sentence8 {
n226= if ( %sentence8 == $null ) { /echo 3 %echomsg2 }
n227= if ( %sentence8 != $null ) { /say %sentence8 }
n228=}
n229=/sentence9 {
n230= if ( %sentence9 == $null ) { /echo 3 %echomsg2 }
n231= if ( %sentence9 != $null ) { /say %sentence9 }
n232=}
n233=/sentence10 {
n234= if ( %sentence10 == $null ) { /echo 3 %echomsg2 }
n235= if ( %sentence10 != $null ) { /say %sentence10 }
n236=}


Joined: Dec 2002
Posts: 2,985
Hoopy frood
Offline
Hoopy frood
Joined: Dec 2002
Posts: 2,985
How about you post the code for the dialogue?

Joined: Feb 2003
Posts: 5
M
MORTH Offline OP
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
M
Joined: Feb 2003
Posts: 5
hmm i cant find the fserve dialog it's probly there i just cant find it any clue were i shuld look

Last edited by MORTH; 25/02/03 04:55 PM.
Joined: Feb 2003
Posts: 5
M
MORTH Offline OP
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
M
Joined: Feb 2003
Posts: 5
i think this it it
on *:dialog:Fserve:*:*:{
if ($devent == init) {
did -c $dname 1
did -ra $dname 12 $vnum($r.set(Fserve,Max.Sends.Each),1)
did -ra $dname 14 $vnum($r.set(Fserve,Max.Sends.Total),2)
did -ra $dname 22 $vnum($r.set(Fserve,Max.Queues.Each),4)
did -ra $dname 24 $vnum($r.set(Fserve,Max.Queues.Total),10)
if ($r.set(Fserve,Auto.Start) == On) { did -c $dname 32 }
did -ra $dname 41 $vnum($r.set(Fserve,Max.Serve),4)
did -ra $dname 46 $vnum($r.set(Fserve,Ad.Delay),5)
did -ra $dname 51 $r.set(Fserve,Note)
if (($r.set(Fserve,Channels) == All) || ($r.set(Fserve,Channels) == $null)) { did -c $dname 62 | did -b $dname 61,63,64 } | else { dla $dname 61 $r.set(Fserve,Channels) }
if ($r.set(Fserve.1,Status) == On) { did -c $dname 70 }

;; Begin dyerseve Code
if ($r.set(Fserve.1,VOP) == On) { did -c $dname 572 }
;; End dyerseve Code

did -ra $dname 72 $r.set(Fserve.1,Trigger)
did -mra $dname 77 $r.set(Fserve.1,Root.Dir)
did -mra $dname 81 $isset($r.set(Fserve.1,Welcome.File),None)
if ($r.set(Fserve.2,Status) == On) { did -c $dname 90 }

;; Begin dyerseve Code
if ($r.set(Fserve.2,VOP) == On) { did -c $dname 574 }
;; End dyerseve Code

did -ra $dname 92 $r.set(Fserve.2,Trigger)
did -mra $dname 97 $r.set(Fserve.2,Root.Dir)
did -mra $dname 101 $isset($r.set(Fserve.2,Welcome.File),None)
if ($r.set(Fserve.3,Status) == On) { did -c $dname 110 }

;; Begin dyerseve Code
if ($r.set(Fserve.3,VOP) == On) { did -c $dname 576 }
;; End dyerseve Code

did -ra $dname 112 $r.set(Fserve.3,Trigger)
did -mra $dname 117 $r.set(Fserve.3,Root.Dir)
did -mra $dname 121 $isset($r.set(Fserve.3,Welcome.File),None)
if ($r.set(Fserve.4,Status) == On) { did -c $dname 130 }

;; Begin dyerseve Code
if ($r.set(Fserve.4,VOP) == On) { did -c $dname 578 }
;; End dyerseve Code

did -ra $dname 132 $r.set(Fserve.4,Trigger)
did -mra $dname 137 $r.set(Fserve.4,Root.Dir)
did -mra $dname 141 $isset($r.set(Fserve.4,Welcome.File),None)
if ($r.set(Fserve.5,Status) == On) { did -c $dname 150 }

;; Begin dyerseve Code
if ($r.set(Fserve.5,VOP) == On) { did -c $dname 580 }
;; End dyerseve Code

did -ra $dname 152 $r.set(Fserve.5,Trigger)
did -mra $dname 157 $r.set(Fserve.5,Root.Dir)
did -mra $dname 161 $isset($r.set(Fserve.5,Welcome.File),None)
did -mra $dname 171 $vnum($gettok($r.set(Fserve,Record.CPS),1,32),0) by $isset($gettok($r.set(Fserve,Record.CPS),2-,32))
did -mra $dname 173 $size($r.set(Fserve,Send.Bytes))
did -mra $dname 175 $vnum($r.set(Fserve,Send.Total),0)
did -mra $dname 177 $vnum($r.set(Fserve,Send.Fails),0)
did -mra $dname 179 $vnum($r.set(Fserve,Access),0)
}
if ($devent == sclick) {
if ($did isnum 1-7) { did -h $dname $fserve_grp( [ $replace($remtok(1 2 3 4 5 6 7,$did,1,32),$chr(32),$chr(44)) ] ) | did -v $dname $fserve_grp($did) }
if ($did == 62) { if ($did($dname,$did).state == 1) { did -b $dname 61,63,64 } | else { did -e $dname 61,63,64 } }
if ($did == 63) && ($did($dname,61).sel == $null) && ($did($dname,61).text != $null) { did -a $dname 61 $vc($did($dname,61).text) | did -c $dname 61 $did($dname,61).lines }
if ($did == 64) && ($did($dname,61).sel isnum) { did -d $dname 61 $did($dname,61).sel }
if ($did == 78) { .timer 1 0 did -ra $dname 77 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 82) { .timer 1 0 did -ra $dname 81 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 98) { .timer 1 0 did -ra $dname 97 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 102) { .timer 1 0 did -ra $dname 101 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 118) { .timer 1 0 did -ra $dname 117 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 122) { .timer 1 0 did -ra $dname 121 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 138) { .timer 1 0 did -ra $dname 137 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 142) { .timer 1 0 did -ra $dname 141 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 158) { .timer 1 0 did -ra $dname 157 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 162) { .timer 1 0 did -ra $dname 161 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if (($did == 498) || ($did == 500)) {
w.set Fserve Max.Sends.Each $vnum($did($dname,12).text,1)
w.set Fserve Max.Sends.Total $vnum($did($dname,14).text,2)
w.set Fserve Max.Queues.Each $vnum($did($dname,22).text,4)
w.set Fserve Max.Queues.Total $vnum($did($dname,24).text,10)
if ($did($dname,32).state == 1) { w.set Fserve Auto.Start On } | else { w.set Fserve Auto.Start Off }
w.set Fserve Max.Serve $vnum($did($dname,41).text,4)
w.set Fserve Ad.Delay $vnum($did($dname,46).text,5)
if ($did($dname,62).state == 1) || ($did($dname,61).lines == 0) { w.set Fserve Channels All } | else { dls $dname 61 w.set Fserve Channels }
w.set Fserve Note $isset($did($dname,51).text,Just type the Trigger!)
if ($did($dname,70).state == 1) { w.set Fserve.1 Status On } | else { w.set Fserve.1 Status Off }

;; Begin dyerseve code
if ($did($dname,572).state == 1) { w.set Fserve.1 VOP On } | else { w.set Fserve.1 VOP Off }
;; End dyerseve code

w.set Fserve.1 Trigger $isset($did($dname,72).text,!trigger-1)
w.set Fserve.1 Root.Dir $isset($did($dname,77).text,$shortfn($mircdir))
w.set Fserve.1 Welcome.File $isset($did($dname,81).text,None)
if ($did($dname,90).state == 1) { w.set Fserve.2 Status On } | else { w.set Fserve.2 Status Off }

;; Begin dyerseve code
if ($did($dname,574).state == 1) { w.set Fserve.2 VOP On } | else { w.set Fserve.2 VOP Off }
;; End dyerseve code

w.set Fserve.2 Trigger $isset($did($dname,92).text,/ctcp $me)
w.set Fserve.2 Root.Dir $isset($did($dname,97).text,$shortfn($mircdir))
w.set Fserve.2 Welcome.File $isset($did($dname,101).text,None)
if ($did($dname,110).state == 1) { w.set Fserve.3 Status On } | else { w.set Fserve.3 Status Off }

;; Begin dyerseve code
if ($did($dname,576).state == 1) { w.set Fserve.3 VOP On } | else { w.set Fserve.3 VOP Off }
;; End dyerseve code

w.set Fserve.3 Trigger $isset($did($dname,112).text,!trigger-3)
w.set Fserve.3 Root.Dir $isset($did($dname,117).text,$shortfn($mircdir))
w.set Fserve.3 Welcome.File $isset($did($dname,121).text,None)
if ($did($dname,130).state == 1) { w.set Fserve.4 Status On } | else { w.set Fserve.4 Status Off }

;; Begin dyerseve code
if ($did($dname,578).state == 1) { w.set Fserve.4 VOP On } | else { w.set Fserve.4 VOP Off }
;; End dyerseve code

w.set Fserve.4 Trigger $isset($did($dname,132).text,!trigger-4)
w.set Fserve.4 Root.Dir $isset($did($dname,137).text,$shortfn($mircdir))
w.set Fserve.4 Welcome.File $isset($did($dname,141).text,None)
if ($did($dname,150).state == 1) { w.set Fserve.5 Status On } | else { w.set Fserve.5 Status Off }

;; Begin dyerseve code
if ($did($dname,580).state == 1) { w.set Fserve.5 VOP On } | else { w.set Fserve.5 VOP Off }
;; End dyerseve code

w.set Fserve.5 Trigger $isset($did($dname,152).text,!trigger-5)
w.set Fserve.5 Root.Dir $isset($did($dname,157).text,$shortfn($mircdir))
w.set Fserve.5 Welcome.File $isset($did($dname,161).text,None)
if ($did($dname,186).state == 1) { w.set Fserve Record.CPS 0 n/a }
if ($did($dname,187).state == 1) { w.set Fserve Send.Bytes 0 }
if ($did($dname,188).state == 1) { w.set Fserve Send.Total 0 }
if ($did($dname,189).state == 1) { w.set Fserve Send.Fails 0 }
if ($did($dname,190).state == 1) { w.set Fserve Access 0 }
}
}
}

Joined: Dec 2002
Posts: 1,527
_
Hoopy frood
Offline
Hoopy frood
_
Joined: Dec 2002
Posts: 1,527
ur problem is ur using someone elses script and u dont have the whole thing ...... what your posting IS NOT dialog creation code ..... ur posting what happens when each button is clicked ....... but without having them buttons to click the rest of the script will not and cannot work ....... that being said u need to look in your scripts that your tryin to take from one place to the other for something that will look similar to this in the begining of it

dialog Fserve {
title "Fserve
size $calc($window(-1).w - 145) 94 145 610
option pixels
icon icon.ico
button sizehere\\\\\
}

thats an example u certainly cant use that as ur dialog as IT WONT WORK ......

hopefully that will piont u in the right direction of where to find what u need


D3m0nnet.com
Joined: Feb 2003
Posts: 5
M
MORTH Offline OP
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
M
Joined: Feb 2003
Posts: 5
thanks for the info i will try to find the dialog i know its in the script because it worked before i upgraded it to 6.03 i will post it as soon as i find it.


Link Copied to Clipboard