Item + Item = ... [2/5]

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by 314piwm
[Today at 10:21:04 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 23
• Hidden: 0
• Users: 14
• Users Online:

• drifter000
• jncoblack15
• BRiM570N3
• 314piwm
• Ertzel
• RavenStar
• Bloodmyst
• yaratemaster
• bunnyphantom
• Blue Fly
• Back to teeming
• LegendWeaver
• Gamma™
• Mikekan13

I made this on request of: jazzman170

Non-scripter[2/5]
Beginner[2/5]
Advanced Scripter[1/5]
Expert[1/5]
Pro[1/5]

CODE:
Search for Sub ScriptedItem(index) place above the first end select this code:

Code: [Select]

Case 10
If CheckItem(index, 2) = 1 Then
If CheckItem(index, 3) = 1 Then
Call TakeItem(index, 2, "all")
Call TakeItem(index, 3, "all")
Call GiveItem(index, 4, 0)
Call PlayerMsg(index, "You gained a shield.", 12)
Else
Call PlayerMsg(index, "You need the left side of the shield.", 12)
End If
End If
Case 11
If CheckItem(index, 3) = 1 Then
If CheckItem(index, 2) = 1 Then
Call TakeItem(index, 3, "all")
Call TakeItem(index, 2, "all")
Call GiveItem(index, 4, 0)
Call PlayerMsg(index, "You gained a shield.", 12)
Else
Call PlayerMsg(index, "You need the right side of the shield.", 12)
End If
End If
End Select
End Sub

Add this total down into your main.txt

Code: [Select]

Sub TakeItem(index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Sub ChangeItem(index, olditem, newitem, newval)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = olditem Then
Call SetPlayerInvItemNum(index, SLOT, newitem)
Call SetPlayerInvItemValue(index, SLOT, newval)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Sub CheckItem(index, item)
CheckItem = 0
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
CheckItem = 1
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

FUNCTION:
This makes 2 items 1 item, change the script if you want more, I am making a larger script so it would be possible to use more items...


CREDITS:
The credits go to me, Godlord


Any suggestions or questions please post them here.

Stephan

Awsome, glad you could make the script :D  one problem with my side tho. Where does the second part of the script go? I dont understand what you mean by "Add this total down into your main.txt"  I added just that script by itself at the very bottom of my script, under no section, and tried the script but it doesnt work. So im guessing that second part of the script goes somewhere specific. Where might I put this?

jazzman170

Np, you should put it in the bottom of you main.txt

Stephan

Hmm, have u tested this script? If it works for you, its my side. I dont see how I installed it wrong, as all scripts I have installed upto my knowledge today is perfect. Ill just delete the script and add it again.

what I did was changed the 2 items to check 13 and 14 and u get item 15 for scripted Item # 6. And for # 7 I changed it to 14 and 14, and get item 15. I double click just one of the pieces in my inventory (in which I dont have the other piece in my inventory) and nothing happends. I tried haveing both pieces in inventory  and still nothing happend. Maybe I just put the second part of the script in wrong, lemme go back and see if it needs fixen

But it does work for you? (or anybody else if you guys care to comment   )

jazzman170

Code: [Select]

Case 10
Dim SLOT
Dim CheckItem
CheckItem = 0
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 2 Then
CheckItem = 1
SLOT = 24
End If
SLOT = SLOT+1
Loop
If CheckItem = 1 Then
CheckItem = 0
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 3 Then
CheckItem = 1
SLOT = 24
End If
SLOT = SLOT+1
Loop
If CheckItem = 1 Then
Call TakeItem(index, 2, "all")
Call TakeItem(index, 3, "all")
Call GiveItem(index, 4, 0)
Call PlayerMsg(index, "You gained a shield.", 12)
Else
Call PlayerMsg(index, "You need the left side of the shield.", 12)
End If
End If

Code: [Select]

Case 11
Dim SLOT
Dim CheckItem
CheckItem = 0
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 3 Then
CheckItem = 1
SLOT = 24
End If
SLOT = SLOT+1
Loop
If CheckItem = 1 Then
Dim SLOT
Dim CheckItem
CheckItem = 0
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 2 Then
CheckItem = 1
SLOT = 24
End If
SLOT = SLOT+1
Loop
If CheckItem = 1 Then
Call TakeItem(index, 3, "all")
Call TakeItem(index, 2, "all")
Call GiveItem(index, 4, 0)
Call PlayerMsg(index, "You gained a shield.", 12)
Else
Call PlayerMsg(index, "You need the right side of the shield.", 12)
End If
End If
End Select
End Sub

Code: [Select]

Sub TakeItem(index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub

Code: [Select]

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Code: [Select]

Sub ChangeItem(index, olditem, newitem, newval)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = olditem Then
Call SetPlayerInvItemNum(index, SLOT, newitem)
Call SetPlayerInvItemValue(index, SLOT, newval)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub
No I didn't test it because I am working on my Web Server but now it should work. Sadscript can't return in functions like VB6.0 or PHP so that's really bad then. I never tested CheckItem but it should work now.

Stephan

So where do those last scripts go?? Can you edit your first post with a guide on where to put it... Cheers

Soljah

Goes at the very bottom of main:


*********************************
Items 1+1=Run Script BY: Godlord
*********************************

Sub TakeItem(index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Sub ChangeItem(index, olditem, newitem, newval)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = olditem Then
Call SetPlayerInvItemNum(index, SLOT, newitem)
Call SetPlayerInvItemValue(index, SLOT, newval)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub



This is correct I hope godlord? I havent yet tested this whole script as im thinking of upgrading my eclipse game to the 32X64. Once I ask a question on another thread, ill test this script to see for myself

jazzman170

Yes it is and I will update the first topic Soljah when this got working perfect .

Stephan

K Thanx, I would test it, but im not the best at testing new scripts :/

Soljah

Tested, doesnt work. I made sure I put all the code in correctly, but nothing happends when I double click one piece of the item im testing with case 6. I also tried the item bound to case 7, and nothing happend. I then tried clicking one piece while both pieces were in my inventory, and nothing happend. Its not calling player message saying that I need the other piece, or calling player message saying I gained the whole item. Nothing is happening in my inventory, so script isnt working so far. hmmmmm heres how it is in my scripts:


Case 6
If CheckItem(index, 12) = 1 Then
If CheckItem(index, 13) = 1 Then
Call TakeItem(index, 12, "all")
Call TakeItem(index, 13, "all")
Call GiveItem(index, 14, 0)
Call PlayerMsg(index, "You gained SimGirl The Complete Comic!", 12)
Else
Call PlayerMsg(index, "You need the other piece of SimGirl!", 12)
End If
End If

Case 7
If CheckItem(index, 13) = 1 Then
If CheckItem(index, 12) = 1 Then
Call TakeItem(index, 13, "all")
Call TakeItem(index, 12, "all")
Call GiveItem(index, 14, 0)
Call PlayerMsg(index, "You gained SimGirl The Complete Comic!", 12)
Else
Call PlayerMsg(index, "You need the other piece of SimGirl!", 12)
End If
End If
End Select
End Sub




*********************************
Items 1+1=Run Script BY: Godlord
*********************************

Sub TakeItem(index, item, value)
If value = "all" Then
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, 0)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
Else
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = item Then
Call SetPlayerInvItemNum(index, SLOT, 0)
Call SetPlayerInvItemValue(index, SLOT, GetPlayerInvItemValue(index, SLOT) - value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End If
End Sub

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub

Sub ChangeItem(index, olditem, newitem, newval)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = olditem Then
Call SetPlayerInvItemNum(index, SLOT, newitem)
Call SetPlayerInvItemValue(index, SLOT, newval)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub



I will now look thru the code as good as I can, but im no good with coding as I know not much of it, but I got a basic idea of how some of it works, so ill try to help you out and see if I can get it working while you also work on it

EDIT: I cant seem to find anything wrong, looks like im out of luck here. Now I gotta leave it to the scripters. Sorry Godlord, I tried

jazzman170

Did you gaved item A script 6 and item B script 7 :p. The case parts need to be in Scripted Item(index)

Stephan

'********************************
Sub ScriptedItem(index, Script)
'********************************

Case 6
If CheckItem(index, 12) = 1 Then
If CheckItem(index, 13) = 1 Then
Call TakeItem(index, 12, "all")
Call TakeItem(index, 13, "all")
Call GiveItem(index, 14, 0)
Call PlayerMsg(index, "You gained SimGirl The Complete Comic!", 12)
Else
Call PlayerMsg(index, "You need the other piece of SimGirl!", 12)
End If
End If

Case 7
If CheckItem(index, 13) = 1 Then
If CheckItem(index, 12) = 1 Then
Call TakeItem(index, 13, "all")
Call TakeItem(index, 12, "all")
Call GiveItem(index, 14, 0)
Call PlayerMsg(index, "You gained SimGirl The Complete Comic!", 12)
Else
Call PlayerMsg(index, "You need the other piece of SimGirl!", 12)
End If
End If
End Select
End Sub



My cases 1-5 work perfectly. To be more specific, yes I did do what you said in your above post.

jazzman170

is there anyway to make this a spell?

Skieth

Necroposter stop necro-ing people =( it makes me feel humans are dumber then normal today..

Mighty Jewfro

Could you use Currency + Item = Weapon?
How would you do it?


And Necroing dosent count in the script database

Monkey Boy