{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman Times New Roman;}{\f3\froman Times New Roman;}} {\colortbl\red0\green0\blue0;} \deflang1033\horzdoc{\*\fchars }{\*\lchars }\pard\plain\f3\fs20 '(WRank,WStr,WTons,WPercentV,LRank,LStr,LTons,LPercentV,vKillP) \par vStrMod=StrMod(vAlly(PID,1),vAlly(PID,2),WTons,vAlly(PID,3),vOpp(0,4),vOpp(1,4),LTons,vOpp(2,4),(WKills/(WDeaths+WKills))) \par \par \tab \par \tab Opponents(0,4)= (Opponents(0,1) + Opponents(1,1)+Opponents(2,1))/vCount 'Rank \par \tab Opponents(1,4)= (Opponents(0,2) + Opponents(1,2)+Opponents(2,2))/vCount 'Str \par \tab Opponents(2,4)= (Opponents(0,3) + Opponents(1,3)+Opponents(2,3))/vCount 'vPerc \par \tab Opponents(3,4)= vCount 'Number of Players in group \par \par \par \par dim vOpp(3,4),vAlly(3,4) \par \par \par \par \par Sub btnSubmit_onclick() \par \tab \tab dim MTv1,MTv2,MTl1,MTl2,BID \par \tab \tab dim vOpp(3,4),vAlly(3,4) \par \tab \tab for a=0 to 3 \par \tab \tab \tab vAlly(a,0)=0 \par \tab \tab \tab vOpp(a,0)=0 \par \tab \tab next \par \tab \tab BID=CDbl(lstBattles.getValue()) \par \tab \tab MTv1=MechTons(lstVictorMech.getValue()) \par \tab \tab Mtv2=MechTons(lstVictorMech2.getValue()) \par \tab \tab Mtl1=MechTons(lstLoserMech.getValue()) \par \tab \tab Mtl2=MechTons(lstLoserMech2.getValue()) \par \tab \tab vAlly(0,0)=lstVictor.getValue() \par \tab \tab vAlly(1,0)=lstVictor2.getValue() \par \tab \tab vOpp(0,0)=lstLoser.getValue() \par \tab \tab vOpp(2,0)=lstLoser2.getValue() \par \pard\plain\f3\fs20 \tab \tab \plain\f2\fs20 Call GetOpp(vAlly,1) \par \pard\plain\f2\fs20 \tab \tab Call GetOpp(vOpp,0)\plain\f3\fs20 \par \tab \tab if (vAlly(0,0)<>-1 OR vAlly(1,0)<>-1) AND ( vOpp(0,0)<> -1 or vOpp(2,0)<>-1) and Validate(txtLoserKills.value) and Validate(txtVictorKills.value) and Validate(txtVictorKills2.value ) and Validate(txtLoserKills2.value ) then \par \tab \tab \tab rsVictor.setSQLText "SELECT `Group`, Nickname, ParticipantID, EmailAddress, Strength, Deaths, Kills, Losses, Victories, Encounters, TonnageLost, TonnageDestroyed, ConnectID,StrMod, Rank,bank,LastDrop FROM Participants " \par \tab \tab \tab rsVictor.requery() \par \tab \tab \tab Session("DropSignin")=False \par \tab \tab \tab call StatUpdate(vAlly(0,0),MTv1 , vOpp, (MTl1 + MTl2)/2 ,1, CDbl(txtVictorKills.value) , (CDbl(txtLoserKills.value)+CDbl(txtLoserKills2.value))/2,BID) \par \tab \tab \tab call StatUpdate(vAlly(1,0),MTv2, vOpp ,(MTl1 + MTl2)/2 ,1, CDbl(txtVictorKills2.value) , (CDbl(txtLoserKills.value) +CDbl(txtLoserKills2.value))/2,BID) \par \tab \tab \tab call StatUpdate(vOpp(0,0) , MTl1 , vAlly ,(MTv1+ MTv2)/2 ,0, CDbl(txtLoserKills.value) , (CDbl(txtVictorKills.value)+CDbl(txtVictorKills2.value))/2,BID) \par \tab \tab \tab call StatUpdate(vOpp(1,0) , MTl2 , vAlly ,(MTv1+ MTv2)/2 ,0, CDbl(txtLoserKills2.value) , (CDbl(txtVictorKills.value)+CDbl(txtVictorKills2.value))/2,BID) \par \tab \tab \tab call EncounteraddPO.navigate.BattleEncounter(BID,GetGroup(CDbl(\plain\f2\fs20 vAlly(0,0)\plain\f3\fs20 )),lstDrop.getValue() ,lstGame.getText() ,vAlly(0,0), vAlly(1,0),vOpp(0,0),vOpp(2,0),CDbl(txtVictorKills.value),CDbl(txtVictorKills2.value ),CDbl(txtLoserKills.value),CDbl(txtLoserKills2.value ),lstVictorMech.getValue(),lstVictorMech2.getValue(),lstLoserMech.getValue(), lstLoserMech2.getValue(),chkExpress.getChecked(),txtNotes.value) \par \tab \tab else \par \tab \tab \tab Response.Write("

