Akselj

Script updated: (Godlord gave me an new PutVar command, but didn't have more time) ``` Sub OnPVPDeath(Attacker, Victim) Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call GiveCurrency(Attacker, 4, & GetVar("bounty.ini",GetPlayerName(Victim), "Bounty")) Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED) Call PutVar("bounty.ini",GetPlayerName(Victim), "Bounty", "0") If GetPlayerLevel(Victim) >1999 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 5000)) End If If GetPlayerLevel(Victim) >1499 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 5000)) End If If GetPlayerLevel(Victim) >999 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 5000)) End If If GetPlayerLevel(Victim) >749 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 2500)) End If If GetPlayerLevel(Victim) >499 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 2500)) End If If GetPlayerLevel(Victim) >249 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 1500)) End If If GetPlayerLevel(Victim) >99 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 500)) End If If GetPlayerLevel(Victim) >49 then Call PutVar("bounty.ini", GetPlayerName(Attacker), "Bounty", CStr(CInt(GetVar("bounty.ini", GetPlayerName(Attacker), "Bounty)) + 500)) End If Call GlobalMsg(GetPlayerName(attacker) & " has" &Getvar("bounty.ini",GetPlayerName(attacker),"Bounty") & " bounty" End Sub ``` Still does not work… I'll try removing Call GiveCurrency. EDIT: Nope, does not work now either...

So that's why it never showed up… EDIT: Nope nothing...

What about before they are warped, save the map and co-ordinates, then on OnNPCDeath, use a getvar to get the map and co-ordinates, then use putvar to make the .ini empty, then warp player back. Simple, but should work.

Okay.. Still doesen't work :sad: Now my script is like this: (aslo removed bounty=, didn't work then either) ``` Sub OnPVPDeath(Attacker, Victim) Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call GiveCurrency(Attacker, 4, & GetVar("bounty.ini",GetPlayerName(Victim), "Bounty")) Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED) Call PutVar("bounty.ini",GetPlayerName(Victim), "Bounty", "0") If GetPlayerLevel(Victim) >1999 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 500) End If If GetPlayerLevel(Victim) >1499 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 500) End If If GetPlayerLevel(Victim) >999 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 500) End If If GetPlayerLevel(Victim) >749 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 250) End If If GetPlayerLevel(Victim) >499 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 250) End If If GetPlayerLevel(Victim) >249 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 150) End If If GetPlayerLevel(Victim) >99 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 50) End If If GetPlayerLevel(Victim) >49 then Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 50) End If Call GlobalMsg(GetPlayerName(attacker) & " has" &Getvar("bounty.ini",GetPlayerName(attacker),"Bounty") & " bounty" End Sub ``` Sometimes I wonder why I had to make my own script… :P

It is in server, it created itself.

K thanx Ghost. This is one of my first scripts, and I really didn't understand how dim's work. Never thought I would use it. But you have proved me wrong… :P EDIT: Just tested it, still nothing comes into bounty.ini... Oh and I want it to add bounty, does that work if theres nothing there at all? Here's what my script looks like now: (I changed a to bounty) ``` Sub OnPVPDeath(Attacker, Victim) Call GiveCurrency(Attacker, 4, & GetVar("bounty.ini",GetPlayerName(Victim), "Bounty")) Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED) Call PutVar("bounty.ini",GetPlayerName(Victim), "Bounty", "0") If GetPlayerLevel(Victim) >1999 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 500) End If If GetPlayerLevel(Victim) >1499 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 500) End If If GetPlayerLevel(Victim) >999 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 500) End If If GetPlayerLevel(Victim) >749 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 250) End If If GetPlayerLevel(Victim) >499 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 250) End If If GetPlayerLevel(Victim) >249 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 150) End If If GetPlayerLevel(Victim) >99 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 50) End If If GetPlayerLevel(Victim) >49 then Dim bounty bounty=GetVar("bounty.ini","" & GetPlayerName(Attacker),"Bounty") Call PutVar("bounty.ini",""&GetPlayerName(Attacker),"Bounty","" & bounty + 50) End If Call GobalMsg(GetPlayerName(attacker) & " has" &Getvar("bounty.ini",GetPlayerName(attacker),"Bounty") & " bounty" End Sub ```

