Anonymous user
RCRPG/Tcl: Difference between revisions
some small fixes
(new) |
(some small fixes) |
||
Line 19:
alias [string index $i 0] = go $i
}
foreach {new old} {a attack
alias $new = $old
}
Line 30:
}
}
proc Room {xyz {name {}} {items {}}} { #-- "constructor"
if {$name eq ""} {set name R.[incr ::R()]}
if ![llength $items] {set items [lpick {sledge {} ladder gold}]}
Line 73:
if {$name eq "PrizeRoom"} {
puts "Congratulations - you won!"
exit
}
set exits $::R($xyz.exits)
| |||