<%Option Explicit
Dim Balance, Brains, Chances, Cute, Pished, Personality
Balance=Request.BlokeVariables("BANK_BALANCE")
Personality=Request.BlokeVariables("PERSONALITY")
Cute=Request.BlokeVariables("APPEARANCE")
Brains=Request.BlokeVariables("INTELLIGENCE")
Pished=Request.RandomVariables("BLOOD_ALCOHOL")
If Balance<50 Then
Chances=Chances-1
If Balance<0 Then
Chances=Chances-5
If Balance>1000 Then
Chances=Chances+1
If Balance>10000 Then
Chances=Chances+5
If Personality="Funny" Or Personality="Geek" Then
Chances=Chances+5
If Personality="Boring" or Personality="Arrogant" Then
Chances=Chances-5
If Cute="Fugly" Then
Chances=Chances-5
If Cute="Attractive" Then
Chances=Chances+1
If Cute="Droolworthy" Then
Chances=Chances+5
If Brains="Can't read this shirt" Then
Chances=Chances-5
If Brains="Above Average" Then
Chances=Chances+1
If Brains="Evil Genius" Then
Chances=Chances+5
If Chances>15 Or Pished="Legless" Then
Response.Write("<b>You've been a very naughty boy, go to my room</b>")
Else if Chances>8 Then
Response.Write("<B>Go away or I will replace you with a very small shell script</b>")
Else
Response.Write("<b>cd \pub<br>more beer<br></b>")
End If
%>
|
