Kirby4tw

aoe health spells are healig all npc arround the range of the casting player The mob has 50/50 HP after a aoe heal of +5000Hp the mob has 5000/5000 HP ^^ im allready fix this bug. Mh… for an american keybord its ok but, what about germans? I want to use "ä,ö,ü" in the chat :D The block arrows are buggy... when I click on an arrow so nothing happens but, after 10 trys close an open the map-editor its working fine for a few time xD Edit: Mh, no... the feather engine can be downloadet at the following link: http://sourceforge.net/projects/featherengine/files/Sources/Alpha%200.1.4%20Sources/Alpha_0.1.4_Sources.rar/download the link workin fine :O

Oh man why do you remove my link? Dont want that anybody download the feather-engine? :O But Origins has many bugs. But's no prob 4 an vb6 coder ^^ nice work :)

This Eclipse version reminds me of the Featherengine.

I already try this, but dont work.

Theres no SetTimer Command what i can use in ModGamelogic on Serverside Engine…

Call SetTimer ("Timer", 10000) Sub Timer() …statement... End Sub ?

And where is the TImerSub for the event after 10000ms ?^^

Please tell my, how to use Tickcounts for a Timer. Need timer for 10 seconds :O Thx

I dont understand what you mean o.o sry Heres the GetPlayerSTR function: ``` Function GetPlayerSTR(ByVal Index As Long) As Long Dim Add As Long Add = 0 If GetPlayerWeaponSlot(Index) > 0 Then Add = Item(GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index))).AddStr End If If GetPlayerArmorSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerArmorSlot(Index))).AddStr End If If GetPlayerShieldSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerShieldSlot(Index))).AddStr End If If GetPlayerHelmetSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerHelmetSlot(Index))).AddStr End If If GetPlayerLegsSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerLegsSlot(Index))).AddStr End If If GetPlayerRingSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerRingSlot(Index))).AddStr End If If GetPlayerNecklaceSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerNecklaceSlot(Index))).AddStr End If GetPlayerSTR = Player(Index).Char(Player(Index).CharNum).STR + Add End Function ``` And Here the SetPlayerSTR: ``` Sub SetPlayerSTR(ByVal Index As Long, ByVal STR As Long) Player(Index).Char(Player(Index).CharNum).STR = STR End Sub ``` But, damnit, wheres is the bug come from? o.O

Punika, meinst du echt es is ne tolle idee die stärke übern server zu verändern? Ich brauch das in verbindung mit nem Buffscript. Das Funktioniert soweit. Aber wenn ich was angelegt habe addiert er die falschen werte siehe mein Problem oben im schlechten Englisch >_> Aber danke das du es dir wenigstens angeschaut hast. Ich hoffe einer der ECLIPSE_FREAKS xD kann das lösen. Thank you Punika. I hope anybody can help me with this :/ @ The Soul Numb: no clsCommand fpr SadScript is the same as the Server-Side One. Because the clsCommand use the same GetPlayerSTR Function. === PROBLEM

Hey Eclipser. I have a big problem and i dont know how to fix :lipsrsealed: I want to add strength to the Player(Index). So this is my code (its 100% correct): ``` Call SetPlayerSTR(Index, GetPlayerSTR(Index) +10) ``` All know this code sets the Player strenght + 10 but theres a big error: I try to explain: If the Player has no equipped equipment so this code is working fine. BUT!: granted that the player has a basic value of strenght of 15 and a equipped weapon with +5 STR so the basic value increased to 20 (logic). But if i want to use now my code above to increase 10 STR to my actual basic value (20), its unexpected add the weapon Strengh(5) + my Code-Strenght (10) to my basic value. Result 20 + 10 + 5 = 35\. Thats wrong. But Theres should be: 20+10 =30. My Question: Why the server add the EquipStr + My 10 to my STR Value if a equipped something? I think thats a fatal mistake in the Eclipse Engine. So please help me =) Heres the GetPlayerSTR function: ``` Function GetPlayerSTR(ByVal Index As Long) As Long Dim Add As Long Add = 0 If GetPlayerWeaponSlot(Index) > 0 Then Add = Item(GetPlayerInvItemNum(Index, GetPlayerWeaponSlot(Index))).AddStr End If If GetPlayerArmorSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerArmorSlot(Index))).AddStr End If If GetPlayerShieldSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerShieldSlot(Index))).AddStr End If If GetPlayerHelmetSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerHelmetSlot(Index))).AddStr End If If GetPlayerLegsSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerLegsSlot(Index))).AddStr End If If GetPlayerRingSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerRingSlot(Index))).AddStr End If If GetPlayerNecklaceSlot(Index) > 0 Then Add = Add + Item(GetPlayerInvItemNum(Index, GetPlayerNecklaceSlot(Index))).AddStr End If GetPlayerSTR = Player(Index).Char(Player(Index).CharNum).STR + Add End Function ``` And Here the SetPlayerSTR: ``` Sub SetPlayerSTR(ByVal Index As Long, ByVal STR As Long) Player(Index).Char(Player(Index).CharNum).STR = STR End Sub ``` (Sorry for my bad english)

Hey Thank you. One Question. How i can Use a Timer in the Serverside-sourcecode? Whats the Call? Call SetTimer(…) Is not working Whats the solution? Thank you :)

Godlike. Big Thx!

Hey, I need a Timer for 10 seconds ( 10000 ) after a if statement is true. How i can set a timer in the serverside source? I found this one: ``` If GetTickCount >= GiveHPTimer + HP_TIMER Then For I = 1 To MAX_PLAYERS If IsPlaying(I) Then If GetPlayerHP(I) < GetPlayerMaxHP(I) Then Call SetPlayerHP(I, GetPlayerHP(I) + GetPlayerHPRegen(I)) Call SendHP(I) End If End If Next I GiveHPTimer = GetTickCount End If ``` But how to use this for my own values? Thanks =)

With this code the Sadcript commands like "SetPlayerHP(index,GetPlayerMaxHP(index))" will not work longer if you have worn equip. Please fix this Balliztik1 ^^ For Questions: [email protected] (MSN)