I have an problem with an script I wrote; I want it to add an value if player is 50+ add 50 if level is 100 then 50 for lvl 50 and 50 for lvl 100 will be added and so on. This script is not complete, I just wonder why the putvar command on ifgetplayerlvl does not work. ``` Sub OnPVPDeath(Attacker, Victim) Call GiveCurrency(Attacker, 4, & GetVar("bounty.ini",GetPlayerName(Victim), "Bounty")) Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED) Call PutVar("bounty.ini",GetPlayerName(Victim), "Bounty", "0") If GetPlayerLevel(Victim) >1999 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"500" End If If GetPlayerLevel(Victim) >1499 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"500" End If If GetPlayerLevel(Victim) >999 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"250" End If If GetPlayerLevel(Victim) >749 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"250" End If If GetPlayerLevel(Victim) >499 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"250" End If If GetPlayerLevel(Victim) >249 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"150" End If If GetPlayerLevel(Victim) >99 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"50" End If If GetPlayerLevel(Victim) >49 then Call PutVar("bounty.ini",GetPlayerName(Attacker), "Bounty", +"50" End If End Sub ``` Any help would be appreciated. Thanks, AkselJ

One-way block. That would make mapping so much easier.

It works for me… And I have EE 2.7

Balliztik's start a player with item's script with currency addition (addition made by me). (Original: http://www.touchofdeathforums.com/smf/index.php/topic,15331.0.html) Add this if you don't have it: (at bottom of main.txt) ``` '******************************** Sub Give_Item(index, number, durability) '******************************** Dim slot slot = 1 Do While slot < 25 If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) ) Call SetPlayerInvItemDur(index, Int( slot ), Int( durability ) ) Call SetPlayerInvItemValue(index, Int( slot ), Int(0) ) Call SendInventoryUpdate(index, Int(slot) ) slot = 25 End If slot = slot + 1 Loop End Sub ``` This GiveItem Sub was made by Baron. Add this to Sub JoinGame(index): ``` If GetVar("var.ini", GetPlayerName(index), "startup") = "" Then currency = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Currency")) weapon = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Weapon")) armor = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Armor")) shield = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Shield")) helmet = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Helmet")) currencydur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Currencydur")) wepdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Wepdur")) armdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Armdur")) shldur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Shldur")) hlmdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Hlmdur")) currencyval = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Currencyval")) If weapon 0 Then Call Give_Item(index, weapon, wepdur) End If If armor 0 Then Call Give_Item(index, armor, armdur) End If If shield 0 Then Call Give_Item(index, shield, shldur) End If If helmet 0 Then Call Give_Item(index, helmet, hlmdur) End If If currency 0 Then Call Give_Item(index, currency, currencydur currencyval) End If Call PutVar("var.ini", GetPlayerName(index), "startup", "yes") End If ``` Add this to all classes that should start with anything: ``` [StartUp] Currency=0 Weapon=0 Armor=0 Shield=0 Helmet=0 Wepdur=0 Armdur=0 Shldur=0 Hlmdur=0 Currencydur=0 Currencyval=0 ``` I think this should work - please tell me if anyone finds a bug. Hope it helps you out :) AkselJ

Yea double posting is bad. And aslo, milkyrules, you should not ask for such help here. Two reasons for that: 1: This is a topic about scrolling, make yourself your own topic. 2: There are tutorials where all those things are explained.

You should show on players if you are logged in and are playing with you character. To see if you are logged on with your account, check chat main. It should say things like: Received connection from (IP adress) (Accountname) has logged in. (Accountname/Character name) has began playing (Gamename). Connection from (IP adress) has been terminated. Hope that helps you out.

Hi, I have a problem with my VB6 coding: I tried to use this code: http://www.touchofdeathforums.com/smf/index.php/topic,31706.0.html wich is supposed to make NPC's have up to 2,147,850,675 HP, and use a text box instead of scroll bar. But nothing happens when I delete the scroll bar. I use EE 2.7. Thanks, AkselJ

Nothing happens when I edit it…. Anyone knows what might be the problem? Edit: NVM fixed it.

I thiught AoE was short for Age of Empires…

What do you mean with AoE?

EE 2.7 spells worked fine for me.

You can save all data manually, go to chat on oyur server and press save logs.

Well.. I'll see if I can find any script to do that.

Maybe, but it is a lot harder, since TE is older and does not have all features and SadScript functions as in EE

Please don't double post. Well, I checked out your pic. Go into item editor and make sure you use an item at the top. Aslo use a proper paperdoll sheet. If not, all items will look like something else.

Hi, I was just wondering; is it possible to make Eclipse run from a program that you can use on your cellphone? That would be really cool. Is it possible? And if it is, is it hard? Thanks AkselJ

To make them unable to kill their own race, is not so hard, i think. Neither is the points system. But, showing it in GUI, is hardcore scripting. I think FS:CG Admin[Shadowwulf] said he has a tut about it somewhere

Well, if you still haven't got it fixed, check "Properties" in map editor. I did a mistake in there once, I didn't think of how many coordinates the were at each map. You respawn in nowere if you set the coordinates higher than 30.

You only need one sprites, and that should be 32X32\. And BTW it is 32X64 not 64X32 (that would look really weird)