大部分手遊取暱稱的時候都會給你預設的名字，少部分不提供真得很過分，不過幾行程式碼而已，雖然真的很簡單，但我還是想留個筆記記錄一下，就是可以組合出很智障的玩家暱稱的程式碼，文字庫越智障暱稱就可以更智障XD
my @t = ('異世界女神物語','聖鬥士星矢','倩女幽魂','遺落大陸','劍與遠征','一拳超人','新鹿鼎記','灌籃高手','異界之鑰','碧藍航線','明日之後','RO仙境傳說','王者榮耀','傳說對決','瑪利歐賽車','跑跑卡丁車'); # 文字庫
my $nick = $t[int rand @t]; # 隨機選字
$nick .= substr rand, 2, 3; # 隨機中小數點第一位開始取出3位數
print $nick; # output: 灌籃高手513
my @t1 = ('異世界','聖鬥士','倩女','遺落','劍與','一拳','新','灌籃','異界','碧藍','明日','RO仙境','王者','傳說','瑪利歐','跑跑'); # 文字庫前綴
my @t2 = ('女神物語','星矢','幽魂','大陸','遠征','超人','鹿鼎記','高手','之鑰','航線','之後','傳說','榮耀','對決','賽車','卡丁車'); # 文字庫後綴
my $nick = $t1[int rand @t1]; # 隨機選字
$nick .= $t2[int rand @t2]; # 隨機選字
$nick .= substr rand, 2, 3; # 隨機中小數點第一位開始取出3位數
print $nick; # output: 倩女對決688
"新高手"就是一個超廢的暱稱呀XDDD
沒有留言:
張貼留言