p/xK
1
1
Fork 0
Code Issues 1 Pull Requests Releases 10 Wiki Activity

coin: wrap an if statement

Browse Source
This commit is contained in:
Přemysl Eric Janouch 2014-08-02 15:50:30 +02:00
parent 5bedd3918c
commit e8ddf5e58c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plugins/coin
View File

@ -97,7 +97,11 @@ while {[gets stdin line] != -1} {
set input [string range $input [string length $prefix] end] set input [string range $input [string length $prefix] end]
if {$input == "coin"} { if {$input == "coin"} {
if {rand() < 0.5} { pmrespond "Heads." } else { pmrespond "Tails." } if {rand() < 0.5} {
pmrespond "Heads."
} else {
pmrespond "Tails."
}
} elseif {[regexp {^dice( +|$)(.*)} $input -> _ args]} { } elseif {[regexp {^dice( +|$)(.*)} $input -> _ args]} {
if {! [string is integer -strict $args] || $args <= 0} { if {! [string is integer -strict $args] || $args <= 0} {
pmrespond "Invalid or missing number." pmrespond "Invalid or missing number."