VALUES NOT FOUND OR INVALID INPUT.

IF YOU ARE SUBMITTING A 1v1 DROP goto SOLARIS REPORT

") \par \tab \tab end if \par End Sub \par \par \par \par Function StatUpdate(WPlayerID,WTons,byRef vOpp,LTons,vWin,WKills,WDeaths,BID) \par \tab dim sMod, WRank,LRank, LStr, LPercentV, WFights, WStr, WPercentV\tab \par \tab WKills=WKills +.00001 \par \tab WDeaths=WDeaths +.00001 \par \tab LRank=vOpp(0,4) \par \tab LStr =vOpp(1,4) \par \tab LPercentV=vOpp(2,4) \par \tab \par \tab rsVictor.moveFirst \par \tab do while not rsVictor.EOF \par \tab if CDbl(WPlayerID)=CDbl(rsVictor.fields.getValue("ParticipantID")) then \par \tab \par \tab WRank=GetRankValue(rsVictor.fields.getValue("Rank")) \par \tab WStr= GetStr(CDbl(rsVictor.fields.getValue("Strength")),CDbl(WRank)) \par \tab WFights=CDBL(rsVictor.fields.getValue("Encounters")) \par \tab if WFights<.8 then \par \tab \tab WPercentV=0 \par \tab else \par \tab \tab WPercentV = CDBL(rsVictor.fields.getValue("Victories"))/ WFights \par \tab end if\tab \par \tab rsVictor.fields.setValue "Encounters",(WFights+1) \par \tab if vWin=1 then \par \tab \tab smod= StrMod( WRank,WStr,WTons,WPercentV,LRank,LStr,LTons,LPercentV,(WKills/(WDeaths+WKills))) \par \tab \tab rsVictor.fields.setValue "Victories",(CDBl(rsVictor.fields.getValue("Victories"))+1) \par \tab \tab rsVictor.fields.setValue "Bank",(CDbl(rsVictor.fields.getValue("Bank"))+CDbl(smod)) \par \tab else \par \tab \tab smod = StrMod( WRank,WStr,WTons,WPercentV,LRank,LStr,LTons,LPercentV,(WKills/(WDeaths+WKills))) \par \tab \tab rsVictor.fields.setValue "Losses",(CDBl(rsVictor.fields.getValue("Losses"))+1) \par \tab end if \par \tab rsVictor.fields.setValue "Kills",(CDbl(rsVictor.fields.getValue("Kills"))+CDbl(WKills )) \par \tab rsVictor.fields.setValue "Deaths",(CDbl(rsVictor.fields.getValue("Deaths"))+CDbl(WDeaths)) \par \tab rsVictor.fields.setValue "TonnageLost",(CDbl( rsVictor.fields.getValue("TonnageLost") )+( wTons*WDeaths )) \par \tab rsVictor.fields.setValue "TonnageDestroyed",(CDbl(rsVictor.fields.getValue("TonnageDestroyed"))+(LTons* WKills)) \par \tab if BID>0 then \par \tab \tab Smod=SMod +.2 \par \tab end if \par \tab rsVictor.fields.setValue "Strength",(((((WFights+1)* WStr) /(Wfights +2) )+((smod*5)/(Wfights+2)))) \par \tab rsVictor.fields.setValue "StrMod",CDbl(smod) \par \tab rsVictor.fields.setValue "LastDrop",Date() \par \tab rsVictor.updateRecord \par \tab exit do \par \tab end if \par \tab rsVictor.moveNext \par \tab loop \par End Function \par }