zade_o

1. Three woman – Anna, Barbara and Jayne were arrested for the murder of Susan. One of these three was the murderess, one was an accomplice and one was innocent. Three statements were collected: “Anna was not the accomplice.” “Barbara was not the murderess.” “Jayne is not innocent.” The following facts are also known: A statement does not concern the woman who gave it. The innocent woman gave at least one statement. Only the innocent woman tells the truth. Which woman is the murderess? (Explain your reasoning.) 3. Supply a conclusion, in the form of an implication, to the following argument so as to make it valid. If Joe goes to a party, he does not fail to brush his hair. To look fascinating it is necessary that Joe be tidy. If Joe is an opium eater, then he has no self-command. If Joe brushes his hair, he looks fascinating. Joe wears white kid gloves only if he goes to a party. Having no self-command is sufficient to make Joe look untidy. Therefore, …. 4. Use the properties of logical equivalence to show that ~(pq) = (~q)p ( what the hell? it doesn't = … I did a truth table for it? anyone know this?.....) 1. Prove the statement below by contrapositive. If is a positive real number, then . 2. Prove the statement in #1 by contradiction. More might be coming later.......... but anyways. I gotta finish these by 7 tonight. And I'm STUCK!

``` Sub CheckSTR(Index) Dim currentlvl Dim currentxp Dim nextlvl Dim tnl Call PlayerMsg(Index,"Checking str...",15) currentlvl=GetPlayerSTR(Index) nextlvl=currentlvl+1 tnl=GetVar("Scripts\levels.ini","lvl",""&nextlvl) Call PlayerMsg(Index,"cl: "¤tlvl&" nl:"&nextlvl&" tnl:"&tnl,15) currentxp=GetVar("Scripts\db\"&GetPlayerName(Index)&".ini","STR","xp") Call PlayerMsg(Index,"str update check: cl:"¤tlvl&" cx:" & currentxp,15) Call PlayerMsg(Index," current then next:"¤txp&" "&tnl,15) If currentxp>tnl Then Call PlayerMsg(Index,"here",15) End If End Sub ``` Ok I had to make some changes to that sub and now I can't get it to work. Every player msg works except the one in the if statement. and the PlayerMSg before that displays this: "current then next: 672 84" WHAT THA FUCK

I guess I'll become a closed beta tester…add me on msn. [email protected]

Wow. I think adrian really put it into perspective there. He's got a point, why should he work for an hour and only get paid …idk 1$ an hour instead (idk if you even like that price....) when he could just as easily be making 30$ or more an hour for coding....

Well I don't see why you want us to rate the graphics because they're not yours… I think there's an obvious trade off between using your own gfx and using someone elses. The mapping. I would give a 4 or 5 cus it's just blah....nothing exciting. The room is pretty empty considering the size of it.

Right well IMO it's the same as buying software for your microsoft pc or mac…. or the same as buying models from someone for a 3d engine. As munro said, if you don't wanna pay, turn on your brain and learn it.

It'd be a lot easier to tell if you gave us the entire sub… like.... from this Sub blahblah to this End Sub

Soooo any luck?

Amazing. works perfect. I feel like I know all the secrets to the world now. Now my source will be the best! (jk…(but not really))

Alright well the help was good and all but this is confusing the Duck out of me. Ok. This is what I'm trying to get working at the moment. I have 2 labels, lblA and lblB. I have a ini file for my character saved in the SERVER that looks like this "[Style] s = 0" Now. If I click lblB i want it to change to s = 1 and back to s = 0 if I click lblA. Soooo…. in the server, sub handleData I have this ``` Case "loadstyle" Dim FileData FileData = Val(ReadINI("Style", "s", App.Path & "\Scripts\db\" & GetPlayerName(Index) & ".ini", "0")) Exit Sub ``` and in the client, I have this ``` If casestring = "getstyle" Then Dim style style = parse(1) If (style = 0) Then frmMirage.Image4.Picture = LoadPicture(App.Path & "\GUI\CUSTOM\strstyle.gif") Else frmMirage.Image4.Picture = LoadPicture(App.Path & "\GUI\CUSTOM\defstyle.gif") End If End If ``` So a) is that right so far? and b) What do I need to do in the sub for clicking the 2 labels?

Why thank you kind sir

Yeah. That's why I just added everything on one variable. so…new bounty = players old bounty players over lvl 2000 so new bounty goes up by 5000, 5000, 5000, 2500, 2500, 1500, 500, 500 Then player bounty becomes new bounty. Get what I mean?

Lol. You think you have it bad that they confuse you….think about how you'd feel if you left for like a year, then come back and 90% of the major people have new names. I was like WHAT THE Duck. Talk about a mind blow... i actually thought all the old players were gone.

Rofl hold on. let me fix that so I don't look like a dumb ass. ``` Sub OnPVPDeath(Attacker, Victim) Dim bounty Dim reward bounty = GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") reward = GetVar("bounty.ini","" & GetPlayerName(Victim),"Bounty") Call GiveCurreny(Attacker,4,reward) Call GlobalMsg("" & GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker),12) Call PutVar("bounty.ini","" & GetPlayerName(Victim), "Bounty", "0") ''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''' Dim vlvl Dim newbounty vlvl=GetPlayerLevel(Victim) newbounty=GetVar("bounty.ini", "" & GetPlayerName(Attacker),"Bounty") If vlvl>1999 Then newbounty=newbounty+5000 End If If vlvl>1499 Then newbounty=newbounty+5000 End If If vlvl>999 Then newbounty=newbounty+5000 End If If Vlvl>749 Then newbounty=newbounty+2500 End If If vlvl>499 Then newbounty=newbounty+2500 End If If vlvl>249 Then newbounty=newbounty+1500 End If If vlvl>99 Then newbounty=newbounty+500 End If If vlvl>49 Then newbounty=newbounty+500 End If Call PutVar("bounty.ini", "" & GetPlayerName(Attacker),"Bounty", "" & newbounty) Call GlobalMsg("" & GetPlayerName(Attacker) & " has" & newbounty & " bounty.",12) End Sub ``` and no to the "newbounty=bounty + 5000" because you said you wanted it to go through every if, so if it's going through every if, if a player is lvl 2000 then all of those additions will be put onto his bounty. Therefore, if you just keep a tally of what to add, and then finally add the whole thing at once at the end like I did. It's less confusing and less chance for error.

``` Sub OnPVPDeath(Attacker, Victim) Dim bounty Dim reward bounty = GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") reward = GetVar("bounty.ini","" & GetPlayerName(Victim),"Bounty") Call GiveCurreny(Attacker,4,reward) Call GlobalMsg("" & GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker),12) Call PutVar("bounty.ini","" & GetPlayerName(Victim), "Bounty", "0") ''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''' Dim vlvl Dim attbounty vlvl=GetPlayerLevel(Victim) attbounty=GetVar("bounty.ini", "" & GetPlayerName(Attacker),"Bounty") If vlvl>1999 Then newbounty=newbounty+5000 End If If vlvl>1499 Then newbounty=newbounty+5000 End If If vlvl>999 Then newbounty=newbounty+5000 End If If Vlvl>749 Then newbounty=newbounty+2500 End If If vlvl>499 Then newbounty=newbounty+2500 End If If vlvl>249 Then newbounty=newbounty+1500 End If If vlvl>99 Then newbounty=newbounty+500 End If If vlvl>49 Then newbounty=newbounty+500 End If Call PutVar("bounty.ini", "" & GetPlayerName(Attacker),"Bounty", "" & newbounty) Call GlobalMsg("" & GetPlayerName(Attacker) & " has" & newbounty & " bounty.",12) End Sub ``` Try that. If it doesn't work, I'm 99% sure that the problem lies outside of that sub. Btw I did notice that the GlobaMsg just before the end sub didn't have a color after the text…not sure if that was it or not.

OK. I see it now. Well in that case I have no clue what's wrong with his thing.

I need a DVD editor that lets me put a title menu on there. Even if it's just a picture with the option to play the movie. Anyone know a good DVD maker that does that?

Well GetPlayerLegs isn't listed on the All Commands thread…

First of all, GetPlayerLeg isn't even a command. It's GetPlayerLegsSlot You gotta say GetPlayerInvItemNum(index, GetPlayerLegsSlot(index)) … try reading the list of all the commands http://www.touchofdeathforums.com/smf/index.php/topic,8502.0.html

Needs more shading.

I decided I'm gonna try to redraw the whole thing with a more realistic look to it. Kinda last on my list though.

Ezmek it doesn't need a source edit. Sadscript is perfectly capable of implementing this. I just showed how….

haha yeah kinda lame but I like the tileset. If you had like, levels, like cliffs with that tile set that would look awesome =)

All of that is source. There's a thread in the source edits section that shows how to delete collision with other players and i'm sure that can be edited to fit those other ones.

yeah seems like it. not a 100% breakdown of what to do but that's the way i want it so I can work with it and figure out how to use it with other things too. Thanks for your time man. I'll definitely get back to working on that.