胡乱弄的一套程序.

闷鱼

本程序需要的参数:
女孩子名称----boy
男孩子名称----girl
男孩子等级----condition(有钱,有样,没钱没样)
女孩子等级----face(漂亮,一般,丑样)

dim score  '爱情积分

boy=request("boy")
boy=request("girl")
condition=request("condition")
face=request("face")


case select condition
case "有钱"
     score=80
     call love("begin")
case "有样"
     score=60
     call love("try")
case "没样没钱"
     score=0
     call error("severity")
end case


'///---爱情故事,男女双方爱情故事,根据不同的情况划分为:爱情故事开始,男女主人翁爱得天昏地暗.
死去活来.(我靠,爱情就是真么回事)
'LOVE Story具备三种状态(begin,爱情开始(只要BOY表现好,后面的路是不会太难走的了).try尝试(后面BOY的表现还是得比较好才行的)over(爱情结束,BOY只有无奈的份了).

sub love(what)
case select what
case "begin"
   if face="漂亮" then
   call show("中")
   if face="一般" then
   call show("低")
   if face="丑样" then
   call warn("这样子你也啃得下.真丢男人的脸!")
case "try"
   if face="漂亮" then
   call show("超高")
   if face="一般" then
   call show("高")
   if face="丑样" then
   call warn("她是不是那么好啊.忍耐下啦!")
   call show("中")
case "severity"
   if face="漂亮" then
   call show("中")
   if face="一般" then
   call show("低")
   if face="丑样" then
   response.write("她是不是真的那么好啊?")
case select
sub end


'为了泡到女孩子.男孩必须付出的代价(看表现了.机会总是有的)
难度分为(超高,高,中,低)
//------其实不同的女孩子可以发表自己的意见,作为考验的规则下
sub show(difficulty)
select case difficulty
case "超高"
   
'有待编写



case "高"


'有待编写
case "中"

'有待编写

case "低"

'有待编写
end select
end sub

sub warn(degree)
  response.write(degree)
end sub

sub succeed(haha)
  response.write(haha)
end sub

sub need(what)
  response.write(what)
end sub

[ Last edited by 闷鱼 on 2005-1-7 at 01:43 PM ]

流水有情

楼主继续

广工仔仔

晕....甘都得

流水有情

其实，我都未认真睇过楼主嘅程序

大鱼

程序架构似乎不错！支持一下！

liang-gdut

aa_for_short

是用什么编的啊？

不是吧？

版本问题