… | … | ||
---|---|---|---|
303 | } | 303 | } |
304 | 304 | ||
305 | nuke_str $pass2; | 305 | nuke_str $pass2; |
306 | 306 | ||
307 | my $pl = cf::player::new $user; | 307 | my $pl = cf::player::new $user; |
308 | $pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]); | 308 | $pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[(cf::rndm 64), (cf::rndm 64)]); |
309 | nuke_str $pass; | 309 | nuke_str $pass; |
310 | $pl->connect ($ns); | 310 | $pl->connect ($ns); |
311 | my $ob = $pl->ob; | 311 | my $ob = $pl->ob; |
312 | 312 | ||
313 | $ob->goto ($pl->maplevel, $ob->x, $ob->y); | 313 | $ob->goto ($pl->maplevel, $ob->x, $ob->y); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |