[閒聊] 戳戳樂的 code
string poke_str=@LONG
a b c d
┌─────┬─────┬─────┬─────┐
1│ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │
├─────┼─────┼─────┼─────┤
2│ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │
├─────┼─────┼─────┼─────┤
3│ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │
├─────┼─────┼─────┼─────┤
4│ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │ <戳戳樂> │
└─────┴─────┴─────┴─────┘
LONG
;
int poke_ok(string str,object ppl,string marks,int n)
{
object ob;
mixed tmps=({});
string award_str;
int i;
if(!str || str=="")
return answer_num(""+n,ppl,marks,n);
if(str!="a1" && str!="a2" && str!="a3" && str!="a4" &&
str!="b1" && str!="b2" && str!="b3" && str!="b4" &&
str!="c1" && str!="c2" && str!="c3" && str!="c4" &&
str!="d1" && str!="d2" && str!="d3" && str!="d4")
{
write(HIR"肉粽伯: 沒有這個洞喔!"NOR"\n");
return answer_num(""+n,ppl,marks,n);
}
tmps=explode(poke_str,"<戳戳樂>");
n=(atoi(str[1..1])-1)*4;
switch(str[0..0])
{
case "a": n=n+1; break;
case "b": n=n+2; break;
case "c": n=n+3; break;
case "d": n=n+4; break;
}
n=n-1;
switch(random(10))
{
case 0:
award_str="挪布幣x1";
ppl->add("record_data/nobu_money",1);
break;
case 1:
award_str="挪布幣x2";
ppl->add("record_data/nobu_money",2);
break;
case 2:
award_str="挪布幣x3";
ppl->add("record_data/nobu_money",3);
break;
case 3:
award_str="紫箱一個";
ob=clone_object("/d/auc/blarket/wiz_auc/ob06");
ob->set("names",ppl->query("name"));
ob->move_to(ppl);
ob->init();
break;
case 4:
award_str="擴增券x1";
ob=clone_object("/d/auc/blarket/ob11");
ob->set("names",ppl->query("name"));
ob->move_to(ppl);
ob->init();
break;
case 5:
award_str="10萬 int";
ppl->add("wealth",100000);
break;
default:
award_str="銘謝惠顧";
break;
}
str="";
for(i=0;i<16;i++)
{
if(i==n)
str+=tmps[i]+CSI"1;37;44m"+award_str+NOR;
else
str+=tmps[i]+"<戳戳樂>";
}
str+=tmps[i];
write(str+"肉粽伯: 恭喜你戳到 "+award_str+" ^_^\n");
write_file("/open/tmp/supply.log",sprintf("%-11s : %s\n",
ppl->query("name"),award_str));
ppl->vobjs("del",marks);
return 1;
}
雖然有 16 格，但目前獎項只有六個，銘謝惠顧的機率為
(10-6)/10 = 40%，玩家可建議獎項。
Laechan
--
※ 發信站: 批踢踢實業坊(ptt.cc)
※ 編輯: laechan 來自: 210.61.157.53 (02/20 09:38)
mud_sanc 近期熱門文章
PTT遊戲區 即時熱門文章
13
30